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

fix tests

Browse Source
This commit is contained in:
AlexKnauth 2015-04-16 17:41:52 -04:00
parent 130216c2b8
commit 5e7c99f10a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
afl/reader.rkt
View File

@ -79,11 +79,11 @@
(module+ test (module+ test
(check-equal? (afl-read (open-input-string "#λ(+ % %2)")) (check-equal? (afl-read (open-input-string "#λ(+ % %2)"))
'(lambda (%1 %2) '(lambda (%1 %2)
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (#%app make-rename-transformer #'%1))
(+ % %2))) (+ % %2)))
(check-equal? (afl-read (open-input-string "#λ(+ _ _2)") #:arg-str "_") (check-equal? (afl-read (open-input-string "#λ(+ _ _2)") #:arg-str "_")
'(lambda (_1 _2) '(lambda (_1 _2)
(define-syntax _ (make-rename-transformer #'_1)) (define-syntax _ (#%app make-rename-transformer #'_1))
(+ _ _2))) (+ _ _2)))
) )
@ -132,24 +132,24 @@
(define chk (compose1 syntax->datum parse)) (define chk (compose1 syntax->datum parse))
(check-equal? (chk #'(+)) (check-equal? (chk #'(+))
'(lambda () '(lambda ()
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (#%app make-rename-transformer #'%1))
(+))) (+)))
(check-equal? (chk #'(+ 2 %1 %1)) (check-equal? (chk #'(+ 2 %1 %1))
'(lambda (%1) '(lambda (%1)
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (#%app make-rename-transformer #'%1))
(+ 2 %1 %1))) (+ 2 %1 %1)))
(check-equal? (chk #'(+ 2 %3 %2 %1)) (check-equal? (chk #'(+ 2 %3 %2 %1))
'(lambda (%1 %2 %3) '(lambda (%1 %2 %3)
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (#%app make-rename-transformer #'%1))
(+ 2 %3 %2 %1))) (+ 2 %3 %2 %1)))
(check-equal? (chk #'(apply list* % %&)) (check-equal? (chk #'(apply list* % %&))
'(lambda (%1 . %&) '(lambda (%1 . %&)
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (#%app make-rename-transformer #'%1))
(apply list* % %&))) (apply list* % %&)))
(check-equal? (parameterize ([current-arg-string "_"]) (check-equal? (parameterize ([current-arg-string "_"])
(chk #'(apply list* _ _&))) (chk #'(apply list* _ _&)))
'(lambda (_1 . _&) '(lambda (_1 . _&)
(define-syntax _ (make-rename-transformer #'_1)) (define-syntax _ (#%app make-rename-transformer #'_1))
(apply list* _ _&)))) (apply list* _ _&))))
;; parse-args : Stx -> KW-Formals-Stx ;; parse-args : Stx -> KW-Formals-Stx