Fix tests for YAML parser and producer

Author: mikkoi

t/24yaml.t

@@ -1,5 +1,7 @@
+#!/perl
 use warnings;
 use strict;
+use English '-no_match_vars';
 use Test::More;
 use Test::Exception;
 use Test::SQL::Translator qw(maybe_plan);
@@ -12,10 +14,11 @@ BEGIN {
 
 my $sqlt_version = $SQL::Translator::VERSION;
 use YAML qw(Load);
-my $yaml = Load(<<YAML);
+my $yaml = Load(<<"YAML");
 ---
 schema:
   procedures: {}
+  sequences: {}
   tables:
     person:
       constraints:
@@ -241,9 +244,10 @@ translator:
 YAML
 
 my $file = "$Bin/data/sqlite/create.sql";
-open FH, "<$file" or die "Can't read '$file': $!\n";
-local $/;
-my $data = <FH>;
+open my $fh, '<', $file or die "Can't read '$file': $OS_ERROR\n";
+local $INPUT_RECORD_SEPARATOR = undef;
+my $data = <$fh>;
+close $fh or die "Can't close '$file': $OS_ERROR\n";
 my $tr   = SQL::Translator->new(
   parser   => 'SQLite',
   producer => 'YAML',

t/36-filters.t

@@ -69,6 +69,7 @@ my $sqlt_version = $SQL::Translator::VERSION;
 my $ans_yaml     = qq{---
 schema:
   procedures: {}
+  sequences: {}
   tables:
     GdayWorld:
       constraints: []

t/38-filter-names.t

@@ -19,18 +19,61 @@ use SQL::Translator;
 
 my $in_yaml = qq{---
 schema:
+  sequences:
+    IdentificationNumber:
+      name: IdentificationNumber
+      increment: 2
+      order: 2
+    BillingNumber:
+      name: BillingNumber
+      minvalue: 3
+      maxvalue: 256
+      order: 1
+      owner: person.identification_number
   tables:
     Person:
       name: Person
       fields:
+        identification_number:
+          data_type: integer
+          name: identification_number
+          order: 1
         first_name:
           data_type: foovar
           name: first_name
+          order: 2
 };
 
 my $ans_yaml = qq{---
 schema:
   procedures: {}
+  sequences:
+    BillingNumber:
+      cache: 0
+      cycle: 0
+      guarantee_order: 0
+      increment: 0
+      keep: 0
+      maxvalue: 256
+      minvalue: 3
+      name: BillingNumber
+      order: 1
+      owner: person.identification_number
+      start: 0
+      temporary: 0
+    IdentificationNumber:
+      cache: 0
+      cycle: 0
+      guarantee_order: 0
+      increment: 2
+      keep: 0
+      maxvalue: 0
+      minvalue: 0
+      name: IdentificationNumber
+      order: 2
+      owner: NONE
+      start: 0
+      temporary: 0
   tables:
     person:
       constraints: []
@@ -42,6 +85,16 @@ schema:
           is_primary_key: 0
           is_unique: 0
           name: First_name
+          order: 2
+          size:
+            - 0
+        Identification_number:
+          data_type: integer
+          default_value: ~
+          is_nullable: 1
+          is_primary_key: 0
+          is_unique: 0
+          name: Identification_number
           order: 1
           size:
             - 0

t/39-filter-globals.t

@@ -86,6 +86,7 @@ is_deeply(
   {
     schema => {
       procedures => {},
+      sequences => {},
       tables     => {
         Person => {
           constraints => [ {