mirror of
https://github.com/typeable/inflections-hs.git
synced 2024-09-11 06:05:33 +03:00
Remove unnecessary imports, add warnings to tests
This commit is contained in:
parent
78a44e9859
commit
e19c7b2786
@ -2,7 +2,6 @@ module Text.Inflections.Humanize (humanize) where
|
||||
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
||||
import Data.List (intercalate)
|
||||
import Data.Char (toUpper)
|
||||
|
||||
import Prelude (String, Bool(..), (.), map, zip, ($), unwords, repeat)
|
||||
|
@ -2,7 +2,6 @@ module Text.Inflections.Titleize (titleize) where
|
||||
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
||||
import Data.List (intercalate)
|
||||
import Data.Char (toUpper)
|
||||
|
||||
import Prelude (String, unwords, map, ($))
|
||||
|
@ -58,4 +58,5 @@ test-suite test
|
||||
, test-framework-quickcheck2
|
||||
, parsec
|
||||
, containers
|
||||
ghc-options: -Wall
|
||||
default-language: Haskell2010
|
||||
|
@ -2,19 +2,10 @@ module Text.Inflections.HumanizeTest where
|
||||
|
||||
import Test.HUnit hiding (Test)
|
||||
|
||||
import Test.Framework.Providers.QuickCheck2 (testProperty)
|
||||
import Test.Framework.Providers.HUnit (testCase)
|
||||
|
||||
import Test.QuickCheck
|
||||
import Test.QuickCheck.Arbitrary
|
||||
|
||||
import Test.Framework (Test, testGroup)
|
||||
|
||||
import Data.List (all, group)
|
||||
import Data.Char (toLower)
|
||||
import Data.Map (fromList)
|
||||
import Text.Parsec
|
||||
|
||||
import Text.Inflections (humanize)
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
||||
|
@ -5,17 +5,8 @@ import Test.HUnit hiding (Test)
|
||||
import Test.Framework.Providers.QuickCheck2 (testProperty)
|
||||
import Test.Framework.Providers.HUnit (testCase)
|
||||
|
||||
import Test.QuickCheck
|
||||
import Test.QuickCheck.Arbitrary
|
||||
|
||||
import Test.Framework (Test, testGroup)
|
||||
|
||||
import Data.List (all, group)
|
||||
import Data.Char (toLower)
|
||||
import Data.Map (fromList)
|
||||
import Text.Parsec
|
||||
import Data.Maybe (fromJust)
|
||||
|
||||
import Text.Inflections (ordinal, ordinalize)
|
||||
|
||||
{-# ANN module "HLint: ignore Use camelCase" #-}
|
||||
@ -64,4 +55,3 @@ prop_ordinalReturnsNotEmpty = not . null . ordinal
|
||||
|
||||
prop_ordinalizeSamePrefix :: Integer -> Bool
|
||||
prop_ordinalizeSamePrefix n = show n == take (length $ show n) (ordinalize n)
|
||||
|
||||
|
@ -6,13 +6,11 @@ import Test.Framework.Providers.QuickCheck2 (testProperty)
|
||||
import Test.Framework.Providers.HUnit (testCase)
|
||||
|
||||
import Test.QuickCheck
|
||||
import Test.QuickCheck.Arbitrary
|
||||
|
||||
import Test.Framework (Test, testGroup)
|
||||
|
||||
import Data.List (all, group)
|
||||
import Data.List (group)
|
||||
import Data.Char (toLower)
|
||||
import Data.Map (fromList)
|
||||
|
||||
import Text.Inflections
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
@ -2,19 +2,10 @@ module Text.Inflections.TitleizeTest where
|
||||
|
||||
import Test.HUnit hiding (Test)
|
||||
|
||||
import Test.Framework.Providers.QuickCheck2 (testProperty)
|
||||
import Test.Framework.Providers.HUnit (testCase)
|
||||
|
||||
import Test.QuickCheck
|
||||
import Test.QuickCheck.Arbitrary
|
||||
|
||||
import Test.Framework (Test, testGroup)
|
||||
|
||||
import Data.List (all, group)
|
||||
import Data.Char (toLower)
|
||||
import Data.Map (fromList)
|
||||
import Text.Parsec
|
||||
|
||||
import Text.Inflections (titleize)
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
||||
|
@ -2,20 +2,10 @@ module Text.Inflections.UnderscoreTest where
|
||||
|
||||
import Test.HUnit hiding (Test)
|
||||
|
||||
import Test.Framework.Providers.QuickCheck2 (testProperty)
|
||||
import Test.Framework.Providers.HUnit (testCase)
|
||||
|
||||
import Test.QuickCheck
|
||||
import Test.QuickCheck.Arbitrary
|
||||
|
||||
import Test.Framework (Test, testGroup)
|
||||
|
||||
import Data.List (all, group)
|
||||
import Data.Char (toLower)
|
||||
import Data.Map (fromList)
|
||||
import Text.Parsec
|
||||
import Data.Maybe (fromJust)
|
||||
|
||||
import Text.Inflections (underscore)
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
||||
|
@ -2,22 +2,11 @@ module Text.InflectionsTest where
|
||||
|
||||
import Test.HUnit hiding (Test)
|
||||
|
||||
import Test.Framework.Providers.QuickCheck2 (testProperty)
|
||||
import Test.Framework.Providers.HUnit (testCase)
|
||||
|
||||
import Test.QuickCheck
|
||||
import Test.QuickCheck.Arbitrary
|
||||
|
||||
import Test.Framework (Test, testGroup)
|
||||
|
||||
import Data.List (all, group)
|
||||
import Data.Char (toLower)
|
||||
import Data.Map (fromList)
|
||||
import Text.Parsec
|
||||
import Data.Maybe (fromJust)
|
||||
|
||||
import Text.Inflections (toUnderscore, toDashed, toCamelCased)
|
||||
import Text.Inflections.Parse.Types (Word(..))
|
||||
|
||||
{-# ANN module "HLint: ignore Use camelCase" #-}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user