a small bug on (srfi :64 testing)

[higepon(Taro Minowa)]

Bug on (srfi :64 testing).

Hi. Thank you for your port.
Your addition of 'source-form is good!.

I found a small bug.

(1) How to reproduce the problem.
(import (rnrs)
        (srfi :64))

(test-begin "hello")
(test-end)

(2) Results
% ./mosh work.scm
%%%% Starting test hello
 Condition components:
 1. &assertion
 2. &who who: "assq"
 3. &message message: "list required, but got #<unspecified>"
 4. &irritants irritants: ()

 Exception:
     error in raise: returned from non-continuable exception

 Stack trace:
    1. throw: <subr>
    2. (raise c): compiler-with-library.scm:889
    3. assq: <subr>
    4. (%test-format-line runner): <unknown location>
    5. (%test-end suite-name line-info): <unknown location>
    6. (%test-end suite-name line-info): <unknown location>
    7. eval: <subr>
    8. (dynamic-wind in body out): compiler-with-library.scm:808
    9. (dynamic-wind in body out): compiler-with-library.scm:808
    10. (dynamic-wind in body out): compiler-with-library.scm:808
    11. (<top-level>): <unknown location>

(3) How to fix
On test-runner-reset procedure,
set the initial value for test-result-alist to '().

(define (test-runner-reset runner)
+ (test-result-alist! runner '())
    (test-runner-pass-count! runner 0)
    (test-runner-fail-count! runner 0)
    (test-runner-xpass-count! runner 0)

Cheers.

-----
Taro Minowa(Higepon)

http://www.monaos.org/
http://code.google.com/p/mosh-scheme/

[Derick Eddington (derick-eddington)]

Fixed in revision 72.