[p5sagit/p5-mst-13.2.git] / ext / XS-APItest / t / xs_special_subs.t

#!perl -w

BEGIN {
    push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS';
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
        print "1..0 # Skip: XS::APItest was not built\n";
        exit 0;
    }
    # Hush the used only once warning.
    $XS::APItest::WARNINGS_ON_BOOTSTRAP = $MacPerl::Architecture;
    $XS::APItest::WARNINGS_ON_BOOTSTRAP = 1;
}

use strict;
use warnings;
my $uc;
BEGIN {
    $uc = $] > 5.009;
}
use Test::More tests => $uc ? 100 : 80;

# Doing this longhand cut&paste makes it clear
# BEGIN and INIT are FIFO, CHECK and END are LIFO
BEGIN {
    print "# First BEGIN\n";
    is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
    is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
       if $uc;
    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called")
       if $uc;
    is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
    is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
    is($XS::APItest::INIT_called, undef, "INIT not yet called");
    is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
    is($XS::APItest::END_called, undef, "END not yet called");
    is($XS::APItest::END_called_PP, undef, "END not yet called");
}

CHECK {
    print "# First CHECK\n";
    is($XS::APItest::BEGIN_called, 1, "BEGIN called");
    is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::CHECK_called, 1, "CHECK called");
    is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
    is($XS::APItest::INIT_called, undef, "INIT not yet called");
    is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
    is($XS::APItest::END_called, undef, "END not yet called");
    is($XS::APItest::END_called_PP, undef, "END not yet called");
}

INIT {
    print "# First INIT\n";
    is($XS::APItest::BEGIN_called, 1, "BEGIN called");
    is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::CHECK_called, 1, "CHECK called");
    is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
    is($XS::APItest::INIT_called, undef, "INIT not yet called");
    is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
    is($XS::APItest::END_called, undef, "END not yet called");
    is($XS::APItest::END_called_PP, undef, "END not yet called");
}

END {
    print "# First END\n";
    is($XS::APItest::BEGIN_called, 1, "BEGIN called");
    is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::CHECK_called, 1, "CHECK called");
    is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
    is($XS::APItest::INIT_called, 1, "INIT called");
    is($XS::APItest::INIT_called_PP, 1, "INIT called");
    is($XS::APItest::END_called, 1, "END called");
    is($XS::APItest::END_called_PP, 1, "END called");
}

print "# First body\n";
is($XS::APItest::BEGIN_called, 1, "BEGIN called");
is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
is($XS::APItest::CHECK_called, 1, "CHECK called");
is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
is($XS::APItest::INIT_called, 1, "INIT called");
is($XS::APItest::INIT_called_PP, 1, "INIT called");
is($XS::APItest::END_called, undef, "END not yet called");
is($XS::APItest::END_called_PP, undef, "END not yet called");

use XS::APItest;

print "# Second body\n";
is($XS::APItest::BEGIN_called, 1, "BEGIN called");
is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
is($XS::APItest::CHECK_called, 1, "CHECK called");
is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
is($XS::APItest::INIT_called, 1, "INIT called");
is($XS::APItest::INIT_called_PP, 1, "INIT called");
is($XS::APItest::END_called, undef, "END not yet called");
is($XS::APItest::END_called_PP, undef, "END not yet called");

BEGIN {
    print "# Second BEGIN\n";
    is($XS::APItest::BEGIN_called, 1, "BEGIN called");
    is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
    is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
    is($XS::APItest::INIT_called, undef, "INIT not yet called");
    is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
    is($XS::APItest::END_called, undef, "END not yet called");
    is($XS::APItest::END_called_PP, undef, "END not yet called");
}

CHECK {
    print "# Second CHECK\n";
    is($XS::APItest::BEGIN_called, 1, "BEGIN called");
    is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK yet called") if $uc;
    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK yet called") if $uc;
    is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
    is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
    is($XS::APItest::INIT_called, undef, "INIT not yet called");
    is($XS::APItest::INIT_called_PP, undef, "INIT not yet called");
    is($XS::APItest::END_called, undef, "END not yet called");
    is($XS::APItest::END_called_PP, undef, "END not yet called");
}

INIT {
    print "# Second INIT\n";
    is($XS::APItest::BEGIN_called, 1, "BEGIN called");
    is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
    is($XS::APItest::CHECK_called, 1, "CHECK called");
    is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
    is($XS::APItest::INIT_called, 1, "INIT called");
    is($XS::APItest::INIT_called_PP, 1, "INIT called");
    is($XS::APItest::END_called, undef, "END not yet called");
    is($XS::APItest::END_called_PP, undef, "END not yet called");
}

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