Test output for getopt-long [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- testing grammar1 ---------------------------------------------------------- (getopt-long cmdline1 grammar1) ...................................... [ PASS] (dispatch 'rnet-server) .............................................. [ PASS] 2 tests completed in 0.0 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 ------------------------------------------------