--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mercurial/HGTests.st	Wed Oct 17 14:39:04 2012 +0000
@@ -0,0 +1,106 @@
+"{ Package: 'stx:libscm/mercurial' }"
+
+TestCase subclass:#HGTests
+	instanceVariableNames:'repositories'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SCM-Mercurial-Core-Tests'
+!
+
+
+!HGTests class methodsFor:'accessing'!
+
+resources
+    ^Array with: HGRepositoriesResource
+
+    "Created: / 19-09-2012 / 18:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-10-2012 / 13:01:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!HGTests methodsFor:'accessing'!
+
+repositoryNamed: nm
+    | dir |
+
+    dir := HGRepositoriesResource current directoryForRepositoryNamed: nm.
+    repositories add:  dir.
+    ^HGRepository on: dir.
+
+    "Created: / 19-09-2012 / 19:04:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-10-2012 / 13:28:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!HGTests methodsFor:'private'!
+
+performTest
+
+    GitCommitterQuery answer: (GitSignature name: self class name email: (self class name , '@nowhere')) do:[
+        super performTest
+    ].
+
+    "Created: / 30-09-2012 / 10:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!HGTests methodsFor:'running'!
+
+setUp
+
+    repositories := OrderedCollection new.
+
+    "Created: / 19-09-2012 / 19:01:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+tearDown
+
+    repositories do:[:e|
+        [
+            e asFilename recursiveRemove
+        ] on: Error do:[
+            "Stupid windows"
+        ]
+    ].
+
+    "Created: / 19-09-2012 / 19:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2012 / 05:26:48 / jv"
+! !
+
+!HGTests methodsFor:'tests - basic workflow'!
+
+test_01a
+
+    "Test modification of working copy and commit back"
+
+    | repo wc file1_txt |
+
+    repo := self repositoryNamed: 'test_repo_01'.
+    "
+    UserPreferences fileBrowserClass openOn: repo directory.    
+    "
+    wc := repo workingCopy.
+    self assert: wc commit oid = (GitOid fromString:'541c09aa382a56ec87b813b3fb6ea84e17909889').
+
+    "Modify some file"
+    file1_txt := wc / 'file1.txt'.
+    self assert: file1_txt isModified not.
+
+    (file1_txt) writingFileDo:[:s|
+        s nextPutAll: 'modified from test_01a'.
+    ].
+    self assert: file1_txt isModified.
+
+    wc stage.
+    wc commit: 'test_01a commit 1'.
+
+    self assert: wc commit oid ~= (GitOid fromString:'541c09aa382a56ec87b813b3fb6ea84e17909889').
+    self assert: wc commit message = 'test_01a commit 1'.
+    self assert: wc commit parents size == 1.
+    self assert: wc commit parents anElement oid = (GitOid fromString:'541c09aa382a56ec87b813b3fb6ea84e17909889').
+
+    "Created: / 19-09-2012 / 23:06:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!HGTests class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !