use strict;
use warnings;

use t::std;

{
	my $a = {};

	check_test(
		sub {
			cmp_deeply($a, isa("HASH"));
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"isa eq"
	);

	check_test(
		sub {
			cmp_deeply($a, obj_isa("HASH"));
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Checking class of \$data with isa()
   got : $a
expect : blessed into 'HASH' or subclass of 'HASH'
EOM
		},
		"obj_isa eq"
	);
}

{
	my $b = bless {}, "B";

	check_test(
		sub {
			cmp_deeply($b, isa("B"));
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"isa eq"
	);

	check_test(
		sub {
			cmp_deeply($b, obj_isa("B"));
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"isa eq"
	);


	check_test(
		sub {
			cmp_deeply($b, isa("A"));
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Checking class of \$data with isa()
   got : $b
expect : blessed into or ref of type 'A'
EOM
		},
		"isa eq"
	);

	check_test(
		sub {
			cmp_deeply($b, obj_isa("A"));
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Checking class of \$data with isa()
   got : $b
expect : blessed into 'A' or subclass of 'A'
EOM
		},
		"isa eq"
	);


	@A::ISA = ();
	@B::ISA = ("A");

	check_test(
		sub {
			cmp_deeply($b, isa("A"));
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"isa eq"
	);

	check_test(
		sub {
			cmp_deeply($b, obj_isa("A"));
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"isa eq"
	);
}

package A;

use Test::Deep;
@A::ISA = qw( Test::Deep );

{
	::ok(A->isa("Test::Deep"), "U::isa says yes");
	::ok(! A->isa("Test"), "U::isa says yes");
}


{
	package C;
	use base 'A';
}
package main;
{
	my $c = bless {}, "C";
	check_test(
		sub {
			cmp_deeply($c, isa("A"));
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"isa eq"
	);
}