[Pkg] The Trunk: Tests-ul.125.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.125.mcz

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

Name: Tests-ul.125
Author: ul
Time: 26 April 2011, 5:30:22.768 am
UUID: 13f774fc-876e-2d44-b440-893682808fa5
Ancestors: Tests-nice.124

Ensure that snapshots created by Monticello's tests are removed from the package cache.

=============== Diff against Tests-nice.124 ===============

Item was changed:
  ----- Method: MCChangeNotificationTest>>tearDown (in category 'running') -----
  tearDown
+ 
+ 	super tearDown.
  	workingCopy unregister!

Item was changed:
  ----- Method: MCClassDefinitionTest>>tearDown (in category 'as yet unclassified') -----
  tearDown
+ 
+ 	super tearDown.
  	Smalltalk at: 'MCMockClassC' ifPresent: [:c | c removeFromSystem]!

Item was changed:
  ----- Method: MCDirectoryRepositoryTest>>tearDown (in category 'as yet unclassified') -----
  tearDown
+ 
+ 	super tearDown.
  	self directory recursiveDelete!

Item was changed:
  ----- Method: MCFileInTest>>tearDown (in category 'running') -----
  tearDown
+ 
+ 	super tearDown.
  	(diff isNil or: [diff isEmpty not])
  		 ifTrue: [expected updatePackage: self mockPackage]!

Item was changed:
  ----- Method: MCInitializationTest>>tearDown (in category 'as yet unclassified') -----
  tearDown
+ 
+ 	super tearDown.
  	(MCWorkingCopy forPackage: self mockPackage) unregister!

Item was changed:
  ----- Method: MCMczInstallerTest>>tearDown (in category 'as yet unclassified') -----
  tearDown
+ 
+ 	super tearDown.
  	expected snapshot updatePackage: self mockPackage.
  	self deleteFile.!

Item was changed:
  ----- Method: MCMethodDefinitionTest>>tearDown (in category 'running') -----
  tearDown
+ 
+ 	super tearDown.
  	self restoreMocks.
  	(MCWorkingCopy forPackage: (MCPackage named: 'FooBarBaz')) unregister.
  	self class compile: 'override ^ 1' classified: 'mocks'.
  	self ownPackage modified: isModified.
  !

Item was changed:
  ----- Method: MCPackageTest>>tearDown (in category 'running') -----
  tearDown
+ 
+ 	super tearDown.
  	self mockSnapshot install!

Item was changed:
  ----- Method: MCPatchTest>>tearDown (in category 'as yet unclassified') -----
  tearDown
+ 
+ 	super tearDown.
  	self restoreMocks!

Item was added:
+ ----- Method: MCTestCase>>clearPackageCache (in category 'running') -----
+ clearPackageCache
+ 	"Remove all mock packages created during the tests from the package cache."
+ 
+ 	| directory |
+ 	directory := MCCacheRepository default directory.
+ 	(directory fileNamesMatching: self mockVersionName, '*') do: [ :each |
+ 		directory deleteFileNamed: each ]!

Item was added:
+ ----- Method: MCTestCase>>tearDown (in category 'running') -----
+ tearDown
+ 
+ 	self clearPackageCache!

Item was changed:
  ----- Method: MCWorkingCopyTest>>clearPackageCache (in category 'running') -----
  clearPackageCache
+ 	"Remove all mock packages created during the tests from the package cache."
+ 
+ 	| directory |
+ 	super clearPackageCache.
+ 	directory := MCCacheRepository default directory.
+ 	(directory fileNamesMatching: self packageName, '*') do: [ :each |
+ 		directory deleteFileNamed: each ]!
- 	| dir |
- 	dir := MCCacheRepository default directory.
- 	(dir fileNamesMatching: 'MonticelloMocks*') do: [:ea | dir deleteFileNamed: ea].
- 	(dir fileNamesMatching: 'MonticelloTest*') do: [:ea | dir deleteFileNamed: ea].
- 	(dir fileNamesMatching: 'rev*') do: [:ea | dir deleteFileNamed: ea].
- 	(dir fileNamesMatching: 'foo-*') do: [:ea | dir deleteFileNamed: ea].
- 	(dir fileNamesMatching: 'foo2-*') do: [:ea | dir deleteFileNamed: ea].!

Item was changed:
  ----- Method: MCWorkingCopyTest>>tearDown (in category 'running') -----
  tearDown
+ 
+ 	super tearDown.
  	workingCopy unregister.
  	self restoreMocks.
- 	self clearPackageCache.
  	Utilities setAuthorInitials: savedInitials.!