Author: gwolf
Date: 2005-03-18 01:33:15 +0100 (Fri, 18 Mar 2005)
New Revision: 797
Added:
packages/libdata-formvalidator-perl/branches/upstream/current/t/procedural_valid.t
Removed:
packages/libdata-formvalidator-perl/branches/upstream/current/t/10_procedural_valid.t
Log:
To prepare to load /tmp/tmp.Tkj3pS/libdata-formvalidator-perl-3.63 into
packages/libdata-formvalidator-perl/branches/upstream/current, perform
1 rename.
*
packages/libdata-formvalidator-perl/branches/upstream/current/t/proce
dural_valid.t: Renamed from
packages/libdata-formvalidator-perl/branches/upstream/current/t/10_pr
ocedural_valid.t.
Deleted: packages/libdata-formvalidator-perl/branches/upstream/current/t/10_procedural_valid.t
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/t/10_procedural_valid.t 2005-03-16 14:37:09 UTC (rev 796)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/t/10_procedural_valid.t 2005-03-18 00:33:15 UTC (rev 797)
@@ -1,72 +0,0 @@
-use strict;
-#Check that the valid_* routines are nominally working.
-
-$^W = 1;
-
-use Test::More tests => 26;
-
-use Data::FormValidator qw(:validators :matchers);
-
-
-
-my $invalid = "fake value";
-
-#For CC Exp test
-my @time = localtime(time);
-
-my %tests = (
- valid_american_phone => "555-555-5555",
- valid_cc_exp => "10/" . sprintf("%.2d", ($time[5] - 99)),
- valid_cc_type => "MasterCard",
- valid_email => 'foo@domain.com',
- valid_ip_address => "64.58.79.230",
- valid_phone => "123-456-7890",
- valid_postcode => "T2N 0E6",
- valid_province => "NB",
- valid_state => "CA",
- valid_state_or_province => "QC",
- valid_zip => "94112",
- valid_zip_or_postcode => "50112",
-);
-
-my $i = 1;
-
-foreach my $function (keys(%tests)) {
- my $rv;
- my $val = $tests{$function};
- my $is_valid = "\$rv = $function('$val');";
- my $not_valid = "\$rv = $function('$invalid');";
-
- eval $is_valid;
- ok(not $@ and $rv == 1) or
- diag $@;
- #diag sprintf("%-25s using %-16s", $function, "(valid value)");
- $i++;
-
- eval $not_valid;
- ok(not $@ and not $rv) or
- diag sprintf("%-25s using %-16s", $function, "(invalid value)");
- $i++;
-}
-
-#Test cc_number seperately since i do not know a valid cc number
-{
- my $rv;
- eval "\$rv = valid_cc_number('$invalid', 'm')";
-
- ok(not $@ and not $rv) or
- diag sprintf("%-25s using %-16s", "valid_cc_number", "(invalid value)");
-}
-
-$i++;
-
-#Test fake validation routine
-{
- my $rv;
- eval "\$rv = valid_foobar('$invalid', 'm')";
-
- ok($@) or
- diag sprintf("%-25s", "Fake Valid Routine");
-}
-
-
Copied: packages/libdata-formvalidator-perl/branches/upstream/current/t/procedural_valid.t (from rev 796, packages/libdata-formvalidator-perl/branches/upstream/current/t/10_procedural_valid.t)