CustomCodeGeneratorTestCaseCodeGenerator.st
changeset 592 25f7fff0dc9e
parent 591 de66b36d67da
child 628 6f639016753b
child 634 d77d9a7561be
--- a/CustomCodeGeneratorTestCaseCodeGenerator.st	Fri Jul 04 22:34:19 2014 +0200
+++ b/CustomCodeGeneratorTestCaseCodeGenerator.st	Sat Jul 05 12:34:02 2014 +0200
@@ -27,7 +27,7 @@
     | source className |
 
     aTestClass superclassName: 'CustomCodeGeneratorTestCase'.
-    className := aClass theNonMetaClass nameWithoutPrefix.
+    className := aClass theNonMetaClass name.
 
     source := 'test_code_generated
     | expectedSource |
@@ -52,6 +52,6 @@
         createMethod
 
     "Created: / 13-06-2014 / 09:27:15 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-    "Modified: / 04-07-2014 / 18:54:13 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 05-07-2014 / 12:27:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !