From 3585dd50b9428db6691512575181da97b10e967b Mon Sep 17 00:00:00 2001
From: Steven Schubiger <stsc@refcnt.org>
Date: Tue, 19 Jul 2016 13:54:47 +0200
Subject: Move common data to a perl module

---
 test.pl | 23 +++--------------------
 1 file changed, 3 insertions(+), 20 deletions(-)

(limited to 'test.pl')

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 $@;
-- 
cgit v1.2.3