From: Steven Schubiger <stsc@refcnt.org>
Date: Thu, 28 May 2020 20:31:39 +0000 (+0200)
Subject: Test purposeless switches with --clean[-all]
X-Git-Url: http://git.refcnt.org/?p=colorize.git;a=commitdiff_plain;h=de43ee678c8b820dc190b312c4fa62cdb98bbcc8

Test purposeless switches with --clean[-all]
---

diff --git a/test.pl b/test.pl
index 0ed7436..928c698 100755
--- a/test.pl
+++ b/test.pl
@@ -13,7 +13,7 @@ use Getopt::Long qw(:config no_auto_abbrev no_ignore_case);
 use Test::Harness qw(runtests);
 use Test::More;
 
-my $tests = 30;
+my $tests = 32;
 
 my $valgrind_cmd = '';
 {
@@ -98,6 +98,14 @@ SKIP: {
         }
 
         ok(qx(printf %s "\e[\e[33m" | $valgrind_cmd$program $switch) eq "\e[", "$type with invalid sequence");
+
+        {
+            my $ok = true;
+            foreach my $option (qw(--attr=bold --exclude-random=black --omit-color-empty)) {
+                $ok &= qx($valgrind_cmd$program $option $switch $infile1 2>&1 >/dev/null) =~ /switch has no meaning with/;
+            }
+            ok($ok, "$type strict options");
+        }
     };
 
     $check_clean->($_) foreach qw(clean clean-all);