here is the pgsql test script. NOTE: it will not work right now b/c i've
[dbsrgits/SQL-Translator.git] / bin / validator_test.pl
index 92893ba..6c1f326 100755 (executable)
@@ -4,7 +4,7 @@ use SQL::Translator::Validator;
 my $data = {
     random => {
         type => undef,
-        indeces => [ ],
+        indices => [ ],
         fields => {
             id => {
                 name => "id",
@@ -27,9 +27,9 @@ my $data = {
     },
     session => {
         type => "HEAP",
-        indeces => [
+        indices => [
             {
-                name => "main_idx",
+                name => undef,
                 primary_key => 1,
                 fields => [ "id" ],
             }
@@ -54,12 +54,5 @@ my $data = {
     }
 };
 
-use SQL::Translator;
-
-my $tr = SQL::Translator->new(parser => "MySQL");
-
-$data = $tr->translate("t/data/mysql/BGEP-RE-create.sql");
-
 my @r = validate($data);
-
 printf "%s%s", $r[1], $r[0]? "" : "\n";