diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/build | 17 | ||||
| -rw-r--r-- | utils/run-tests | 8 |
2 files changed, 25 insertions, 0 deletions
diff --git a/utils/build b/utils/build new file mode 100644 index 0000000..4c3c3db --- /dev/null +++ b/utils/build @@ -0,0 +1,17 @@ +(fn spit-lib [path to] + (with-open [lib (io.open path)] + (each [line (lib:lines)] + ;; patching compile-time variable used to store macro module + ;; namr because when loafing the combined file it will always + ;; equal the the main module and will break macros in vendored + ;; libraries. + (case (line:match "%(local lib%-name %(or %.%.%. (.*)") + name (to:write (.. "(local lib-name (or " name "\n")) + _ (to:write line "\n"))))) + +(with-open [cljlib (io.open "./cljlib.fnl" :w)] + (let [main (io.open "src/cljlib.fnl")] + (each [line (main:lines)] + (case (line:match ";;;###include (.*)") + (path) (spit-lib path cljlib) + _ (cljlib:write line "\n"))))) diff --git a/utils/run-tests b/utils/run-tests new file mode 100644 index 0000000..e70fae1 --- /dev/null +++ b/utils/run-tests @@ -0,0 +1,8 @@ +(local t (require :fennel-test.fennel-test)) + +(local test-modules + [:tests.core + :tests.fn + :tests.macros]) + +(t.run-tests test-modules) |