Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 15 lines (8 sloc) 253 Bytes
#lang racket
(require rackunit) ;; unit testing
(require "roman-macros.rkt") ;; recognizes Roman Numerals
(check-equal? X 10)
(check-equal? XVII 17)
(define (square x) (* x x))
(check-equal? (square X) C)
(check-equal? (- MDCCCCLXXXXVIIII MIM) 0)