Verified Commit c07fdc68 authored by Camil Staps's avatar Camil Staps 🙂

Implement -l

parent c149369d
Pipeline #12578 passed with stage
in 36 seconds
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment