tests.st

Tinytalk include: "stdlib/Tests.tt"

/*
OrderedCollection
The default implementation works with integer keys.
*/

OrderedCollection add-method: { first
	"Returns the first element of the collection."
	
	^ self at: 0
}

OrderedCollection add-method: { last
	"Returns the last element of the collection."
	
	^ self at: self size - 1
}

Tests for: OrderedCollection add: [ :test |
	"Test `first` and `last` for String and Array"
	
	| oc |
	
	oc = "low"
	test assert-equal: [ oc first ] to: [ #l to-char ]
	test assert-equal: [ oc last ] to: [ #w to-char ]
	oc = #( 1 2 3 )
	test assert-equal: [ oc first ] to: [ 1 ]
	test assert-equal: [ oc last ] to: [ 3 ]
]