← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libdbix-searchbuilder-perl/intrepid

« back to all changes in this revision

Viewing changes to t/02records_object.t

  • Committer: Bazaar Package Importer
  • Author(s): Niko Tyni
  • Date: 2007-05-22 22:59:59 UTC
  • mfrom: (1.1.8 upstream)
  • Revision ID: james.westby@ubuntu.com-20070522225959-85fasy1na0irre21
Tags: 1.48-1
* New upstream release.
* Add build-dependency on libtest-pod-perl, for test coverage.
* Upgrade to debhelper compatibility level 5.
* Update watch file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/02records_object.t
104
104
} ]
105
105
}
106
106
 
 
107
sub schema_oracle { [
 
108
    "CREATE SEQUENCE Employees_seq",
 
109
    "CREATE TABLE Employees (
 
110
        id integer CONSTRAINT Employees_Key PRIMARY KEY,
 
111
        Name varchar(36)
 
112
    )",
 
113
    "CREATE SEQUENCE Phones_seq",
 
114
    "CREATE TABLE Phones (
 
115
        id integer CONSTRAINT Phones_Key PRIMARY KEY,
 
116
        Employee integer NOT NULL,
 
117
        Phone varchar(18)
 
118
    )",
 
119
] }
 
120
 
 
121
sub cleanup_schema_oracle { [
 
122
    "DROP SEQUENCE Employees_seq",
 
123
    "DROP TABLE Employees", 
 
124
    "DROP SEQUENCE Phones_seq",
 
125
    "DROP TABLE Phones", 
 
126
] }
 
127
 
 
128
 
107
129
package TestApp::Employee;
108
130
 
109
131
use base $ENV{SB_TEST_CACHABLE}?