15 lines
430 B
Scheme
15 lines
430 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))))
|
|
|
|
(define sexp (with-input-from-file testfile1 (lambda () (wasm->sexp (current-input-port)))))
|
|
(write sexp)
|
|
(newline)
|
|
|
|
(test-end "wasm")
|