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

use Std;

{
  check_test(
    sub {
      cmp_deeply("wine", str("wine"))
    },
    {
      actual_ok => 1,
      diag => "",
    },
    "string eq"
  );

  check_test(
    sub {
      cmp_deeply("wine", str("wind"))
    },
    {
      actual_ok => 0,
      diag => <<EOM,
Comparing \$data as a string
   got : 'wine'
expect : 'wind'
EOM
    },
    "string not eq"
  );
}

{
  require Over;

  my $o = Over->new("wine");

  check_test(
    sub {
      cmp_deeply($o, str("wine"))
    },
    {
      actual_ok => 1,
      diag => "",
    },
    "over string eq"
  );

  check_test(
    sub {
      cmp_deeply($o, str("wind"))
    },
    {
      actual_ok => 0,
      diag => <<EOM,
Comparing \$data as a string
   got : 'wine'
expect : 'wind'
EOM
    },
    "over string not eq"
  );
}