basic test setup with janet

.dir-locals.el

-;;; Directory Local Variables
+;;; Directory Local Variables            -*- no-byte-compile: t -*-
 ;;; For more information see (info "(emacs) Directory Variables")
 
-((sh-mode . ((sh-basic-offset . 2))))
+((nil . ((eval . (progn
+                   (setq janet-interpreter-command "jpm")
+                   (setq janet-interpreter-arguments '("-l" "janet" "-s"))))))
+ (sh-mode . ((sh-basic-offset . 2))))

.gitignore

@@ -2,3 +2,4 @@
 .env
 test/.env
 /test/.direnv/
+/test/jpm_tree/

test/flake.nix

@@ -9,6 +9,8 @@
           buildInputs = with pkgs; [
             nushell
             docker
+            janet
+            jpm
           ];
         };
       });

test/project.janet

+(declare-project
+ :dependencies ["https://github.com/pyrmont/testament"
+                "https://github.com/andrewchambers/janet-sh"])

test/test.janet

+(import testament :prefix "" :exit true)
+(import sh)
+
+(deftest two-plus-two
+  (is (= 5 (+ 2 2)) "2 + 2 = 5"))
+
+(deftest one-plus-one
+  (is (= 2 (+ 1 1)) "1 + 1 = 2"))
+
+(deftest echo-hi-pass
+  (assert-equal (string/trim (sh/$< echo "hi")) "hi"))
+
+(deftest echo-hi-fail
+  (assert-equal (string/trim (sh/$< echo "hi")) "bye"))
+
+(run-tests!)
+

test/test.nu

+# TODO: port to janet?
 # $nu
-# $$ use std testing run tests
+# $$ use std testing run-tests
 # $$ run-tests --threads=0
 
 use std log