Test output for simple-units [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null (make-units* foo z a (2 b) b (2 c) c (3 c)) .......................... [ PASS] (units? singleton) ................................................... [ PASS] (units-name singleton) ............................................... [ PASS] (units-base-name singleton) .......................................... [ PASS] (units-units-system singleton) ....................................... [ PASS] (units-unit-names singleton) ......................................... [ PASS] (units-unit-factor singleton 'foo) ................................... [ PASS] (+ (quantity 23 h time-units*) (quantity 23 m time-units*) (qua... ... [ PASS] (+ (quantity 23 h) (quantity 23 m) (quantity 23 s)) .................. [ PASS] (units=? time-units time-units*) ..................................... [ PASS] (units-system-name) .................................................. [ PASS] (list? (units-system-catalog)) ....................................... [ PASS] (units-system-units 'time) ........................................... [ PASS] (units-system-units/unit 'd) ......................................... [ PASS]