Mercurial Mercurial > hg > stx-libscm / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed HGStXTests>>test_commit_01
authorvranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
Sat, 17 Nov 2012 01:12:16 +0000
changeset 73 eb731ce2685e
parent 72 66345356fa65
child 74 1189b87d677c
Fixed HGStXTests>>test_commit_01
mercurial/HGCommand.st file | annotate | diff | comparison | revisions
mercurial/HGNodeId.st file | annotate | diff | comparison | revisions
mercurial/HGStXTests.st file | annotate | diff | comparison | revisions
mercurial/HGWorkingCopy.st file | annotate | diff | comparison | revisions 
--- a/mercurial/HGCommand.st	Sat Nov 17 01:12:10 2012 +0000
+++ b/mercurial/HGCommand.st	Sat Nov 17 01:12:16 2012 +0000
@@ -587,18 +587,17 @@
     "Called to get command specific options"
 
     | author |
-
+    author := HGAuthorQuery query.
+    author notNil ifTrue:[
+        stream nextPut:'--user'; nextPut: author
+    ].
     stream nextPut:'-m'; nextPut: message.
     files notNil ifTrue:[
         stream nextPutAll: files
     ].
-    author := HGAuthorQuery query.
-    author notNil ifTrue:[
-        stream nextPut:'--user'; nextPut: author
-    ]
 
     "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-11-2012 / 19:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-11-2012 / 00:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parse:stream
--- a/mercurial/HGNodeId.st	Sat Nov 17 01:12:10 2012 +0000
+++ b/mercurial/HGNodeId.st	Sat Nov 17 01:12:16 2012 +0000
@@ -240,6 +240,12 @@
     ^self
 
     "Created: / 16-11-2012 / 21:22:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+asString
+    ^self printString
+
+    "Created: / 17-11-2012 / 01:08:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGNodeId methodsFor:'printing & storing'!
--- a/mercurial/HGStXTests.st	Sat Nov 17 01:12:10 2012 +0000
+++ b/mercurial/HGStXTests.st	Sat Nov 17 01:12:16 2012 +0000
@@ -100,8 +100,9 @@
     repo := self repositoryNamed: 'mocks/hg/p1'.
     Smalltalk loadPackage:'mocks:hg/p1'.
 
-    MockHGP1Bar compile:'zork ^ 1' classified:'test'.
+    self deny:   ((repo @ 1 / 'MockHGP1Bar.st') contents asString includesString:'zork ^ 1').
 
+    (MockHGP1Bar compile:'zork ^ 1' classified:'test') package: MockHGP1Bar package.
     pm := HGPackageModel named: 'mocks:hg/p1'.
     ct := pm commitTask.
     ct message:'test_commit_01'.
@@ -109,12 +110,10 @@
     "
         repo workingCopy browse
     "
-
-    self deny:   ((repo @ 0 / 'MockHGP1Bar.st') contents asString includesString:'zork ^ 1').
-    self assert: ((repo @ 1 / 'MockHGP1Bar.st') contents asString includesString:'zork ^ 1').
+    self assert: ((repo @ 2 / 'MockHGP1Bar.st') contents asString includesString:'zork ^ 1').
 
     "Created: / 16-11-2012 / 18:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 17-11-2012 / 00:44:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-11-2012 / 01:05:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGStXTests class methodsFor:'documentation'!
--- a/mercurial/HGWorkingCopy.st	Sat Nov 17 01:12:10 2012 +0000
+++ b/mercurial/HGWorkingCopy.st	Sat Nov 17 01:12:16 2012 +0000
@@ -55,17 +55,18 @@
     "Created: / 12-11-2012 / 22:35:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-commit: message files: files
+commit:message files:files 
     "Commit given files with given message. If files
      is nil, all tracked modified files are commited"
-
-    ^HGCommand commit
-        workingDirectory: root pathName;
-        message: message;
-        files: files;
+    
+    ^ (HGCommand commit)
+        workingDirectory:root pathName;
+        message:message;
+        files:files;
         execute
 
     "Created: / 12-11-2012 / 22:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 17-11-2012 / 01:01:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGWorkingCopy methodsFor:'initialization'!
hg/stx-libscm