diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/pmcfg/run.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/testsuite/pmcfg/run.hs b/testsuite/pmcfg/run.hs index 5ad5b5071..b40e21f6c 100644 --- a/testsuite/pmcfg/run.hs +++ b/testsuite/pmcfg/run.hs @@ -71,15 +71,12 @@ compareSchema :: TestSchema -> Either String () compareSchema schema = let pre = getFIdsPre schema optimized = getFIdsOptimized schema - (cached1,cached2) = getFIdsOptimizedCached schema - in if pre == optimized && pre == cached1 && pre == cached2 + in if pre == optimized then Right () else Left $ unlines [ "schema: " ++ show schema , "pre: " ++ show pre , "optimized: " ++ show optimized - , "cached #1: " ++ show cached1 - , "cached #2: " ++ show cached2 ] singletonTests :: [Test] |