package TestApp::Controller::DB;

use strict;
use warnings;
use base qw( Catalyst::Controller );

sub setup : Local {
  my ($self, $c) = @_;

  my $database = $c->model('DB')->database;
  if ( $database && -f $database ) {
    $c->model('DB')->disconnect;
    unlink $database;
  }
  $c->model('DB')->setup_database;
  $c->res->body('set up');
}

sub teardown : Local {
  my ($self, $c) = @_;

  my $database = $c->model('DB')->database;
  if ( $database && -f $database ) {
    $c->model('DB')->disconnect;
    unlink $database;
  }
  $c->res->body('teared down');
}

1;