use strict;

use warnings;

use lib 't/lib';

use 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 => <

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 => <

Compared blessed(\$data)

   got : undef

expect : 'class'

EOM

    },

    "Same"

  );

}