Initial query AST

test/MyLibTest.hs

@@ -3,12 +3,16 @@ module Main (main) where
 import Test.Tasty
 
 import qualified Test.Data.Buuka as Data.Buuka
+import qualified Test.Data.Query as Data.Query
+import qualified Test.Data.Functor.Foldable as Data.Functor.Foldable
 import qualified Test.Database.Migrations as Database.Migrations
 
 tests :: TestTree
 tests = testGroup "buuka"
   [ Database.Migrations.tests
   , Data.Buuka.tests
+  , Data.Functor.Foldable.tests
+  , Data.Query.tests
   ]
 
 main :: IO ()

test/Test/Data/Functor/Foldable.hs

@@ -0,0 +1,6 @@
+module Test.Data.Functor.Foldable where
+
+import Test.Tasty
+
+tests :: TestTree
+tests = testGroup "Data.Functor.Foldable" []

test/Test/Data/Query.hs

@@ -0,0 +1,6 @@
+module Test.Data.Query where
+
+import Test.Tasty
+
+tests :: TestTree
+tests = testGroup "Data.Query" []