| use strict; | |
| use warnings; | |
| use Test::More; | |
| use File::Basename 'dirname'; | |
| use File::Spec::Functions qw/catfile/; | |
| use Test::Output; | |
| use FindBin; | |
| my $script = catfile(dirname(__FILE__), '..', 'script', 'korapxml2krill'); | |
| stdout_like( | |
| sub { system('perl', $script) }, | |
| qr!Usage.+?korapxml2krill!s, | |
| 'Usage output' | |
| ); | |
| done_testing; | |
| __END__ |