Use the debugging env variable for the tests too

mengwong/mp/test/Spec.hs

@@ -10,13 +10,16 @@ import AnyAll
 import Types
 import qualified Data.ByteString.Lazy as BS
 import Control.Monad.Reader (ReaderT(runReaderT))
+import System.Environment (lookupEnv)
 
-parseR p = parse (runReaderT p defConfig)
--- TODO: Fetch config from env here too
-defConfig =  RC False 0
 
 main :: IO ()
-main = hspec $ do
+main =  do
+  mpd <- lookupEnv "MP_DEBUG"
+  let runConfig = RC (maybe False (read :: String -> Bool) mpd) 0
+  let parseR p = parse (runReaderT p runConfig)
+
+  hspec $ do
   describe "Nothing Test" $ do
     it "should be nothing" $ do
       (Nothing :: Maybe ()) `shouldBe` (Nothing :: Maybe ())