shithub: femtolisp

Info  •  Files  •  Log  •  Branches

run all tests on both posix and plan 9; enable non-broken parts of perf.lsp test

--- a/meson.build

+++ b/meson.build

@@ -148,7 +148,7 @@

 test('argv', flisp, args: ['argv.lsp'], workdir: tests_dir)

 test('hash', flisp, args: ['hashtest.lsp'], workdir: tests_dir)

-#test('perf', flisp, args: ['perf.lsp'], workdir: tests_dir)

+test('perf', flisp, args: ['perf.lsp'], workdir: tests_dir)

 test('tme', flisp, args: ['tme.lsp'], workdir: tests_dir)

 test('torture', flisp, args: ['torture.scm'], workdir: tests_dir)

 test('torus', flisp, args: ['torus.lsp'], workdir: tests_dir)

--- a/test/mkfile

+++ b/test/mkfile

@@ -1,2 +1,3 @@

 test:QV:

-	../$O.out unittest.lsp

+	for(t in argv.lsp hashtest.lsp perf.lsp tme.lsp torture.scm torus.lsp unittest.lsp)

+		../$O.out $t

--- a/test/perf.lsp

+++ b/test/perf.lsp

@@ -28,6 +28,7 @@

 (set! L (map-int (lambda (x) (map-int identity 20)) 20))

 (time (dotimes (n 1000) (apply my-append L)))

+#| FIXME(sigrid): broken

 (path-cwd "ast")

 (princ "p-lambda: ")

 (load "rpasses.lsp")

@@ -35,3 +36,4 @@

 (time (set! *output* (compile-ish *input*)))

 (assert (equal? *output* (load "rpasses-out.lsp")))

 (path-cwd "..")

+|#