SystemOrganization addCategory: #'FS-Tests-Memory'!

FSFilesystemTest subclass: #FSMemoryFilesystemTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'FS-Tests-Memory'!

!FSMemoryFilesystemTest methodsFor: 'initialize-release' stamp: 'cwp 2/19/2011 01:26'!
createFilesystem
	^ FSFilesystem inMemory! !

!FSMemoryFilesystemTest methodsFor: 'tests' stamp: 'cwp 7/24/2009 00:41'!
testEqual
	| other |
	other := self createFilesystem.
	self deny: filesystem = other! !

FSHandleTest subclass: #FSMemoryHandleTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'FS-Tests-Memory'!

!FSMemoryHandleTest methodsFor: 'running' stamp: 'cwp 2/19/2011 01:26'!
createFilesystem
	^ FSFilesystem inMemory! !