oops rename in tests subdir too

This commit is contained in:
John Clements 2011-03-08 17:34:57 -08:00
parent 683f6b0fe4
commit ca88fdd7e5
2 changed files with 3 additions and 3 deletions

View File

@ -165,10 +165,10 @@
(check-equal? foo 3))) (check-equal? foo 3)))
(test-case (test-case
"Test simple foldts" "Test simple foldts-test-suite"
(check-equal? (check-equal?
'(S (C C C)) '(S (C C C))
(foldts (foldts-test-suite
(lambda (suite name before after seed) (lambda (suite name before after seed)
seed) seed)
(lambda (suite name before after seed kid-seed) (lambda (suite name before after seed kid-seed)

View File

@ -166,5 +166,5 @@
#;[fold-test-results #;[fold-test-results
XXX] XXX]
; XXX Requires knowing more about test cases and structs ; XXX Requires knowing more about test cases and structs
#;[foldts #;[foldts-test-suite
XXX]) XXX])