Added tests for RT#37814 (parsing of double quotes, autoincrement).

[dbsrgits/SQL-Translator.git] / t / 24yaml.t

diff --git a/t/24yaml.t b/t/24yaml.t
index 6029c8b..9c8bda3 100644 (file)
--- a/t/24yaml.t
+++ b/t/24yaml.t
@@ -1,6 +1,4 @@
-#!/usr/local/bin/perl
-# vim: set ft=perl:
-
+use warnings;
 use strict;
 use Test::More;
 use Test::Differences;
@@ -21,7 +19,6 @@ schema:
   procedures: {}
   tables:
     person:
-      comments: ''
       constraints:
         - deferrable: 1
           expression: ''
@@ -49,10 +46,8 @@ schema:
           type: UNIQUE
       fields:
         age:
-          comments: ''
           data_type: integer
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0
@@ -61,10 +56,8 @@ schema:
           size:
             - 0
         description:
-          comments: ''
           data_type: text
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0
@@ -73,10 +66,8 @@ schema:
           size:
             - 0
         iq:
-          comments: ''
           data_type: tinyint
           default_value: 0
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0
@@ -85,10 +76,8 @@ schema:
           size:
             - 0
         name:
-          comments: ''
           data_type: varchar
           default_value: ~
-          extra: {}
           is_nullable: 0
           is_primary_key: 0
           is_unique: 1
@@ -97,10 +86,8 @@ schema:
           size:
             - 20
         person_id:
-          comments: ''
           data_type: INTEGER
           default_value: ~
-          extra: {}
           is_nullable: 0
           is_primary_key: 1
           is_unique: 0
@@ -109,10 +96,8 @@ schema:
           size:
             - 0
         weight:
-          comments: ''
           data_type: double
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0
@@ -126,11 +111,10 @@ schema:
       options: []
       order: 1
     pet:
-      comments: ''
       constraints:
         - deferrable: 1
           expression: ''
-          fields: ''
+          fields: []
           match_type: ''
           name: ''
           on_delete: ''
@@ -154,51 +138,43 @@ schema:
           type: PRIMARY KEY
       fields:
         age:
-          comments: ''
           data_type: int
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0
           name: age
-          order: 10
+          order: 4
           size:
             - 0
         name:
-          comments: ''
           data_type: varchar
           default_value: ~
-          extra: {}
           is_nullable: 1
           is_primary_key: 0
           is_unique: 0
           name: name
-          order: 9
+          order: 3
           size:
             - 30
         person_id:
-          comments: ''
           data_type: int
           default_value: ~
-          extra: {}
           is_nullable: 0
           is_primary_key: 1
           is_unique: 0
           name: person_id
-          order: 8
+          order: 2
           size:
             - 0
         pet_id:
-          comments: ''
           data_type: int
           default_value: ~
-          extra: {}
           is_nullable: 0
           is_primary_key: 1
           is_unique: 0
           name: pet_id
-          order: 7
+          order: 1
           size:
             - 0
       indices: []
@@ -212,7 +188,8 @@ schema:
         steps:
           - update pet set name=name
         when: ~
-      database_event: insert
+      database_events:
+        - insert
       fields: ~
       name: pet_trig
       on_table: pet
@@ -248,8 +225,6 @@ my $tr   = SQL::Translator->new(
     parser   => 'SQLite',
     producer => 'YAML',
     data     => $data,
-#    debug    => 1,
-#    trace    => 1,
 );
 
 my $out;