oops rename in tests subdir too

2011-03-08 17:34:57 -08:00 · 2011-03-08 17:34:57 -08:00 · ca88fdd7e5
commit ca88fdd7e5
parent 683f6b0fe4
2 changed files with 3 additions and 3 deletions
--- a/collects/tests/rackunit/test-test.rkt
+++ b/collects/tests/rackunit/test-test.rkt
@ -165,10 +165,10 @@
      (check-equal? foo 3)))
     
   (test-case
-    "Test simple foldts"
+    "Test simple foldts-test-suite"
    (check-equal?
     '(S (C C C))
-     (foldts
+     (foldts-test-suite
      (lambda (suite name before after seed)
        seed)
      (lambda (suite name before after seed kid-seed)
--- a/collects/typed/rackunit/main.rkt
+++ b/collects/typed/rackunit/main.rkt
@ -166,5 +166,5 @@
 #;[fold-test-results
    XXX]
 ; XXX Requires knowing more about test cases and structs
- #;[foldts
+ #;[foldts-test-suite
    XXX])