From: Justin Hunter 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?a=commitdiff_plain;h=92ed1bc6cfd9cae977d49b74af1e7bc24df5bf95;p=dbsrgits%2FSQL-Translator-2.0-ish.git 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 = <; +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;