Changeset 21176

Timestamp:

07/03/08 14:09:33 (5 months ago)

Author:

moritz

Message:

[spec] enhanced index.t a bit

Files:

• t/spec/S29-str/index.t (modified) (3 diffs)

t/spec/S29-str/index.t

@@ -4 +4 @@
 # L<S29/Str/"=item index">
 
-plan 33;
+plan 34;
 
 # Type of return value
+#?rakudo todo 'successful index() should return a StrPos'
 isa_ok('abc'.index('b'), StrPos);
 isa_ok('abc'.index('d'), StrPos);
+ok(!'abc'.index('d'), 'failure object from index() evaluates to false');
 
 # Simple - with just a single char
@@ -35 +37 @@
 is(index("Hello World", ""), 0, "Substr is empty");
 is(index("", ""), 0, "Both strings are empty");
-ok(!index("", "Hello") "Only main-string is empty");
+ok(!defined(index("", "Hello")), "Only main-string is empty");
 is(index("Hello", "", 3), 3, "Substr is empty, pos within str");
 is(index("Hello", "", 5), 5, "Substr is empty, pos at end of str");
@@ -71 +73 @@
 ok($j.index("l")  == 3, ".index on junction");
 
-