34 lines
784 B
Racket
34 lines
784 B
Racket
#lang s-exp "../../lang/wescheme.rkt"
|
|
(require "required.rkt")
|
|
|
|
(require (prefix-in a-prefix: (only-in "required.rkt" f)))
|
|
|
|
(require "required-2.rkt")
|
|
|
|
(printf "require.rkt\n")
|
|
|
|
(define (blah)
|
|
'blaaargh)
|
|
|
|
(check-expect (blah) 'blaaargh)
|
|
|
|
(check-expect (f 42) (* 42 42))
|
|
|
|
(check-expect (hypo 3 4) 5)
|
|
|
|
(check-expect (h 16) (expt 16 5))
|
|
|
|
(check-expect (a-prefix:f 42) (* 42 42))
|
|
|
|
|
|
(check-expect (a-struct-x (make-a-struct 3 4 5)) 3)
|
|
(check-expect (a-struct? (make-a-struct 3 4 5)) true)
|
|
|
|
|
|
(check-expect game-name "Evolution chamber")
|
|
|
|
;; Hopefully, all-except-out will prevent a collision
|
|
;; between this binding and the one in required-5.rkt
|
|
(define clashing-value "value with a binding in required-5.rkt")
|
|
(check-expect clashing-value
|
|
"value with a binding in required-5.rkt") |