www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

test-aful-racket.rkt (654B)

      1 #lang aful racket/base
      2 (module+ test
      3   (require rackunit)
      4   (check-equal? (map #λ(+ % 1) '(1 2 3))
      5                 '(2 3 4))
      6   (check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3))
      7                 '(2 4 6))
      8   (check-equal? (#λ(apply list* % %&) 1 '(2 3))
      9                 '(1 2 3))
     10   (check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1)
     11                 1)
     12   (check-equal? (let ([x (#λ"I am x")])
     13                   (#λx))
     14                 "I am x")
     15   (check-equal? (#λ(begin (set! % "%") %1) "%1")
     16                 "%")
     17   (check-equal? (let ([lambda "not lambda"] [define-syntax "not define-syntax"])
     18                   (#λ% 3))
     19                 3)
     20   )