Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow tests to compile/run in cyclone

Browse source
This commit is contained in:
Justin Ethier 2016-09-06 23:40:13 -04:00
parent 99afef48f7
commit 5e9ebeb664
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
srfi/list-queues/list-queues-test.scm
View file

@ -1,7 +1,8 @@
(cond-expand
(chicken (use test srfi-117))
(chibi (import (chibi test) (list-queues)))
)
(import (scheme base) (scheme cyclone test) (srfi 117))
;(cond-expand
; (chicken (use test srfi-117))
; (chibi (import (chibi test) (list-queues)))
;)
(test-group "list-queues"
@ -66,9 +67,13 @@
(define d (list 1 2 3))
(define e (cddr d))
(define f (make-list-queue d e))
(define-values (dx ex) (list-queue-first-last f))
(test-assert (eq? d dx))
(test-assert (eq? e ex))
; JAE - replaced define-values since cyclone does not support it yet
(let*-values (((dx ex) (list-queue-first-last f)))
(test-assert (eq? d dx))
(test-assert (eq? e ex)))
;(define-values (dx ex) (list-queue-first-last f))
;(test-assert (eq? d dx))
;(test-assert (eq? e ex))
(test '(1 2 3) (list-queue-list f))
(list-queue-add-front! f 0)
(list-queue-add-back! f 4)