diff options
Diffstat (limited to 'test-suite/tests/asm-to-bytecode.test')
-rw-r--r-- | test-suite/tests/asm-to-bytecode.test | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/test-suite/tests/asm-to-bytecode.test b/test-suite/tests/asm-to-bytecode.test index d01e93c43..a8e251b83 100644 --- a/test-suite/tests/asm-to-bytecode.test +++ b/test-suite/tests/asm-to-bytecode.test @@ -65,31 +65,18 @@ (comp-test '(make-int8 3) #(make-int8 3)) - (comp-test `(load-integer ,(string (integer->char 0))) - #(load-integer 0 0 1 0)) - - (comp-test `(load-integer ,(string (integer->char 255))) - #(load-integer 0 0 1 255)) - - (comp-test `(load-integer ,(string (integer->char 1) (integer->char 0))) - #(load-integer 0 0 2 1 0)) - (comp-test '(load-number "3.14") (vector 'load-number 0 0 4 (char->integer #\3) (char->integer #\.) (char->integer #\1) (char->integer #\4))) (comp-test '(load-string "foo") - (vector 'load-string 0 0 3 1 (char->integer #\f) (char->integer #\o) + (vector 'load-string 0 0 3 (char->integer #\f) (char->integer #\o) (char->integer #\o))) (comp-test '(load-symbol "foo") - (vector 'load-symbol 0 0 3 1 (char->integer #\f) (char->integer #\o) + (vector 'load-symbol 0 0 3 (char->integer #\f) (char->integer #\o) (char->integer #\o))) - (comp-test '(load-keyword "qux") - (vector 'load-keyword 0 0 3 1 (char->integer #\q) (char->integer #\u) - (char->integer #\x))) - (comp-test '(load-program 3 2 1 () 3 #f (make-int8 3) (return)) #(load-program 3 2 (uint16 1) ;; nargs, nrest, nlocs |