Removed this file as it uses the Validator which has been removed.
Ken Youens-Clark [Mon, 16 Jun 2003 18:26:59 +0000 (18:26 +0000)]
bin/validator_test.pl [deleted file]

diff --git a/bin/validator_test.pl b/bin/validator_test.pl
deleted file mode 100755 (executable)
index 6c1f326..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/local/bin/perl
-
-use SQL::Translator::Validator;
-my $data = {
-    random => {
-        type => undef,
-        indices => [ ],
-        fields => {
-            id => {
-                name => "id",
-                data_type => "int",
-                size => 11,
-                order => 1,
-                null => 0,
-                default => 1
-            },
-            seed => {
-                name => "seed",
-                data_type => "char",
-                size => 32,
-                order => 2,
-                null => 0,
-                default => 1
-            },
-
-        }
-    },
-    session => {
-        type => "HEAP",
-        indices => [
-            {
-                name => undef,
-                primary_key => 1,
-                fields => [ "id" ],
-            }
-        ],
-        fields => {
-            id => {
-                name => "id",
-                data_type => "int",
-                size => 11,
-                order => 2,
-                null => 0,
-                default => 1
-            },
-            foo => {
-                name => "foo",
-                data_type => "char",
-                size => 255,
-                order => 1,
-                null => 1
-            },
-        }
-    }
-};
-
-my @r = validate($data);
-printf "%s%s", $r[1], $r[0]? "" : "\n";