aboutsummaryrefslogtreecommitdiffstats
path: root/test.pl
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org> 2016-07-19 13:54:47 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org> 2016-07-19 13:54:47 +0200
commit3585dd50b9428db6691512575181da97b10e967b (patch)
tree740bd1033725732459713a50d404338cf0c2783a /test.pl
parent3fea379ff56e28600ec70fbabfa0392cf8dfac08 (diff)
downloadcolorize-3585dd50b9428db6691512575181da97b10e967b.tar.gz
colorize-3585dd50b9428db6691512575181da97b10e967b.tar.bz2
Move common data to a perl module
Diffstat (limited to 'test.pl')
-rwxr-xr-xtest.pl23
1 files changed, 3 insertions, 20 deletions
diff --git a/test.pl b/test.pl
index 570a7b7..476cb7a 100755
--- a/test.pl
+++ b/test.pl
@@ -2,34 +2,17 @@
use strict;
use warnings;
+use lib qw(lib);
use constant true => 1;
use constant false => 0;
-use File::Temp qw(tempfile tmpnam);
+use Colorize::Common qw(:defaults $compiler_flags %BUF_SIZE $write_to_tmpfile);
+use File::Temp qw(tmpnam);
use Test::Harness qw(runtests);
use Test::More;
my $tests = 24;
-my %BUF_SIZE = (
- normal => 1024,
- short => 10,
-);
-my $source = 'colorize.c';
-my $compiler = 'gcc';
-my $compiler_flags = '-ansi -pedantic -Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter';
-
-my $write_to_tmpfile = sub
-{
- my ($content) = @_;
-
- my ($fh, $tmpfile) = tempfile(UNLINK => true);
- print {$fh} $content;
- close($fh);
-
- return $tmpfile;
-};
-
{
my @test_files = glob('t/*.t');
eval { runtests(@test_files) } or warn $@;