1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# $Id$
# Completely new test for DBD::Oracle which came from DBD::ODBC
# Author: Martin J. Evans
#
# loads of execute_array and execute_for_fetch tests using DBI's methods
#
use Test::More;
use strict;
use Data::Dumper;
require 'nchar_test_lib.pl';
use lib 't/lib', 't';
$| = 1;
my $has_test_nowarnings = eval "require Test::NoWarnings; 1";
use DBI qw(:sql_types);
use ExecuteArray;
my $dsn = oracle_test_dsn();
my $dbuser = $ENV{ORACLE_USERID} || 'scott/tiger';
$ENV{NLS_NCHAR} = "US7ASCII";
$ENV{NLS_LANG} = "AMERICAN";
my $dbh = eval {
DBI->connect($dsn, $dbuser, '', {PrintError => 0})
} or plan skip_all => "Unable to connect to Oracle";
my $ea = ExecuteArray->new($dbh, 1); # set odbc_disable_array_operations
$dbh = $ea->dbh;
$ea->drop_table($dbh);
ok($ea->create_table($dbh), "create test table") or exit 1;
$ea->simple($dbh, {array_context => 1, raise => 1});
$ea->simple($dbh, {array_context => 0, raise => 1});
$ea->error($dbh, {array_context => 1, raise => 1});
$ea->error($dbh, {array_context => 0, raise => 1});
$ea->error($dbh, {array_context => 1, raise => 0});
$ea->error($dbh, {array_context => 0, raise => 0});
$ea->row_wise($dbh, {array_context => 1, raise => 1});
$ea->update($dbh, {array_context => 1, raise => 1});
for my $raise ( 0..1 ) {
for my $context ( 0..1 ) {
$ea->error($dbh, {
array_context => $context,
raise => $raise,
notuplestatus => 1
});
}
}
if ($dbh && $ea) {
$ea->drop_table($dbh);
$dbh->disconnect();
}
Test::NoWarnings::had_no_warnings() if $has_test_nowarnings;
done_testing;
|
