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

find the ryr-test failure and make a small example; also

Browse Source 
make the ryr test print the entire url when it runs
This commit is contained in:
Robby Findler 2013-06-01 14:44:24 -05:00
parent 33b65f5ec0
commit 24436e24ae
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/redex/tests/ryr-test.rkt
View File

@ -7,12 +7,12 @@
(define tmp-dir (make-temporary-file "ryr-test-~a" 'directory)) (define tmp-dir (make-temporary-file "ryr-test-~a" 'directory))
(current-directory tmp-dir) (current-directory tmp-dir)
(define models-url "http://www.eecs.northwestern.edu/~robby/lightweight-metatheory/models.tar.gz")
(printf "downloading models.tar.gz to ~a\n" tmp-dir) (printf "downloading ~a\n to ~a\n" models-url tmp-dir)
(call-with-output-file "models.tar.gz" (call-with-output-file "models.tar.gz"
(λ (out-port) (λ (out-port)
(call/input-url (call/input-url
(string->url "http://www.eecs.northwestern.edu/~robby/lightweight-metatheory/models.tar.gz") (string->url models-url)
get-pure-port get-pure-port
(λ (in-port) (λ (in-port)
(copy-port in-port out-port))))) (copy-port in-port out-port)))))

6
collects/redex/tests/tl-test.rkt
View File

@ -133,6 +133,12 @@
(test (pair? (redex-match lang l (term x))) (test (pair? (redex-match lang l (term x)))
#t)) #t))
(let ()
(define-language L
[Cv (name n variable-not-otherwise-mentioned)])
(test (redex-match L Cv ()) #f)
(test (pair? (redex-match L Cv x)) #f))
(let () (let ()
(define-language lang (define-language lang
((x y) 1 2 3)) ((x y) 1 2 3))