The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package # hide from PAUSE
    RestrictByUserTest;

use strict;
use warnings;
use RestrictByUserTest::Schema;

sub init_schema {
  my $self = shift;
  my $db_file = "t/var/RestrictByUserTest.db";

  unlink($db_file) if -e $db_file;
  unlink($db_file . "-journal") if -e $db_file . "-journal";
  mkdir("t/var") unless -d "t/var";

  my $schema = RestrictByUserTest::Schema->connect( "dbi:SQLite:${db_file}");
  $schema->deploy();
  return $schema;
}

1;