======================================== read-lines tests ...
== read-lines ==
(PASS) without arguments
(PASS) with a port as argument
(PASS) with a limit
(PASS) with an invalid first argument (port)
(PASS) with an invalid second argument (max)
  5 tests completed in 0.000 seconds
  5 (100.00%) tests passed
  0 (0.00%) tests failed
-- read-lines --



Error: (delete-file) cannot delete file - Permission denied: "read-lines.in"

        Call history:

        <eval>    [format-float] (eqv? #\. (string-ref str i))
        <eval>    [format-float] (string-ref str i)
        <eval>    [format-float] (lp (- i 1))
        <eval>    [format-float] (- i 1)
        <eval>    [format-float] (negative? i)
        <eval>    [format-float] (eqv? #\. (string-ref str i))
        <eval>    [format-float] (string-ref str i)
        <eval>    [format-float] (+ 1 (- prec (- len i)))
        <eval>    [format-float] (- prec (- len i))
        <eval>    [format-float] (- len i)
        <eval>    [format-float] (positive? diff)
        <eval>    [format-float] (string-append str (make-string diff #\0))
        <eval>    [format-float] (make-string diff #\0)
        <eval>    [test-end] (print "-- " *current-group-name* " --\n\n")
        <syntax>          (delete-file input-test-file)
        <eval>    (delete-file input-test-file) <--
make: *** [rules.make:1015: check] Error 70