hg/stx-libsvn: comparison SVN_

equal deleted inserted replaced

-:19c6e1b8dfff
+:74ff0960961c
 "{ Package: 'stx:libsvn' }"
 "{ NameSpace: SVN }"
-nil subclass:#CommitTests
+TestCase subclass:#CommitTests
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SVN-Tests'
 !
 setUp
 super setUp.
 Class withoutUpdatingChangesDo:
-[self source_stx_goodies_libsvn_CommitTests_st readStream fileIn.
+	[self source_stx_goodies_libsvn_CommitTests_st readStream fileIn.
-self source_SVN__CommitTestsMockA_st readStream fileIn.
+	self source_SVN__CommitTestsMockA_st readStream fileIn.
-self source_SVN__CommitTestsMockB_st readStream fileIn]
+	self source_SVN__CommitTestsMockB_st readStream fileIn]
 "Created: / 19-08-2009 / 14:59:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !CommitTests methodsFor:'sources'!
 source_SVN__CommitTestsMockA_st
-"
+	"
-SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources'
+	SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources'
-SVN::CommitTests new source_SVN__CommitTestsMockA_st
+	SVN::CommitTests new source_SVN__CommitTestsMockA_st
-"
+	"
 ^'''From Smalltalk/X, Version:5.4.4 on 08-04-2009 at 09:23:01 PM''                  !!
 "{ Package: ''stx:goodies/libsvn_CommitTests'' }"
 "{ NameSpace: SVN }"
 Object subclass:#CommitTestsMockA
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''SVN-Tests-Mocks''
+	category:''SVN-Tests-Mocks''
 !!
 '
 "Modified: / 19-08-2009 / 13:33:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 source_SVN__CommitTestsMockB_st
-"
+	"
-SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources'
+	SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources'
-SVN::CommitTests new source_SVN__CommitTestsMockA_st
+	SVN::CommitTests new source_SVN__CommitTestsMockA_st
-"
+	"
 ^'"{ Package: ''stx:goodies/libsvn_CommitTests'' }"
 "{ NameSpace: SVN }"
 Object subclass:#CommitTestsMockB
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''SVN-Tests-Mocks''
+	category:''SVN-Tests-Mocks''
 !!
 '
 "Created: / 09-04-2009 / 17:41:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 19-08-2009 / 13:33:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 source_stx_goodies_libsvn_CommitTests_st
-"
+	"
-stx_goodies_libsvnCommitTests fileOutAsMethodIn: SVN::CommitTests selector: #'source_stx_goodies_libsvnCommitTests_st' category: 'sources'
+	stx_goodies_libsvnCommitTests fileOutAsMethodIn: SVN::CommitTests selector: #'source_stx_goodies_libsvnCommitTests_st' category: 'sources'
-SVN::CommitTests new source_stx_goodies_libsvnCommitTests_st
+	SVN::CommitTests new source_stx_goodies_libsvnCommitTests_st
-"
+	"
 ^'''From Smalltalk/X, Version:5.4.4 on 08-04-2009 at 09:23:54 PM''                  !!
 "{ Package: ''stx:goodies/libsvn_CommitTests'' }"
 LibraryDefinition subclass:#stx_goodies_libsvn_CommitTests
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''* Projects & Packages *''
+	category:''* Projects & Packages *''
 !!
 !!stx_goodies_libsvn_CommitTests class methodsFor:''description''!!
 preRequisites
 ^ #(
-#''stx:libbasic''    "LibraryDefinition - superclass of stx_goodies_libsvnCommitTests "
+	#''stx:libbasic''    "LibraryDefinition - superclass of stx_goodies_libsvnCommitTests "
 )
 !! !!
 !!stx_goodies_libsvn_CommitTests class methodsFor:''description - contents''!!
 classNamesAndAttributes
 ^ #(
-"<className> or (<className> attributes...) in load order"
+	"<className> or (<className> attributes...) in load order"
-#''SVN::CommitTestsMockA''
+	#''SVN::CommitTestsMockA''
-#''SVN::CommitTestsMockB''
+	#''SVN::CommitTestsMockB''
-#''stx_goodies_libsvn_CommitTests''
+	#''stx_goodies_libsvn_CommitTests''
 )
 !!
 extensionMethodNames
 ^ #(
 "Created: / 19-08-2009 / 13:34:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 sources
 ^super sources ,
 #(
