update test

diff --git a/t/61translator_agnostic.t b/t/61translator_agnostic.t
index e706717..d9bebcf 100644 (file)
--- a/t/61translator_agnostic.t
+++ b/t/61translator_agnostic.t
@@ -3,37 +3,31 @@
 use warnings;
 use strict;
 use Test::More;
-use Test::SQL::Translator;
 use FindBin qw/$Bin/;
-
-BEGIN {
-    maybe_plan(1, 'SQL::Translator::Parser::XML',
-                  'SQL::Translator::Producer::XML');
-}
-
 use SQL::Translator;
 
 # Producing a schema with a Translator different from the one the schema was
 # generated should just work. After all the $schema object is just data.
 
-
 my $base_file = "$Bin/data/xml/schema.xml";
 my $base_t = SQL::Translator->new;
-$base_t->$_ (1) for qw/add_drop_table no_comments/;
+$base_t->$_(1) for qw/add_drop_table no_comments/;
 
 # create a base schema attached to $base_t
-my $base_schema = $base_t->translate (
+open (my $base_fh, '<', $base_file) or die "$base_file: $!";
+
+my $base_schema = $base_t->translate(
   parser => 'XML',
-  file => $base_file,
-) or die $base_t->error;
+  data => do { local $/; <$base_fh>; },
+) or die $!;
 
 # now create a new translator and try to feed it the same schema
 my $new_t = SQL::Translator->new;
-$new_t->$_ (1) for qw/add_drop_table no_comments/;
+$new_t->$_(1) for qw/add_drop_table no_comments/;
 
-my $sql = $new_t->translate (
-  data => $base_schema,
+my $sql = $new_t->translate(
   producer => 'SQLite'
+  data => $base_schema,
 );
 
 TODO: {
@@ -45,3 +39,5 @@ TODO: {
     "Received some meaningful output from the producer",
   );
 }
+
+done_testing;