Skip to content

Commit 51c92e5

Browse files
committed
Test return value of nqp::unshift.
1 parent e08c31d commit 51c92e5

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

t/nqp/59-nqpop.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
# Test nqp::op pseudo-functions.
44

5-
plan(250);
5+
plan(251);
66

77
ok( nqp::add_i(5,2) == 7, 'nqp::add_i');
88
ok( nqp::sub_i(5,2) == 3, 'nqp::sub_i');
@@ -176,7 +176,7 @@ ok( nqp::shift($iter) eq 'b', 'nqp::iterator');
176176
ok( nqp::shift($iter) == 3.0, 'nqp::iterator');
177177
ok( nqp::elems($list) == 3, "iterator doesn't modify list");
178178
ok( nqp::islist($list), "nqp::islist works");
179-
nqp::unshift($list,'zero');
179+
ok( nqp::unshift($list,'zero') eq 'zero', "nqp::unshift");
180180
ok( nqp::elems($list) == 4, 'nqp::unshift adds 1 element');
181181
ok( nqp::atpos($list,0) == 'zero', 'nqp::unshift the correct element');
182182

0 commit comments

Comments
 (0)