suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed problems uncovered by the dr dr

Browse Source 
svn: r16356
This commit is contained in:
Robby Findler 2009-10-17 21:32:33 +00:00
parent b5dd323d94
commit ba959a9b24
4 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribblings/guide/contracts-examples/1-test.ss
View File

@ -1,14 +1,12 @@
#lang scheme #lang scheme
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (require schemeunit/test schemeunit/text-ui "1.ss" "1b.ss")
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))
(require "1.ss" "1b.ss")
(add (make-basic-customer 'mf "matthias" "brookstone")) (add (make-basic-customer 'mf "matthias" "brookstone"))
(add (make-basic-customer 'rf "robby" "beverly hills park")) (add (make-basic-customer 'rf "robby" "beverly hills park"))
(add (make-basic-customer 'fl "matthew" "pepper clouds town")) (add (make-basic-customer 'fl "matthew" "pepper clouds town"))
(add (make-basic-customer 'sk "shriram" "i city")) (add (make-basic-customer 'sk "shriram" "i city"))
(test/text-ui (run-tests
(test-suite (test-suite
"manager" "manager"
(test-equal? "id lookup" "matthias" (name 'mf)) (test-equal? "id lookup" "matthias" (name 'mf))

6
collects/scribblings/guide/contracts-examples/2-test.ss
View File

@ -1,12 +1,10 @@
#lang scheme #lang scheme
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (require schemeunit/test schemeunit/text-ui "2.ss")
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
"2.ss")
(define s0 (initialize (flat-contract integer?) =)) (define s0 (initialize (flat-contract integer?) =))
(define s2 (push (push s0 2) 1)) (define s2 (push (push s0 2) 1))
(test/text-ui (run-tests
(test-suite (test-suite
"stack" "stack"
(test-true (test-true

6
collects/scribblings/guide/contracts-examples/3-test.ss
View File

@ -1,12 +1,10 @@
#lang scheme #lang scheme
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (require schemeunit/test schemeunit/text-ui "3.ss")
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
"3.ss")
(define d0 (initialize (flat-contract integer?) =)) (define d0 (initialize (flat-contract integer?) =))
(define d (put (put (put d0 'a 2) 'b 2) 'c 1)) (define d (put (put (put d0 'a 2) 'b 2) 'c 1))
(test/text-ui (run-tests
(test-suite (test-suite
"dictionaries" "dictionaries"
(test-equal? "value for" 2 (value-for d 'b)) (test-equal? "value for" 2 (value-for d 'b))

6
collects/scribblings/guide/contracts-examples/5-test.ss
View File

@ -1,11 +1,9 @@
#lang scheme #lang scheme
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (require schemeunit/test schemeunit/text-ui "5.ss")
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
"5.ss")
(define s (put (put (initialize (flat-contract integer?) =) 2) 1)) (define s (put (put (initialize (flat-contract integer?) =) 2) 1))
(test/text-ui (run-tests
(test-suite (test-suite
"queue" "queue"
(test-true (test-true