fc45eb8125
- top.ss
- Added top:eval-after-program
to evaluate a new syntax in the context of Honu definitions
- Added previous contents of test.ss - testing is a top-level behavior
- test.ss
- Removed top-level testing calls
- Added bindings useful from testcase code
- New purpose is to be auto-required from *-test.ss when *.honu is tested
- examples/point-test.ss
- Removed now-redundant definitions
- examples/BoundedStack-test.ss
- Wrote tests for BoundedStack, both of defined names and actual code results
- examples/BoundedStack.honu
- Removed test results that are now in ...-test.ss
svn: r930
42 lines
1.5 KiB
Scheme
42 lines
1.5 KiB
Scheme
(define (push stack num)
|
|
(send stack BoundedStack<%>-push (new IntegerC% [value num])))
|
|
|
|
(define s0 (emptyBoundedStack 5))
|
|
(define s1 (push s0 5))
|
|
(define s2 (push s1 3))
|
|
(define s3 (push s2 10))
|
|
(define s4 (push s3 20))
|
|
(define s5 (push s4 40))
|
|
|
|
(append (map interface? (list List<%>
|
|
Stack<%>
|
|
BoundedStack<%>
|
|
Integer<%>))
|
|
(map class? (list ConsList%
|
|
BoundedStackC%
|
|
ListStackC%
|
|
IntegerC%))
|
|
(map
|
|
(lambda (object)
|
|
(andmap
|
|
(lambda (spec) (is-a? object spec))
|
|
(list Stack<%> BoundedStack<%> BoundedStack<%>)))
|
|
(list s0 s1 s2 s3 s4 s5))
|
|
(list
|
|
(not (send s0 BoundedStack<%>-isFull '()))
|
|
(not (send s1 BoundedStack<%>-isFull '()))
|
|
(not (send s2 BoundedStack<%>-isFull '()))
|
|
(not (send s3 BoundedStack<%>-isFull '()))
|
|
(not (send s4 BoundedStack<%>-isFull '()))
|
|
(send s5 BoundedStack<%>-isFull '()))
|
|
(list
|
|
(let* ([expected (list 5 3 10 20 40)]
|
|
[actual (list)])
|
|
(send s5 BoundedStack<%>-foreach
|
|
(lambda (int)
|
|
(set! actual (cons (send int Integer<%>-value-get 'Dummy) actual))))
|
|
(equal? expected actual))
|
|
(with-handlers ([exn:fail? (lambda (exn) #t)])
|
|
(push s5 50)
|
|
#f)))
|