smalltalk - smalltalk中的测试用例

Question

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

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

测试用例代码是：

       testvaluesbetween 
       |test1|
       test1:=#(1 2 3 4 5 6).
       self assert: test1 valuesBetween:2 and:4=#(2 3 4).

任何人都可以帮助我，因为这个测试不起作用。谢谢。

Answer 1

调试器说什么？就像是：

MessageNotUnderstood: YourTestCase>>assert:valuesBetween:and:

试试这样的括号：

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