--- a/git/GitTests.st	Thu Sep 20 08:22:04 2012 +0000
+++ b/git/GitTests.st	Mon Sep 24 22:43:25 2012 +0000
@@ -44,15 +44,31 @@
     "Created: / 19-09-2012 / 19:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!GitTests methodsFor:'tests'!
+!GitTests methodsFor:'tests - basic workflow'!
+
+test_01a
 
-test_01
+    "Test modification of working copy and commit back"
 
-    | repo |
+    | repo wc file1_txt |
 
     repo := self repositoryNamed: 'test_repo_01'.
+    wc := repo workingCopy.
 
-    "Created: / 19-09-2012 / 19:06:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "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.
+
+    self halt.
+
+    "Created: / 19-09-2012 / 23:06:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GitTests class methodsFor:'documentation'!