diff --git a/apply-merge.cabal b/apply-merge.cabal index 316130c..0835d51 100644 --- 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 index b31ea2f..e31df98 100644 --- 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 new file mode 100644 index 0000000..3682203 --- /dev/null +++ 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) + ]