Stop shipping world writeable files in our tarball

[dbsrgits/DBIx-Class.git] / t / cdbi / 98-failure.t

use strict;
use Test::More;

#----------------------------------------------------------------------
# Test database failures
#----------------------------------------------------------------------

use lib 't/cdbi/testlib';
use Film;

Film->create_test_film;

{
  my $btaste = Film->retrieve('Bad Taste');
  isa_ok $btaste, 'Film', "We have Bad Taste";
  {
    no warnings 'redefine';
    local *DBIx::ContextualFetch::st::execute = sub { die "Database died" };
    eval { $btaste->delete };
    ::like $@, qr/Database died/s, "We failed";
  }
  my $still = Film->retrieve('Bad Taste');
  isa_ok $btaste, 'Film', "We still have Bad Taste";
}

{
  my $btaste = Film->retrieve('Bad Taste');
  isa_ok $btaste, 'Film', "We have Bad Taste";
  $btaste->numexplodingsheep(10);
  {
    no warnings 'redefine';
    local *DBIx::ContextualFetch::st::execute = sub { die "Database died" };
    eval { $btaste->update };
    ::like $@, qr/Database died/s, "We failed";
  }
  $btaste->discard_changes;
  my $still = Film->retrieve('Bad Taste');
  isa_ok $btaste, 'Film', "We still have Bad Taste";
  is $btaste->numexplodingsheep, 1, "with 1 sheep";
}

if (0) {
  my $sheep = Film->maximum_value_of('numexplodingsheep');
  is $sheep, 1, "1 exploding sheep";
  {
    local *DBIx::ContextualFetch::st::execute = sub { die "Database died" };
    my $sheep = eval { Film->maximum_value_of('numexplodingsheep') };
    ::like $@, qr/select.*Database died/s,
      "Handle database death in single value select";
  }
}

done_testing;