equal
deleted
inserted
replaced
34 self assert: (global parent = Smalltalk globals). |
34 self assert: (global parent = Smalltalk globals). |
35 ! |
35 ! |
36 |
36 |
37 testPoolDefinition |
37 testPoolDefinition |
38 | pool newClass | |
38 | pool newClass | |
39 pool := RGClassDefinition createSharedPoolNamed: #TextConstants. |
39 pool := RGClassDefinition newSharedPoolNamed:#TextConstants. |
40 self assert: pool isPool. |
40 self assert: pool isPool. |
41 self assert: pool users isEmpty. |
41 self assert: pool users isEmpty. |
42 self assert: pool parent equals: Smalltalk globals. |
42 self assert: pool parent equals: Smalltalk globals. |
43 newClass := RGClassDefinition named: #OrderedCollection. |
43 newClass := RGClassDefinition named: #OrderedCollection. |
44 pool addUser: newClass. |
44 pool addUser: newClass. |