--- a/compiler/tests/PPCOptimizeChoicesTest.st	Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/PPCOptimizeChoicesTest.st	Mon Sep 07 08:20:46 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 TestCase subclass:#PPCOptimizeChoicesTest
-	instanceVariableNames:'node result visitor configuration'
+	instanceVariableNames:'node result visitor compiler'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Tests-Visitors'
@@ -12,27 +12,24 @@
 !PPCOptimizeChoicesTest methodsFor:'as yet unclassified'!
 
 asPPCTree: parser
-    ^ parser compileWithConfiguration: configuration
+    ^ parser compileUsingCompiler: compiler
+
+    "Modified: / 07-09-2015 / 10:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setUp
     | options |
+
     super setUp.
-
     visitor := PPCOptimizeChoices new.
-    
-    options := PPCCompilationOptions default
-                    profile: true;
-                    generate: false;
-                    tokenize: false;
-                    yourself.
-                
-    configuration := PPCConfiguration new.
-    configuration passes: 
-                        {
-                            PPCCacheFirstFollowPass.
-                        }.
-    configuration options: options.
+    options := (PPCCompilationOptions default)
+            profile:true;
+            generate:false;
+            tokenize:false;
+            yourself.
+    compiler := PPCCompiler new.
+    compiler passes:{ PPCCacheFirstFollowPass }.
+    compiler options:options.
 
     "Modified: / 04-09-2015 / 16:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !