From ccf175b4ea2c33c461fc27ecdb5ee2b653abfe74 Mon Sep 17 00:00:00 2001 From: Jonathan Wright Date: Sun, 3 Jun 2007 03:18:09 +1200 Subject: [PATCH] Fixing up failing atInsertSeq unit test --- libs/iovm/tests/SequenceTest.io | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libs/iovm/tests/SequenceTest.io b/libs/iovm/tests/SequenceTest.io index a62e585..a368f79 100644 --- a/libs/iovm/tests/SequenceTest.io +++ b/libs/iovm/tests/SequenceTest.io @@ -176,7 +176,8 @@ SequenceTest := UnitTest clone do( assertRaisesException("abc" asMutable atInsertSeq) assertRaisesException("abc" asMutable atInsertSeq(nil)) assertRaisesException("abc" asMutable atInsertSeq(nil, "def")) - assertRaisesException("abc" asMutable atInsertSeq(1, nil)) + assertEquals("a123bc", "abc" asMutable atInsertSeq(1, 123)) + assertEquals("anilbc", "abc" asMutable atInsertSeq(1, nil)) string := "abc" assertNotSame(string, string asMutable atInsertSeq(1, "def")) assertEquals("abcdef", "abc" asMutable atInsertSeq(3, "def")) -- 2.11.4.GIT