remove old TH patch

This commit is contained in:
Jens Petersen 2021-05-18 12:16:29 +08:00
parent 4fd669d66e
commit a560341ba2
1 changed files with 0 additions and 117 deletions

View File

@ -1,117 +0,0 @@
diff --git i/ShellCheck.cabal w/ShellCheck.cabal
index 6e46dfe..8223f3a 100644
--- i/ShellCheck.cabal
+++ w/ShellCheck.cabal
@@ -43,8 +43,7 @@ library
json,
mtl,
parsec,
- regex-tdfa,
- QuickCheck >= 2.7.4
+ regex-tdfa
exposed-modules:
ShellCheck.Analytics
ShellCheck.AST
@@ -66,8 +65,7 @@ executable shellcheck
mtl,
parsec,
regex-tdfa,
- transformers,
- QuickCheck >= 2.7.4
+ transformers
main-is: shellcheck.hs
test-suite test-shellcheck
diff --git i/ShellCheck/Analytics.hs w/ShellCheck/Analytics.hs
index fe2fcf4..80bc7a0 100644
--- i/ShellCheck/Analytics.hs
+++ w/ShellCheck/Analytics.hs
@@ -16,7 +16,7 @@
along with this program. If not, see <http://www.gnu.org/licenses/>.
-}
{-# LANGUAGE TemplateHaskell, FlexibleContexts #-}
-module ShellCheck.Analytics (AnalysisOptions(..), defaultAnalysisOptions, filterByAnnotation, runAnalytics, shellForExecutable, runTests) where
+module ShellCheck.Analytics (AnalysisOptions(..), defaultAnalysisOptions, filterByAnnotation, runAnalytics, shellForExecutable) where
import Control.Arrow (first)
import Control.Monad
@@ -32,11 +32,9 @@ import Debug.Trace
import ShellCheck.AST
import ShellCheck.Options
import ShellCheck.Data
-import ShellCheck.Parser hiding (runTests)
+import ShellCheck.Parser
import ShellCheck.Regex
import qualified Data.Map as Map
-import Test.QuickCheck.All (forAllProperties)
-import Test.QuickCheck.Test (quickCheckWithResult, stdArgs, maxSuccess)
data Parameters = Parameters {
variableFlow :: [StackData],
@@ -3310,7 +3308,3 @@ checkMaskedReturns _ t@(T_SimpleCommand id _ (cmd:rest)) = potentially $ do
T_DollarExpansion {} -> True
_ -> False
checkMaskedReturns _ _ = return ()
-
-
-return []
-runTests = $( [| $(forAllProperties) (quickCheckWithResult (stdArgs { maxSuccess = 1 }) ) |])
diff --git i/ShellCheck/Parser.hs w/ShellCheck/Parser.hs
index fd2cbea..0ece932 100644
--- i/ShellCheck/Parser.hs
+++ w/ShellCheck/Parser.hs
@@ -16,7 +16,7 @@
along with this program. If not, see <http://www.gnu.org/licenses/>.
-}
{-# LANGUAGE NoMonomorphismRestriction, TemplateHaskell, FlexibleContexts #-}
-module ShellCheck.Parser (Note(..), Severity(..), parseShell, ParseResult(..), ParseNote(..), sortNotes, noteToParseNote, runTests, readScript) where
+module ShellCheck.Parser (Note(..), Severity(..), parseShell, ParseResult(..), ParseNote(..), sortNotes, noteToParseNote, readScript) where
import ShellCheck.AST
import ShellCheck.Data
@@ -34,7 +34,6 @@ import Prelude hiding (readList)
import System.IO
import Text.Parsec.Error
import GHC.Exts (sortWith)
-import Test.QuickCheck.All (quickCheckAll)
backslash = char '\\'
linefeed = optional carriageReturn >> char '\n'
@@ -2163,7 +2162,3 @@ parseShell options filename contents =
lt x = trace (show x) x
ltt t = trace (show t)
-
-return []
-runTests = $quickCheckAll
-
diff --git i/ShellCheck/Simple.hs w/ShellCheck/Simple.hs
index 71cde43..70f769c 100644
--- i/ShellCheck/Simple.hs
+++ w/ShellCheck/Simple.hs
@@ -16,14 +16,13 @@
along with this program. If not, see <http://www.gnu.org/licenses/>.
-}
{-# LANGUAGE TemplateHaskell #-}
-module ShellCheck.Simple (shellCheck, ShellCheckComment, scLine, scColumn, scSeverity, scCode, scMessage, runTests) where
+module ShellCheck.Simple (shellCheck, ShellCheckComment, scLine, scColumn, scSeverity, scCode, scMessage) where
import Data.List
import Data.Maybe
-import ShellCheck.Analytics hiding (runTests)
+import ShellCheck.Analytics
import ShellCheck.Options
-import ShellCheck.Parser hiding (runTests)
-import Test.QuickCheck.All (quickCheckAll)
+import ShellCheck.Parser
import Text.Parsec.Pos
shellCheck :: AnalysisOptions -> String -> [ShellCheckComment]
@@ -74,7 +73,3 @@ prop_optionDisablesIssue1 =
prop_optionDisablesIssue2 =
null $ shellCheck (defaultAnalysisOptions { optionExcludes = [2148, 1037] }) "echo \"$10\""
-
-return []
-runTests = $quickCheckAll
-