Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 16:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tests for equal?

Browse source
This commit is contained in:
Justin Ethier 2022-05-25 23:03:55 -04:00
parent dcc3f0bfcd
commit 95a4a49dc7
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
circ-test.scm
View file

@ -4,22 +4,29 @@
(define v2 (vector v1)) (define v2 (vector v1))
(vector-set! v1 0 v2) (vector-set! v1 0 v2)
(display v1) (display v1)
;(equal? v1 v2) (display (equal? v1 v2))
(newline)
(define v1 (vector 1 2 3)) (define v1 (vector 1 2 3))
(define v2 (vector 1 v1 3)) (define v2 (vector 1 v1 3))
(vector-set! v1 1 v2) (vector-set! v1 1 v2)
(display v1) (display v1)
;(display (equal? v1 v2))
(newline)
(define l1 (list #f)) (define l1 (list #f))
(define l2 (list l1)) (define l2 (list l1))
(set-cdr! l1 l2) (set-cdr! l1 l2)
(display l1) (display l1)
(display (equal? l1 l2))
(newline)
(define l1 (list 1 2 3)) (define l1 (list 1 2 3))
(define l2 (list 1 l1 3)) (define l2 (list 1 l1 3))
(set-cdr! (cdr l1) l2) (set-cdr! (cdr l1) l2)
(write l1) (write l1)
(display (equal? l1 l2))
(newline)
; TODO: need to compare pointers to prevent this sort of thing: ; TODO: need to compare pointers to prevent this sort of thing:
; ;