X-Git-Url: http://git.refcnt.org/?a=blobdiff_plain;f=t%2Ffail.t;h=10378c412548fc694ad1e711dbf3c983b19d82fd;hb=bcd256396593896a9e2c287afead4bbfbd65a437;hp=a72e9ab9ad256e183329be60fab4db1529b5e56d;hpb=3585dd50b9428db6691512575181da97b10e967b;p=colorize.git diff --git a/t/fail.t b/t/fail.t index a72e9ab..10378c4 100755 --- a/t/fail.t +++ b/t/fail.t @@ -12,7 +12,7 @@ use IPC::Open3 qw(open3); use Symbol qw(gensym); use Test::More; -my $tests = 20; +my $tests = 25; my $run_program_fail = sub { @@ -40,14 +40,19 @@ SKIP: { my $dir = tempdir(CLEANUP => true); my @set = ( + [ '--attr=:', 'must be provided a string' ], + [ '--attr=bold:underscore', 'must have strings separated by ,' ], + [ '--attr=b0ld', 'attribute \'b0ld\' is not valid' ], + [ '--attr=b0ld,underscore', 'attribute \'b0ld\' is not valid' ], # handle comma + [ '--attr=bold,bold', 'has attribute \'bold\' twice or more' ], [ '--exclude-random=random', 'must be provided a plain color' ], [ '--clean --clean-all', 'mutually exclusive' ], [ '--clean file1 file2', 'more than one file' ], [ '--clean-all file1 file2', 'more than one file' ], [ '- file', 'hyphen cannot be used as color string' ], - [ '-', 'hyphen must be preceeded by color string' ], + [ '-', 'hyphen must be preceded by color string' ], [ "$file file", 'cannot be used as color string' ], - [ "$file", 'must be preceeded by color string' ], + [ "$file", 'must be preceded by color string' ], [ "$dir", 'is not a valid file type' ], [ '/black', 'foreground color missing' ], [ 'white/', 'background color missing' ],