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

use Std;

{
  check_test(
    sub {
      cmp_deeply([], reftype("ARRAY"));
    },
    {
      actual_ok => 1,
      diag => '',
    },
    "ARRAY ok"
  );

  check_test(
    sub {
      cmp_deeply([], reftype("HASH"));
    },
    {
      actual_ok => 0,
      diag => <<EOM,
Compared reftype(\$data)
   got : 'ARRAY'
expect : 'HASH'
EOM
    },
    "ARRAY"
  );
}