Welcome to the CHICKEN Scheme pasting service

-- 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")


-- testing Extensions ----------------------------------------------------
...
    #966 does not recognise the first item in abbrev vectors for any lang  [ERROR]                                                                                     
                                                                                                                                                                       
Error: (string=?) bad argument type: sat                                                                                                                               
        (and (date=?                                                                                                                                                   
               (scan-date "Mon, 12 Jan 2014 03:46:09 +0100" "~a, ~d ~b ~Y ~H:~M:~S ~z")                                                                                
               (make-date 0 9 46 3 12 1 2014 3600))                                                                                                                    
             (date=?                                                                                                                                                   
               (scan-date "Sun, 12 Jan 2014 03:46:09 +0100" "~a, ~d ~b ~Y ~H:~M:~S ~z")                                                                                
               (make-date 0 9 46 3 12 1 2014 3600)))
...
    srfi-18-time-works ............................................... [ERROR]
                                                                                   
Error: unbound variable: ##sys#exact->inexact                                      
        (let ((m (make-date 0 0 0 0 21 3 2013)))
          (let ((tim (date->time m)))
            (time=?
              tim
              (add-duration
                (zero-time 'utc)
                (srfi-18-time->time (time->srfi-18-time tim))))))
...
    Read Date Literal ................................................ [ FAIL]
        assertion failed                                                           
        (equal?                                                                    
          '(make-date 0 16 28 18 16 3 2020 -25200)                              
          (with-input-from-string "2020-03-16T18:28:16-0700" read-date-literal))   
    Read (BCE) Date Literal .......................................... [ FAIL]     
        assertion failed                                                           
        (equal?                                                                    
          '(make-date 0 16 28 18 16 3 -2020 -25200)                                
          (with-input-from-string "-2020-03-16T18:28:16-0700" read-date-literal))
...
    string->date ~f extension ........................................ [ERROR]
         
Error: (string-ref) bad argument type: separator
        (let ((d (string->date "2024-02-24T12:34:59.5Z" "~Y-~m-~dT~H:~M:~f~z")))
          (list (date-second d)
                (date-nanosecond d)
                (date->string d "~Y-~m-~dT~H:~M:~f~z")))