package FixMyStreet::Test; use parent qw(Exporter); use strict; use warnings FATAL => 'all'; use utf8; use Test::More; use mySociety::Locale; BEGIN { use FixMyStreet; FixMyStreet->test_mode(1); mySociety::Locale::gettext_domain('FixMyStreet', 1); } use FixMyStreet::DB; my $db = FixMyStreet::DB->schema->storage; sub import { strict->import; warnings->import(FATAL => 'all'); utf8->import; Test::More->export_to_level(1); $db->txn_begin; } END { $db->txn_rollback if $db; } 1;