install/5.005/DBD-Pg-1.22-fixvercmp/t/02prepare.t

   1 use strict;
   2 use DBI;
   3 use Test::More;
   4
   5 if (defined $ENV{DBI_DSN}) {
   6   plan tests => 8;
   7 } else {
   8   plan skip_all => 'cannot test without DB info';
   9 }
  10
  11 my $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
  12                        {RaiseError => 1, AutoCommit => 0}
  13                       );
  14 ok(defined $dbh,
  15    'connect with transaction'
  16   );
  17
  18 my $sql = <<SQL;
  19         SELECT *
  20           FROM test
  21 SQL
  22
  23 ok($dbh->prepare($sql),
  24    "prepare: $sql"
  25   );
  26
  27 $sql = <<SQL;
  28         SELECT id
  29           FROM test
  30 SQL
  31
  32 ok($dbh->prepare($sql),
  33    "prepare: $sql"
  34   );
  35
  36 $sql = <<SQL;
  37         SELECT id
  38              , name
  39           FROM test
  40 SQL
  41
  42 ok($dbh->prepare($sql),
  43    "prepare: $sql"
  44   );
  45
  46 $sql = <<SQL;
  47         SELECT id
  48              , name
  49           FROM test
  50          WHERE id = 1
  51 SQL
  52
  53 ok($dbh->prepare($sql),
  54    "prepare: $sql"
  55   );
  56
  57 $sql = <<SQL;
  58         SELECT id
  59              , name
  60           FROM test
  61          WHERE id = ?
  62 SQL
  63
  64 ok($dbh->prepare($sql),
  65    "prepare: $sql"
  66   );
  67
  68 $sql = <<SQL;
  69         SELECT *
  70            FROM test
  71          WHERE id = ?
  72            AND name = ?
  73            AND value = ?
  74            AND score = ?
  75            and data = ?
  76 SQL
  77
  78 ok($dbh->prepare($sql),
  79    "prepare: $sql"
  80   );
  81
  82 ok($dbh->disconnect(),
  83    'disconnect'
  84   );