check in bombing test for subquery-with-as_query
[dbsrgits/DBIx-Class-Historic.git] / t / 64db.t
CommitLineData
70350518 1use strict;
2use warnings;
3
4use Test::More;
5use lib qw(t/lib);
6use DBICTest;
7
a47e1233 8my $schema = DBICTest->init_schema();
70350518 9
40708af1 10plan tests => 4;
0567538f 11
12# add some rows inside a transaction and commit it
13# XXX: Is storage->dbh the only way to get a dbh?
f9db5527 14$schema->storage->txn_begin;
0567538f 15for (10..15) {
f9db5527 16 $schema->resultset("Artist")->create( {
0567538f 17 artistid => $_,
18 name => "artist number $_",
19 } );
20}
f9db5527 21$schema->storage->txn_commit;
22my ($artist) = $schema->resultset("Artist")->find(15);
0567538f 23is($artist->name, 'artist number 15', "Commit ok");
24
0567538f 25# add some rows inside a transaction and roll it back
f9db5527 26$schema->storage->txn_begin;
0567538f 27for (21..30) {
f9db5527 28 $schema->resultset("Artist")->create( {
0567538f 29 artistid => $_,
30 name => "artist number $_",
31 } );
32}
f9db5527 33$schema->storage->txn_rollback;
34($artist) = $schema->resultset("Artist")->search( artistid => 25 );
0567538f 35is($artist, undef, "Rollback ok");
36
40708af1 37is_deeply (
a7b99956 38 get_storage_column_info ($schema->storage, 'collection', qw/size is_nullable/),
40708af1 39 {
40 collectionid => {
41 data_type => 'INTEGER',
a953d8d9 42 },
40708af1 43 name => {
44 data_type => 'varchar',
93cec8c3 45 },
40708af1 46 },
a7b99956 47 'Correctly retrieve column info (no size or is_nullable)'
40708af1 48);
49
50TODO: {
51 local $TODO = 'All current versions of SQLite seem to mis-report is_nullable';
52
53 is_deeply (
a7b99956 54 get_storage_column_info ($schema->storage, 'artist', qw/size/),
40708af1 55 {
56 'artistid' => {
57 'data_type' => 'INTEGER',
58 'is_nullable' => 0,
59 },
60 'name' => {
61 'data_type' => 'varchar',
62 'is_nullable' => 1,
63 },
64 'rank' => {
65 'data_type' => 'integer',
66 'is_nullable' => 0,
67 },
39da2a2b 68 },
40708af1 69 'Correctly retrieve column info (mixed null and non-null columns)'
70 );
a953d8d9 71};
a953d8d9 72
40708af1 73
a7b99956 74# Depending on test we need to strip away certain column info.
75# - SQLite is known to report the size differently from release to release
76# - Current DBD::SQLite versions do not implement NULLABLE
77# - Some SQLite releases report stuff that isn't there as undef
78
40708af1 79sub get_storage_column_info {
a7b99956 80 my ($storage, $table, @ignore) = @_;
40708af1 81
82 my $type_info = $storage->columns_info_for($table);
83
40708af1 84 for my $col (keys %$type_info) {
85 for my $type (keys %{$type_info->{$col}}) {
a7b99956 86 if (
87 grep { $type eq $_ } (@ignore)
88 or
89 not defined $type_info->{$col}{$type}
90 ) {
40708af1 91 delete $type_info->{$col}{$type};
92 }
93 }
94 }
95
96 return $type_info;
97}