--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/git/GitTests.st	Wed Sep 19 18:10:20 2012 +0000
@@ -0,0 +1,62 @@
+"{ Package: 'stx:libscm/git' }"
+
+TestCase subclass:#GitTests
+	instanceVariableNames:'repositories'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SCM-Git-Tests'
+!
+
+
+!GitTests class methodsFor:'accessing'!
+
+resources
+    ^Array with: GitRepositoriesResource
+
+    "Created: / 19-09-2012 / 18:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GitTests methodsFor:'accessing'!
+
+repositoryNamed: nm
+    | dir |
+
+    dir := GitRepositoriesResource current directoryForRepositoryNamed: nm.
+    repositories add:  dir.
+    ^GitRepository open: dir.
+
+    "Created: / 19-09-2012 / 19:04:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GitTests 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].
+
+    "Created: / 19-09-2012 / 19:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GitTests methodsFor:'tests'!
+
+test_01
+
+    | repo |
+
+    repo := self repositoryNamed: 'test_repo_01'.
+
+    "Created: / 19-09-2012 / 19:06:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GitTests class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !