| Akron | 92ad95b | 2016-08-15 23:38:56 +0200 | [diff] [blame^] | 1 | use strict; |
| 2 | use warnings; | ||||
| 3 | use Test::More; | ||||
| 4 | use File::Basename 'dirname'; | ||||
| 5 | use File::Spec::Functions qw/catfile/; | ||||
| 6 | use Test::Output; | ||||
| 7 | use FindBin; | ||||
| 8 | |||||
| 9 | my $script = catfile(dirname(__FILE__), '..', 'script', 'korapxml2krill'); | ||||
| 10 | |||||
| 11 | stdout_like( | ||||
| 12 | sub { system('perl', $script) }, | ||||
| 13 | qr!Usage.+?korapxml2krill!s, | ||||
| 14 | 'Usage output' | ||||
| 15 | ); | ||||
| 16 | |||||
| 17 | done_testing; | ||||
| 18 | __END__ | ||||