--- a/ParserTests.st	Tue Apr 09 22:30:43 2013 +0200
+++ b/ParserTests.st	Tue Apr 09 22:31:27 2013 +0200
@@ -867,12 +867,15 @@
     |parserState|
 
     " create method for annotation testing purpose "
-    parserState := self parserClass 
-                parseMethod:'contextWithNoArgumentsExample <context: context:> ^self.'
-                in:mockClass.
+    self should:[
+            parserState := self parserClass 
+                        parseMethod:'contextWithNoArgumentsExample <context: context:> ^self.'
+                        in:mockClass.
+        ] raise:ParseError.
+
      " check the parser result "
-    self deny:parserState isNil.
-    self assert:parserState == #Error.
+"/    self assert:parserState notNil.
+"/    self assert:parserState == #Error.
 
     "Created: / 11-01-2010 / 22:50:54 / pp <Pavel.Pospichal@gmail.com>"
     "Modified: / 01-07-2010 / 16:30:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1492,12 +1495,15 @@
     |parserState|
 
     " create method for annotation testing purpose "
-    parserState := self parserClass 
-                parseMethod:'resourceWithInvalidArgumentExample <resource: resource:> ^self.'
-                in:mockClass.
+    self should:[
+            parserState := self parserClass 
+                        parseMethod:'resourceWithInvalidArgumentExample <resource: resource:> ^self.'
+                        in:mockClass.
+        ] raise:ParseError.
+
      " check the parser result "
-    self deny:parserState isNil.
-    self assert:parserState = #Error.
+"/    self deny:parserState isNil.
+"/    self assert:parserState = #Error.
 
     "Created: / 12-01-2010 / 11:28:13 / pp <Pavel.Pospichal@gmail.com>"
 !
@@ -1788,3 +1794,4 @@
 version_SVN
     ^ '§ Id: ParserTests.st 2014 2010-07-12 08:10:01Z vranyj1  §'
 ! !
+