Skip to content

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also .

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also .
  • 3 commits
  • 3 files changed
  • 0 commit comments
  • 2 contributors
Commits on Oct 05, 2012
@MarcWeber MarcWeber Test all files on directory.
keeping expected_failures_testing_suite.hs
35ba7a4
@MarcWeber MarcWeber it also compiles with most recent json 49e6546
Commits on Oct 06, 2012
@marcotmarcot Merge branch 'master' of https://github.com/MarcWeber/hasktags
Conflicts:
	testcases/expected_failures_testing_suite.hs
	tests/Test.hs
8a4a922
Showing with 17 additions and 5 deletions.
  1. +4 −4 hasktags.cabal
  2. +12 −0 testcases/expected_failures_testing_suite.hs
  3. +1 −1 tests/Test.hs
View
8 hasktags.cabal
@@ -52,8 +52,8 @@ Executable hasktags
base >= 4 && < 5,
bytestring >= 0.9 && < 0.10,
directory >= 1.1 && < 1.2,
- filepath >= 1.3 && < 1.4,
- json >= 0.5 && < 0.6
+ filepath,
+ json >= 0.5 && <= 0.6
other-modules: Tags, Hasktags
hs-source-dirs: src
ghc-options: -Wall
@@ -67,8 +67,8 @@ Test-Suite test
base >= 4 && < 5,
bytestring >= 0.9 && < 0.10,
directory >= 1.1 && < 1.2,
- filepath >= 1.3 && < 1.4,
- json >= 0.5 && < 0.6,
+ filepath,
+ json >= 0.5 && <= 0.6,
HUnit >= 1.2 && < 1.3
ghc-options: -Wall
default-language: Haskell2010
View
12 testcases/expected_failures_testing_suite.hs
@@ -0,0 +1,12 @@
+-- this file only exists to test all cases once .. all should fail
+module C
+
+-- to be found A
+--
+-- not to be found C
+
+-- once to be found B
+--
+-- C should be found twice ... (?)
+-- once to be found C
+data C = C
View
2 tests/Test.hs
@@ -96,6 +96,6 @@ main
= do
setCurrentDirectory "testcases"
files <- getDirectoryContents "."
- tests <- mapM createTestCase $ filter (not . (`elem` [".", ".."])) files
+ tests <- mapM createTestCase $ filter (not . (`elem` [".", "..", "expected_failures_testing_suite.hs"])) files
counts_ <- runTestTT $ TestList tests
when (errors counts_ + failures counts_ > 0) exitFailure

No commit comments for this range

Something went wrong with that request. Please try again.