|
|
@@ -78,9 +78,9 @@
|
|
|
|
|
|
(deftest test-extract-whiteboard-edn
|
|
|
[]
|
|
|
- (let [{:keys [pages blocks]} (extract/extract-whiteboard-edn "/whiteboards/foo.edn" (pr-str foo-edn) {})
|
|
|
+ (let [{:keys [pages blocks]} (extract/extract-whiteboard-edn "/whiteboards/Foo.edn" (pr-str foo-edn) {})
|
|
|
page (first pages)]
|
|
|
- (is (= (get-in page [:block/file :file/path]) "/whiteboards/foo.edn"))
|
|
|
+ (is (= (get-in page [:block/file :file/path]) "/whiteboards/Foo.edn"))
|
|
|
(is (= (:block/name page) "foo"))
|
|
|
(is (= (:block/original-name page) "Foo"))
|
|
|
(is (every? #(= (:block/parent %) {:block/name "foo"}) blocks))
|