53 lines
830 B
Smalltalk
53 lines
830 B
Smalltalk
|
GRCollectionTest subclass: GRIntervalTest [
|
||
|
|
||
|
<comment: nil>
|
||
|
<category: 'Grease-Tests-Core'>
|
||
|
|
||
|
allowsDuplicateValues [
|
||
|
<category: 'configuration'>
|
||
|
^false
|
||
|
]
|
||
|
|
||
|
arbitraryCollection [
|
||
|
<category: 'configuration'>
|
||
|
^1 to: 4
|
||
|
]
|
||
|
|
||
|
collectionClass [
|
||
|
<category: 'configuration'>
|
||
|
^Interval
|
||
|
]
|
||
|
|
||
|
emptyCollection [
|
||
|
<category: 'configuration'>
|
||
|
^1 to: 0
|
||
|
]
|
||
|
|
||
|
isValidNewSequencedResponseClass: aClass [
|
||
|
<category: 'configuration'>
|
||
|
^aClass == SequenceableCollection
|
||
|
or: [aClass allSuperclasses includes: SequenceableCollection]
|
||
|
]
|
||
|
|
||
|
isExtensible [
|
||
|
<category: 'testing-ansi'>
|
||
|
^false
|
||
|
]
|
||
|
|
||
|
isInitializable [
|
||
|
<category: 'testing-ansi'>
|
||
|
^false
|
||
|
]
|
||
|
|
||
|
isSequenced [
|
||
|
<category: 'testing-ansi'>
|
||
|
^false
|
||
|
]
|
||
|
|
||
|
isSequencedReadable [
|
||
|
<category: 'testing-ansi'>
|
||
|
^true
|
||
|
]
|
||
|
]
|
||
|
|