[Pkg] The Trunk: Tests-nice.197.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 4 20:12:32 UTC 2013 

Nicolas Cellier uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-nice.197.mcz

==================== Summary ====================

Name: Tests-nice.197
Author: nice
Time: 4 April 2013, 10:11:51.767 pm
UUID: 903102e1-7a0a-44dd-93a4-5a09a88e608f
Ancestors: Tests-cwp.196

Set the category for a few Environment tests and avoid Obsolete superclass.

=============== Diff against Tests-cwp.196 ===============

Item was changed:
+ ----- Method: AddPrefixNamePolicyTest>>createPolicy (in category 'running') -----
- ----- Method: AddPrefixNamePolicyTest>>createPolicy (in category 'as yet unclassified') -----
  createPolicy
  	^ AddPrefixNamePolicy prefix: 'XX'!

Item was changed:
+ ----- Method: AddPrefixNamePolicyTest>>testAddsPrefix (in category 'tests') -----
- ----- Method: AddPrefixNamePolicyTest>>testAddsPrefix (in category 'as yet unclassified') -----
  testAddsPrefix
  	self assertIncludes: #Griffle as: #XXGriffle.
  	!

Item was changed:
+ ----- Method: AddPrefixNamePolicyTest>>testDoesntDuplicatePrefix (in category 'tests') -----
- ----- Method: AddPrefixNamePolicyTest>>testDoesntDuplicatePrefix (in category 'as yet unclassified') -----
  testDoesntDuplicatePrefix
  	self denyIncludes: #XXGriffle!

Item was changed:
+ ----- Method: BindingPolicyTest>>setUp (in category 'running') -----
- ----- Method: BindingPolicyTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	namespace := IdentityDictionary new.
  	value := Object new!

Item was changed:
+ ClassTestCase subclass: #EventManagerTest
- AnObsoleteClassTestCase subclass: #EventManagerTest
  	instanceVariableNames: 'eventSource eventListener succeeded'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-Object Events'!

Item was changed:
+ ----- Method: ExportTest>>policyClass (in category 'running') -----
- ----- Method: ExportTest>>policyClass (in category 'as yet unclassified') -----
  policyClass
  	^ Export!

