smalltalk中的测试用例

我在smalltalk visualworks中为集合类中的函数编写了一个测试用例。 功能代码如下：

valuesBetween: a and: b
| array1 arraysize |
arraysize := self size.
"array1:=nil."
array1 := ((1 to: arraysize) select: [:k | k >= a & (k <= b)])
            collect: [:k | self at: k].
^array1

有人能帮我吗，因为这个测试不起作用。

---

谢谢。

调试器怎么说？比如：

MessageNotUnderstanding:YourTestCase>>断言：值介于：和之间：

尝试使用以下括号：

self assert: ((test1 valuesBetween: 2 and: 4) = #(2 3 4))

---

而是说

自我断言：#（2 3 4）等于：（test1值介于：2和：4之间）

，因为错误消息要好得多。

self assert: ((test1 valuesBetween: 2 and: 4) = #(2 3 4))