X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=install%2F5.005%2FDBD-Pg-1.22-fixvercmp%2Ft%2F03bind.t;fp=install%2F5.005%2FDBD-Pg-1.22-fixvercmp%2Ft%2F03bind.t;h=0000000000000000000000000000000000000000;hp=df7c8843e9c56753e658364edc40882dd7535ad1;hb=3a9c534d55e1736545ef8037e1391101c7a11f2b;hpb=7a67b0df697c1aa35e148bd5b2f1f765bf1969f6

diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/t/03bind.t b/install/5.005/DBD-Pg-1.22-fixvercmp/t/03bind.t
deleted file mode 100644
index df7c8843e..000000000
--- a/install/5.005/DBD-Pg-1.22-fixvercmp/t/03bind.t
+++ /dev/null
@@ -1,85 +0,0 @@
-use strict;
-use DBI;
-use Test::More;
-
-if (defined $ENV{DBI_DSN}) {
-  plan tests => 11;
-} else {
-  plan skip_all => 'cannot test without DB info';
-}
-
-my $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
-		       {RaiseError => 1, AutoCommit => 0}
-		      );
-ok(defined $dbh,
-   'connect with transaction'
-  );
-
-my $sql = <<SQL;
-  SELECT id
-  , name
-  FROM test
-  WHERE id = ?
-SQL
-my $sth = $dbh->prepare($sql);
-ok(defined $sth,
-   "prepare: $sql"
-  );
-
-ok($sth->bind_param(1, 'foo'),
-   'bind int column with string'
-   );
-
-ok($sth->bind_param(1, 1),
-   'rebind int column with int'
-   );
-
-$sql = <<SQL;
-   SELECT id
-   , name
-   FROM test
-   WHERE id = ?
-   AND name = ?
-SQL
-$sth = $dbh->prepare($sql);
-ok(defined $sth,
-   "prepare: $sql"
-  );
-
-ok($sth->bind_param(1, 'foo'),
-   'bind int column with string',
-  );
-ok($sth->bind_param(2, 'bar'),
-   'bind string column with text'
-   );
-ok($sth->bind_param(2, 'baz'),
-   'rebind string column with text'
-  );
-
-ok($sth->finish(),
-   'finish'
-   );
-
-# Make sure that we get warnings when we try to use SQL_BINARY.
-{
-  local $SIG{__WARN__} =
-    sub { ok($_[0] =~ /^Use of SQL type SQL_BINARY/,
-	     'warning with SQL_BINARY'
-	    );
-	};
-
-  $sql = <<SQL;
-	 SELECT id
-	 , name
-	 FROM test
-	 WHERE id = ?
-	 AND name = ?
-SQL
-  $sth = $dbh->prepare($sql);
-
-  $sth->bind_param(1, 'foo', DBI::SQL_BINARY);
-}
-
-ok($dbh->disconnect(),
-   'disconnect'
-  );