xs_special_subs.t revision 1.1.1.2
1#!perl -w 2 3BEGIN { 4 push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS'; 5 require Config; import Config; 6 if ($Config{'extensions'} !~ /\bXS\/APItest\b/) { 7 print "1..0 # Skip: XS::APItest was not built\n"; 8 exit 0; 9 } 10 # Hush the used only once warning. 11 $XS::APItest::WARNINGS_ON_BOOTSTRAP = $MacPerl::Architecture; 12 $XS::APItest::WARNINGS_ON_BOOTSTRAP = 1; 13} 14 15use strict; 16use warnings; 17my $uc; 18BEGIN { 19 $uc = $] > 5.009; 20} 21use Test::More tests => $uc ? 100 : 80; 22 23# Doing this longhand cut&paste makes it clear 24# BEGIN and INIT are FIFO, CHECK and END are LIFO 25BEGIN { 26 print "# First BEGIN\n"; 27 is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called"); 28 is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called"); 29 is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called") 30 if $uc; 31 is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called") 32 if $uc; 33 is($XS::APItest::CHECK_called, undef, "CHECK not yet called"); 34 is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called"); 35 is($XS::APItest::INIT_called, undef, "INIT not yet called"); 36 is($XS::APItest::INIT_called_PP, undef, "INIT not yet called"); 37 is($XS::APItest::END_called, undef, "END not yet called"); 38 is($XS::APItest::END_called_PP, undef, "END not yet called"); 39} 40 41CHECK { 42 print "# First CHECK\n"; 43 is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 44 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 45 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 46 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 47 is($XS::APItest::CHECK_called, 1, "CHECK called"); 48 is($XS::APItest::CHECK_called_PP, 1, "CHECK called"); 49 is($XS::APItest::INIT_called, undef, "INIT not yet called"); 50 is($XS::APItest::INIT_called_PP, undef, "INIT not yet called"); 51 is($XS::APItest::END_called, undef, "END not yet called"); 52 is($XS::APItest::END_called_PP, undef, "END not yet called"); 53} 54 55INIT { 56 print "# First INIT\n"; 57 is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 58 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 59 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 60 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 61 is($XS::APItest::CHECK_called, 1, "CHECK called"); 62 is($XS::APItest::CHECK_called_PP, 1, "CHECK called"); 63 is($XS::APItest::INIT_called, undef, "INIT not yet called"); 64 is($XS::APItest::INIT_called_PP, undef, "INIT not yet called"); 65 is($XS::APItest::END_called, undef, "END not yet called"); 66 is($XS::APItest::END_called_PP, undef, "END not yet called"); 67} 68 69END { 70 print "# First END\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") if $uc; 74 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 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, 1, "END called"); 80 is($XS::APItest::END_called_PP, 1, "END called"); 81} 82 83print "# First body\n"; 84is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 85is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 86is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 87is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 88is($XS::APItest::CHECK_called, 1, "CHECK called"); 89is($XS::APItest::CHECK_called_PP, 1, "CHECK called"); 90is($XS::APItest::INIT_called, 1, "INIT called"); 91is($XS::APItest::INIT_called_PP, 1, "INIT called"); 92is($XS::APItest::END_called, undef, "END not yet called"); 93is($XS::APItest::END_called_PP, undef, "END not yet called"); 94 95use XS::APItest; 96 97print "# Second body\n"; 98is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 99is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 100is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 101is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 102is($XS::APItest::CHECK_called, 1, "CHECK called"); 103is($XS::APItest::CHECK_called_PP, 1, "CHECK called"); 104is($XS::APItest::INIT_called, 1, "INIT called"); 105is($XS::APItest::INIT_called_PP, 1, "INIT called"); 106is($XS::APItest::END_called, undef, "END not yet called"); 107is($XS::APItest::END_called_PP, undef, "END not yet called"); 108 109BEGIN { 110 print "# Second BEGIN\n"; 111 is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 112 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 113 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 114 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 115 is($XS::APItest::CHECK_called, undef, "CHECK not yet called"); 116 is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called"); 117 is($XS::APItest::INIT_called, undef, "INIT not yet called"); 118 is($XS::APItest::INIT_called_PP, undef, "INIT not yet called"); 119 is($XS::APItest::END_called, undef, "END not yet called"); 120 is($XS::APItest::END_called_PP, undef, "END not yet called"); 121} 122 123CHECK { 124 print "# Second CHECK\n"; 125 is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 126 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 127 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK yet called") if $uc; 128 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK yet called") if $uc; 129 is($XS::APItest::CHECK_called, undef, "CHECK not yet called"); 130 is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called"); 131 is($XS::APItest::INIT_called, undef, "INIT not yet called"); 132 is($XS::APItest::INIT_called_PP, undef, "INIT not yet called"); 133 is($XS::APItest::END_called, undef, "END not yet called"); 134 is($XS::APItest::END_called_PP, undef, "END not yet called"); 135} 136 137INIT { 138 print "# Second INIT\n"; 139 is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 140 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 141 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 142 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 143 is($XS::APItest::CHECK_called, 1, "CHECK called"); 144 is($XS::APItest::CHECK_called_PP, 1, "CHECK called"); 145 is($XS::APItest::INIT_called, 1, "INIT called"); 146 is($XS::APItest::INIT_called_PP, 1, "INIT called"); 147 is($XS::APItest::END_called, undef, "END not yet called"); 148 is($XS::APItest::END_called_PP, undef, "END not yet called"); 149} 150 151END { 152 print "# Second END\n"; 153 is($XS::APItest::BEGIN_called, 1, "BEGIN called"); 154 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called"); 155 is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc; 156 is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc; 157 is($XS::APItest::CHECK_called, 1, "CHECK called"); 158 is($XS::APItest::CHECK_called_PP, 1, "CHECK called"); 159 is($XS::APItest::INIT_called, 1, "INIT called"); 160 is($XS::APItest::INIT_called_PP, 1, "INIT called"); 161 is($XS::APItest::END_called, undef, "END not yet called"); 162 is($XS::APItest::END_called_PP, undef, "END not yet called"); 163} 164