RegressionTests__ChangeSetTests.st
changeset 912 8705b4ee9a6f
parent 866 30af67f910e9
child 924 f0ec0d58eebe
--- 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.