new package "devout", does nothing yet

pkgs/default.nix

@@ -56,6 +56,7 @@ in {
   # please keep the rest of this list alphabetised :-)
 
   anoia = callPackage ./anoia {};
+  devout = callPackage ./devout {};
   fennel = callPackage ./fennel {};
   fennelrepl = callPackage ./fennelrepl {};
   firewallgen = callPackage ./firewallgen {};

pkgs/devout/default.nix

@@ -0,0 +1,25 @@
+{
+  lua
+, nellie
+, writeFennel
+, anoia
+, fennel
+, stdenv
+, fennelrepl
+}:
+stdenv.mkDerivation {
+  name = "devout";
+  src = ./.;
+  checkInputs = [ fennelrepl ];
+  installPhase = ''
+    mkdir -p $out/bin
+    cp -p ${writeFennel "devout" {
+      packages = [fennel anoia nellie lua.pkgs.luafilesystem];
+      mainFunction = "run";
+    } ./devout.fnl} $out/bin/devout
+  '';
+  checkPhase = ''
+    fennelrepl ./test.fnl
+  '';
+  doCheck = true;
+}

pkgs/devout/devout.fnl

@@ -0,0 +1,2 @@
+
+{ }

pkgs/devout/test.fnl

@@ -0,0 +1,20 @@
+(import-macros { : expect= } :anoia.assert)
+
+
+(fn database []
+  {
+   :find (fn [terms] [])
+   })
+
+
+(macro example [description & body]
+  `(do ,body))
+
+(example
+ "given an empty database, search for some criteria matches no entries"
+ (let [db (database)]
+   (expect= (db:find {:partname "boot"}) [])))
+
+
+
+(print "OK")