diff options
author | Jay Berkenbilt <ejb@ql.org> | 2022-06-05 03:15:40 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2022-06-18 15:02:55 +0200 |
commit | f1f711963b8e5f0b2b5a9d80a522cbd616a153a9 (patch) | |
tree | 9c5bc0bcf39cd6854786f60e68da42ddf90c3f99 /libtests/qtest/logger.test | |
parent | f588d74140b2a86026929aa401c9852ec215d4af (diff) | |
download | qpdf-f1f711963b8e5f0b2b5a9d80a522cbd616a153a9.tar.zst |
Add and test QPDFLogger class
Diffstat (limited to 'libtests/qtest/logger.test')
-rw-r--r-- | libtests/qtest/logger.test | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/libtests/qtest/logger.test b/libtests/qtest/logger.test new file mode 100644 index 00000000..86767eff --- /dev/null +++ b/libtests/qtest/logger.test @@ -0,0 +1,33 @@ +#!/usr/bin/env perl +require 5.008; +use warnings; +use strict; + +chdir("logger") or die "chdir testdir failed: $!\n"; + +require TestDriver; + +my $td = new TestDriver('logger'); + +cleanup(); + +$td->runtest("logger", + {$td->COMMAND => "logger >stdout 2>stderr"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->runtest("check stdout", + {$td->FILE => "stdout"}, + {$td->FILE => "exp-stdout"}, + $td->NORMALIZE_NEWLINES); +$td->runtest("check stderr", + {$td->FILE => "stderr"}, + {$td->FILE => "exp-stderr"}, + $td->NORMALIZE_NEWLINES); + +cleanup(); +$td->report(3); + +sub cleanup +{ + unlink "stdout", "stderr"; +} |