~cannam/bisquay commit - sourcehut hg

3 files changed, 12 insertions(+), 9 deletions(-)

M repoint-lock.json
M repoint-project.json
M test.sml

M repoint-lock.json +4 -4

@@ 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"

M repoint-project.json +2 -1

@@ 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"

M test.sml +6 -4

@@ 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)