/
45-oracle-common.t
46 lines (41 loc) · 1.2 KB
/
45-oracle-common.t
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
# DBIish/t/45-oracle-common.t
use v6;
need DBIish::CommonTesting;
DBIish::CommonTesting.new(
dbd => 'Oracle',
opts => {
database => 'XE',
user => 'TESTUSER',
password => 'Testpass',
},
drop-table-sql => "
BEGIN
EXECUTE IMMEDIATE 'DROP TABLE nom';
EXCEPTION
WHEN OTHERS THEN
IF SQLCODE != -942 THEN
RAISE;
END IF;
END;",
create-table-sql => "
CREATE TABLE nom (
name VARCHAR2(4),
description VARCHAR2(30),
quantity NUMBER(20),
price NUMBER(5,2)
)
",
select-null-query => "SELECT NULL FROM DUAL",
).run-tests;
=begin pod
=head1 PREREQUISITES
Your system should already have the Oracle InstantClient and Oracle XE
installed.
Connect to the Oracle XE database and set up a test environment with the
following:
CREATE USER "TESTUSER" IDENTIFIED BY Testpass DEFAULT TABLESPACE "USERS" TEMPORARY TABLESPACE "TEMP";
ALTER USER "TESTUSER" QUOTA UNLIMITED ON USERS;
GRANT "CONNECT" TO "TESTUSER";
GRANT CREATE TABLE TO "TESTUSER";
GRANT CREATE VIEW TO "TESTUSER";
=end pod