DBIx-Class-UUIDColumns now has it's own working test suite

[dbsrgits/DBIx-Class-UUIDColumns.git] / t / lib / UUIDTest / Setup.pm

diff --git a/t/lib/UUIDTest/Setup.pm b/t/lib/UUIDTest/Setup.pm
new file mode 100755 (executable)
index 0000000..a9efc71
--- /dev/null
+++ b/t/lib/UUIDTest/Setup.pm
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use UUIDTest;
+
+my $schema = UUIDTest->initialise;
+
+$schema->storage->on_connect_do([ "PRAGMA synchronous = OFF" ]);
+
+my $dbh = $schema->storage->dbh;
+
+$schema->deploy;
+
+$schema->storage->dbh->do("PRAGMA synchronous = OFF");
+
+1;