use warnings;
use strict;
use Test::More tests => 1;
use Config;
my $perl = $Config{perlpath};
# Testing of set_filter_db, is_filtered and reuse_current_ahl
my $output = `$perl t/set_filter.pl`;
my $expected = read_file('t/set_filter.txt');
is($output, $expected, 'testing set_filter_db, is_filtered and reuse_current_ahl');
# Read in text file
sub read_file {
my $infile = shift;
local $/; # Enable slurp mode
open my $fh, '<', $infile or die "Can't open $infile: $!";
return <$fh>;
};