Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 24 lines (13 sloc) 0.281 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#! nqp

# Test INIT blocks

INIT plan(4);

our $foo;

ok($foo == 2, 'after second INIT block');

INIT {
    our $foo;
    ok($foo == 0, 'first INIT');
    $foo := 1;
}

$foo := 3;

INIT ok($foo++, 'after first INIT but before mainline');

ok($foo == 3, 'After everything else');


Something went wrong with that request. Please try again.