move test/ to tests/

diff --git a/hjugement/hjugement.cabal b/hjugement/hjugement.cabal
index eaee51efecba57973c4d7dc082d4131dacfa205c..b7abe91d201988f6501e5795bbe3bb14b1435d20 100644 (file)
--- a/hjugement/hjugement.cabal
+++ b/hjugement/hjugement.cabal
@@ -74,7 +74,7 @@ Library
 
 Test-Suite hjugement-test
   type: exitcode-stdio-1.0
-  hs-source-dirs: test
+  hs-source-dirs: tests
   main-is: Main.hs
   other-modules:
     HUnit

diff --git a/hjugement/tests/Bug.hs b/hjugement/tests/Bug.hs
new file mode 100644 (file)
index 0000000..9d104f4
--- /dev/null
+++ b/hjugement/tests/Bug.hs
@@ -0,0 +1,33 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+module Bug where
+
+import Hjugement
+
+-- | Decompress a 'Value'.
+expandValue :: Value a -> [a]
+expandValue (Value []) = []
+expandValue (Value ((x,c):xs)) = replicate c x ++ expandValue (Value xs)
+
+data Grade = Null | Pass | Good
+ deriving (Eq, Ord, Show, Bounded, Enum)
+
+(meritX,meritY) = (Merit (fromList [(Null,1),(Pass,71-50-3),(Good,15-3)])
+                  ,Merit (fromList [(Null,7),(Pass,68-50-3),(Good,12-3)]))
+
+totX = let Merit x = meritX in sum x
+totY = let Merit x = meritY in sum x
+
+(mgX,mgY) = (majorityGauge meritX,majorityGauge meritY)
+(mvX,mvY) = (majorityValue meritX,majorityValue meritY)
+mgC = compare mgX mgY
+mvC = compare mvX mvY
+
+allX = expandValue (majorityValue meritX)
+allY = expandValue (majorityValue meritY)
+
+(simpX, simpY) = simpl allX allY
+
+simpl [] ys = ([], ys)
+simpl xs [] = (xs, [])
+simpl (x:xs) (y:ys) | x == y = simpl xs ys
+                    | otherwise = (xs, ys)

diff --git a/hjugement/test/HLint.hs b/hjugement/tests/HLint.hs
similarity index 100%
rename from hjugement/test/HLint.hs
rename to hjugement/tests/HLint.hs

diff --git a/hjugement/test/HUnit.hs b/hjugement/tests/HUnit.hs
similarity index 100%
rename from hjugement/test/HUnit.hs
rename to hjugement/tests/HUnit.hs

diff --git a/hjugement/test/HUnit/HLint.hs b/hjugement/tests/HUnit/HLint.hs
similarity index 100%
rename from hjugement/test/HUnit/HLint.hs
rename to hjugement/tests/HUnit/HLint.hs

diff --git a/hjugement/test/HUnit/Merit.hs b/hjugement/tests/HUnit/Merit.hs
similarity index 100%
rename from hjugement/test/HUnit/Merit.hs
rename to hjugement/tests/HUnit/Merit.hs

diff --git a/hjugement/test/HUnit/Rank.hs b/hjugement/tests/HUnit/Rank.hs
similarity index 100%
rename from hjugement/test/HUnit/Rank.hs
rename to hjugement/tests/HUnit/Rank.hs

diff --git a/hjugement/test/HUnit/Section.hs b/hjugement/tests/HUnit/Section.hs
similarity index 100%
rename from hjugement/test/HUnit/Section.hs
rename to hjugement/tests/HUnit/Section.hs

diff --git a/hjugement/test/HUnit/Utils.hs b/hjugement/tests/HUnit/Utils.hs
similarity index 100%
rename from hjugement/test/HUnit/Utils.hs
rename to hjugement/tests/HUnit/Utils.hs

diff --git a/hjugement/test/HUnit/Value.hs b/hjugement/tests/HUnit/Value.hs
similarity index 100%
rename from hjugement/test/HUnit/Value.hs
rename to hjugement/tests/HUnit/Value.hs

diff --git a/hjugement/test/Main.hs b/hjugement/tests/Main.hs
similarity index 100%
rename from hjugement/test/Main.hs
rename to hjugement/tests/Main.hs

diff --git a/hjugement/test/QuickCheck.hs b/hjugement/tests/QuickCheck.hs
similarity index 100%
rename from hjugement/test/QuickCheck.hs
rename to hjugement/tests/QuickCheck.hs

diff --git a/hjugement/test/QuickCheck/Gauge.hs b/hjugement/tests/QuickCheck/Gauge.hs
similarity index 100%
rename from hjugement/test/QuickCheck/Gauge.hs
rename to hjugement/tests/QuickCheck/Gauge.hs

diff --git a/hjugement/test/QuickCheck/HLint.hs b/hjugement/tests/QuickCheck/HLint.hs
similarity index 100%
rename from hjugement/test/QuickCheck/HLint.hs
rename to hjugement/tests/QuickCheck/HLint.hs

diff --git a/hjugement/test/QuickCheck/Merit.hs b/hjugement/tests/QuickCheck/Merit.hs
similarity index 100%
rename from hjugement/test/QuickCheck/Merit.hs
rename to hjugement/tests/QuickCheck/Merit.hs

diff --git a/hjugement/test/QuickCheck/Rank.hs b/hjugement/tests/QuickCheck/Rank.hs
similarity index 100%
rename from hjugement/test/QuickCheck/Rank.hs
rename to hjugement/tests/QuickCheck/Rank.hs

diff --git a/hjugement/test/QuickCheck/Utils.hs b/hjugement/tests/QuickCheck/Utils.hs
similarity index 100%
rename from hjugement/test/QuickCheck/Utils.hs
rename to hjugement/tests/QuickCheck/Utils.hs

diff --git a/hjugement/test/QuickCheck/Value.hs b/hjugement/tests/QuickCheck/Value.hs
similarity index 100%
rename from hjugement/test/QuickCheck/Value.hs
rename to hjugement/tests/QuickCheck/Value.hs

diff --git a/hjugement/test/Types.hs b/hjugement/tests/Types.hs
similarity index 100%
rename from hjugement/test/Types.hs
rename to hjugement/tests/Types.hs