13 lines
259 B
Racket
13 lines
259 B
Racket
#lang racket
|
|
(require rackunit
|
|
"../ast.rkt")
|
|
|
|
(provide test-literal test-clause)
|
|
|
|
(define (test-literal str l1 l2)
|
|
(test-case
|
|
str (check literal-equal? l1 l2)))
|
|
(define (test-clause str c1 c2)
|
|
(test-case
|
|
str (check clause-equal? c1 c2)))
|