www

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

test-aful-scribble.rkt (801B)

      1 #lang aful scribble/base
      2 @(require rackunit)
      3 @(check-equal? @#λ@title{@%}{This is a Title}
      4               @title{This is a Title})
      5 #λ
      6 @(check-equal? (map #λ(+ % 1) '(1 2 3))
      7                '(2 3 4))
      8 @(check-equal? (map #λ(+ % %2) '(1 2 3) '(1 2 3))
      9                '(2 4 6))
     10 @(check-equal? (#λ(apply list* % %&) 1 '(2 3))
     11                '(1 2 3))
     12 @(check-equal? (#λ(* 1/2 %#:m (* %#:v %#:v)) #:m 2 #:v 1)
     13                1)
     14 @(check-equal? (let ([x (#λ"I am x")])
     15                  (#λx))
     16                "I am x")
     17 @(check-equal? (#λ(begin (set! % "%") %1) "%1")
     18                "%")
     19 @(check-equal? (map #λ@+[% 1] '(1 2 3))
     20                '(2 3 4))
     21 @(check-equal? @#λ(+ % 1)[1] 
     22                2)
     23 @(check-equal? @#λ@+[% 1][1]
     24                2)
     25 @(check-equal? @#λ%{#λ}
     26                "#λ")
     27 #λ