--- a/RegressionTests__ChangeSetTests.st	Fri Apr 26 18:02:34 2013 +0200
+++ b/RegressionTests__ChangeSetTests.st	Tue Apr 30 12:43:28 2013 +0200
@@ -59,6 +59,48 @@
     "Created: / 20-11-2012 / 14:46:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ChangeSetTests methodsFor:'tests - ChangeSet::ClassSourceWriter'!
+
+test_ClassSourceWriter_01
+    | sourceFileout cs sourceChangeset|
+
+    sourceFileout := String streamContents:[:s|
+        AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
+    ].
+
+    cs := ChangeSet fromStream: sourceFileout readStream.
+
+    sourceChangeset := String streamContents:[:s|
+        cs saveToStream:s format:#classSource
+    ].
+    self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
+    "
+    Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'
+    "
+
+    "Created: / 30-04-2013 / 11:28:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassSourceWriter_02
+    | sourceFileout cs sourceChangeset|
+
+    sourceFileout := String streamContents:[:s|
+        AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
+    ].
+
+    cs := ChangeSet fromStream: sourceFileout readStream.
+
+    sourceChangeset := String streamContents:[:s|
+        cs saveToStream:s format:#classSource
+    ].
+    self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
+    "
+    Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'
+    "
+
+    "Created: / 30-04-2013 / 11:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetTests methodsFor:'tests - ClassDefinitionChange'!
 
 test_ClassDefinitionChange_01
@@ -450,6 +492,30 @@
     "Created: / 20-11-2012 / 15:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!
+
+test_MethodDefinitionChange_01a
+    "Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
+
+    | cs |                                       
+
+    cs := ChangeSet fromStream:'
+!!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
+
+javaWrap: object
+        |inst|
+    inst := self basicNew.
+    inst perform: #''<init>(J)V'' with: object with: nil.
+        ^ inst.
+!! !!
+' readStream.
+
+    self assert: cs size == 1.
+
+    "Created: / 25-01-2013 / 20:44:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 30-04-2013 / 11:42:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetTests methodsFor:'tests - utf8'!
 
 test_reading_utf8_01