Viewing: string.t

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