use
5.006;
use
strict;
use
Test::Script::Run;
run_not_ok(
'fascodon'
, [],
'No input test'
);
# my $test_file = 't/data/fascodon_test.fas';
# my $test_file2 = 't/data/fascodon_test.output.txt';
# open( my $test, "<", $test_file2 ) || die "Can't open $test_file2";
# my @output = <$test>;
# chomp(@output);
# close($test);
# my @default_test = @output[6..78];
# my @default_test_err = @output[0..5];
# my @order_test = @output[79..151];
# my @append_test = @output[152..161];
# my @indiv_test = @output[162..$#output];
# run_not_ok('fascodon', [], 'No input test');
# my @temp = @default_test;
# run_output_matches('fascodon', [$test_file],
# \@default_test, \@default_test_err,
# 'Checking default options');
# run_output_matches('fascodon', ['-s', $test_file],
# \@temp, [],'Checking suppress options');
# run_output_matches('fascodon', ['-sg', $test_file],
# \@order_test, [],'Checking order options');
# run_output_matches('fascodon', ['-sa', $test_file],
# \@append_test, [],'Checking append options');
# run_output_matches('fascodon', ['-sv', $test_file],
# \@indiv_test, [],'Checking individual options');