Add test for nqp::ordat.

t/nqp/59-nqpop.t

@@ -2,7 +2,7 @@
 
 # Test nqp::op pseudo-functions.
 
-plan(121);
+plan(122);
 
 
 ok( nqp::add_i(5,2) == 7, 'nqp::add_i');
@@ -26,6 +26,7 @@ ok( nqp::index('rakudo', 'dont') == -1, 'nqp::index not found');
 ok( nqp::chr(120) eq 'x', 'nqp::chr');
 ok( nqp::ord('xyz') eq 120, 'nqp::ord');
 ok( nqp::ord('xyz',2) eq 122, '2 argument nqp::ord');
+ok( nqp::ordat('xyz',2) eq 122, 'nqp::ordat');
 ok( nqp::lc('Hello World') eq 'hello world', 'nqp::downcase');
 ok( nqp::uc("Don't Panic") eq "DON'T PANIC", 'nqp::upcase');
 ok( nqp::flip("foo") eq "oof", "nqp::flip");
@@ -180,3 +181,9 @@ ok(nqp::eqat("foobar","foobarbaz", 0) == 0, "eqat with needle argument longer th
     nqp::splice($b, $source, 1, 2);
     ok(nqp::join(",", $b) eq '1,100,200,300,4', "splice");
 }
+
+{
+    my $list := nqp::list("1","2","3","4","5");
+    nqp::setelems($list, 3);
+    ok(nqp::join(",", $list) eq '1,2,3')
+}