All tidied and working, now a test

explorable-viz · Oct 4, 2023 · 701a4ab · 701a4ab
1 parent 751a740
commit 701a4ab
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 10 deletions.
diff --git a/test/Main.purs b/test/Main.purs
@@ -2,7 +2,7 @@ module Test.Main where
 
 import Prelude hiding (add)
 
--- import Data.Array (concat)
+import Data.Array (concat)
 import Data.Profunctor.Strong (second)
 import Effect (Effect)
 import Effect.Aff (Aff)
@@ -15,15 +15,15 @@ main :: Effect Unit
 main = run tests
 
 tests :: Array (String × Aff Unit)
--- tests = concat
---    [ test_desugaring
---    , test_misc
---    , test_bwd
---    , test_graphics
---    , test_linking
---    ]
-
-tests = test_scratchpad
+tests = concat
+   [ test_desugaring
+   , test_misc
+   , test_bwd
+   , test_graphics
+   , test_linking
+   ]
+
+-- tests = test_scratchpad
 
 test_scratchpad :: Array (String × Aff Unit)
 test_scratchpad = second void <$> many

diff --git a/test/Spec/Specs.purs b/test/Spec/Specs.purs
@@ -49,6 +49,12 @@ misc_cases =
           \Infty, Infty, FNum 0, FNum 0, FNum 0, Infty, Infty,\n\
           \Infty, Infty, Infty, FNum 0, FNum 0, FNum 0, Infty"
      }
+   , { file: "dtw/matrix-update"
+     , fwd_expect:
+          "100, (1, 2), (1, 3),\n\
+          \(2, 1), (2, 2), (2, 3),\n\
+          \(3, 1), (3, 2), (3, 3)"
+     }
    ]
 
 desugar_cases :: Array TestSpec