File: rt77378.t

package info (click to toggle)
libdbix-runsql-perl 0.26-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 248 kB
  • sloc: perl: 825; sql: 26; makefile: 10
file content (29 lines) | stat: -rw-r--r-- 443 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!perl -w
use strict;
use Test::More;

use DBIx::RunSQL;

my $can_run = eval {
    require DBD::SQLite;
    1
};

if (not $can_run) {
    plan skip_all => "SQLite not installed";
}

plan tests => 1;

my $dsn = 'dbi:SQLite:dbname=:memory:';

my $lives = eval {
    DBIx::RunSQL->create(
       verbose => 0,
       dsn     => $dsn,
       sql     => 't/rt77378.sql',
    );
    1
};
ok $lives, "We can parse triggers (RT 77378)"
    or diag $@;