Just committing, but is it necessary? It will be regenerated by Build.PL.

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

diff --git a/t/24yaml.t b/t/24yaml.t
index e578e18..78c1c29 100644 (file)
--- a/t/24yaml.t
+++ b/t/24yaml.t
@@ -14,7 +14,9 @@ BEGIN {
         'SQL::Translator::Producer::YAML');
 }
 
-my $yaml = q/--- #YAML:1.0
+my $sqlt_version = $SQL::Translator::VERSION;
+my $yaml = <<YAML;
+---
 schema:
   procedures: {}
   tables:
@@ -47,6 +49,7 @@ schema:
           type: UNIQUE
       fields:
         age:
+          comments: ''
           data_type: integer
           default_value: ~
           extra: {}
@@ -58,6 +61,7 @@ schema:
           size:
             - 0
         description:
+          comments: ''
           data_type: text
           default_value: ~
           extra: {}
@@ -69,6 +73,7 @@ schema:
           size:
             - 0
         iq:
+          comments: ''
           data_type: tinyint
           default_value: 0
           extra: {}
@@ -80,6 +85,7 @@ schema:
           size:
             - 0
         name:
+          comments: ''
           data_type: varchar
           default_value: ~
           extra: {}
@@ -91,6 +97,7 @@ schema:
           size:
             - 20
         person_id:
+          comments: ''
           data_type: INTEGER
           default_value: ~
           extra: {}
@@ -102,6 +109,7 @@ schema:
           size:
             - 0
         weight:
+          comments: ''
           data_type: double
           default_value: ~
           extra: {}
@@ -122,7 +130,7 @@ schema:
       constraints:
         - deferrable: 1
           expression: ''
-          fields: ~
+          fields: ''
           match_type: ''
           name: ''
           on_delete: ''
@@ -146,6 +154,7 @@ schema:
           type: PRIMARY KEY
       fields:
         age:
+          comments: ''
           data_type: int
           default_value: ~
           extra: {}
@@ -157,6 +166,7 @@ schema:
           size:
             - 0
         name:
+          comments: ''
           data_type: varchar
           default_value: ~
           extra: {}
@@ -168,6 +178,7 @@ schema:
           size:
             - 30
         person_id:
+          comments: ''
           data_type: int
           default_value: ~
           extra: {}
@@ -179,6 +190,7 @@ schema:
           size:
             - 0
         pet_id:
+          comments: ''
           data_type: int
           default_value: ~
           extra: {}
@@ -208,19 +220,34 @@ schema:
       perform_action_when: ~
   views:
     person_pet:
-      fields: ~
+      fields: ''
       name: person_pet
       order: 1
       sql: |
         select pr.person_id, pr.name as person_name, pt.name as pet_name
           from   person pr, pet pt
           where  person.person_id=pet.pet_id
-/;
+translator:
+  add_drop_table: 0
+  filename: ~
+  no_comments: 0
+  parser_args: {}
+  parser_type: SQL::Translator::Parser::SQLite
+  producer_args: {}
+  producer_type: SQL::Translator::Producer::YAML
+  show_warnings: 0
+  trace: 0
+  version: $sqlt_version
+YAML
 
-my $tr = SQL::Translator->new(
+my $file = "$Bin/data/sqlite/create.sql";
+open FH, "<$file" or die "Can't read '$file': $!\n";
+local $/;
+my $data = <FH>;
+my $tr   = SQL::Translator->new(
     parser   => 'SQLite',
     producer => 'YAML',
-    filename => "$Bin/data/sqlite/create.sql",
+    data     => $data,
 );
 
 my $out;