# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1365539487 -7200
# Node ID 8c08e9e494ffd6e4e883e05d9314fda6907810e9
# Parent  bf7016d7ffd2ab44c2ea836edc7a46708b4ba8ad
class: RegressionTests::ParserTests
changed:
        #testContextWithInvalidArgument
        #testResourceWithInvalidArgument

diff -r bf7016d7ffd2 -r 8c08e9e494ff ParserTests.st
--- 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  §'
 ! !
+