X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04file%2Cfh%2Cstring.t;h=91214122795074a700f75cdae227dc3016fd2086;hb=5e48784e9e449d1d79da28fc059c95006b709397;hp=658782e49e4543e32e71de4f5fcf131c4a10eb35;hpb=37ac104aeb2567529faa74b5e6402e3a6a55e399;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/04file,fh,string.t b/t/04file,fh,string.t
index 658782e..9121412 100644
--- a/t/04file,fh,string.t
+++ b/t/04file,fh,string.t
@@ -13,25 +13,32 @@ use strict;
 
 use IO::File;
 use SQL::Translator;
-use Test::More;
-
-plan tests => 3;
-
-# Our object; uses the default parser and producer
-my $tr = SQL::Translator->new;
+use Test::More tests => 3;
 
 # The filename, holder for all the data, and the filehandle
 my $datafile = "t/data/mysql/Apache-Session-MySQL.sql";
 my $data;
 my $fh = IO::File->new($datafile);
 
-# Pass filename: simplest way
-my $translated_datafile = $tr->translate($datafile);
-
-# Pass string reference
-read($fh, $data, -s $datafile);
-my $translated_data = $tr->translate(\$data);
-
-ok(length $translated_datafile, "passing string (filename) works");
-ok(length $translated_data, "passing string as SCALAR reference");
-is($translated_datafile, $translated_data, "from file == from string");
+my ($v1, $v2);
+{
+    my $tr = SQL::Translator->new;
+    # Pass filename: simplest way
+    $tr->translate($datafile);
+    $v1 = $tr->schema;
+}
+
+{
+    my $tr = SQL::Translator->new;
+    # Pass string reference
+    read($fh, $data, -s $datafile);
+    $tr->translate(\$data);
+    $v2 = $tr->schema;
+}
+
+# XXX- Hack to remove Graph hack!
+$_->translator (undef) for ($v1, $v2);
+
+ok(length $v1, "passing string (filename) works");
+ok(length $v2, "passing string as SCALAR reference");
+is_deeply($v1, $v2, "from file == from string");