Update regression tests

sjakobi · sjakobi · commit 008cab4db647 · 2025-09-26T14:28:47.000+02:00
diff --git a/tests/Regressions.hs b/tests/Regressions.hs
@@ -270,7 +270,7 @@ issue491 :: TestTree
 issue491 = localOption (mkTimeout 1000000) $ testGroup "issue491" $
     [ testCase "1" $ assert $ m [0, -1] `HML.isSubmapOf` m [0, -1]
     , testCase "2" $ assert $ m [1, 0b11111] `HML.isSubmapOf` m [1, 0b11111]
-    , testCase "3" $ assert $ m [1, 0b11111] `HML.isSubmapOf` m [1, 0b11111, 42]
+    , testCase "3" $ assert $ m [0, 1] `HML.isSubmapOf` m [0, 1, 0b11111]
     ]
   where m = HS.toMap . HS.fromList @Int
 

Original file line number	Diff line number	Diff line change
`@@ -270,7 +270,7 @@ issue491 :: TestTree`
`270`	`270`	`issue491 = localOption (mkTimeout 1000000) $ testGroup "issue491" $`
`271`	`271`	[ testCase "1" $ assert $ m [0, -1] `HML.isSubmapOf` m [0, -1]
`272`	`272`	, testCase "2" $ assert $ m [1, 0b11111] `HML.isSubmapOf` m [1, 0b11111]
`273`		- , testCase "3" $ assert $ m [1, 0b11111] `HML.isSubmapOf` m [1, 0b11111, 42]
	`273`	+ , testCase "3" $ assert $ m [0, 1] `HML.isSubmapOf` m [0, 1, 0b11111]
`274`	`274`	`]`
`275`	`275`	`where m = HS.toMap . HS.fromList @Int`
`276`	`276`