More fixing up tests...

leepike · Dec 31, 2011 · aadab6e · aadab6e
1 parent 317f067
commit aadab6e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/Examples/Examples.hs b/Examples/Examples.hs
@@ -10,8 +10,9 @@ module Examples ( examples ) where
 
 import qualified Prelude as P
 import Language.Copilot hiding (even, odd)
-import Copilot.Compile.C99
+--import Copilot.Compile.C99
 import qualified Copilot.Tools.CBMC as C
+
 --------------------------------------------------------------------------------
 
 --

diff --git a/Examples/Test.hs b/Examples/Test.hs
@@ -6,7 +6,10 @@
 
 module Main where
 
-import System.Directory (removeDirectoryRecursive, doesDirectoryExist)
+import System.Directory ( removeDirectoryRecursive
+                        , doesDirectoryExist
+                        , doesFileExist
+                        , removeFile )
 import qualified Copilot.Compile.C99 as C99
 import qualified Copilot.Compile.SBV as SBV
 import Control.Monad (when)
@@ -99,5 +102,8 @@ cleanup = do
   when b0 (removeDirectoryRecursive SBV.sbvDirName)
   b1 <- doesDirectoryExist C99.c99DirName
   when b1 (removeDirectoryRecursive C99.c99DirName)
+  let cbmc = "cbmc_driver.c"
+  b2 <- doesFileExist cbmc
+  when b2 (removeFile cbmc)
 
 --------------------------------------------------------------------------------
diff --git a/copilot.cabal b/copilot.cabal
@@ -48,6 +48,5 @@ executable copilot-regression
                    , copilot-sbv
                    , copilot-cbmc
                    , copilot-c99 >= 0.2
-
                    , directory >= 1.1
                    , random