forked from Raku/roast
-
Notifications
You must be signed in to change notification settings - Fork 0
/
descending-order.t
55 lines (40 loc) · 1.05 KB
/
descending-order.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
use v6;
# Test the running order of phasers
# These blocks appear in descending order
# [TODO] add tests for ENTER/LEAVE/KEEP/UNDO/PRE/POST/etc
use Test;
plan 7;
# L<S04/Phasers/END "at run time" ALAP>
my $var;
my ($var_at_enter, $var_at_init, $var_at_check, $var_at_begin);
my $eof_var;
$var = 13;
my $hist;
END {
# tests for END blocks:
is $var, 13, '$var gets initialized at END time';
is $eof_var, 29, '$eof_var gets assigned at END time';
}
ENTER {
$hist ~= 'enter ';
$var_at_enter = $var;
}
INIT {
$hist ~= 'init ';
$var_at_init = $var;
}
CHECK {
$hist ~= 'check ';
$var_at_check = $var;
}
BEGIN {
$hist ~= 'begin ';
$var_at_begin = $var;
}
is $hist, 'begin check init enter ', 'BEGIN {} runs only once';
nok $var_at_begin.defined, 'BEGIN {...} ran at compile time';
nok $var_at_check.defined, 'CHECK {...} ran at compile time';
nok $var_at_init.defined, 'INIT {...} ran at runtime, but ASAP';
nok $var_at_enter.defined, 'ENTER {...} at runtime, but before the mainline body';
$eof_var = 29;
# vim: ft=perl6