Welcome to the CHICKEN Scheme pasting service

$ cat tests/srfi-19-test.scm
(import test)
(import srfi-19)                                 ;For feature test

(test-group "Original"
  (test "date->string conversions"
        "~.Tue.Tuesday.Jun.June.Tue Jun 05 04:03:02-0200 2007.05.06/05/07. 5,02.000001,Jun.04"
        (date->string (make-date 1000 2 3 4 5 6 2007 -7200)
                      "~~.~a.~A.~b.~B.~c.~d.~D.~e,~f,~h.~H"))

  )

(test-exit)


$ chicken-csi -s tests/srfi-19-test.scm

-- testing Original ----------------------------------------------------------
date->string conversions ............................................. [ PASS]
1 test completed in 0.0 seconds.
1 out of 1 (100%) test passed.
-- done testing Original -----------------------------------------------------

$ chicken-install -test
building srfi-19
installing srfi-19
*** chicken-csi srfi-19-test  ***

-- testing Original ----------------------------------------------------------
date->string conversions ............................................. [ERROR]
    
Error: (date->string) bad argument type - not a string: date-time
    (date->string
      (make-date 1000 2 3 4 5 6 2007 -7200)
      "~~.~a.~A.~b.~B.~c.~d.~D.~e,~f,~h.~H")
1 test completed in 0.001 seconds.
1 error (100%).
0 out of 1 (0%) tests passed.
-- done testing Original -----------------------------------------------------

test script failed with nonzero exit status