Subrepo updates (including experimental one in cqt) + test arg clarity

cannam · Feb 15, 2023 · d191340 · d191340
1 parent 443c648
commit d191340
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 9 deletions.
diff --git a/repoint-lock.json b/repoint-lock.json
@@ -19,7 +19,7 @@
       "pin": "4af7b3dd9d46"
     },
     "sml-log": {
-      "pin": "773928a8f5c3"
+      "pin": "b24191ccbbaf"
     },
     "sml-timing": {
       "pin": "cbac551c8318"
@@ -88,10 +88,10 @@
       "pin": "b9f8ca0b21a6"
     },
     "bsq-bq": {
-      "pin": "d675e8a84193"
+      "pin": "449cbcee8117"
     },
     "bsq-samplestreams": {
-      "pin": "a5a9f026f3e4"
+      "pin": "8406412c9b80"
     },
     "bsq-randomaccess": {
       "pin": "c6b4382bba11"
@@ -100,7 +100,7 @@
       "pin": "066b11204f8b"
     },
     "bsq-cqt": {
-      "pin": "773ee002d3b7"
+      "pin": "abf2bed4a48b"
     },
     "bsq-waveform": {
       "pin": "8bba14c81230"

diff --git a/repoint-project.json b/repoint-project.json
@@ -103,7 +103,8 @@
 	    "vcs": "hg", "service": "sourcehut", "owner": "cannam"
 	},
 	"bsq-cqt": {
-	    "vcs": "hg", "service": "sourcehut", "owner": "cannam"
+	    "vcs": "hg", "service": "sourcehut", "owner": "cannam",
+            "branch": "without-reader-adapter"
 	},
 	"bsq-waveform": {
 	    "vcs": "hg", "service": "sourcehut", "owner": "cannam"

diff --git a/test.sml b/test.sml
@@ -21,7 +21,8 @@ fun all_tests () =
     prefixed "hmm" hmm_tests
 
 fun usage () =
-    (print ("Usage: " ^ CommandLine.name () ^ " [testname]\n");
+    (print ("Usage: " ^ CommandLine.name () ^ " [prefix]\n");
+     print ("If prefix is provided, run testsuites whose names start with that prefix.\n");
      print ("The default is to run all tests.\n");
      OS.Process.exit OS.Process.failure)    
 
@@ -30,15 +31,16 @@ fun main () =
         val () = Log.resetElapsedTime ()
     in
         case CommandLine.arguments () of
-            [test] =>
+            [prefix] =>
             (case foldl (fn ((name, tests), (found, succeeded)) =>
-                            if name = test
+                            if String.isPrefix prefix name
                             then (true, TestRunner.run (name, tests) andalso
                                         succeeded)
                             else (found, succeeded))
                         (false, true)
                         tests of
-                 (false, _) => (print ("Unknown test \"" ^ test ^ "\"\n");
+                 (false, _) => (print ("No testsuites match prefix \"" ^
+                                       prefix ^ "\"\n");
                                 usage ())
                | (_, false) => OS.Process.exit OS.Process.failure
                | _ => OS.Process.exit OS.Process.success)