first commit

t/Test/Expander/_newTestMessage.t

@@ -0,0 +1,24 @@
+#!/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($NEW_FAILED $NEW_SUCCEEDED);
+use constant TEST_CASES => {
+  "'new' succeeded" => { exception => '',    output => $NEW_SUCCEEDED },
+  "'new' failed"    => { exception => 'ABC', output => $NEW_FAILED },
+};
+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};
+  my $expected = TEST_CASES->{$title}->{output} =~ s/%s/.*/gr;
+  like(Test::Expander::_newTestMessage('CLASS'), qr/$expected/, $title);
+  test_test($title);
+}