blessed.t   [plain text]


use strict;
use warnings;

use t::std;

{
	my $b = bless [], "class";
	check_test(
		sub {
			cmp_deeply($b, blessed("class"));
		},
		{
			actual_ok => 1,
			diag => '',
		},
		"Same"
	);

	check_test(
		sub {
			cmp_deeply($b, blessed("other"));
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Compared blessed(\$data)
   got : 'class'
expect : 'other'
EOM
		},
		"Same"
	);
}

{
	check_test(
		sub {
			cmp_deeply([], blessed());
		},
		{
			actual_ok => 1,
			diag => '',
		},
		"Same"
	);

	check_test(
		sub {
			cmp_deeply([], blessed("class"));
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Compared blessed(\$data)
   got : undef
expect : 'class'
EOM
		},
		"Same"
	);
}