aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/fail.t18
-rwxr-xr-xt/merge.t4
2 files changed, 5 insertions, 17 deletions
diff --git a/t/fail.t b/t/fail.t
index b7f0dcb..a72e9ab 100755
--- a/t/fail.t
+++ b/t/fail.t
@@ -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) = @_;
diff --git a/t/merge.t b/t/merge.t
index e2f0de6..848c022 100755
--- a/t/merge.t
+++ b/t/merge.t
@@ -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