use Symbol qw(gensym);
use Test::More;
-my $tests = 20;
+my $tests = 25;
my $run_program_fail = sub
{
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' ], # NULify 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' ],