-(dir  'trunk')
+	(dir  'trunk')
-(file 'trunk/SVN__CommitTestsMockA.st'          source_SVN__CommitTestsMockA_st)
+	(file 'trunk/SVN__CommitTestsMockA.st'          source_SVN__CommitTestsMockA_st)
-(file 'trunk/SVN__CommitTestsMockB.st'          source_SVN__CommitTestsMockB_st)
+	(file 'trunk/SVN__CommitTestsMockB.st'          source_SVN__CommitTestsMockB_st)
-(file 'trunk/stx_goodies_libsvn_CommitTests.st'  source_stx_goodies_libsvn_CommitTests_st)
+	(file 'trunk/stx_goodies_libsvn_CommitTests.st'  source_stx_goodies_libsvn_CommitTests_st)
-(dir  'branches')
+	(dir  'branches')
-(dir  'tags')
+	(dir  'tags')
 )
 "Created: / 08-04-2009 / 21:25:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 19-08-2009 / 13:35:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !CommitTests methodsFor:'tests'!
 test_01_simple
 "
-Tests the simpliest commit
+	Tests the simpliest commit
 "
 Class packageQuerySignal answer: self package do:
-[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
+	[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
 wc commit:'CommitTests>>test_01 commit'.
 self assert:
-(wc branch cat: 'SVN__CommitTestsMockA.st')
+	(wc branch cat: 'SVN__CommitTestsMockA.st')
-= (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]).
+	    = (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]).
 "Created: / 12-06-2009 / 21:46:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 19-08-2009 / 14:57:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 | w repositoryCode imageCode |
 self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil.
 Class packageQuerySignal answer: self package do:
-[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
+	[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
 w := CommitWizard new.
 w task: wc commitTask.
 [ w open ] fork.
 repositoryCode := (wc branch cat: 'SVN__CommitTestsMockA.st').
 imageCode := (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]).
 self assert: (repositoryCode = imageCode).
 "
-DiffTextView openOn: repositoryCode and: imageCode
+	DiffTextView openOn: repositoryCode and: imageCode
 "
 "Created: / 12-06-2009 / 21:46:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 19-08-2009 / 15:10:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 test_02_selective_commit
 "
-Selective class commit test
+	Selective class commit test
 "
 self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil.
 self assert:(Smalltalk at: #'SVN::CommitTestsMockB' ifAbsent:[nil]) notNil.
 Class packageQuerySignal answer: self package do:
-[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
+	[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
 Class packageQuerySignal answer: self package do:
-[SVN::CommitTestsMockB compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
+	[SVN::CommitTestsMockB compile: 'r1 ^''Revision 1''' classified: 'methods - r1'].
 wc commitTask
-classes: (Array with: SVN::CommitTestsMockA);
+	classes: (Array with: SVN::CommitTestsMockA);
-message: 'CommitTests>>test_03 commit';
+	message: 'CommitTests>>test_03 commit';
-do.
+	do.
 self assert:
-(wc branch cat: 'SVN__CommitTestsMockA.st')
+	(wc branch cat: 'SVN__CommitTestsMockA.st')
-= (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]).
+	    = (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]).
 self assert:
-(wc branch cat: 'SVN__CommitTestsMockB.st')
+	(wc branch cat: 'SVN__CommitTestsMockB.st')
-= self source_SVN__CommitTestsMockB_st.
+	    = self source_SVN__CommitTestsMockB_st.
 "Created: / 12-06-2009 / 21:46:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 19-08-2009 / 14:57:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 test_03_class_remove
 "
-Tests class remove
+	Tests class remove
 "
 self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil.
 self assert:(Smalltalk at: #'SVN::CommitTestsMockB' ifAbsent:[nil]) notNil.
 Smalltalk removeClass: SVN::CommitTestsMockB.
 wc commitTask
-message: 'CommitTests>>test_03 commit';
+	message: 'CommitTests>>test_03 commit';
-do.
+	do.
 self assert: (wc branch list size = (2 + 4)"Make.spec, Make.proto, abbrev.stc, libInit.cc")
 "Created: / 12-06-2009 / 21:52:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 19-08-2009 / 15:09:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !

changeset 492	74ff0960961c
parent 386	a189c8f3954d
child 1162	6558c17e1a7f