-
Notifications
You must be signed in to change notification settings - Fork 151
/
746db2_400.t
86 lines (70 loc) · 2.14 KB
/
746db2_400.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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_db2_400';
use strict;
use warnings;
use Test::More;
use DBICTest;
# Probably best to pass the DBQ option in the DSN to specify a specific
# libray. Something like:
# DBICTEST_DB2_400_DSN='dbi:ODBC:dsn=MyAS400;DBQ=MYLIB'
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_DB2_400_${_}" } qw/DSN USER PASS/};
plan tests => 6;
my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
my $dbh = $schema->storage->dbh;
eval { $dbh->do("DROP TABLE artist") };
$dbh->do(<<'');
CREATE TABLE artist (
artistid INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 1, INCREMENT BY 1),
name VARCHAR(255),
rank INTEGER default 13 not null,
charfield CHAR(10)
)
# Just to test loading, already in Core
$schema->class('Artist')->load_components('PK::Auto');
# test primary key handling
my $new = $schema->resultset('Artist')->create({ name => 'foo' });
ok($new->artistid, "Auto-PK worked");
# test LIMIT support
for (1..6) {
$schema->resultset('Artist')->create({ name => 'Artist ' . $_ });
}
my $it = $schema->resultset('Artist')->search( {},
{ rows => 3,
order_by => 'artistid'
}
);
is( $it->count, 3, "LIMIT count ok" );
is( $it->next->name, "foo", "iterator->next ok" );
$it->next;
is( $it->next->name, "Artist 2", "iterator->next ok" );
is( $it->next, undef, "next past end of resultset ok" );
my $test_type_info = {
'artistid' => {
'data_type' => 'INTEGER',
'is_nullable' => 0,
'size' => 10
},
'name' => {
'data_type' => 'VARCHAR',
'is_nullable' => 1,
'size' => 255
},
'rank' => {
'data_type' => 'INTEGER',
'is_nullable' => 0,
'size' => 10,
},
'charfield' => {
'data_type' => 'CHAR',
'is_nullable' => 1,
'size' => 10
},
};
my $type_info = $schema->storage->columns_info_for('artist');
is_deeply($type_info, $test_type_info, 'columns_info_for - column data types');
# clean up our mess
END {
my $dbh = eval { $schema->storage->_dbh };
$dbh->do("DROP TABLE artist") if $dbh;
undef $schema;
}