first commit

.gitignore

@@ -0,0 +1 @@
+dist/

LICENSE

@@ -0,0 +1,30 @@
+Copyright (c) 2013, Mitchell Rosen
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Mitchell Rosen nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

Test/Tasty/Hspec.hs

@@ -0,0 +1,54 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
+module Test.Tasty.Hspec
+    ( testCase
+
+    -- * Re-exports
+    , module Test.Hspec
+    , Test.Tasty.TestName
+    , Test.Tasty.TestTree
+    ) where
+
+import Test.Hspec
+
+import Data.Typeable        (Typeable)
+import Test.Tasty           (TestName, TestTree)
+import Test.Tasty.Providers (IsTest(..), Result(..), singleTest)
+import Test.Hspec.Runner    (Summary(..), hspecResult)
+
+-- | Turn an hspec @Spec@ into a tasty @TestTree@.
+--
+-- > module AnimalsSpec (tests) where
+-- >
+-- > import Test.Tasty.Hspec
+-- >
+-- > tests :: TestTree
+-- > tests = testGroup "animals"
+-- >     [ testCase "mammals" mammalsSpec
+-- >     , testCase "birds"   birdsSpec
+-- >     ]
+-- >
+-- > mammalsSpec :: Spec
+-- > mammalsSpec = do
+-- >     describe "cow" $ do
+-- >         it "moos" $
+-- >             speak cow `shouldBe` "moo"
+-- >
+-- >         it "eats grass" $
+-- >             hungryFor cow `shouldBe` "grass"
+-- >
+-- > birdsSpec :: Spec
+-- > birdsSpec = do
+-- >     describe "ostrich" $ do
+-- >         it "sticks its head in sand" $
+-- >             fmap (`shouldBe` InSand) getHeadState
+testCase :: TestName -> Spec -> TestTree
+testCase name = singleTest name . MySpec
+
+newtype MySpec = MySpec Spec deriving Typeable
+
+instance IsTest MySpec where
+    run _ (MySpec spec) _ = do
+        (Summary examples failures) <- hspecResult spec
+        return $ Result (failures == 0) ""
+    testOptions = return []

Test/Tasty/Hspec/Options.hs

@@ -0,0 +1,71 @@
+{-# LANGUAGE DeriveDataTypeable, DeriveGeneric #-}
+
+-- | Hspec options, with default values and option descriptions last grabbed
+-- from Test.Hspec.Runner in hspec-1.7.2.1
+module Test.Tasty.Hspec.Options where
+
+import Data.Data          (Data)
+import Data.Ix            (Ix)
+import Data.Generics      (Generic)
+import Data.Typeable      (Typeable)
+import Foreign.Storable   (Storable)
+import Test.Hspec.Runner  (Path)
+import Test.Tasty.Options (IsOption(..), safeRead)
+
+-- Dry run
+
+newtype HspecDryRun = HspecDryRun Bool
+    deriving (Bounded, Eq, Data, Ord, Read, Show, Ix, Typeable)
+
+instance Enum HspecDryRun where
+    toEnum = HspecDryRun . toEnum
+    fromEnum (HspecDryRun b) = fromEnum b
+
+instance IsOption HspecDryRun where
+    defaultValue   = HspecDryRun False
+    parseValue     = fmap HspecDryRun . safeRead
+    optionName     = return "hspec-dry-run"
+    optionHelp     = return ""
+
+-- Print CPU time
+
+newtype HspecPrintCpuTime = HspecPrintCpuTime Bool
+    deriving (Bounded, Eq, Data, Ord, Read, Show, Ix, Typeable)
+
+instance Enum HspecPrintCpuTime where
+    toEnum = HspecPrintCpuTime . toEnum
+    fromEnum (HspecPrintCpuTime b) = fromEnum b
+
+instance IsOption HspecPrintCpuTime where
+    defaultValue   = HspecPrintCpuTime False
+    parseValue     = fmap HspecPrintCpuTime . safeRead
+    optionName     = return "hspec-print-cpu-time"
+    optionHelp     = return ""
+
+-- Fast fail
+
+newtype HspecFastFail = HspecFastFail Bool
+    deriving (Bounded, Eq, Data, Ord, Read, Show, Ix, Typeable)
+
+instance Enum HspecFastFail where
+    toEnum = HspecFastFail . toEnum
+    fromEnum (HspecFastFail b) = fromEnum b
+
+instance IsOption HspecFastFail where
+    defaultValue   = HspecFastFail False
+    parseValue     = fmap HspecFastFail . safeRead
+    optionName     = return "hspec-fast-fail"
+    optionHelp     = return ""
+
+-- Filter predicate
+
+newtype HspecFilterPredicate = HspecFilterPredicate (Maybe (Path -> Bool))
+    deriving Typeable
+
+instance IsOption HspecFilterPredicate where
+    defaultValue   = HspecFilterPredicate Nothing
+    parseValue     = undefined -- fmap HspecFastFail . safeRead
+    optionName     = return "hspec-filter-predicate"
+    optionHelp     = return "A predicate that is used to filter the spec before it is run. Only examples that satisfy the predicate are run."
+
+

tasty-hspec.cabal

@@ -0,0 +1,21 @@
+name:                tasty-hspec
+version:             0.1
+synopsis:            Hspec support for the Tasty test framework.
+description:         Hspec support for the Tasty test framework.
+
+homepage:            http://github.com/mitchellwrosen/tasty-hspec
+license:             BSD3
+license-file:        LICENSE
+author:              Mitchell Rosen
+maintainer:          mitchellwrosen@gmail.com
+category:            Testing
+build-type:          Simple
+cabal-version:       >=1.10
+
+library
+  exposed-modules:     Test.Tasty.Hspec
+  other-extensions:    DeriveDataTypeable
+  build-depends:       base ==4.*
+                     , hspec
+                     , tasty
+  default-language:    Haskell2010