MOON
Server: Apache/2.2.21 (Unix) mod_ssl/2.2.21 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
System: Linux vps.panamaemb.org.sg 3.10.0-1160.80.1.vz7.191.4 #1 SMP Thu Dec 15 20:31:06 MSK 2022 x86_64
User: panama (500)
PHP: 5.2.17
Disabled: NONE
Upload Files
File: //installd/perl588installer/DBD-SQLite-1.14/t/06error.t
use Test;
BEGIN { plan tests => 2 }
use DBI;

unlink('foo');
my $db = DBI->connect('dbi:SQLite:foo', '', '', { RaiseError => 1, PrintError => 0 });
eval {
  $db->do('ssdfsdf sdf sd sdfsdfdsf sdfsdf');
};
ok($@);

$db->do('create table testerror (a, b)');
$db->do('insert into testerror values (1, 2)');
$db->do('insert into testerror values (3, 4)');

$db->do('create unique index testerror_idx on testerror (a)');
eval {
  $db->do('insert into testerror values (1, 5)');
};
ok($@);