class: RegressionTests::ChangeSetTests
authorClaus Gittinger <cg@exept.de>
Tue, 16 Apr 2013 16:01:15 +0200
changeset 912 8705b4ee9a6f
parent 911 2ac491c837b2
child 913 ea6dc6b55822
class: RegressionTests::ChangeSetTests classname vs. fullClassName
RegressionTests__ChangeSetTests.st
--- a/RegressionTests__ChangeSetTests.st	Tue Apr 16 09:26:15 2013 +0200
+++ b/RegressionTests__ChangeSetTests.st	Tue Apr 16 16:01:15 2013 +0200
@@ -97,7 +97,8 @@
 ' readStream.
 
     self assert: cs size == 1.
-    self assert: cs first className = 'Mocks::MockClass'.
+    self assert: cs first className = 'MockClass'.
+    self assert: cs first fullClassName = 'Mocks::MockClass'.
     self assert: cs first nameSpaceName = 'Mocks'.
     self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
     cs apply.
@@ -164,8 +165,10 @@
 ' readStream.
 
     self assert: cs size == 2.
-    self assert: cs first  className = 'Mocks::MockClass'.
-    self assert: cs second className = 'Mocks::MockClass::PrivateClass'.
+    self assert: cs first  className = 'MockClass'.
+    self assert: cs first  fullClassName = 'Mocks::MockClass'.
+    self assert: cs second className = 'MockClass::PrivateClass'.
+    self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'.
     self assert: cs second nameSpaceName = 'Mocks'.
     self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
     cs apply.