class: RegressionTests::ParserTests
changed:
#testSqueakPrimitive
#testSt80Primitive
#testVAgePrimitive
--- a/ParserTests.st Thu Sep 04 13:14:13 2014 +0200
+++ b/ParserTests.st Thu Sep 04 13:39:41 2014 +0200
@@ -1464,16 +1464,17 @@
self assert:(annotation at:1) = 'primitive:'.
arguments := annotation at:2.
self deny:arguments isNil.
- self assert:arguments size = 1.
- self assert:(arguments at:1) = 'test'.
+ self assert:arguments = 'test'.
"
The named primitive specifies identifier value used to look up logic which is processed
before setting up a stack frame for the method to make it run. The example structure
of named primitive annotation is following:
<primitive: test>"
+
"Created: / 29-11-2009 / 09:34:05 / pp <Pavel.Pospichal@gmail.com>"
"Modified: / 07-12-2009 / 01:29:29 / pp <Pavel.Pospichal@gmail.com>"
+ "Modified: / 04-09-2014 / 12:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testSt80Primitive
@@ -1496,16 +1497,17 @@
self assert:(annotation at:1) = 'primitive:'.
arguments := annotation at:2.
self deny:arguments isNil.
- self assert:arguments size = 1.
- self assert:(arguments at:1) = 1.
+ self assert:arguments = 1.
"
The numbered primitive specifies index value used to look up logic which is processed
before setting up a stack frame for the method to make it run. The example structure
of numbered primitive annotation is following:
<primitive: 1>"
+
"Created: / 29-11-2009 / 09:33:18 / pp <Pavel.Pospichal@gmail.com>"
"Modified: / 07-12-2009 / 01:20:27 / pp <Pavel.Pospichal@gmail.com>"
+ "Modified: / 04-09-2014 / 12:36:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testVAgePrimitive
@@ -1528,16 +1530,17 @@
self assert:(annotation at:1) = 'primitive:'.
arguments := annotation at:2.
self deny:arguments isNil.
- self assert:arguments size = 1.
- self assert:(arguments at:1) = #test.
+ self assert:arguments = #test.
"
The named primitive specifies identifier value used to look up logic which is processed
before setting up a stack frame for the method to make it run. The example structure
of named primitive annotation is following:
<primitive: test>"
+
"Created: / 29-11-2009 / 09:34:59 / pp <Pavel.Pospichal@gmail.com>"
"Modified: / 12-12-2009 / 22:09:48 / pp <Pavel.Pospichal@gmail.com>"
+ "Modified: / 04-09-2014 / 12:37:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ParserTests methodsFor:'tests - resource'!