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

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

Using Regexp on \$data

   got : 'feargal'

expect : $re

EOM

    },

    "string runre not eq"

  );

}