From 0562b13c5000dc51e89ba3c7f24ef3e5c64b6d61 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Tue, 10 Sep 2024 12:19:47 -0400
Subject: [PATCH] Add a test to check tests for #62 (too many reports for perl)

---
 t/cli/dist.t | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 t/cli/dist.t

diff --git a/t/cli/dist.t b/t/cli/dist.t
new file mode 100644
index 0000000..ddadac8
--- /dev/null
+++ b/t/cli/dist.t
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More;
+use TestCommand;
+
+subtest 'command: dist' => sub {
+	my $expected_reports = 14;
+	my( $stdout, $stderr, $exit ) = TestCommand->command( 'dist', 'perl', '5.024004' );
+
+	unlike $stdout, qr/CPANSA-perl-2023-47(?:100|038)/, 'CVE-2023-471100 nor CVE-2023-47028 are in the reports';
+	is $exit, 64 + $expected_reports, "there are $expected_reports reports";
+};
+
+done_testing;