Portability: use `aClass methodDictionary values` instead of `aClass methods`
as on Smalltalk/X. Class>>methods retruns method reader to support filein of various
chunk formats.
--- a/compiler/tests/PPCProtype1Test.st Fri May 01 14:39:47 2015 +0200
+++ b/compiler/tests/PPCProtype1Test.st Sat May 02 06:18:36 2015 +0200
@@ -10,6 +10,7 @@
category:'PetitCompiler-Tests-Core'
!
+
!PPCProtype1Test methodsFor:'context'!
context
@@ -501,21 +502,23 @@
!
testTrimmingTokenNested3
- | identifier kw |
- kw := ('false' asParser, #word asParser not) trimmingToken name: #kw.
- identifier := (kw not, (#letter asParser, #word asParser star)) trimmingToken name: #identifier.
-
- parser := identifier / kw.
- parser := parser compileWithConfiguration: configuration.
- self assert: parser class methodDictionary size = 8.
- self assert: (parser class methods anySatisfy: [ :m | m selector = #kw ]).
- self assert: (parser class methods anySatisfy: [ :m | m selector = #kw_fast ]).
+ | identifier kw |
+ kw := ('false' asParser, #word asParser not) trimmingToken name: #kw.
+ identifier := (kw not, (#letter asParser, #word asParser star)) trimmingToken name: #identifier.
+
+ parser := identifier / kw.
+ parser := parser compileWithConfiguration: configuration.
+ self assert: parser class methodDictionary size = 8.
+ self assert: (parser class methodDictionary values anySatisfy: [ :m | m selector = #kw ]).
+ self assert: (parser class methodDictionary values anySatisfy: [ :m | m selector = #kw_fast ]).
- self assert: parser parse: 'foo'.
- self assert: result inputValue = 'foo'.
+ self assert: parser parse: 'foo'.
+ self assert: result inputValue = 'foo'.
- self assert: parser parse: 'false'.
- self assert: result inputValue = 'false'.
+ self assert: parser parse: 'false'.
+ self assert: result inputValue = 'false'.
+
+ "Modified: / 02-05-2015 / 06:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPCProtype1Test methodsFor:'tests - ids'!
@@ -530,3 +533,10 @@
yourself.
! !
+!PPCProtype1Test class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+