--- a/RegressionTests__CompilerTest.st	Tue Oct 16 10:39:25 2012 +0200
+++ b/RegressionTests__CompilerTest.st	Tue Oct 16 13:58:18 2012 +0200
@@ -1947,6 +1947,41 @@
     "
      self new testParseExtendedSyntax
     "
+!
+
+xtestParseAllMethodsInTheSystem
+    |parser|
+
+    Smalltalk allClassesDo:[:eachClass |
+        Transcript showCR:'parsing all in ',eachClass name.
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            parser := Parser parseMethod:(mthd source) in:(mthd mclass).
+            self assert:(parser ~~ #Error and:[parser tree ~= #Error and:[parser errorFlag ~~ true]]).
+        ].
+    ].
+
+    "
+     self new xtestParseAllMethodsInTheSystem
+    "
+!
+
+xtestRecompileAllMethodsInTheSystem
+    |parser|
+
+    Smalltalk allClassesDo:[:eachClass |
+        Transcript showCR:'parsing all in ',eachClass name.
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            parser := Parser parseMethod:(mthd source) in:(mthd mclass).
+            self assert:(parser ~~ #Error and:[parser tree ~= #Error and:[parser errorFlag ~~ true]]).
+            parser hasPrimitiveCode ifFalse:[
+                mthd mclass recompile:sel
+            ].
+        ].
+    ].
+
+    "
+     self new xtestRecompileAllMethodsInTheSystem
+    "
 ! !
 
 !CompilerTest methodsFor:'tests - return'!