Remove failing tests, remove implemented code generator
This commit is contained in:
12
tests.scm
12
tests.scm
@@ -3,7 +3,7 @@
|
||||
(scmvm vm)
|
||||
(scmvm debugger)
|
||||
(scmvm language assembly)
|
||||
(scmvm language cps)
|
||||
(scmvm language scheme)
|
||||
(rnrs bytevectors)
|
||||
(rnrs io ports)
|
||||
((scheme base)
|
||||
@@ -167,13 +167,3 @@
|
||||
(debugger-continue my-debugger)
|
||||
(assert-equal 23 (vm-pc my-vm)) ;; continue stops stepping
|
||||
))
|
||||
|
||||
(define-test-suite "cps"
|
||||
(define-test "atomics"
|
||||
(define asm (make-assembler))
|
||||
(compile-cps asm '(1))
|
||||
(assert-equal 1 (bytevector-u32-native-ref (assembler-buf asm) 0)))
|
||||
(define-test "atomics"
|
||||
(define asm (make-assembler))
|
||||
(compile-cps asm '(1))
|
||||
(assert-equal 1 (bytevector-u32-native-ref (assembler-buf asm) 0))))
|
||||
|
||||
Reference in New Issue
Block a user