You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
364 B
Racket
34 lines
364 B
Racket
7 years ago
|
#lang at-exp br
|
||
|
|
(require br/test rackunit)
|
||
|
|
|
||
|
|
(check-equal? (run-source "sample.rkt") "one
|
||
|
|
|
||
|
|
three
|
||
|
|
4
|
||
|
|
")
|
||
|
|
(check-equal? (run-source "sample-var.rkt") "15
|
||
|
|
75
|
||
|
|
")
|
||
|
|
(check-equal? (run-source "sample-math.rkt") "1
|
||
|
|
1
|
||
|
|
1
|
||
|
|
1
|
||
|
|
1
|
||
|
|
1
|
||
|
|
1
|
||
|
|
")
|
||
|
|
(check-equal? (run-source "sample-gosub.rkt") "hello
|
||
|
|
world
|
||
|
|
third
|
||
|
|
hi
|
||
|
|
")
|
||
|
|
(check-equal? (run-source "sample-for.rkt") "19
|
||
|
|
18
|
||
|
|
17
|
||
|
|
29
|
||
|
|
28
|
||
|
|
27
|
||
|
|
39
|
||
|
|
38
|
||
|
|
37
|
||
|
|
")
|