File: 03-invokewithcapture.t

package info (click to toggle)
nqp 2022.12%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 9,436 kB
  • sloc: java: 28,030; perl: 3,394; ansic: 451; makefile: 200; javascript: 68; sh: 1
file content (14 lines) | stat: -rw-r--r-- 348 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
plan(2);

sub savecapture($arg, *%named) {
    my $capture := nqp::savecapture();
    $capture;
}

sub invokee($arg, :$named_arg_1) {
  ok($arg == 100,"nqp::invokewithcapture");
  ok($named_arg_1 == 200, "nqp::invokewithcapture takes a named argument");
}

my $saved := savecapture(100, :named_arg_1(200));
nqp::invokewithcapture(&invokee,$saved);