15 lines
351 B
Scheme
15 lines
351 B
Scheme
(test-begin "wasm")
|
|
|
|
(define testdir "retropikzel/wasm")
|
|
(define testfile1 (string-append testdir "/" "plus.wasm"))
|
|
|
|
(when (not (file-exists? testfile1))
|
|
(error (string-append testfile1 " does not exist")))
|
|
|
|
(define bytes (with-input-from-file testfile1 (lambda () (read-bytevector 10000))))
|
|
|
|
(write (wasm->sexp bytes))
|
|
(newline)
|
|
|
|
(test-end "wasm")
|