#!/usr/bin/perl
use strict;
use warnings;
use Test::More;

my @valid   = qw/ foo bar baz /;
my @compare = qw/ foo qux baz /;

my $log_file = 'log.txt';
my $err_file = 'err.txt';

Test::More->builder->output( $log_file );
Test::More->builder->failure_output( $err_file );

is_deeply( \@compare, \@valid, 'My Test' );

done_testing;

__END__