Implement -l

cleantest.icl

@@ -192,6 +192,11 @@ Start w
 # opts = parseOptions optionDescription args gDefault{|*|}
 | isError opts = exit (join "\n" $ fromError opts) w
 # opts = fromOk opts
+| opts.test_options.list
+	# (io,w) = stdio w
+	# io = foldl (<<<) io [r.TestRun.name +++ "\n" \\ r <- opts.test_options.runs]
+	# (_,w) = fclose io w
+	= w
 // Run tests
 # (ok,f,w) = fopen ".ctest-results.json" FReadText w
 # (l,f) = if ok freadline (tuple "") f