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.
73 lines
712 B
Racket
73 lines
712 B
Racket
#lang at-exp br
|
|
(require br/test rackunit)
|
|
|
|
(check-equal? (run-source "sample.rkt") "one
|
|
|
|
three
|
|
4
|
|
")
|
|
|
|
(check-equal? (run-source "sample-cond.rkt") "1
|
|
1
|
|
1
|
|
|
|
")
|
|
|
|
(check-equal? (run-source "sample-def.rkt") "60
|
|
600
|
|
3
|
|
")
|
|
|
|
(check-equal? (run-source "sample-exporter.rkt") "1
|
|
2
|
|
3
|
|
")
|
|
|
|
(check-equal? (run-source "sample-for.rkt") "1
|
|
9
|
|
1
|
|
8
|
|
1
|
|
7
|
|
2
|
|
9
|
|
2
|
|
8
|
|
2
|
|
7
|
|
3
|
|
9
|
|
3
|
|
8
|
|
3
|
|
7
|
|
")
|
|
|
|
(check-equal? (run-source "sample-gosub.rkt") "first
|
|
second
|
|
third
|
|
fourth
|
|
")
|
|
|
|
(check-equal? (run-source "sample-import.rkt") "53
|
|
0
|
|
10
|
|
")
|
|
|
|
(check-equal? (run-source "sample-importer.rkt") "#<procedure:div>
|
|
20
|
|
2
|
|
")
|
|
|
|
(check-equal? (run-source "sample-math.rkt") "1
|
|
1
|
|
1
|
|
1
|
|
1
|
|
1
|
|
1
|
|
")
|
|
|
|
(check-equal? (run-source "sample-shell.rkt") "got shell args: 000\n")
|
|
|