summaryrefslogtreecommitdiff
path: root/t/reference_licenses.t
diff options
context:
space:
mode:
authorRené Scheibe <rene.scheibe@gmail.com>2014-09-29 10:46:12 +0200
committerRené Scheibe <rene.scheibe@gmail.com>2014-10-02 22:57:44 +0200
commit2eccb6dab4ea4bc1fb08eea681fcc03734895f8c (patch)
tree4561dd23eeeb126b71689fbd5a48cfc1943d8c62 /t/reference_licenses.t
parent9a3d0678cf416c41c9e816103e8e5df3ecffcbe4 (diff)
downloadninka-2eccb6dab4ea4bc1fb08eea681fcc03734895f8c.tar.gz
adapt tests to ninka script which is using the Perl modules
Diffstat (limited to 't/reference_licenses.t')
-rw-r--r--t/reference_licenses.t9
1 files changed, 2 insertions, 7 deletions
diff --git a/t/reference_licenses.t b/t/reference_licenses.t
index c01b64b..7a05a28 100644
--- a/t/reference_licenses.t
+++ b/t/reference_licenses.t
@@ -4,7 +4,7 @@ use Test::More;
use File::Temp qw(tempdir);
my $pwd = `pwd`; chomp $pwd;
-my $ninka_cmd = "$pwd/ninka.pl";
+my $ninka_cmd = "$pwd/bin/ninka";
my $licenses_dir = "$pwd/t/data/licenses";
my $expected_output_dir = "$pwd/t/data/expected_output";
my $temp_dir = tempdir(CLEANUP => 1);
@@ -17,17 +17,12 @@ plan tests => scalar(@license_files);
foreach my $license_file (@license_files) {
subtest $license_file => sub {
my $input_file = "$temp_dir/$license_file";
- my $output_file_expected = "$expected_output_dir/$license_file";
- my $output_file_actual = "$temp_dir/$license_file.license";
+ my $output_expected = read_file_as_string("$expected_output_dir/$license_file");
ok -e $input_file, "input file exists: '$input_file'";
- my $output_expected = read_file_as_string($output_file_expected);
my $output_ninka_stdout = `$ninka_cmd '$input_file'`; chomp $output_ninka_stdout;
- my $output_ninka_file = read_file_as_string($output_file_actual);
-
is $output_ninka_stdout => "$temp_dir/$license_file;$output_expected", 'stdout is as expected';
- is $output_ninka_file => $output_expected, 'file is as expected';
};
}