Use Carp qw(croak). Die if no tests written (eg bad Test:Database con…

…fig).

sandbox/tim/tumbler.pl

@@ -25,6 +25,7 @@ =head1 prototype playground for exploring DBI Test design issues
 use File::Path;
 use File::Basename;
 use Data::Dumper;
+use Carp qw(croak);
 
 use lib 'lib';
 
@@ -60,6 +61,14 @@ =head1 prototype playground for exploring DBI Test design issues
     Context->new,
 );
 
+die "No tests written!\n"
+    unless -d $output_dir;
+
+exit 0;
+
+
+# ------
+
 
 sub get_input_tests {
     my ($template_dir) = @_;
@@ -116,9 +125,6 @@ sub write_test_file {
 }
 
 
-exit 0;
-
-
 # ------
 
 
@@ -179,7 +185,7 @@ sub dbd_settings_provider {
 
     my @tdb_handles = Test::Database->handles({ dbd => $driver });
     unless (@tdb_handles) {
-        warn_once("Skipped $driver driver - no Test::Database dsn config using the $driver driver\n");
+        warn_once("Skipped DBD::$driver - no Test::Database dsn config using the $driver driver\n");
         return;
     }
     #warn Dumper \@tdb_handles;