view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

sub test_arguments {
	my($zero,$one,@two,%three):=*@_;
	ok($one eq 'one');
	ok($two[0] eq 'two' && $two[1] eq 'three');
	ok($three{'one'} == 1 && $three{'two'} == 2);
	$zero = 'non-zero';
}

my $variable = 'zero';

test_arguments(
	$variable,
	'one',
	[ 'two', 'three' ],
	{ 'one' => 1, 'two' => 2 }
);

ok($variable eq 'non-zero');

package test_hash_methods;

sub new {
	bless {
		'one' => 'one',
		'two' => [ 'two', 'three' ],
		'three' => { 'one' => 1, 'two' => 2 }
	};
}

sub test {
	my ($self, $four, @five, %six, $level) := *@_;
	main::ok(ref $self eq 'test_hash_methods'); 
	my ($one, @two, %three) := *%$self;
	main::ok($four eq 'four');
	main::ok($five[0] eq 'five' && $five[1] eq 'six');
	main::ok($six{'seven'} == 7 && $six{'eight'} == 8);
	main::ok($one eq 'one');
	main::ok($two[0] eq 'two' && $two[1] eq 'three');
	main::ok($three{'one'} == 1 && $three{'two'} == 2);
	
	if ($level == 0) {
		$self->test(@_[1 .. 3], 1);
	}
}

package main;

ok(1);		## package compiled OK

my $t = new test_hash_methods;

$t->test(
	'four',
	[ 'five', 'six' ],
	{ 'seven' => 7, 'eight' => 8 },
	0
);

if ($] >= 5.008) {
	skip("skip | Due to a problem in PadWalker in 5.8.x,", 1);
	skip("skip | aliases can't be created at the root level.", 1);
	skip("skip | However, aliases in subroutines still work.", 1);
	skip("skip | We apologize for the inconvenience.", 1);
} else {
	my $scalar1 = [ qw/one two three/ ];
	my @array := @$scalar1;
	
	ok($array[0] eq 'one' && $array[1] eq 'two' && $array[2] eq 'three');
	my $scalar2 = { 'one' => 1, 'two' => 2, 'three' => 3 };
	my %hash := %$scalar2;
	ok($hash{'one'} == 1 && $hash{'two'} == 2 && $hash{'three'} == 3);
	my $thirtyseven = "thirty-seven";
	my $scalarx := $thirtyseven;
	ok($scalarx eq 'thirty-seven');
	my $scalar3 = \$thirtyseven;
	my $scalar := $scalar3;
	ok(defined $$scalar && $$scalar eq 'thirty-seven');
}