commit 4ea66308a313d5083e2eae907464301931c73d81 parent ad2483e4e5a8bce718415154d6825358e1c63559 Author: AlexKnauth <alexander@knauth.org> Date: Sun, 24 Aug 2014 21:28:48 -0400 add test-afl-racket.rkt Diffstat:
| A | afl/tests/test-afl-racket.rkt | | | 17 | +++++++++++++++++ |
1 file changed, 17 insertions(+), 0 deletions(-)
diff --git a/afl/tests/test-afl-racket.rkt b/afl/tests/test-afl-racket.rkt @@ -0,0 +1,17 @@ +#lang afl racket/base +(module+ test + (require rackunit) + (check-equal? (map #λ(+ % 1) '(1 2 3)) + '(2 3 4)) + (check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3)) + '(2 4 6)) + (check-equal? (#λ(apply list* % %&) 1 '(2 3)) + '(1 2 3)) + (check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1) + 1) + (check-equal? (let ([x (#λ"I am x")]) + (#λx)) + "I am x") + (check-equal? (#λ(begin (set! % "%") %1) "%1") + "%") + )