diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/fail.t | 18 | ||||
-rwxr-xr-x | t/merge.t | 4 |
2 files changed, 5 insertions, 17 deletions
@@ -2,30 +2,18 @@ use strict; use warnings; +use lib qw(lib); use constant true => 1; use constant false => 0; -use File::Temp qw(tempfile tempdir tmpnam); +use Colorize::Common qw(:defaults $write_to_tmpfile); +use File::Temp qw(tempdir tmpnam); use IPC::Open3 qw(open3); use Symbol qw(gensym); use Test::More; my $tests = 20; -my $source = 'colorize.c'; -my $compiler = 'gcc'; - -my $write_to_tmpfile = sub -{ - my ($content) = @_; - - my ($fh, $tmpfile) = tempfile(UNLINK => true); - print {$fh} $content; - close($fh); - - return $tmpfile; -}; - my $run_program_fail = sub { my ($program, $args, $message) = @_; @@ -2,9 +2,11 @@ use strict; use warnings; +use lib qw(lib); use constant true => 1; use constant false => 0; +use Colorize::Common ':defaults'; use File::Temp qw(tmpnam); use Test::More; @@ -94,8 +96,6 @@ $tests += @merge_fail; $tests += @buffer; $tests += @pushback; -my $source = 'colorize.c'; -my $compiler = 'gcc'; my %programs; my $compile = sub |