first commit

2021-11-01 17:16:06 +01:00
commit 717e9581ea
26 changed files with 2015 additions and 0 deletions
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+## no critic (ProtectPrivateSubs RequireLocalizedPunctuationVars)
+
+use v5.14;
+use warnings
+  FATAL    => qw(all),
+  NONFATAL => qw(deprecated exec internal malloc newline once portable redefine recursion uninitialized);
+
+use Test::Expander::Constants qw($ERROR_WAS);
+use constant TEST_CASES => {
+  'no exception'                              => { exception => '',    args => [],        output => '' },
+  'exception raised, no replacement required' => { exception => 'ABC', args => [],        output => "${ERROR_WAS}ABC" },
+  'exception raised, replacement required'    => { exception => 'ABC', args => [qw(B b)], output => "${ERROR_WAS}AbC" },
+};
+use Test::Builder::Tester tests => scalar(keys(%{TEST_CASES()}));
+
+use Test::Expander;
+
+foreach my $title (keys(%{TEST_CASES()})) {
+  test_out("ok 1 - $title");
+  $@ = TEST_CASES->{$title}->{exception};
+  is(
+    Test::Expander::_error(@{TEST_CASES->{$title}->{args}}),
+    TEST_CASES->{$title}->{output},
+    $title
+  );
+  test_test($title);
+}