--- a/mercurial/HGStXTests.st	Fri Mar 28 09:35:51 2014 +0000
+++ b/mercurial/HGStXTests.st	Wed Apr 02 15:26:27 2014 +0200
@@ -1604,6 +1604,39 @@
 
     "Created: / 04-03-2014 / 21:18:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-03-2014 / 21:47:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_commit_18a
+    "
+    Test class rename.
+
+    Check, that rename is properly reflected in build support files
+    "
+    | repo pm ct cs |
+
+    repo := self repositoryNamed: 'mocks/hg/p1'.
+    self assert: (Smalltalk loadPackage:'mocks:hg/p1').
+
+
+    pm := HGPackageWorkingCopy named: #'mocks:hg/p1'.
+    "
+    repo workingCopy browse
+    "
+
+    "/ Rename class...
+    Smalltalk renameClass: (Smalltalk at: #MockHGP1Bar) to:#MockHGP1Quuz.
+
+    ct := pm commitTask.
+    ct message:'test_commit_18a'.
+    ct do.
+
+    cs := repo @ 2.
+    self assert: cs message = 'test_commit_18a'.
+    self assert: ((cs / 'Make.spec') contents asString includesString: 'MockHGP1Bar') not.
+    self assert: ((cs / 'Make.proto') contents asString includesString: 'MockHGP1Bar') not.    
+    self assert: ((cs / 'bc.mak') contents asString includesString: 'MockHGP1Bar') not.
+
+    "Created: / 02-04-2014 / 14:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStXTests methodsFor:'tests - commit - nested'!