From 44fab79324f7c1323afb51d448e2a3d1f8b89107 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 12 May 2007 23:22:40 +0000 Subject: [PATCH] SRFI test updates from Chongkai svn: r6216 --- collects/tests/srfi/1/cons-test.ss | 4 ---- collects/tests/srfi/load-srfis.ss | 7 ++++++- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/tests/srfi/1/cons-test.ss b/collects/tests/srfi/1/cons-test.ss index 35b63ecf41..f5e72d7298 100644 --- a/collects/tests/srfi/1/cons-test.ss +++ b/collects/tests/srfi/1/cons-test.ss @@ -213,10 +213,6 @@ "iota:non-integer-step" (check-equal? (iota 5 0 1/2) (list 0 1/2 1 3/2 2))) - (test-case - "iota;negative-count" - (check-equal? (iota -1) (list))) - )) ) ;;; cons-test.ss ends here diff --git a/collects/tests/srfi/load-srfis.ss b/collects/tests/srfi/load-srfis.ss index 7917d4bbca..491da5f362 100644 --- a/collects/tests/srfi/load-srfis.ss +++ b/collects/tests/srfi/load-srfis.ss @@ -22,15 +22,19 @@ (require (lib "32.ss" "srfi")) (require (lib "34.ss" "srfi")) (require (lib "35.ss" "srfi")) +(require (lib "35.ss" "srfi")) (require (lib "40.ss" "srfi")) (require (lib "42.ss" "srfi")) (require (lib "43.ss" "srfi")) (require (lib "45.ss" "srfi")) (require (lib "48.ss" "srfi")) +(require (lib "54.ss" "srfi")) (require (lib "57.ss" "srfi")) (require (lib "59.ss" "srfi")) (require (lib "60.ss" "srfi")) (require (lib "61.ss" "srfi")) +(require (lib "63.ss" "srfi")) +(require (lib "64.ss" "srfi")) (require (lib "66.ss" "srfi")) (require (lib "67.ss" "srfi")) (require (lib "69.ss" "srfi")) @@ -41,7 +45,6 @@ (require (lib "87.ss" "srfi")) (require (lib "list.ss" "srfi" "1")) -(require (lib "time.ss" "srfi" "19")) (require (lib "and-let.ss" "srfi" "2")) (require (lib "let.ss" "srfi" "5")) (require (lib "program.ss" "srfi" "7")) @@ -68,6 +71,8 @@ (require (lib "vicinity.ss" "srfi" "59")) (require (lib "60.ss" "srfi" "60")) (require (lib "cond.ss" "srfi" "61")) +(require (lib "63.ss" "srfi" "63")) +(require (lib "testing.ss" "srfi" "64")) (require (lib "66.ss" "srfi" "66")) (require (lib "compare.ss" "srfi" "67")) (require (lib "hash.ss" "srfi" "69"))