use strict; use warnings; use t::std; { my $str = "ferg"; my $re = qr/$str/; check_test( sub { cmp_deeply("fergal", re($re)); }, { actual_ok => 1, diag => "", }, "re eq" ); check_test( sub { cmp_deeply("feargal", re($re)); }, { actual_ok => 0, diag => <<EOM, Using Regexp on \$data got : 'feargal' expect : $re EOM }, "re not eq" ); check_test( sub { cmp_deeply("fergal", re($str)); }, { actual_ok => 1, diag => "", }, "string re eq" ); check_test( sub { cmp_deeply("feargal", re($str)); }, { actual_ok => 0, diag => <<EOM, Using Regexp on \$data got : 'feargal' expect : $re EOM }, "string runre not eq" ); }