Enhance message if attribute is invalid

[colorize.git] / t / fail.t

diff --git a/t/fail.t b/t/fail.t
index b7f0dcbcd5882982245fdf520ce817f66daee62d..e2d71beb121c1fa58acad76208097c6d906fb02a 100755 (executable)
--- a/t/fail.t
+++ b/t/fail.t
@@ -2,29 +2,17 @@
 
 use strict;
 use warnings;
+use lib qw(lib);
 use constant true  => 1;
 use constant false => 0;
 
-use File::Temp qw(tempfile tempdir tmpnam);
+use Colorize::Common qw(:defaults $write_to_tmpfile);
+use File::Temp qw(tempdir tmpnam);
 use IPC::Open3 qw(open3);
 use Symbol qw(gensym);
 use Test::More;
 
-my $tests = 20;
-
-my $source = 'colorize.c';
-my $compiler = 'gcc';
-
-my $write_to_tmpfile = sub
-{
-    my ($content) = @_;
-
-    my ($fh, $tmpfile) = tempfile(UNLINK => true);
-    print {$fh} $content;
-    close($fh);
-
-    return $tmpfile;
-};
+my $tests = 25;
 
 my $run_program_fail = sub
 {
@@ -52,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'             ], # 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'                    ],