| use strict; | |
| use warnings; | |
| use File::Basename 'dirname'; | |
| use File::Spec::Functions qw/catfile/; | |
| use Test::More; | |
| use Test::Output; | |
| my $f = dirname(__FILE__); | |
| my $script = catfile($f, '..', 'script', 'tei2korapxml'); | |
| ok(-f $script, 'Script found'); | |
| stderr_is( | |
| sub { system('perl', $script, '--help') }, | |
| "This program is called from inside another script.\n", | |
| 'Help' | |
| ); | |
| done_testing; |