Remove unnecessary XS-APItest test boilerplate
[perl.git] / ext / XS-APItest / t / xs_special_subs.t
1 #!perl -w
2
3 BEGIN {
4     no warnings 'once';
5     $XS::APItest::WARNINGS_ON_BOOTSTRAP = 1;
6 }
7
8 use strict;
9 use warnings;
10 use Test::More tests => 100;
11
12 # Doing this longhand cut&paste makes it clear
13 # BEGIN and INIT are FIFO, CHECK and END are LIFO
14 BEGIN {
15     print "# First BEGIN\n";
16     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
17     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
18     is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
19     is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called");
20     is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
21     is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
22     is($XS::APItest::INIT_called, undef, "INIT not yet called");
23     is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
24     is($XS::APItest::END_called, undef, "END not yet called");
25     is($XS::APItest::END_called_PP, undef, "END not yet called");
26 }
27
28 CHECK {
29     print "# First CHECK\n";
30     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
31     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
32     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
33     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
34     is($XS::APItest::CHECK_called, 1, "CHECK called");
35     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
36     is($XS::APItest::INIT_called, undef, "INIT not yet called");
37     is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
38     is($XS::APItest::END_called, undef, "END not yet called");
39     is($XS::APItest::END_called_PP, undef, "END not yet called");
40 }
41
42 INIT {
43     print "# First INIT\n";
44     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
45     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
46     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
47     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
48     is($XS::APItest::CHECK_called, 1, "CHECK called");
49     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
50     is($XS::APItest::INIT_called, undef, "INIT not yet called");
51     is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
52     is($XS::APItest::END_called, undef, "END not yet called");
53     is($XS::APItest::END_called_PP, undef, "END not yet called");
54 }
55
56 END {
57     print "# First END\n";
58     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
59     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
60     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
61     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
62     is($XS::APItest::CHECK_called, 1, "CHECK called");
63     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
64     is($XS::APItest::INIT_called, 1, "INIT called");
65     is($XS::APItest::INIT_called_PP, 1, "INIT called");
66     is($XS::APItest::END_called, 1, "END called");
67     is($XS::APItest::END_called_PP, 1, "END called");
68 }
69
70 print "# First body\n";
71 is($XS::APItest::BEGIN_called, 1, "BEGIN called");
72 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
73 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
74 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
75 is($XS::APItest::CHECK_called, 1, "CHECK called");
76 is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
77 is($XS::APItest::INIT_called, 1, "INIT called");
78 is($XS::APItest::INIT_called_PP, 1, "INIT called");
79 is($XS::APItest::END_called, undef, "END not yet called");
80 is($XS::APItest::END_called_PP, undef, "END not yet called");
81
82 use XS::APItest;
83
84 print "# Second body\n";
85 is($XS::APItest::BEGIN_called, 1, "BEGIN called");
86 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
87 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
88 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
89 is($XS::APItest::CHECK_called, 1, "CHECK called");
90 is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
91 is($XS::APItest::INIT_called, 1, "INIT called");
92 is($XS::APItest::INIT_called_PP, 1, "INIT called");
93 is($XS::APItest::END_called, undef, "END not yet called");
94 is($XS::APItest::END_called_PP, undef, "END not yet called");
95
96 BEGIN {
97     print "# Second BEGIN\n";
98     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
99     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
100     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
101     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
102     is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
103     is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
104     is($XS::APItest::INIT_called, undef, "INIT not yet called");
105     is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
106     is($XS::APItest::END_called, undef, "END not yet called");
107     is($XS::APItest::END_called_PP, undef, "END not yet called");
108 }
109
110 CHECK {
111     print "# Second CHECK\n";
112     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
113     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
114     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK yet called");
115     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK yet called");
116     is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
117     is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
118     is($XS::APItest::INIT_called, undef, "INIT not yet called");
119     is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
120     is($XS::APItest::END_called, undef, "END not yet called");
121     is($XS::APItest::END_called_PP, undef, "END not yet called");
122 }
123
124 INIT {
125     print "# Second INIT\n";
126     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
127     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
128     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
129     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
130     is($XS::APItest::CHECK_called, 1, "CHECK called");
131     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
132     is($XS::APItest::INIT_called, 1, "INIT called");
133     is($XS::APItest::INIT_called_PP, 1, "INIT called");
134     is($XS::APItest::END_called, undef, "END not yet called");
135     is($XS::APItest::END_called_PP, undef, "END not yet called");
136 }
137
138 END {
139     print "# Second END\n";
140     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
141     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
142     is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
143     is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
144     is($XS::APItest::CHECK_called, 1, "CHECK called");
145     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
146     is($XS::APItest::INIT_called, 1, "INIT called");
147     is($XS::APItest::INIT_called_PP, 1, "INIT called");
148     is($XS::APItest::END_called, undef, "END not yet called");
149     is($XS::APItest::END_called_PP, undef, "END not yet called");
150 }