Remove tests for Index

Author: lizmat

S02-types/WHICH.t

@@ -42,7 +42,6 @@ my @normal = <
   Hash
   HashIter
   HyperWhatever
-  Index
   IO::ArgFiles
   IO::Handle
   IO::Path

S32-list/first-index.t

@@ -9,28 +9,28 @@ my @list = (1 ... 10);
 
 {
     my $result = first-index { $^a % 2 }, |@list;
-    ok($result ~~ Index, "first-index() returns an Index");
+    ok($result ~~ Int, "first-index() returns an Int");
     is($result, 0, "returned value by first-index() is correct");
 }
 
 {
     my $result = first-index { $^a % 2 }, 1, 2, 3, 4, 5, 6, 7, 8;
-    ok($result ~~ Index, "first-index() returns an Index");
+    ok($result ~~ Int, "first-index() returns an Int");
     is($result, 0, "returned value by first-index() is correct");
 }
 
 
 {
     my $result = @list.first-index( { $^a == 4} );
-    ok($result ~~ Index, "method form of first-index returns an Index");
+    ok($result ~~ Int, "method form of first-index returns an Int");
     is($result, 3, "method form of first-index returns the expected item");
 }
 
 #?rakudo skip "adverbial block RT #124758"
 #?niecza skip 'No value for parameter Mu $filter in CORE Any.first'
 {
     my $result = @list.first-index():{ $^a == 4 };
-    ok($result ~~ Index, "first-index():<block> returns an Index");
+    ok($result ~~ Int, "first-index():<block> returns an Int");
     is($result, 3, "first-index() returned the expected value");
 }
 

S32-list/grep-index.t

@@ -7,7 +7,7 @@ plan 40;
 
 my @list = (1 .. 10);
 
-is grep-index( { ($_ % 2) }, @list ).grep(Index), (0,2,4,6,8).list.item, 'do we get Indexes';
+is grep-index( { ($_ % 2) }, @list ).grep(Int), (0,2,4,6,8).list.item, 'do we get Ints';
 is grep-index( { ($_ % 2) }, @list ), (0,2,4,6,8).list.item,
   'simple direct test of sub';
 is @list.grep-index( { ($_ % 2) } ), (0,2,4,6,8).list.item,

S32-list/last-index.t

@@ -9,28 +9,28 @@ my @list = (1 ... 10);
 
 {
     my $result = last-index { $^a % 2 }, |@list;
-    ok($result ~~ Index, "last-index() returns an Index");
+    ok($result ~~ Int, "last-index() returns an Int");
     is($result, 8, "returned value by last-index() is correct");
 }
 
 {
     my $result = last-index { $^a % 2 }, 1, 2, 3, 4, 5, 6, 7, 8;
-    ok($result ~~ Index, "last-index() returns an Index");
+    ok($result ~~ Int, "last-index() returns an Int");
     is($result, 6, "returned value by last-index() is correct");
 }
 
 
 {
     my $result = @list.last-index( { $^a == 4} );
-    ok($result ~~ Index, "method form of last-index returns an Index");
+    ok($result ~~ Int, "method form of last-index returns an Int");
     is($result, 3, "method form of last-index returns the expected item");
 }
 
 #?rakudo skip "adverbial block RT #124754"
 #?niecza skip 'No value for parameter Mu $filter in CORE Any.first'
 {
     my $result = @list.last-index():{ $^a == 4 };
-    ok($result ~~ Index, "last-index():<block> returns an Index");
+    ok($result ~~ Int, "last-index():<block> returns an Int");
     is($result, 3, "last-index() returned the expected value");
 }
 

S32-str/index.t

@@ -6,7 +6,7 @@ use Test;
 plan 36;
 
 # Type of return value
-isa-ok('abc'.index('b'), Index);
+isa-ok('abc'.index('b'), Int);
 isa-ok('abc'.index('d'), Nil);
 
 # Simple - with just a single char

S32-str/indices.t

@@ -6,10 +6,10 @@ use Test;
 plan 24;
 
 # Type of return value
-isa-ok 'abc'.indices('b')[0], Index;
+isa-ok 'abc'.indices('b')[0], Int;
 isa-ok 'abc'.indices('d'), Parcel;
 is 'abc'.indices('d').elems, 0, "method did not find anything";
-isa-ok indices('abc','b')[0], Index;
+isa-ok indices('abc','b')[0], Int;
 isa-ok indices('abc','d'), Parcel;
 is indices('abc','d').elems, 0, "sub did not find anything";
 

S32-str/rindex.t

@@ -6,7 +6,7 @@ use Test;
 plan 35;
 
 # Type of return value
-isa-ok('abc'.rindex('b'), Index);
+isa-ok('abc'.rindex('b'), Int);
 isa-ok('abc'.rindex('d'), Nil);
 
 # Simple - with just a single char