--- a/mercurial/HGStXTests.st	Mon May 12 17:48:16 2014 +0100
+++ b/mercurial/HGStXTests.st	Fri May 23 13:21:20 2014 +0100
@@ -3052,6 +3052,52 @@
 
 !HGStXTests methodsFor:'tests - misc'!
 
+test_misc_Class_revisionOfManager_01a
+    | repo cls |
+
+    repo := self repositoryNamed: 'mocks/hg/p1'.
+    Smalltalk loadPackage:'mocks:hg/p1/'.
+
+    cls := Smalltalk at: #MockHGP1Bar.
+    self assert: (cls revisionOfManager: HGSourceCodeManager) asHGChangesetId = repo workingCopy changesetId.
+
+    "Created: / 23-05-2014 / 12:15:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_misc_Class_revisionOfManager_01b
+    | repo cls |
+
+    repo := self repositoryNamed: 'mocks/hg/p1'.
+    Smalltalk loadPackage:'mocks:hg/p1/'.
+
+    cls := Object subclass:#MockHGP1Qux
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'* Mocks *'.
+    cls setPackage: #'mocks:hg/p1'.
+    self assert: (cls revisionOfManager: HGSourceCodeManager) isNil
+
+    "Created: / 23-05-2014 / 13:13:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_misc_Class_revisionOfManager_01c
+    | repo cls |
+
+    repo := self repositoryNamed: 'mocks/hg/p1'.
+    Smalltalk loadPackage:'mocks:hg/p1/'.
+
+    cls := Object subclass:#MockHGP1N1Qux
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'* Mocks *'.
+    cls setPackage: #'mocks:hg/p1/n1'.
+    self assert: (cls revisionOfManager: HGSourceCodeManager) isNil
+
+    "Created: / 23-05-2014 / 12:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_misc_fileReleaseAndRevisionNr
     "
     ProjectDefinition>>fileReleaseNr and ProjectDefinition>>fileRevisionNr