Test what happens when we don't have connection info

t/Test/Lystyng/Schema.pm

@@ -16,6 +16,21 @@ sub check_connect : Tests {
   isa_ok($sch, 'Lystyng::Schema');
 }
 
+sub broken_connect : Tests {
+  my $self = shift;
+
+  local %ENV;
+
+  for (qw[ HOST NAME USER PASS ]) {
+    delete $ENV{"LYSTYNG_DB_$_"};
+  }
+
+  $self->_clear_schema;
+  my $sch = eval { $self->schema };
+
+  ok($@, 'Schema error with missing env variables');
+}
+
 sub check_rs : Tests {
   my $sch = shift->schema;
 

t/Test/Role/WithSchema.pm

@@ -14,11 +14,12 @@ has schema => (
   isa     => 'Lystyng::Schema',
   lazy    => 1,
   builder => '_build_schema',
+  clearer => '_clear_schema',
 );
 
 sub _build_schema {
   my $schema = eval { Lystyng::Schema->get_schema };
-  BAIL_OUT($@) if $@;
+  die ($@) if $@;
   return $schema;
 }