Add tests for nqp::existspos

Author: Tadeusz Sośnierz

t/nqp/59-nqpop.t

@@ -2,7 +2,7 @@
 
 # Test nqp::op pseudo-functions.
 
-plan(94);
+plan(101);
 
 
 ok( nqp::add_i(5,2) == 7, 'nqp::add_i');
@@ -129,3 +129,14 @@ my %hash;
 %hash<foo> := 1;
 ok( nqp::existskey(%hash,"foo"),"existskey with existing key");
 ok( !nqp::existskey(%hash,"bar"),"existskey with missing key");
+
+my @arr;
+@arr[1] := 3;
+ok(!nqp::existspos(@arr, 0), 'existspos with missing pos');
+ok(nqp::existspos(@arr, 1), 'existspos with existing pos');
+ok(!nqp::existspos(@arr, 2), 'existspos with missing pos');
+ok(nqp::existspos(@arr, -1), 'existspos with existing pos');
+ok(!nqp::existspos(@arr, -2), 'existspos with missing pos');
+ok(!nqp::existspos(@arr, -100), 'existspos with absurd values');
+@arr[1] := NQPMu;
+ok(nqp::existspos(@arr, 1), 'existspos with still existing pos');