NAME

Data::Section::Fixture - data section as a fixture

SYNOPSIS

    use Data::Section::Fixture qw(with_fixture);

    my $dbh = DBI->connect(...);

    with_fixture($dbh, sub {
        # fixture data is only accessible inside this scope.
        my $rows = $dbh->selectall_arrayref('SELECT id FROM t ORDER BY id');
        is_deeply $rows, [[1], [2], [3]];
    });

    __DATA__
    @@ setup
    CREATE TABLE t (
        id int
    );
    INSERT INTO t (id) VALUES (1), (2), (3);

    @@ teardown
    DELETE FROM t;

DESCRIPTION

Data::Section::Fixture is a module to use __DATA__ section as a fixture data. This module is intended to be used with unit testing.

The mark @@ setup in __DATA__ section stands for setup SQL which is executed just before with_fixture. The SQL below the mark @@ teardown is executed at the end of with_fixture to tear down fixture data.

FUNCTION

with_fixture($dbh, $code_ref);

Fixture data is only accessible inside this function.

$dbh

database handler

$code_ref

executed code

LICENSE

Copyright (C) Yuuki Furuyama.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Yuuki Furuyama <addsict@gmail.com>