There was already (broken) code in strings-test-suite to run the tests

as an application.  I fixed it and am ditching strings-test-suite-app.

tests/library.dylan

@@ -5,21 +5,25 @@ Author:    Carl Gay
 
 define library strings-test-suite
   use common-dylan;
+  use regular-expressions;
   use strings;
+  use system;
   use testworks;
   use testworks-specs;
-  use regular-expressions;
   export strings-test-suite;
 end;
 
 define module strings-test-suite
   use common-dylan;
-  use strings;
-  use testworks;
-  use testworks-specs;
   use regular-expressions,
     import: { compile-regex,
               match-group };
+  use strings;
+  use locators,
+    import: { locator-name,
+              <file-locator> };
+  use testworks;
+  use testworks-specs;
   export strings-test-suite;
 end;
 

tests/strings-test-suite.dylan

@@ -315,17 +315,13 @@ end function-test substring;
 
 
 define method main () => ()
-  let args = application-arguments();
-  let debug? = #f;
-  if (args.size >= 1)
-    if (equal?(args[0], "--debug", test: case-insensitive-equal?))
-      debug? := #t;
-    end;
+  let filename = locator-name(as(<file-locator>, application-name()));
+  if (split(filename, ".")[0] = "strings-test-suite")
+    run-test-application(strings-test-suite);
   end;
-  perform-suite(strings-test-suite, debug?: debug?);
 end method main;
 
 begin
-  main();
+  main()
 end;