From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 25 Jun 2008 16:43:48 +0000 Subject: removed src for 2.9 --- src/GF/Speech/RelationQC.hs | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 src/GF/Speech/RelationQC.hs (limited to 'src/GF/Speech/RelationQC.hs') diff --git a/src/GF/Speech/RelationQC.hs b/src/GF/Speech/RelationQC.hs deleted file mode 100644 index 47f783986..000000000 --- a/src/GF/Speech/RelationQC.hs +++ /dev/null @@ -1,39 +0,0 @@ ----------------------------------------------------------------------- --- | --- Module : RelationQC --- Maintainer : BB --- Stability : (stable) --- Portability : (portable) --- --- > CVS $Date: 2005/10/26 17:13:13 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.1 $ --- --- QuickCheck properties for GF.Speech.Relation ------------------------------------------------------------------------------ - -module GF.Speech.RelationQC where - -import GF.Speech.Relation - -import Test.QuickCheck - -prop_transitiveClosure_trans :: [(Int,Int)] -> Bool -prop_transitiveClosure_trans ps = isTransitive (transitiveClosure (mkRel ps)) - -prop_symmetricSubrelation_symm :: [(Int,Int)] -> Bool -prop_symmetricSubrelation_symm ps = isSymmetric (symmetricSubrelation (mkRel ps)) - -prop_symmetricSubrelation_sub :: [(Int,Int)] -> Bool -prop_symmetricSubrelation_sub ps = symmetricSubrelation r `isSubRelationOf` r - where r = mkRel ps - -prop_symmetricClosure_symm :: [(Int,Int)] -> Bool -prop_symmetricClosure_symm ps = isSymmetric (symmetricClosure (mkRel ps)) - -prop_reflexiveClosure_refl :: [(Int,Int)] -> Bool -prop_reflexiveClosure_refl ps = isReflexive (reflexiveClosure (mkRel ps)) - -prop_mkEquiv_equiv :: [(Int,Int)] -> Bool -prop_mkEquiv_equiv ps = isEquivalence (mkEquiv ps) - where mkEquiv = transitiveClosure . symmetricClosure . reflexiveClosure . mkRel -- cgit v1.2.3