first commit

t/Test/Expander/new_ok.t

@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+use v5.14;
+use warnings
+  FATAL    => qw(all),
+  NONFATAL => qw(deprecated exec internal malloc newline once portable redefine recursion uninitialized);
+
+use constant {
+  CLASS      => 't::Test::Expander::Boilerplate',
+  TEST_CASES => {
+    'no args'       => undef,
+    'args supplied' => [ 0 .. 1 ],
+  },
+};
+use Test::Builder::Tester tests => scalar(keys(%{TEST_CASES()}));
+
+use Test::Expander;
+use t::Test::Expander::Boilerplate;
+
+foreach my $title (keys(%{TEST_CASES()})) {
+  test_out("ok 1 - An object of class '@{[CLASS]}' isa '@{[CLASS]}'");
+  new_ok(CLASS, TEST_CASES->{$title}, $title);
+  test_test($title);
+}