X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F60roundtrip.t;fp=t%2F60roundtrip.t;h=f04417f3f3718196a64bf62174d145ace7ef9006;hb=b5bd4580fbf12e890c42cc08d135d10d1beb8224;hp=35bda2681bb536c024adfe671be854ca4bd04772;hpb=2b4cfb06b1a96ef6226e63eee52761556eaa8279;p=dbsrgits%2FSQL-Translator.git diff --git a/t/60roundtrip.t b/t/60roundtrip.t index 35bda26..f04417f 100644 --- a/t/60roundtrip.t +++ b/t/60roundtrip.t @@ -226,9 +226,9 @@ sub check_roundtrip { # the two sql strings should be identical my $msg = "$args->{name} SQL roundtrip successful - SQL statements match"; - $ENV{SQLTTEST_RT_DEBUG} #stringify below because IO::Scalar does not behave nice - ? eq_or_diff ("$rt_out", "$base_out", $msg) - : ok ("$rt_out" eq "$base_out", $msg) + $ENV{SQLTTEST_RT_DEBUG} + ? eq_or_diff ($rt_out, $base_out, $msg) + : ok ($rt_out eq $base_out, $msg) ; }