cleanup
This commit is contained in:
Binary file not shown.
@@ -1,4 +1,3 @@
|
||||
(define a 10)
|
||||
|
||||
(define (get-a-1)
|
||||
a)
|
||||
(define (get-a-1) a)
|
||||
|
||||
@@ -4,5 +4,4 @@
|
||||
(define (set-a-2 s)
|
||||
(set! a s))
|
||||
|
||||
(define (get-a-2)
|
||||
a)
|
||||
(define (get-a-2) a)
|
||||
|
||||
@@ -1,17 +1,27 @@
|
||||
(import "tests/import1.slime")
|
||||
|
||||
(print)
|
||||
(print ">" a)
|
||||
(assert (= a 10))
|
||||
(print ">" (get-a-1))
|
||||
(assert (= (get-a-1) 10))
|
||||
|
||||
|
||||
(import "tests/import2.slime")
|
||||
|
||||
(print ">" a)
|
||||
(assert (= a 10))
|
||||
(print ">" (get-a-1))
|
||||
(assert (= (get-a-1) 10))
|
||||
(print ">" (get-a-2))
|
||||
(assert (= (get-a-2) 10))
|
||||
|
||||
(set-a-2 11)
|
||||
(print "> should be 11 from now on")
|
||||
|
||||
(print ">" a)
|
||||
(assert (= a 11))
|
||||
(print ">" (get-a-1))
|
||||
(assert (= (get-a-1) 11))
|
||||
(print ">" (get-a-2))
|
||||
(assert (= (get-a-2) 11))
|
||||
|
||||
Reference in New Issue
Block a user