Unit Tests

- Corrected template to recognize all versions.
This commit is contained in:
Paul Beckingham 2014-12-21 13:12:16 -05:00
parent c81c18d261
commit 02e6530bd3

View file

@ -29,27 +29,12 @@ use strict;
use warnings;
use Test::More tests => 2;
# Ensure environment has no influence.
#delete $ENV{'TASKDATA'};
#delete $ENV{'TASKRC'};
use File::Basename;
my $ut = basename ($0);
#my $rc = $ut . '.rc';
# Create the rc file.
#if (open my $fh, '>', $rc)
#{
# print $fh "data.location=.\n",
# "confirmation=off\n";
# close $fh;
#}
# Bug <id> - <description>
my $output = qx{../src/tasksh --version 2>&1};
ok ($? == 0, "$ut: version check");
like ($output, qr/0.9.0.dev/ms, "$ut: tasksh version found");
like ($output, qr/^\d\.\d\.\d(?:\.beta\d)$/ms, "$ut: tasksh version found");
# Cleanup.
#unlink qw(), $rc;
exit 0;