#!/usr/bin/perl

use strict;
use warnings;
use TAP::Harness;

$| = 1; 

my %args = (
        verbosity => 1,
        timer     => 1,
        color     => 1,
        errors    => 1,
        trap      => 1,
        merge     => 1,
);


my @tests =  '/root/Desktop/extract/Archive-Extract-0.58/t/01_Archive-Extract.t';

my $harness = TAP::Harness->new( \%args );
$harness->runtests(@tests);
print $harness->aggregate_tests;