Skip to content

Commit 84f18c8

Browse files
committed
Remove tests for now defunct START phaser
1 parent 2213769 commit 84f18c8

File tree

2 files changed

+7
-16
lines changed

2 files changed

+7
-16
lines changed

S04-phasers/ascending-order.t

Lines changed: 5 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,17 +1,17 @@
11
use v6;
22

3-
# Test the running order of BEGIN/CHECK/INIT/END
3+
# Test the running order of BEGIN/CHECK/INIT/ENTER/END
44
# These blocks appear in ascending order
5-
# [TODO] add tests for ENTER/LEAVE/KEEP/UNDO/PRE/POST/etc
5+
# [TODO] add tests for LEAVE/KEEP/UNDO/PRE/POST/etc
66

77
use Test;
88

9-
plan 8;
9+
plan 7;
1010

1111
# L<S04/Phasers/END "at run time" ALAP>
1212

1313
my $var;
14-
my ($var_at_begin, $var_at_check, $var_at_init, $var_at_start, $var_at_enter);
14+
my ($var_at_begin, $var_at_check, $var_at_init, $var_at_enter, $var_at_leave);
1515
my $eof_var;
1616

1717
$var = 13;
@@ -39,24 +39,18 @@ ENTER {
3939
$var_at_enter = $var;
4040
}
4141

42-
START {
43-
$hist ~= 'start ';
44-
$var_at_start = $var + 1;
45-
}
46-
4742
END {
4843
# tests for END blocks:
4944
is $var, 13, '$var gets initialized at END time';
5045
is $eof_var, 29, '$eof_var gets assigned at END time';
5146
}
5247

5348
#?pugs todo
54-
is $hist, 'begin check init enter start ', 'BEGIN {} runs only once';
49+
is $hist, 'begin check init enter ', 'BEGIN {} runs only once';
5550
nok $var_at_begin.defined, 'BEGIN {...} ran at compile time';
5651
nok $var_at_check.defined, 'CHECK {...} ran at compile time';
5752
nok $var_at_init.defined, 'INIT {...} ran at runtime, but ASAP';
5853
nok $var_at_enter.defined, 'ENTER {...} at runtime, but before the mainline body';
59-
is $var_at_start, 14, 'START {...} at runtime, just in time';
6054

6155
$eof_var = 29;
6256

S04-phasers/multiple.t

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -18,14 +18,11 @@ plan 2;
1818

1919
my $hist;
2020

21-
END { is $hist, 'B b c C I i S s end End ', 'running order of multiple phasers' }
21+
END { is $hist, 'B b c C I i end End ', 'running order of multiple phasers' }
2222

2323
END { $hist ~= 'End ' }
2424
END { $hist ~= 'end ' }
2525

26-
START { $hist ~= 'S ' }
27-
START { $hist ~= 's ' }
28-
2926
INIT { $hist ~= 'I ' }
3027
INIT { $hist ~= 'i ' }
3128

@@ -35,6 +32,6 @@ CHECK { $hist ~= 'c ' }
3532
BEGIN { $hist ~= 'B ' }
3633
BEGIN { $hist ~= 'b ' }
3734

38-
is $hist, 'B b c C I i S s ', 'running order of multiple phasers';
35+
is $hist, 'B b c C I i ', 'running order of multiple phasers';
3936

4037
# vim: ft=perl6

0 commit comments

Comments
 (0)