install/5.005/DBD-Pg-1.22-fixvercmp/t/01constants.t

   1 use strict;
   2 use Test::More tests => 20;
   3
   4 use DBD::Pg qw(:pg_types);
   5
   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');