From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 27 Jul 2010 03:11:49 +0000 (-0700)
Subject: fixup the test a bit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Translator-2.0-ish.git;a=commitdiff_plain;h=92ed1bc6cfd9cae977d49b74af1e7bc24df5bf95

fixup the test a bit
---

diff --git a/t/24yaml.t b/t/24yaml.t
index 6fbd2ca..6bdec8a 100644
--- 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;
 ---
@@ -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;