[perl5.git] / ext / XS-APItest / t / get.t


# Tests for the get_*v functions.

use Test::More tests => 5;
use XS::APItest;

# XXX So far we only test get_cv.

is get_cv("utf8::encode"), \&utf8::encode, 'get_cv(utf8::encode)';

sub foo { " ooof" } # should be stored in the stash as a subref
die "Test has been sabotaged: sub foo{} should not create a full glob"
    unless ref $::{foo} eq 'CODE';

my $subref = get_cv("foo");
is ref $subref, "CODE", 'got a coderef from get_cv("globless sub")';
is &$subref, " ooof", 'got the right sub';

sub bar { "burr" }
$subref = get_cv_flags("bar",GV_NOADD_NOINIT);
is ref $subref, "CODE", 'got a coderef from get_cv with GV_NOADD_NOINIT';
is &$subref, "burr", 'got the right sub';
Commit	Line	Data
7cfe4f52 FC	1
	2	# Tests for the get_*v functions.
	3
a385812b	4	use Test::More tests => 5;
7cfe4f52 FC	5	use XS::APItest;
	6
	7	# XXX So far we only test get_cv.
	8
	9	is get_cv("utf8::encode"), \&utf8::encode, 'get_cv(utf8::encode)';
	10
	11	sub foo { " ooof" } # should be stored in the stash as a subref
	12	die "Test has been sabotaged: sub foo{} should not create a full glob"
	13	unless ref $::{foo} eq 'CODE';
	14
	15	my $subref = get_cv("foo");
	16	is ref $subref, "CODE", 'got a coderef from get_cv("globless sub")';
	17	is &$subref, " ooof", 'got the right sub';
a385812b FC	18
	19	sub bar { "burr" }
	20	$subref = get_cv_flags("bar",GV_NOADD_NOINIT);
	21	is ref $subref, "CODE", 'got a coderef from get_cv with GV_NOADD_NOINIT';
	22	is &$subref, "burr", 'got the right sub';