#!/usr/bin/perl -w

use strict;

use Test::More tests => 12;

BEGIN { use_ok("UNIVERSAL::isa", "isa") };

no warnings "UNIVERSAL::isa";

{
	package Foo;

	sub isa {
		1;
	}
}

{
	package Bar;
}

{
	package Gorch;
	sub isa {
		my $self = shift;
		my $class = shift;
		($class eq "Dung") || $self->SUPER::isa($class);
	}
}

{
	package Baz;
	sub isa {
		my $self = shift;
		my $class = shift;
		($class eq "Dung") || UNIVERSAL::isa($self, $class);
	}
}

my ($f,$b,$g,$x) = map { bless [], $_ } qw/Foo Bar Gorch Baz/;

ok(isa([], "ARRAY"), "10 is a scalar");
ok(isa($b, "Bar"), "bar is a bar");
ok(isa($f, "Foo"), "foo is a foo");
ok(!isa($b, "Crap"), "bar isn't full of crap");
ok(isa($f, "Crap"), "foo is full of crap");
ok(isa($g, "Gorch"), "gorch is itself");
ok(!isa($g, "Crap"), "gorch isn't crap");
ok(isa($g, "Dung"), "it's dung");
ok(isa($x, "Baz"), "baz is itself");
ok(!isa($x, "Crap"), "baz isn't crap");
ok(isa($x, "Dung"), "it's dung");