From 7cbd6f588553cbc8bf12be4f94fe1429005a8d16 Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Mon, 5 Feb 2024 22:00:47 +0000
Subject: [PATCH] probe

---
 tests/Lift.hs | 50 +-------------------------------------------------
 1 file changed, 1 insertion(+), 49 deletions(-)

diff --git a/tests/Lift.hs b/tests/Lift.hs
index f2d90af50..f52a8b1c3 100644
--- a/tests/Lift.hs
+++ b/tests/Lift.hs
@@ -13,52 +13,4 @@ import qualified Language.Haskell.TH.Syntax as TH
 import System.Info
 
 testSuite :: TestTree
-testSuite = error (os ++ " " ++ arch) $ testGroup "Lift"
-  [ testGroup "strict"
-    [ testProperty "normal" $
-        let bs = "foobar" :: BS.ByteString in
-        bs === $(TH.lift $ BS.pack [102,111,111,98,97,114])
-
-    , testProperty "binary" $
-        let bs = "\0\1\2\3\0\1\2\3" :: BS.ByteString in
-        bs === $(TH.lift $ BS.pack [0,1,2,3,0,1,2,3])
-
-#if MIN_VERSION_template_haskell(2,16,0)
-    , testProperty "typed" $
-        let bs = "\0\1\2\3\0\1\2\3" :: BS.ByteString in
-        bs === $$(TH.liftTyped $ BS.pack [0,1,2,3,0,1,2,3])
-#endif
-    ]
-
-  , testGroup "lazy"
-    [ testProperty "normal" $
-        let bs = "foobar" :: LBS.ByteString in
-        bs === $(TH.lift $ LBS.pack [102,111,111,98,97,114])
-
-    , testProperty "binary" $
-        let bs = "\0\1\2\3\0\1\2\3" :: LBS.ByteString in
-        bs === $(TH.lift $ LBS.pack [0,1,2,3,0,1,2,3])
-
-#if MIN_VERSION_template_haskell(2,16,0)
-    , testProperty "typed" $
-        let bs = "\0\1\2\3\0\1\2\3" :: LBS.ByteString in
-        bs === $$(TH.liftTyped $ LBS.pack [0,1,2,3,0,1,2,3])
-#endif
-    ]
-
-  , testGroup "short"
-    [ testProperty "normal" $
-        let bs = "foobar" :: SBS.ShortByteString in
-        bs === $(TH.lift $ SBS.pack [102,111,111,98,97,114])
-
-    , testProperty "binary" $
-        let bs = "\0\1\2\3\0\1\2\3" :: SBS.ShortByteString in
-        bs === $(TH.lift $ SBS.pack [0,1,2,3,0,1,2,3])
-
-#if MIN_VERSION_template_haskell(2,16,0)
-    , testProperty "typed" $
-        let bs = "\0\1\2\3\0\1\2\3" :: SBS.ShortByteString in
-        bs === $$(TH.liftTyped $ SBS.pack [0,1,2,3,0,1,2,3])
-#endif
-    ]
-  ]
+testSuite = error (os ++ " " ++ arch)