From 48ea3224f89266ea60c4c853448650cba367c84c Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sun, 21 Feb 2010 04:49:09 +0000 Subject: [PATCH] schemeunit: fixed some properties and dangling requires svn: r18252 --- collects/schemeunit/scribblings/file-test.scm | 2 +- collects/scribblings/guide/contracts-examples/1-test.ss | 2 +- collects/scribblings/guide/contracts-examples/2-test.ss | 2 +- collects/scribblings/guide/contracts-examples/3-test.ss | 2 +- collects/scribblings/guide/contracts-examples/5-test.ss | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/schemeunit/scribblings/file-test.scm b/collects/schemeunit/scribblings/file-test.scm index 42c6e6ef42..f67ef480db 100644 --- a/collects/schemeunit/scribblings/file-test.scm +++ b/collects/schemeunit/scribblings/file-test.scm @@ -1,6 +1,6 @@ #lang scheme/base -(require schemeunit/test +(require schemeunit "file.scm") (check-equal? (my-+ 1 1) 2) diff --git a/collects/scribblings/guide/contracts-examples/1-test.ss b/collects/scribblings/guide/contracts-examples/1-test.ss index a66e2db25e..ffe7f34ba5 100644 --- a/collects/scribblings/guide/contracts-examples/1-test.ss +++ b/collects/scribblings/guide/contracts-examples/1-test.ss @@ -1,5 +1,5 @@ #lang scheme -(require schemeunit/test schemeunit/text-ui "1.ss" "1b.ss") +(require schemeunit schemeunit/text-ui "1.ss" "1b.ss") (add (make-basic-customer 'mf "matthias" "brookstone")) (add (make-basic-customer 'rf "robby" "beverly hills park")) diff --git a/collects/scribblings/guide/contracts-examples/2-test.ss b/collects/scribblings/guide/contracts-examples/2-test.ss index b1917cb62b..97c2736c62 100644 --- a/collects/scribblings/guide/contracts-examples/2-test.ss +++ b/collects/scribblings/guide/contracts-examples/2-test.ss @@ -1,5 +1,5 @@ #lang scheme -(require schemeunit/test schemeunit/text-ui "2.ss") +(require schemeunit schemeunit/text-ui "2.ss") (define s0 (initialize (flat-contract integer?) =)) (define s2 (push (push s0 2) 1)) diff --git a/collects/scribblings/guide/contracts-examples/3-test.ss b/collects/scribblings/guide/contracts-examples/3-test.ss index fb5cb2e88a..1e164e2d05 100644 --- a/collects/scribblings/guide/contracts-examples/3-test.ss +++ b/collects/scribblings/guide/contracts-examples/3-test.ss @@ -1,5 +1,5 @@ #lang scheme -(require schemeunit/test schemeunit/text-ui "3.ss") +(require schemeunit schemeunit/text-ui "3.ss") (define d0 (initialize (flat-contract integer?) =)) (define d (put (put (put d0 'a 2) 'b 2) 'c 1)) diff --git a/collects/scribblings/guide/contracts-examples/5-test.ss b/collects/scribblings/guide/contracts-examples/5-test.ss index 8d39bd1864..8bb8464d51 100644 --- a/collects/scribblings/guide/contracts-examples/5-test.ss +++ b/collects/scribblings/guide/contracts-examples/5-test.ss @@ -1,5 +1,5 @@ #lang scheme -(require schemeunit/test schemeunit/text-ui "5.ss") +(require schemeunit schemeunit/text-ui "5.ss") (define s (put (put (initialize (flat-contract integer?) =) 2) 1))