Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[t] We now pass 15-list.t and 37-slurpy.t.
  • Loading branch information
jnthn committed Nov 13, 2010
1 parent ec09403 commit f186018
Show file tree
Hide file tree
Showing 2 changed files with 32 additions and 0 deletions.
12 changes: 12 additions & 0 deletions t/nqp/15-list.t
@@ -0,0 +1,12 @@
#!./parrot nqp.pbc

# lists and for

plan(3);

my $list := (1,2,3);
my $indexer := 0;

for $list {
print("ok "); print($_); say(" checking loop via indices");
}
20 changes: 20 additions & 0 deletions t/nqp/37-slurpy.t
@@ -0,0 +1,20 @@
#!./parrot nqp.pbc

# slurpy args

plan(5);

sub slurpy_pos(*@pos) {
for @pos {
say("ok " ~ $_);
}
}

slurpy_pos(1, 2, 3);

sub slurpy_named(*%named) {
say(%named<pivo>);
say(%named<slanina>);
}

slurpy_named(:pivo("ok 4"), :slanina("ok 5"));

0 comments on commit f186018

Please sign in to comment.