--- a/tests/RGClassDefinitionTest.st	Sat Aug 29 10:31:59 2015 +0100
+++ b/tests/RGClassDefinitionTest.st	Mon Aug 31 14:01:56 2015 +0100
@@ -147,6 +147,25 @@
     self assert: (metaClass realClass = OrderedCollection class).
 !
 
+testNewClass
+    | newClass |
+
+    newClass:= RGClassDefinition newClass.
+
+    self assert: (newClass isRingObject).
+    self assert: (newClass isClass).  
+    self assert: (newClass name isNil).
+    self assert: (newClass theMetaClass notNil).
+    self assert: (newClass theMetaClass isMetaclass).
+    self assert: (newClass theMetaClass name isNil).
+
+    newClass name: 'NewClass'.         
+    self assert: (newClass name = 'NewClass').
+    self assert: (newClass theMetaClass name = 'NewClass class').
+
+    "Created: / 29-08-2015 / 12:02:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 testNonExistingClass
     | newClass |