--- 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>"
! !