TestCase subclass: #TestArrayBuffer category: 'sunit-library'! ! TestArrayBuffer methodsFor: 'test'! test1 | buffer | buffer := ArrayBuffer new: 8. self assert: buffer size = 8! ! ! TestArrayBuffer methodsFor: 'test'! test2 | buffer copy | buffer := ArrayBuffer new: 8. copy := buffer slice: 3 end: 5. self assert: copy size = 2! !