ompayne/sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add unit tests

Browse Source
This commit is contained in:
Oliver Payne 2022-05-10 17:15:26 +01:00
parent 5ca5d2af0f
commit 5287954c87
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
3_23.rkt
View File

@ -107,14 +107,26 @@
(display ")")
(newline))
(#%require (only racket/base module+))
(define d (make-deque))
(deque->list d)
(front-insert! d 'a)
(deque->list d)
(rear-insert! d 'b)
(deque->list d)
;;(rear-delete! d)
;;(deque->list d)
;;(rear-delete! d)
;;(deque->list d)
(module+ test
(#%require rackunit)
(test-begin
(define d (make-deque))
(check-equal? (deque->list d) '())
(front-insert! d 'a)
(check-equal? (deque->list d) '(a))
(rear-insert! d 'b)
(check-equal? (deque->list d) '(a b))
(rear-delete! d)
(check-equal? (deque->list d) '(a))
(rear-delete! d)
(check-equal? (deque->list d) '())
(rear-insert! d 'b)
(check-equal? (deque->list d) '(b))
(rear-insert! d 'b)
(check-equal? (deque->list d) '(b b))
(front-delete! d)
(check-equal? (deque->list d) '(b)))
)