diff --git a/test/Main.purs b/test/Main.purs index 1143cf507..de073564d 100644 --- 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 index 61f79dfce..2b1dc8556 100644 --- 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