shithub: femtolisp

Info  •  Files  •  Log  •  Branches

test: add a very simple mpmul benchmark

--- a/meson.build

+++ b/meson.build

@@ -216,10 +216,11 @@

 tests_dir = join_paths(meson.current_source_dir(), 'test')

-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, timeout: -1)

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

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

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

-test('unit', flisp, args: ['unittest.lsp'], workdir: tests_dir)

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

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

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

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

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

+test('torture.lsp', flisp, args: ['torture.scm'], workdir: tests_dir, timeout: -1)

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

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

--- a/test/mkfile

+++ b/test/mkfile

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

 test:QV:

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

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

 		../$O.out $t

--- /dev/null

+++ b/test/mp.lsp

@@ -1,0 +1,2 @@

+(define x 9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)

+(apply * (map-int (λ (_) x) 1000))