#!/usr/bin/perl
# 
# in response to bug report 2006/10/25 by Brian E. Lozier <brian@massassi.net>
# test script by Evan A. Zacks <zackse@cpan.org>
#
# The problem was that when specifying constraint_methods in a profile and
# using the name of a built-in (e.g., "zip") as the constraint, the built-in
# (match_zip or valid_zip) ended up being called as a method rather than a
# function.  
#
# So now we throw an error if a non-code-ref is used with a constraint method.

use strict;

use Test::More tests => 4;

use_ok('Data::FormValidator');

my $err_re = qr/not a code ref/;

{
  my %profile = (
      required => ['zip'],
      constraint_methods => {
          zip => 'zip',
      }
  );

  my %data = (
      zip => 56567
  );

eval {  my $r = Data::FormValidator->check(\%data, \%profile) };
like($@, $err_re,
    "error thrown when given a string to constraint_method");
}

{
  my %profile = (
      required => ['zip'],
      constraint_methods => {
          zip => ['zip'],
      }
  );

  my %data = ( zip => 56567 );

    eval {  my $r = Data::FormValidator->check(\%data, \%profile) };
    like($@, $err_re,
        "error thrown when given a string to constraint_method...even as part of a list.");
}

{
  my %profile = (
      required => ['zip'],
      untaint_all_constraints => 1,
      constraint_methods => { zip => {} }
  );

  my %data = ( zip => 56567 );

  eval {  my $r = Data::FormValidator->check(\%data, \%profile) };
  like($@, $err_re,
         "error thrown when given a string to constraint_method...even as hash declaration.");
}