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

added more options into the place-chan-rand test; seems to still (rarely) cause a crash

Browse Source
This commit is contained in:
Robby Findler 2011-06-18 08:41:40 +08:00
parent 56ee3049b2
commit 62a337231a
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/racket/place-chan-rand.rkt
View File

@ -15,6 +15,10 @@
(i (cons i i) (i (cons i i)
(vector-immutable i ...) (vector-immutable i ...)
(string->immutable-string str) (string->immutable-string str)
(make-prefab-struct pf-type legal-message ...)
(string->path (string-append string "x"))
(let-values ([(a b) (place-channel)]) a)
(let-values ([(a b) (place-channel)]) b)
f) f)
(f '() (f '()
@ -22,7 +26,15 @@
#t #t
num num
(string-ref one-len-str 0)) (string-ref one-len-str 0))
(pf-type sym
;; these ones place constraints on the number of fields (why?)
;; so the generator needs to be smarter here
#;(list sym byte (list byte legal-message) (vector))
#;(list* sym byte (list byte legal-message) (vector) pf-type))
(str (string-append one-len-str ...)) (str (string-append one-len-str ...))
(sym (string->symbol str))
(one-len-str "a" "b" "λ" "龍") (one-len-str "a" "b" "λ" "龍")
(num fx (num fx
fl fl
@ -51,7 +63,8 @@
(define ns (make-base-namespace)) (define ns (make-base-namespace))
(parameterize ([current-namespace ns]) (parameterize ([current-namespace ns])
(namespace-require 'racket/flonum) (namespace-require 'racket/flonum)
(namespace-require 'racket/fixnum)) (namespace-require 'racket/fixnum)
(namespace-require 'racket/place))
(define (try-message msg-code) (define (try-message msg-code)
;; (printf "trying ~s\n" msg-code) ;; helpful when crashing ... ;; (printf "trying ~s\n" msg-code) ;; helpful when crashing ...