packages feed

lame-tester 1.2 → 1.2.1

raw patch · 4 files changed

+9/−7 lines, 4 filesdep ~lame-testersetup-changedPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: lame-tester

API changes (from Hackage documentation)

- Tester.Dialect: cells :: FlagCells -> [FlagCell]
- Tester.Dialect: flag :: FlagCell -> ToggleFlag
- Tester.Dialect: instance CellBox FlagCell
- Tester.Dialect: instance CellBox FlagCells
- Tester.Dialect: instance CellBox ToggleFlag
- Tester.Dialect: instance Eq FlagCell
- Tester.Dialect: instance Eq FlagCells
- Tester.Dialect: instance Eq ToggleFlag
- Tester.Dialect: instance Ord FlagCell
- Tester.Dialect: instance Show FlagCell
- Tester.Dialect: instance Show FlagCells
- Tester.Dialect: instance Show ToggleFlag
- Tester.Dialect: num :: FlagCell -> Int
- Tester.RunSettings: instance Eq Settings
- Tester.RunSettings: instance Show Settings
- Tester.RunSettings: isStackTracing :: Settings -> Bool
- Tester.RunSettings: testNums :: Settings -> Set Int
- Tester.Suite: failsToStr :: Suite a b c -> NonEmpty b -> String
- Tester.Suite: instance Eq TestResult
- Tester.Suite: instance Monoid TestResult
- Tester.Suite: instance Show TestResult
- Tester.Suite: msg :: TestResult -> String
- Tester.Suite: runTest :: Suite a b c -> a -> Result b c
- Tester.Suite: succToStr :: Suite a b c -> c -> String
- Tester.Suite: testMap :: Suite a b c -> Map Int a
+ Tester.Dialect: [cells] :: FlagCells -> [FlagCell]
+ Tester.Dialect: [flag] :: FlagCell -> ToggleFlag
+ Tester.Dialect: [num] :: FlagCell -> Int
+ Tester.Dialect: infixl 2 `butAlso`
+ Tester.Dialect: infixl 6 `runningTo`
+ Tester.Dialect: instance GHC.Classes.Eq Tester.Dialect.FlagCell
+ Tester.Dialect: instance GHC.Classes.Eq Tester.Dialect.FlagCells
+ Tester.Dialect: instance GHC.Classes.Eq Tester.Dialect.ToggleFlag
+ Tester.Dialect: instance GHC.Classes.Ord Tester.Dialect.FlagCell
+ Tester.Dialect: instance GHC.Show.Show Tester.Dialect.FlagCell
+ Tester.Dialect: instance GHC.Show.Show Tester.Dialect.FlagCells
+ Tester.Dialect: instance GHC.Show.Show Tester.Dialect.ToggleFlag
+ Tester.Dialect: instance Tester.Dialect.CellBox Tester.Dialect.FlagCell
+ Tester.Dialect: instance Tester.Dialect.CellBox Tester.Dialect.FlagCells
+ Tester.Dialect: instance Tester.Dialect.CellBox Tester.Dialect.ToggleFlag
+ Tester.RunSettings: [isStackTracing] :: Settings -> Bool
+ Tester.RunSettings: [testNums] :: Settings -> Set Int
+ Tester.RunSettings: instance GHC.Classes.Eq Tester.RunSettings.Settings
+ Tester.RunSettings: instance GHC.Show.Show Tester.RunSettings.Settings
+ Tester.Suite: [failsToStr] :: Suite a b c -> NonEmpty b -> String
+ Tester.Suite: [msg] :: TestResult -> String
+ Tester.Suite: [runTest] :: Suite a b c -> a -> Result b c
+ Tester.Suite: [succToStr] :: Suite a b c -> c -> String
+ Tester.Suite: [testMap] :: Suite a b c -> Map Int a
+ Tester.Suite: instance GHC.Base.Monoid Tester.Suite.TestResult
+ Tester.Suite: instance GHC.Classes.Eq Tester.Suite.TestResult
+ Tester.Suite: instance GHC.Show.Show Tester.Suite.TestResult
- Tester.RunSettings: cellsToSettings :: CellBox x => x -> Settings
+ Tester.RunSettings: cellsToSettings :: (CellBox x) => x -> Settings

Files

Setup.hs view
@@ -1,2 +1,4 @@ import Distribution.Simple-main = defaultMain++main :: IO ()+main = defaultMainWithHooks simpleUserHooks
lame-tester.cabal view
@@ -1,5 +1,5 @@ Name:                lame-tester-Version:             1.2+Version:             1.2.1 Cabal-version:       >=1.16.0 License:             BSD3 License-File:        LICENSE.txt@@ -37,6 +37,6 @@   build-depends:     base        >= 4.6 && < 5,     containers  >= 0.5,-    lame-tester >= 1.1,+    lame-tester >= 1.2,     tasty       >= 0.10,     tasty-hunit >= 0.9
src/Tester/Dialect.hs view
@@ -33,7 +33,7 @@   unbox cell = [cell]  instance CellBox ToggleFlag where-  unbox flag = unbox (ToggleCell flag)+  unbox flag = unbox $ ToggleCell flag  -- Example: [DontRun 0, Run 1, DontRun 2, Run 2, Run 3, DontRun 5, StackTrace] instance Ord FlagCell where
src/Tester/Suite.hs view
@@ -39,7 +39,7 @@   mappend _                  _                  = mempty  runTests :: FlagCells -> (Suite a b c) -> [TestResult]-runTests c s@(Suite _ _ failsToStr _) = fmap (resultToTR failsToStr) (generateResults c s)+runTests c s@(Suite _ _ failsToStr _) = fmap (resultToTR failsToStr) $ generateResults c s  unsafeRunTests :: FlagCells -> (Suite a b c) -> [TestResult] unsafeRunTests c s@(Suite _ _ failsToStr succToStr) = seq (unsafePerformIO evilIO) testResults@@ -51,7 +51,7 @@  generateResults :: FlagCells -> (Suite a b c) -> [Result b c] generateResults cells (Suite testMap runTest _ _) =-  cells |> (cellsToSettings >>> testNums >>> Set.toList >>> (fmap ((testMap!) >>> runTest)))+  cells |> (cellsToSettings >>> testNums >>> Set.toList >>> (fmap $ (testMap!) >>> runTest))  resultToTR :: (NonEmpty a -> String)-> Result a b -> TestResult-resultToTR fToStr = bifoldMap (\nel -> TestFailure $ fToStr nel) (const TestSuccess)+resultToTR fToStr = bifoldMap (fToStr >>> TestFailure) $ const TestSuccess