Add scaffolding for new applyMerge tests

pgujjula · May 28, 2024 · 71d4852 · 71d4852
1 parent 9a6dd39
commit 71d4852
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 0 deletions.
diff --git a/apply-merge.cabal b/apply-merge.cabal
@@ -71,6 +71,7 @@ test-suite apply-merge-tests
       Test.ApplyMerge.MergeAll
       Test.Data.DoublyLinkedList.STRef
       Test.Data.List.ApplyMerge
+      Test.Data.List.ApplyMerge.New
       Test.Data.PQueue.Prio.Min.Mutable
   hs-source-dirs:
       src

diff --git a/test/Main.hs b/test/Main.hs
@@ -9,6 +9,7 @@ import Test.ApplyMerge.IntSet qualified (tests)
 import Test.ApplyMerge.MergeAll qualified (tests)
 import Test.Data.DoublyLinkedList.STRef qualified (tests)
 import Test.Data.List.ApplyMerge qualified (tests)
+import Test.Data.List.ApplyMerge.New qualified (tests)
 import Test.Data.PQueue.Prio.Min.Mutable qualified (tests)
 import Test.Tasty (TestTree, defaultMain, testGroup)
 
@@ -24,6 +25,7 @@ tests =
       Test.ApplyMerge.IntSet.tests,
       Test.ApplyMerge.MergeAll.tests,
       Test.Data.List.ApplyMerge.tests,
+      Test.Data.List.ApplyMerge.New.tests,
       Test.Data.DoublyLinkedList.STRef.tests,
       Test.Data.PQueue.Prio.Min.Mutable.tests
     ]
diff --git a/test/Test/Data/List/ApplyMerge/New.hs b/test/Test/Data/List/ApplyMerge/New.hs
@@ -0,0 +1,11 @@
+module Test.Data.List.ApplyMerge.New (tests) where
+
+import Test.Tasty (TestTree, testGroup)
+import Test.Tasty.HUnit (testCase, (@?=))
+
+tests :: TestTree
+tests =
+  testGroup
+    "Data.List.ApplyMerge.New"
+    [ testCase "placeholder" ((1 :: Int) @?= 1)
+    ]