From 701a4abb15bcf5f0b5e7ad14f94d7bdb65dc04ed Mon Sep 17 00:00:00 2001
From: JosephBond <jecb1998@googlemail.com>
Date: Wed, 4 Oct 2023 22:00:30 +0100
Subject: [PATCH] All tidied and working, now a test

---
 test/Main.purs       | 20 ++++++++++----------
 test/Spec/Specs.purs |  6 ++++++
 2 files changed, 16 insertions(+), 10 deletions(-)

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