2 use Test::More tests => 20;
4 use DBD::Pg qw(:pg_types);
6 ok(PG_BOOL == 16, 'PG_BOOL');
7 ok(PG_BYTEA == 17, 'PG_BYTEA');
8 ok(PG_CHAR == 18, 'PG_CHAR');
9 ok(PG_INT8 == 20, 'PG_INT8');
10 ok(PG_INT2 == 21, 'PG_INT2');
11 ok(PG_INT4 == 23, 'PG_INT4');
12 ok(PG_TEXT == 25, 'PG_TEXT');
13 ok(PG_OID == 26, 'PG_OID');
14 ok(PG_FLOAT4 == 700, 'PG_FLOAT4');
15 ok(PG_FLOAT8 == 701, 'PG_FLOAT8');
16 ok(PG_ABSTIME == 702, 'PG_ABSTIME');
17 ok(PG_RELTIME == 703, 'PG_RELTIME');
18 ok(PG_TINTERVAL == 704, 'PG_TINTERVAL');
19 ok(PG_BPCHAR == 1042, 'PG_BPCHAR');
20 ok(PG_VARCHAR == 1043, 'PG_VARCHAR');
21 ok(PG_DATE == 1082, 'PG_DATE');
22 ok(PG_TIME == 1083, 'PG_TIME');
23 ok(PG_DATETIME == 1184, 'PG_DATETIME');
24 ok(PG_TIMESPAN == 1186, 'PG_TIMESPAN');
25 ok(PG_TIMESTAMP == 1296, 'PG_TIMESTAMP');