Test --attr with multiple occurrences

diff --git a/t/fail.t b/t/fail.t
index 0348201a12bccb377be2b6b6113d211ac9a921ba..daf1867a6dbc277d28367e53184e6ae7b0565964 100755 (executable)
--- 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 = 23;
+my $tests = 24;
 
 my $run_program_fail = sub
 {
@@ -43,6 +43,7 @@ SKIP: {
         [ '--attr=:',                'must be provided a string'                   ],
         [ '--attr=bold:underscore',  'must have strings separated by ,'            ],
         [ '--attr=b0ld',             'must be provided valid attribute names'      ],
+        [ '--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'                          ],