Item was changed:
+ ----- Method: ExportTest>>testExportAll (in category 'tests') -----
- ----- Method: ExportTest>>testExportAll (in category 'as yet unclassified') -----
  testExportAll
  	policy := Export namespace: namespace.
  	policy bind: #Griffle to: value.
  	self assert: (namespace at: #Griffle) == value!

Item was changed:
+ ----- Method: ExportTest>>testExported (in category 'tests') -----
- ----- Method: ExportTest>>testExported (in category 'as yet unclassified') -----
  testExported
  	policy := Export namespace: namespace policy: (ExplicitNamePolicy spec: #(Griffle)).
  	policy bind: #Griffle to: value.
  	self assert: (namespace at: #Griffle) == value!

Item was changed:
+ ----- Method: ExportTest>>testNotExported (in category 'tests') -----
- ----- Method: ExportTest>>testNotExported (in category 'as yet unclassified') -----
  testNotExported
  	policy := Export namespace: namespace policy: (ExplicitNamePolicy spec: #Nurp).
  	policy bind: #Griffle to: value.
  	self assert: namespace isEmpty!

Item was changed:
+ ----- Method: ExportTest>>testStackedExports (in category 'tests') -----
- ----- Method: ExportTest>>testStackedExports (in category 'as yet unclassified') -----
  testStackedExports
  	| griffle plonk |
  	griffle := Export 
  		namespace: namespace
  		policy: (ExplicitNamePolicy spec: #Griffle).
  	plonk := Export
  		namespace: namespace
  		policy: (ExplicitNamePolicy spec: #Plonk)
  		next: griffle.
  	plonk bind: #Griffle to: value.
  	self assert: (namespace at: #Griffle) == value!

Item was changed:
+ ClassTestCase subclass: #FileDirectoryTest
- AnObsoleteClassTestCase subclass: #FileDirectoryTest
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-Files'!

Item was changed:
+ ClassTestCase subclass: #FileStreamTest
- AnObsoleteClassTestCase subclass: #FileStreamTest
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-Files'!

Item was changed:
+ ----- Method: GlobalTest>>setUp (in category 'running') -----
- ----- Method: GlobalTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	key := Object new.
  	value := Object new.
  	!

Item was changed:
+ ----- Method: GlobalTest>>testAsBindingRead (in category 'tests') -----
- ----- Method: GlobalTest>>testAsBindingRead (in category 'as yet unclassified') -----
  testAsBindingRead
  	| global imported |
  	global := Global key: key value: value.
  	imported := global asBinding: #Griffle.
  	self assert: imported key = #Griffle.
  	self assert: imported value == value.
  	!

Item was changed:
+ ----- Method: GlobalTest>>testAsBindingWrite (in category 'tests') -----
- ----- Method: GlobalTest>>testAsBindingWrite (in category 'as yet unclassified') -----
  testAsBindingWrite
  	| global imported |
  	global := Global key: key value: Object new.
  	imported := global asBinding: #Griffle.
  	imported value: value.
  	self assert: imported value == value.
  !

Item was changed:
+ ----- Method: GlobalTest>>testCanAssign (in category 'tests') -----
- ----- Method: GlobalTest>>testCanAssign (in category 'as yet unclassified') -----
  testCanAssign
  	| global |
  	global := Global key: key value: value.
  	self assert: global canAssign!

Item was changed:
+ ----- Method: GlobalTest>>testIsSpecialRead (in category 'tests') -----
- ----- Method: GlobalTest>>testIsSpecialRead (in category 'as yet unclassified') -----
  testIsSpecialRead
  	| global |
  	global := Global key: key value: value.
  	self deny: global isSpecialReadBinding!

Item was changed:
+ ----- Method: GlobalTest>>testIsSpecialWrite (in category 'tests') -----
- ----- Method: GlobalTest>>testIsSpecialWrite (in category 'as yet unclassified') -----
  testIsSpecialWrite
  	| global |
  	global := Global key: key value: value.
  	self deny: global isSpecialWriteBinding!

Item was changed:
+ ----- Method: GlobalTest>>testRead (in category 'tests') -----
- ----- Method: GlobalTest>>testRead (in category 'as yet unclassified') -----
  testRead
  	| global |
  	global := Global key: key value: value.
  	self assert: global key == key.
  	self assert: global value == value.!

Item was changed:
+ ----- Method: GlobalTest>>testWrite (in category 'tests') -----
- ----- Method: GlobalTest>>testWrite (in category 'as yet unclassified') -----
  testWrite
  	| global |
  	global := Global key: key value: Object new.
  	global value: value.
  	self assert: global value == value!

Item was changed:
+ ----- Method: ImportTest>>policyClass (in category 'running') -----
- ----- Method: ImportTest>>policyClass (in category 'as yet unclassified') -----
  policyClass
  	^ Import!

Item was changed:
+ ----- Method: ImportTest>>testImportAll (in category 'tests') -----
- ----- Method: ImportTest>>testImportAll (in category 'as yet unclassified') -----
  testImportAll
  	| binding |
  	policy := Import namespace: namespace.
  	namespace at: #Griffle put: value.
  	binding := policy bindingOf: #Griffle.
  	self assert: binding value == value!

Item was changed:
+ ----- Method: ImportTest>>testImported (in category 'tests') -----
- ----- Method: ImportTest>>testImported (in category 'as yet unclassified') -----
  testImported
  	| binding |
  	policy := Import namespace: namespace policy: (ExplicitNamePolicy spec: #Griffle).
  	namespace at: #Griffle put: value.
  	binding := policy bindingOf: #Griffle.
  	self assert: binding value == value.!

Item was changed:
+ ----- Method: ImportTest>>testNotImported (in category 'tests') -----
- ----- Method: ImportTest>>testNotImported (in category 'as yet unclassified') -----
  testNotImported
  	| binding |
  	policy := Import namespace: namespace policy: (ExplicitNamePolicy spec: #Nurp).
  	namespace at: #Griffle put: value.
  	binding := policy bindingOf: #Griffle.
  	self assert: binding value isNil!

Item was changed:
+ ----- Method: ImportTest>>testStackedImports (in category 'tests') -----
- ----- Method: ImportTest>>testStackedImports (in category 'as yet unclassified') -----
  testStackedImports
  	| griffle plonk binding |
  	griffle := Import 
  		namespace: namespace 
  		policy: (ExplicitNamePolicy spec: #Griffle).
  	plonk := Import
  		namespace: namespace
  		policy: (ExplicitNamePolicy spec: #Plonk)
  		next: griffle.
  	namespace at: #Griffle put: value.
  	binding := plonk bindingOf: #Griffle.
  	self assert: binding value == value.!

Item was changed:
+ ClassTestCase subclass: #PrimCallControllerAbstractTest
- AnObsoleteClassTestCase subclass: #PrimCallControllerAbstractTest
  	instanceVariableNames: 'pcc doNotMakeSlowTestsFlag'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-PrimCallController'!
  
  !PrimCallControllerAbstractTest commentStamp: 'sr 6/15/2004 19:20' prior: 0!
  PrimCallController tests.
  
  Tests are here, but this class isAbstract and won't be tested.
  Tests are done in the subclasses, which inherit the tests here.
  
  If you want to perform some more very slow tests, change doNotMakeSlowTestsFlag in >>setUp.!

Item was changed:
+ ----- Method: RemovePrefixNamePolicyTest>>createPolicy (in category 'running') -----
- ----- Method: RemovePrefixNamePolicyTest>>createPolicy (in category 'as yet unclassified') -----
  createPolicy
  	^ RemovePrefixNamePolicy prefix: 'XX'!

Item was changed:
+ ----- Method: RemovePrefixNamePolicyTest>>testOnlyRemovesPrefix (in category 'tests') -----
- ----- Method: RemovePrefixNamePolicyTest>>testOnlyRemovesPrefix (in category 'as yet unclassified') -----
  testOnlyRemovesPrefix
  	self denyIncludes: #XAGriffle!

Item was changed:
+ ----- Method: RemovePrefixNamePolicyTest>>testRemovesPrefix (in category 'tests') -----
- ----- Method: RemovePrefixNamePolicyTest>>testRemovesPrefix (in category 'as yet unclassified') -----
  testRemovesPrefix
  	self assertIncludes: #XXGriffle as: #Griffle!

Item was changed:
+ ClassTestCase subclass: #SecureHashAlgorithmTest
- AnObsoleteClassTestCase subclass: #SecureHashAlgorithmTest
  	instanceVariableNames: 'hash'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tests-Digital Signatures'!
  
  !SecureHashAlgorithmTest commentStamp: '<historical>' prior: 0!
  This is the unit test for the class SecureHashAlgorithm. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see: 
  	- http://www.c2.com/cgi/wiki?UnitTest
  	- http://minnow.cc.gatech.edu/squeak/1547
  	- the sunit class category!

More information about the Packages mailing list