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.
Bugfix - do not cache repositories by default.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sun, 16 Dec 2012 13:02:32 +0100
changeset 167 73ede479a28f
parent 166 dbf0f7eb0dc9
child 168 b7cdb276d892
Bugfix - do not cache repositories by default. Cacheing break identity tests on changesets.
mercurial/HGRepository.st file | annotate | diff | comparison | revisions
mercurial/HGTestCase.st file | annotate | diff | comparison | revisions
mercurial/mercurial.rc file | annotate | diff | comparison | revisions 
--- a/mercurial/HGRepository.st	Sun Dec 16 12:06:19 2012 +0100
+++ b/mercurial/HGRepository.st	Sun Dec 16 13:02:32 2012 +0100
@@ -30,13 +30,23 @@
 !HGRepository class methodsFor:'instance creation'!
 
 on: aStringOrFilename
+    ^self on: aStringOrFilename cached: false
+
+    "Created: / 17-10-2012 / 13:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-12-2012 / 12:59:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+on: aStringOrFilename cached: cache
     | path |
 
     path := aStringOrFilename asFilename.
-    ^Cache at: path ifAbsentPut:[self new initializeOn: path]
+    ^cache ifTrue:[
+        Cache at: path ifAbsentPut:[self new initializeOn: path]
+    ] ifFalse:[
+        self new initializeOn: path
+    ]
 
-    "Created: / 17-10-2012 / 13:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-12-2012 / 19:33:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 16-12-2012 / 12:58:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGRepository class methodsFor:'cloning'!
--- a/mercurial/HGTestCase.st	Sun Dec 16 12:06:19 2012 +0100
+++ b/mercurial/HGTestCase.st	Sun Dec 16 13:02:32 2012 +0100
@@ -85,10 +85,10 @@
 !HGTestCase methodsFor:'running'!
 
 setUp
-
-    repositories := OrderedCollection new.
+    repositories:= OrderedCollection new.
 
     "Created: / 19-09-2012 / 19:01:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-12-2012 / 12:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown
--- a/mercurial/mercurial.rc	Sun Dec 16 12:06:19 2012 +0100
+++ b/mercurial/mercurial.rc	Sun Dec 16 13:02:32 2012 +0100
@@ -3,7 +3,7 @@
 // automagically generated from the projectDefinition: stx_libscm_mercurial.
 //
 VS_VERSION_INFO VERSIONINFO
-  FILEVERSION     6,2,32767,32767
+  FILEVERSION     6,2,709,709
   PRODUCTVERSION  6,2,3,0
 #if (__BORLANDC__)
   FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
@@ -20,12 +20,12 @@
     BEGIN
       VALUE "CompanyName", "Jan Vrany\0"
       VALUE "FileDescription", "Mercurial integration for Smalltalk/X (LIB)\0"
-      VALUE "FileVersion", "6.2.32767.32767\0"
+      VALUE "FileVersion", "6.2.709.709\0"
       VALUE "InternalName", "stx:libscm/mercurial\0"
       VALUE "LegalCopyright", "Copyright Jan Vrany 2012\0"
       VALUE "ProductName", "Smalltalk/X Mercurial Integration\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Sun, 16 Dec 2012 00:28:37 GMT\0"
+      VALUE "ProductDate", "Sun, 16 Dec 2012 12:01:41 GMT\0"
     END
 
   END
hg/stx-libscm