--- a/compiler/tests/PPCCodeGeneratorTest.st	Mon Aug 24 22:32:15 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st	Mon Aug 24 23:42:53 2015 +0100
@@ -3,8 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 PPAbstractParserTest subclass:#PPCCodeGeneratorTest
-	instanceVariableNames:'visitor node result compiler parser context configuration
-		arguments'
+	instanceVariableNames:'visitor node result compiler parser context configuration options'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Tests-Visitors'
@@ -18,7 +17,7 @@
 !
 
 setUp
-    arguments := PPCArguments default
+    options := PPCCompilationOptions default
         profile: true;
         codeGenerator: PPCCodeGenerator.
         
@@ -27,7 +26,9 @@
         _self check.
         _self generate.
     ].
-    configuration arguments: arguments.
+    configuration options: options.
+
+    "Modified: / 24-08-2015 / 23:40:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown
@@ -925,7 +926,7 @@
 !
 
 testStarAnyNode
-    arguments cacheFirstFollow: false.
+    options cacheFirstFollow: false.
     node := PPCStarAnyNode new 
         child: PPCNilNode new; 
         yourself.
@@ -937,7 +938,7 @@
 !
 
 testStarCharSetPredicateNode
-    arguments cacheFirstFollow: false.
+    options cacheFirstFollow: false.
     node := PPCStarCharSetPredicateNode new
         predicate: (PPCharSetPredicate on: [:e | e = $a ]);
         child: PPCSentinelNode new;
@@ -954,7 +955,7 @@
 !
 
 testStarMessagePredicateNode
-    arguments cacheFirstFollow: false.
+    options cacheFirstFollow: false.
     node := PPCStarMessagePredicateNode new
         message: #isLetter;
         child: PPCSentinelNode new;
@@ -1032,8 +1033,8 @@
         message: #isLetter; 
         child: PPCSentinelNode new; 
         yourself.
-    arguments cacheFirstFollow: false.
-    arguments guards: false.	
+    options cacheFirstFollow: false.
+    options guards: false.	
     self compileTree: node.
     
     self assert: parser class methodDictionary size = 1.
@@ -1057,7 +1058,7 @@
     node := PPCForwardNode new
         child: starNode;
         yourself.
-    arguments cacheFirstFollow: false.
+    options cacheFirstFollow: false.
     self compileTree: node.
     
     self assert: parser class methodDictionary size = 2.
@@ -1078,7 +1079,7 @@
     node := PPCForwardNode new
         child: starNode;
         yourself.	
-    arguments cacheFirstFollow: false.
+    options cacheFirstFollow: false.
     self compileTree: node.
     
     self assert: parser class methodDictionary size = 1.