1#@!#!123s

��JFIF�� 1#@!#!123s

: / proc / thread-self / root / opt / PUC / t / Module / SQLiteStore /

Filename : 01-load.t

back

#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;
use Test::Exception;
use DBI;

## no critic (ProhibitConstantPragma)
use constant CLASS => 'PUC::Module::WebApp::SQLiteStore';
## use critic

if ( use_ok(CLASS) ) {
    my $store;
    subtest 'create storage object' => sub {
        lives_ok {
            $store = CLASS->new( dbfile => ':memory:' );
        }
        'New memory store';
    };
    subtest 'creating object sets the dsn' => sub {
        like $store->dsn, qr/ ^ dbi:SQLite \b /x,
          'dsn specifies SQLite driver';
        lives_ok {
            DBI->connect_cached( $store->dsn );
        }
        'Connect using DSN';
    };
}

done_testing;