[perl5.git] / t / lib / universal.t

#!./perl

# Test the Internal::* functions and other tibits in universal.c

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
    plan( tests => 4 );
}

for my $arg ('', 'q[]', qw( 1 undef )) {
    fresh_perl_is(<<"----", <<'====', "Internals::* functions check their argument under func() AND &func() [perl #77776]");
sub tryit { eval shift or warn \$@ }
tryit "&Internals::SvREADONLY($arg)";
tryit "&Internals::SvREFCNT($arg)";
tryit "&Internals::hv_clear_placeholders($arg)";
tryit "&Internals::HvREHASH($arg)";
----
Usage: Internals::SvREADONLY(SCALAR[, ON]) at (eval 1) line 1.
Usage: Internals::SvREFCNT(SCALAR[, REFCOUNT]) at (eval 2) line 1.
Usage: Internals::hv_clear_placeholders(hv) at (eval 3) line 1.
Internals::HvREHASH $hashref at (eval 4) line 1.
====
}
Commit	Line	Data
80b6a949 AB	1	#!./perl
	2
	3	# Test the Internal::* functions and other tibits in universal.c
	4
	5	BEGIN {
	6	chdir 't' if -d 't';
	7	@INC = '../lib';
	8	require './test.pl';
	9	plan( tests => 4 );
	10	}
	11
	12	for my $arg ('', 'q[]', qw( 1 undef )) {
	13	fresh_perl_is(<<"----", <<'====', "Internals::* functions check their argument under func() AND &func() [perl #77776]");
	14	sub tryit { eval shift or warn \$@ }
	15	tryit "&Internals::SvREADONLY($arg)";
	16	tryit "&Internals::SvREFCNT($arg)";
	17	tryit "&Internals::hv_clear_placeholders($arg)";
	18	tryit "&Internals::HvREHASH($arg)";
	19	----
	20	Usage: Internals::SvREADONLY(SCALAR[, ON]) at (eval 1) line 1.
	21	Usage: Internals::SvREFCNT(SCALAR[, REFCOUNT]) at (eval 2) line 1.
	22	Usage: Internals::hv_clear_placeholders(hv) at (eval 3) line 1.
	23	Internals::HvREHASH $hashref at (eval 4) line 1.
	24	====
	25	}