| Akron | 797e807 | 2020-02-13 07:59:40 +0100 | [diff] [blame] | 1 | use strict; |
| 2 | use warnings; | ||||
| 3 | use File::Basename 'dirname'; | ||||
| 4 | use File::Spec::Functions qw/catfile/; | ||||
| 5 | |||||
| 6 | use Test::More; | ||||
| 7 | use Test::Output; | ||||
| 8 | |||||
| 9 | my $f = dirname(__FILE__); | ||||
| 10 | my $script = catfile($f, '..', 'script', 'tei2korapxml'); | ||||
| 11 | ok(-f $script, 'Script found'); | ||||
| 12 | |||||
| 13 | stderr_is( | ||||
| 14 | sub { system('perl', $script, '--help') }, | ||||
| 15 | "This program is called from inside another script.\n", | ||||
| 16 | 'Help' | ||||
| 17 | ); | ||||
| 18 | |||||
| 19 | |||||
| 20 | done_testing; | ||||