4ace915a56
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10054 626c5289-ae23-0410-ae9c-e8d60b6d4f22
28 lines
786 B
Scheme
28 lines
786 B
Scheme
(require 'member_pointer)
|
|
|
|
(define (check-eq? msg expected actual)
|
|
(if (not (= expected actual))
|
|
(error "Error " msg ": expected " expected " got " actual)))
|
|
|
|
(define area-pt (areapt))
|
|
(define perim-pt (perimeterpt))
|
|
|
|
(define s (new-Square 10))
|
|
|
|
(check-eq? "Square area" 100.0 (do-op s area-pt))
|
|
(check-eq? "Square perim" 40.0 (do-op s perim-pt))
|
|
|
|
(check-eq? "Square area" 100.0 (do-op s (areavar)))
|
|
(check-eq? "Square perim" 40.0 (do-op s (perimetervar)))
|
|
|
|
;; Set areavar to return value of function
|
|
(areavar perim-pt)
|
|
(check-eq? "Square perim" 40 (do-op s (areavar)))
|
|
|
|
(check-eq? "Square area" 100.0 (do-op s (AREAPT)))
|
|
(check-eq? "Square perim" 40.0 (do-op s (PERIMPT)))
|
|
|
|
(define test (NULLPT))
|
|
|
|
(perimetervar (AREAPT))
|
|
(check-eq? "Square area" 100.0 (do-op s (perimetervar)))
|