# Test for Dumper producer
use strict;
-use Config;
use File::Temp 'tempfile';
use File::Spec;
use FindBin qw/$Bin/;
BEGIN {
maybe_plan(
5,
+ 'DBI',
'SQL::Translator::Parser::SQLite',
'SQL::Translator::Producer::Dumper'
);
print $fh $output;
close $fh or die "Can't close file '$filename': $!";
-my $perl = $Config{'perlpath'};
open( NULL, ">", File::Spec->devnull );
-my $pid = open3( gensym, ">&NULL", \*PH, "$perl -cw $filename" );
+my $pid = open3( gensym, \*NULL, \*PH, "$^X -cw $filename" );
my $res;
while( <PH> ) { $res .= $_; }
waitpid($pid, 0);