7 # You have to do it this way or VMS will get confused.
8 printf "%s %d%s\n", $ok ? "ok" : "not ok",
10 defined $name ? " - $name" : '';
12 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
20 ok(defined [(1)x127,qr//,1]->[127], "qr// should extend the stack properly");