diff --git a/gibbon-compiler/tests/TestRunner.hs b/gibbon-compiler/tests/TestRunner.hs
index bc4370180..97f35c53f 100644
--- a/gibbon-compiler/tests/TestRunner.hs
+++ b/gibbon-compiler/tests/TestRunner.hs
@@ -168,7 +168,7 @@ instance FromJSON Mode where
     parseJSON oth = error $ "Cannot parse Mode: " ++ show oth
 
 allModes :: [Mode]
-allModes = [minBound ..]
+allModes = filter (/= MPL) [minBound ..]  -- all modes does not include MPL
 
 readMode :: T.Text -> Mode
 readMode s =