--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__ClassBuilderTests.st Thu Feb 07 19:05:50 2013 +0100
@@ -0,0 +1,55 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#ClassBuilderTests
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Compiler'
+!
+
+
+!ClassBuilderTests methodsFor:'tests'!
+
+test_pools_01
+ | pool class |
+
+ pool := SharedPool subclass: #NewSharedPool1
+ instanceVariableNames: ''
+ classVariableNames: 'PoolVar1 PoolVar2'
+ poolDictionaries: ''
+ category: 'System-Compiler-Mocks'.
+
+ class := Object subclass: #NewClass
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: 'NewSharedPool1'
+ category: 'System-Compiler-Mocks'.
+
+ self assert: class sharedPoolNames asArray = #(NewSharedPool1).
+
+ class := Object subclass: #NewClass
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Compiler-Mocks'.
+
+ self assert: class sharedPoolNames isEmpty.
+
+
+ Smalltalk removeClass: pool; removeClass: class.
+
+ "Created: / 07-02-2013 / 18:00:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!ClassBuilderTests class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
+! !
+