t/lib/RestrictByUserTest.pm

   1 package # hide from PAUSE
   2     RestrictByUserTest;
   3
   4 use strict;
   5 use warnings;
   6 use RestrictByUserTest::Schema;
   7
   8 sub init_schema {
   9   my $self = shift;
  10   my $db_file = "t/var/RestrictByUserTest.db";
  11
  12   unlink($db_file) if -e $db_file;
  13   unlink($db_file . "-journal") if -e $db_file . "-journal";
  14   mkdir("t/var") unless -d "t/var";
  15
  16   my $schema = RestrictByUserTest::Schema->connect( "dbi:SQLite:${db_file}");
  17   $schema->deploy();
  18   return $schema;
  19 }
  20
  21 1;