관리-도구
편집 파일: 01-load.t
#!/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;