File Coverage

lib/Class/DBI/Lite/Fixture.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch			n/a
condition	1	2	50.0
subroutine	3	5	60.0
pod			n/a
total	17	24	70.8

package Class::DBI::Lite::Fixture;

use strict;
use warnings 'all';

my @destroys = ( );

my $_instance;


sub import
{
  my ($class, @fixtures) = @_;

  $_instance ||= bless { }, $class;

  map {
    my $setup = "setup_$_";
    my $destroy = "destroy_$_";
    push @destroys, sub { $class->$destroy };
    $class->$setup
  } @fixtures;
}# end import()


DESTROY
{
  map { eval { $_->() } } @destroys;
}# end DESTROY()

1;# return true:

=pod

=head1 NAME

Class::DBI::Lite::Fixture - Test fixtures for easy testing.

=head1 SYNOPSIS

=head2 In Your Test Fixture

  package app::fixtures;

  use strict;
  use warnings 'all';
  use base 'Class::DBI::Lite::Fixture';
  use app::state;

  my @state_info = qw( AL:Alabama AK:Alaska AR:Arkansas );
  my @states = ( );

  sub setup_states {
    push @states, map {
      my ($abbr, $name) = split /\:/, $_;
      app::state->find_or_create(
        name  => $name,
        abbr  => $abbr,
      )
    } @state_info;
  }# end setup_states()

  sub destroy_states {
    map { eval{$_->delete} } @states;
  }# end destroy_states()

  1;# return true:

=head2 In Your Test File

  use strict;
  use warnings 'all';
  use Test::More 'no_plan';
  use lib qw( lib t/lib );

  # Setup your test fixtures:
  use app::fixtures 'states';

  use_ok('app::state');
  is(
    app::state->count_search(abbr => 'AL') => 1
  );

  # The 'app::state' records are automatically deleted in 'destroy_states'!

=head1 DESCRIPTION

This module provides stubs for the use of "test fixtures" to test your code.

=head1 AUTHOR

Copyright John Drago .  All rights reserved.

=head1 LICENSE

This software is Free software and may be used and redistributed under the
same terms as perl itself.

=cut