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

schemeunit: fixed some properties and dangling requires

Browse Source 
svn: r18252
This commit is contained in:
Ryan Culpepper 2010-02-21 04:49:09 +00:00
parent d3a280501f
commit 48ea3224f8
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/schemeunit/scribblings/file-test.scm
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require schemeunit/test (require schemeunit
"file.scm") "file.scm")
(check-equal? (my-+ 1 1) 2) (check-equal? (my-+ 1 1) 2)

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

@ -1,5 +1,5 @@
#lang scheme #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 'mf "matthias" "brookstone"))
(add (make-basic-customer 'rf "robby" "beverly hills park")) (add (make-basic-customer 'rf "robby" "beverly hills park"))

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

@ -1,5 +1,5 @@
#lang scheme #lang scheme
(require schemeunit/test schemeunit/text-ui "2.ss") (require schemeunit schemeunit/text-ui "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))

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

@ -1,5 +1,5 @@
#lang scheme #lang scheme
(require schemeunit/test schemeunit/text-ui "3.ss") (require schemeunit schemeunit/text-ui "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))

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

@ -1,5 +1,5 @@
#lang scheme #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)) (define s (put (put (initialize (flat-contract integer?) =) 2) 1))