Merge branch 'master' of git://github.com/arcanez/SQL-Translator

[dbsrgits/SQL-Translator-2.0-ish.git] / t / 60roundtrip.t

diff --git a/t/60roundtrip.t b/t/60roundtrip.t
index b189b47..e8182d5 100644 (file)
--- a/t/60roundtrip.t
+++ b/t/60roundtrip.t
@@ -85,7 +85,7 @@ my $base_file = "$Bin/data/roundtrip_autogen.yaml";
 open (my $base_fh, '<', $base_file) or die "$base_file: $!";
 
 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/;
 
 my $base_schema = $base_t->translate(
   parser => 'YAML',
@@ -120,7 +120,7 @@ for my $args (@$plan) {
       local $TODO = $args->{todo} if $args->{todo};
 
       lives_ok (
-        sub { check_roundtrip ($args, $base_t, $base_schema) },
+        sub { check_roundtrip ($args, $base_t) },
         "Round trip for $args->{name} did not throw an exception",
       );
     }
@@ -129,12 +129,12 @@ for my $args (@$plan) {
 done_testing;
 
 sub check_roundtrip {
-  my ($args, $base_t, $base_schema) = @_;
+  my ($args, $base_t) = @_;
 
 # create some output from the submitted schema
 
   my $base_out = $base_t->translate(
-    data => $base_schema,
+    data => $base_t->schema,
     producer => $args->{engine},
     producer_args => $args->{producer_args} || {},
   );
@@ -183,7 +183,7 @@ sub check_roundtrip {
 #    producer_args => $args->{producer_args},
 #  );
 
-  my $rt_out = $parser_t->translate (
+  my $rt_out = $parser_t->translate(
     data => $mid_schema,
     producer => $args->{engine},
     producer_args => $args->{producer_args} || {},