Test output for srfi-102 [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null -- testing Arity At Least? --------------------------------------------------- (not (arity-at-least? 23)) ........................................... [ PASS] (not (arity-at-least? -1.0)) ......................................... [ PASS] (arity-at-least-value 23.0) .......................................... [ PASS] (arity-at-least-value 23) ............................................ [ PASS] 4 tests completed in 0.0 seconds. 4 out of 4 (100%) tests passed. -- done testing Arity At Least? ---------------------------------------------- -- testing Arity? ------------------------------------------------------------ (procedure-arity-available? +) ....................................... [ PASS] (procedure-arity-available? 2-fixed) ................................. [ PASS] (procedure-arity-available? 2-at-least) .............................. [ PASS] 3 tests completed in 0.0 seconds. 3 out of 3 (100%) tests passed. -- done testing Arity? ------------------------------------------------------- -- testing Arity ------------------------------------------------------------- (procedure-fixed-arity? 2-fixed) ..................................... [ PASS] (not (procedure-fixed-arity? 2-at-least)) ............................ [ PASS] (procedure-arity 2-fixed) ............................................ [ PASS] (procedure-arity 2-at-least) ......................................... [ PASS] (procedure-arity-includes? 2-fixed 2) ................................ [ PASS] (procedure-arity-includes? 2-at-least 2) ............................. [ PASS] (procedure-arity-includes? 2-at-least 3) ............................. [ PASS] (procedure-minimum-arity 2-fixed) .................................... [ PASS] (procedure-minimum-arity 2-at-least) ................................. [ PASS] 9 tests completed in 0.001 seconds. 9 out of 9 (100%) tests passed. -- done testing Arity -------------------------------------------------------- -- testing '+' Arity --------------------------------------------------------- (not (procedure-fixed-arity? +)) ..................................... [ PASS] (not (procedure-arity-includes? + 23)) ............................... [ PASS] 2 tests completed in 0.0 seconds. 2 out of 2 (100%) tests passed. -- done testing '+' Arity ----------------------------------------------------