1. Stefan Saasen
  2. spy

Commits

Stefan Saasen  committed 1fdaafb

Remove unused test directory

  • Participants
  • Parent commits 095524b
  • Branches master

Comments (0)

Files changed (5)

File test/.ghci

  • Ignore whitespace
-:set -i../src -isrc
-:m + Test.QuickCheck
-:l Main
-:set prompt "test>> "
-:set -Wall
-

File test/.gitignore

  • Ignore whitespace
-dist
-*.tix
-.hpc

File test/Package-Test.cabal

  • Ignore whitespace
-Name:               Haskell-Package-Test
-Version:            0.0.1
-Author:             Stefan Saasen
-Maintainer:         Stefan Saasen
-Copyright:          Stefan Saasen
-Synopsis:           A skeleton for testing haskell packages
-Category:           Development
-Description:        A skeleton for testing haskell packages
-Homepage:           https://github.com/juretta/haskell-package
-Cabal-Version:      >= 1.6
-Build-Type:         Simple
-
-Source-Repository   head
-  Type:             git
-  Location:         git@github.com:juretta/haskell-package.git
-
-Flag                small_base
-  Description:      Choose the new, split-up base package.
-
-Executable          package-test
-  Hs-Source-Dirs:  
-                    ../src src
-
-  Main-Is: 
-                    Main.hs
-
-  Ghc-Options:
-                    -O2
-                    -Wall
-                    -fhpc
-                    -fwarn-tabs
-  
-  Build-Depends:  
-                   base < 5 && >= 3
-                   , QuickCheck
-                   , test-framework
-                   , test-framework-quickcheck2
-                   , test-framework-hunit
-

File test/src/M/Tests.hs

  • Ignore whitespace
-module M.Tests
-  (
-    main
-  , test
-  ) where
-
-import Test.Framework
-import Test.Framework.Providers.QuickCheck2 (testProperty)
-import M
-
-main :: 
-  IO ()
-main = 
-  defaultMain [test]
-
-test :: 
-  Test
-test =
-    testGroup "M"
-      [
-        testProperty "Right Identity" prop_right_identity
-      ]
-
-prop_right_identity ::
-  Int
-  -> Bool
-prop_right_identity n =
-  n `add` 0 == n
-

File test/src/Main.hs

  • Ignore whitespace
-module Main where
-
-import qualified M.Tests
-import Test.Framework
-
-main ::
-  IO ()
-main = 
-  defaultMain tests 
-
-tests ::
-  [Test]
-tests =
-  [
-    testGroup "Tests"
-      [
-        M.Tests.test
-      ]
-  ]
-