some better handling of munging fields to columns

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

diff --git a/t/24yaml.t b/t/24yaml.t
index 6fbd2ca..e487120 100644 (file)
--- a/t/24yaml.t
+++ b/t/24yaml.t
@@ -2,16 +2,9 @@ use warnings;
 use strict;
 use Test::More;
 use Test::Differences;
-#use Test::SQL::Translator qw(maybe_plan);
 use SQL::Translator;
 use FindBin '$Bin';
 
-#BEGIN {
-#    maybe_plan(2,
-#        'SQL::Translator::Parser::SQLite',
-#        'SQL::Translator::Producer::YAML');
-#}
-
 my $sqlt_version = $SQL::Translator::VERSION;
 my $yaml = <<YAML;
 ---
@@ -117,7 +110,7 @@ schema:
           expression: ''
           fields: []
           match_type: ''
-          name: ''
+          name: constraint
           on_delete: ''
           on_update: ''
           options: []
@@ -130,7 +123,7 @@ schema:
             - pet_id
             - person_id
           match_type: ''
-          name: ''
+          name: primary_key
           on_delete: ''
           on_update: ''
           options: []
@@ -142,7 +135,7 @@ schema:
           fields:
             - person_id
           match_type: ''
-          name: ''
+          name: foreign_key
           on_delete: ''
           on_update: ''
           options: []
@@ -223,22 +216,21 @@ translator:
   filename: ~
   no_comments: 0
   parser_args: {}
-  parser_type: SQL::Translator::Parser::SQLite
+  parser_type: SQLite
   producer_args: {}
-  producer_type: SQL::Translator::Producer::YAML
+  producer_type: YAML
   show_warnings: 0
   trace: 0
   version: $sqlt_version
 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': $!"; 
+
 my $tr   = SQL::Translator->new(
-    parser   => 'SQLite',
-    producer => 'YAML',
-    data     => $data,
+    from => 'SQLite',
+    to   => 'YAML',
+    data => do { local $/; <$fh>; },
 );
 
 my $out;