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

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

Comparing \$data as a string

   got : 'wine'

expect : 'wind'

EOM

    },

    "over string not eq"

  );

}