#!/usr/bin/env perl
my
$tests
= 4;
diag(
"Running my tests"
);
plan
tests
=>
$tests
;
my
$cmd
= File::Spec->catfile(
'bin'
,
'anki_import'
);
$cmd
=~ s/\\/\\\\/;
stderr_like { `$^X
$cmd
` }
qr/usage: anki_import FILE/
,
'dies without file'
;
$cmd
= File::Spec->catfile(
'bin'
,
'anki_import'
);
$cmd
=~ s/\\/\\\\/;
stderr_like { `$^X
$cmd
blasdfah` }
qr/[FATAL].*does not exist/
,
'dies with bad file'
;
$cmd
= File::Spec->catfile(
'bin'
,
'anki_import'
);
$cmd
=~ s/\\/\\\\/;
my
$path
= File::Spec->catfile(
't'
,
'data'
,
'source.anki'
);
lives_ok { `$^X
$cmd
$path
` }
'can process good file'
;
rmtree
'anki_import_files'
;