--- a/mercurial/HGStXTests.st	Wed Mar 27 11:19:26 2013 +0000
+++ b/mercurial/HGStXTests.st	Wed Mar 27 11:54:29 2013 +0000
@@ -1338,6 +1338,29 @@
     self assert: contents first = '"{ Package: ''mocks:hg/p1'' }"'
 
     "Created: / 18-03-2013 / 16:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_stream_04a
+    "
+        Tests of extension stream
+    "
+
+    | stream repo contents |
+
+
+    repo := self repositoryNamed: 'mocks/hg/p4'.
+    self assert: (Smalltalk loadPackage:'mocks:hg/p4').
+    stream := HGSourceCodeManager streamForExtensionFile:'extensions.st' package: 'mocks:hg/p4' directory: 'hg/p4' module: 'mocks' cache: false.
+
+    [
+        contents := stream contents.
+    ] ensure: [
+        stream close
+    ].
+
+    self assert: contents first = '"{ Package: ''mocks:hg/p4'' }"!!'
+
+    "Created: / 27-03-2013 / 11:37:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStXTests methodsFor:'tests - misc'!