(HDTestReport runSuite: PharoDocCommentTest suite) runAll

next: amount putAll: aByteArray startingAt: startingIndex

	forWrite
		ifFalse: [ ^ self error: 'Cannot write a read-only file' ].
	[ File
		write: handle
		from: aByteArray
		startingAt: startingIndex
		count: amount ]
		on: PrimitiveFailed
		do: [ (FileWriteError fileName: self name)
				signal:
					(self closed
						ifTrue: [ 'File ' , self name , ' is closed' ]
						ifFalse: [ 'File ' , self name , ' write failed' ]) ].
	^ aByteArray