1 files changed, 30 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Test.pm b/perllib/FixMyStreet/Test.pm
new file mode 100644
index 000000000..add67dfd9
--- /dev/null
+++ b/perllib/FixMyStreet/Test.pm
@@ -0,0 +1,30 @@
+package FixMyStreet::Test;
+
+use parent qw(Exporter);
+
+use strict;
+use warnings FATAL => 'all';
+use utf8;
+use Test::More;
+use FixMyStreet::DB;
+
+my $db = FixMyStreet::DB->storage;
+
+sub import {
+    strict->import;
+    warnings->import(FATAL => 'all');
+    utf8->import;
+    Test::More->export_to_level(1);
+    $db->txn_begin;
+}
+
+BEGIN {
+    use FixMyStreet;
+    FixMyStreet->test_mode(1);
+}
+
+END {
+    $db->txn_rollback if $db;
+}
+
+1;