0s - Explorer

Viewing: isa.t

use strict;
use warnings;
use lib 't/lib';

use 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"
  );
}

Return