Codebase list libexception-class-dbi-perl / 91fdf1c
Fixed failing test. Incremented version number for 0.92 release. David Wheeler 19 years ago
5 changed file(s) with 16 addition(s) and 12 deletion(s). Raw diff Collapse all Expand all
+3
-0
Changes less more
00 Revision history for Perl extension Exception::Class::DBI.
1
2 0.92 2004-06-17T17:42:37
3 - Fixed test that was breaking with newer versions of DBI.
14
25 0.91 Tue Aug 26 02:25:56 2003
36 - Switched to Module::Build.
+6
-6
META.yml less more
00 --- #YAML:1.0
11 name: Exception-Class-DBI
2 version: 0.91
2 version: 0.92
3 author:
4 - David Wheeler <david@wheeler.net>
5 abstract: DBI Exception objects
36 license: perl
4 distribution_type: module
57 requires:
68 DBI: 1.28
79 Exception::Class: 1.02
8 recommends: {}
910 build_requires:
1011 Test::Harness: 2.03
1112 Test::Simple: 0.17
12 conflicts: {}
1313 provides:
1414 Exception::Class::DBI:
1515 file: lib/Exception/Class/DBI.pm
16 version: 0.91
17 generated_by: Module::Build version 0.19_05
16 version: 0.92
17 generated_by: Module::Build version 0.25_01
+1
-1
README less more
0 Exception/Class/DBI version 0.91
0 Exception/Class/DBI version 0.92
11 ================================
22
33 This module offers a set of DBI-specific exception classes. They inherit from
+2
-2
lib/Exception/Class/DBI.pm less more
00 package Exception::Class::DBI;
11
2 # $Id: DBI.pm,v 1.10 2003/08/26 02:24:44 david Exp $
2 # $Id: DBI.pm,v 1.11 2004/06/17 17:43:29 david Exp $
33
44 use 5.00500;
55 use strict;
66 use Exception::Class;
77 use vars qw($VERSION);
8 $VERSION = '0.91';
8 $VERSION = '0.92';
99
1010 use Exception::Class ( 'Exception::Class::DBI' =>
1111 { description => 'DBI exception',
+4
-3
t/sth.t less more
00 #!/usr/bin/perl -w
11
2 # $Id: sth.t,v 1.7 2002/12/12 20:15:48 david Exp $
2 # $Id: sth.t,v 1.8 2004/06/17 17:43:29 david Exp $
33
44 use strict;
55 use Test::More (tests => 35);
3535 ok( $err->err == 2, "Check err" );
3636 is( $err->errstr, 'opendir(foo): No such file or directory',
3737 "Check errstr" );
38 is( $err->error, 'DBD::ExampleP::st execute failed: opendir(foo): No such '.
39 "file or directory\n", "Check error" );
38 like( $err->error,
39 qr/^DBD::ExampleP::st execute failed: opendir\(foo\): No such file or directory/,
40 "Check error" );
4041 is( $err->state, 'S1000', "Check state" );
4142 ok( ! defined $err->retval, "Check retval" );
4243