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

use Std;

{
  my $re = qr/^wi/;
  check_test(
    sub {
      cmp_deeply([qw( wine wind wibble winny window )], array_each( re($re) ))
    },
    {
      actual_ok => 1,
      diag => "",
    },
    "array_each eq"
  );

  check_test(
    sub {
      cmp_deeply([qw( wibble wobble winny window )], array_each( re($re) ))
    },
    {
      actual_ok => 0,
      diag => <<EOM,
Using Regexp on \$data->[1]
   got : 'wobble'
expect : $re
EOM
    },
    "array_each not eq"
  );
}