Test output for getopt-long [ok]

Testing time: 0s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null

-- testing grammar1 ----------------------------------------------------------
(getopt-long cmdline1 grammar1) ...................................... [ PASS]
(dispatch 'rnet-server) .............................................. [ PASS]
2 tests completed in 0.001 seconds.
2 out of 2 (100%) tests passed.
-- done testing grammar1 -----------------------------------------------------


-- testing grammar2 ----------------------------------------------------------
(getopt-long cmdline2 grammar2) ...................................... [ PASS]
1 test completed in 0.0 seconds.
1 out of 1 (100%) test passed.
-- done testing grammar2 -----------------------------------------------------


-- testing uknown option -----------------------------------------------------
(let-values (((_ unknown) (getopt-long '("-u") grammar2 unknown... ... [ PASS]
1 test completed in 0.001 seconds.
1 out of 1 (100%) test passed.
-- done testing uknown option ------------------------------------------------