diff options
| author | Yann Herklotz <git@ymhg.org> | 2019-04-17 19:20:56 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@ymhg.org> | 2019-04-17 19:20:56 +0100 |
| commit | 7053c6117f39d39852b3259c677691b5df6e7c04 (patch) | |
| tree | 8baa488ca37b6f29da6311e2645c328d87c29d91 /src/VeriFuzz.hs | |
| parent | 43ae318ed36dcf4098a8740029bf6b4bf92e4960 (diff) | |
| download | verismith-7053c6117f39d39852b3259c677691b5df6e7c04.tar.gz verismith-7053c6117f39d39852b3259c677691b5df6e7c04.zip | |
Use new fuzzing technique instead of the old function
Diffstat (limited to 'src/VeriFuzz.hs')
| -rw-r--r-- | src/VeriFuzz.hs | 33 |
1 files changed, 22 insertions, 11 deletions
diff --git a/src/VeriFuzz.hs b/src/VeriFuzz.hs index 18ddf34..88a2a40 100644 --- a/src/VeriFuzz.hs +++ b/src/VeriFuzz.hs @@ -18,6 +18,7 @@ module VeriFuzz , module VeriFuzz.Config , module VeriFuzz.Circuit , module VeriFuzz.Sim + , module VeriFuzz.Fuzz ) where @@ -39,6 +40,7 @@ import Shelly import Shelly.Lifted (liftSh) import VeriFuzz.Circuit import VeriFuzz.Config +import VeriFuzz.Fuzz import VeriFuzz.Reduce import VeriFuzz.Result import VeriFuzz.Sim @@ -114,7 +116,9 @@ checkEquivalence src dir = shellyFailDir $ do setenv "VERIFUZZ_ROOT" curr cd (fromText dir) catch_sh - ( (runResultT $ runEquiv defaultYosys defaultYosys (Just defaultVivado) src) + ( ( runResultT + $ runEquiv defaultYosys defaultYosys (Just defaultVivado) src + ) >> return True ) ((\_ -> return False) :: RunFailed -> Sh Bool) @@ -137,16 +141,23 @@ runEquivalence gm t d k i = do curr <- toTextIgnore <$> pwd setenv "VERIFUZZ_ROOT" curr cd (fromText "output" </> fromText n) - catch_sh - (runResultT $ runEquiv defaultYosys defaultYosys (Just defaultVivado) srcInfo - >> liftSh (echoP "Test OK") - ) - $ onFailure n - catch_sh - (runResultT $ runSim (Icarus "iverilog" "vvp") srcInfo rand - >>= (\b -> liftSh $ echoP ("RTL Sim: " <> showBS b)) - ) - $ onFailure n + _ <- + catch_sh + ( runResultT + $ runEquiv defaultYosys + defaultYosys + (Just defaultVivado) + srcInfo + >> liftSh (echoP "Test OK") + ) + $ onFailure n + _ <- + catch_sh + ( runResultT + $ runSim (Icarus "iverilog" "vvp") srcInfo rand + >>= (\b -> liftSh $ echoP ("RTL Sim: " <> showBS b)) + ) + $ onFailure n cd ".." unless k . rm_rf $ fromText n when (i < 5) (runEquivalence gm t d k $ i + 1) |