[Bast-commits] r5319 - in
DBIx-Class/0.08/branches/sqla_1.50_compat: . lib/DBIx
lib/DBIx/Class lib/DBIx/Class/Manual
lib/DBIx/Class/Storage/DBI lib/DBIx/Class/Storage/DBI/Oracle
t t/lib t/lib/DBICTest t/lib/DBICTest/Schema
norbi at dev.catalyst.perl.org
norbi at dev.catalyst.perl.org
Sun Jan 18 19:40:54 GMT 2009
Author: norbi
Date: 2009-01-18 19:40:54 +0000 (Sun, 18 Jan 2009)
New Revision: 5319
Added:
DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema/BindType.pm
Modified:
DBIx-Class/0.08/branches/sqla_1.50_compat/
DBIx-Class/0.08/branches/sqla_1.50_compat/Changes
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Manual/Cookbook.pod
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/ResultSet.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Schema.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/MSSQL.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/t/99dbic_sqlt_parser.t
DBIx-Class/0.08/branches/sqla_1.50_compat/t/bindtype_columns.t
DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema.pm
DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/sqlite.sql
Log:
r5410 at vger: mendel | 2009-01-18 20:40:15 +0100
r5392 at vger (orig r5301): norbi | 2009-01-12 11:55:54 +0100
r5391 at vger: mendel | 2009-01-12 11:55:48 +0100
* Reworded $rs->current_source_alias POD (thanks to castaway).
r5398 at vger (orig r5307): caelum | 2009-01-14 02:25:28 +0100
auto_savepoint support for Oracle and a note on txn_do for with "AutoCommit => 0"
r5404 at vger (orig r5313): ribasushi | 2009-01-16 11:29:16 +0100
Proper MSSQL last_insert_id() scoping patch by abraxxa
No tests as it is very hard to simulate the problematic behavior - it would only manifest if:
1) An INSERT statement is issued from connection A
2) An INSERT statement is issued from connection B
3) last_insert_id is called from connection A
Without this patch the last id from the second INSERT will be returned in step 3
Tested with both DBICTEST_MSSQL_ODBC_DSN and DBICTEST_MSSQL_DSN against a MSSQL 2005
r5405 at vger (orig r5314): plu | 2009-01-16 19:25:57 +0100
Fixed typo in link
r5406 at vger (orig r5315): ribasushi | 2009-01-17 19:39:50 +0100
Stop 99dbic_sqlt_parser.t from breaking every time a new table is added
r5407 at vger (orig r5316): ribasushi | 2009-01-17 19:47:53 +0100
Fix borked t/bindtype_columns.t - TODO: still only tests PG, need to test Oracle as well
Property changes on: DBIx-Class/0.08/branches/sqla_1.50_compat
___________________________________________________________________
Name: svk:merge
- 168d5346-440b-0410-b799-f706be625ff1:/DBIx-Class-current:2207
462d4d0c-b505-0410-bf8e-ce8f877b3390:/local/bast/DBIx-Class:3159
4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/DBIx-Class/0.08/branches/resultsetcolumn_custom_columns:5160
4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/DBIx-Class/0.08/branches/sqla_1.50_compat:5390
4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/DBIx-Class/0.08/trunk:5388
9c88509d-e914-0410-b01c-b9530614cbfe:/local/DBIx-Class:32260
9c88509d-e914-0410-b01c-b9530614cbfe:/local/DBIx-Class-CDBICompat:54993
9c88509d-e914-0410-b01c-b9530614cbfe:/vendor/DBIx-Class:31122
bd5ac9a7-f185-4d95-9186-dbb8b392a572:/local/os/bast/DBIx-Class/0.08/trunk:2798
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/belongs_to_null_col_fix:5244
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/cdbicompat_integration:4160
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/complex_join_rels:4589
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/file_column:3920
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/on_disconnect_do:3694
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/oracle_sequence:4173
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/parser_fk_index:4485
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/replication_dedux:4600
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/savepoints:4223
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/storage-ms-access:4142
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/versioned_enhancements:4125
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/versioning:4578
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/trunk:5300
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-C3:318
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-current:2222
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-joins:173
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-resultset:570
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/datetime:1716
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/find_compat:1855
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/find_unique_query_fixes:2142
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/inflate:1988
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/many_to_many:2025
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/re_refactor_bugfix:1944
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/reorganize_tests:1827
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/resultset-new-refactor:1766
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/resultset_2_electric_boogaloo:2175
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/resultset_cleanup:2102
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/sqlt_tests_refactor:2043
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/trunk/DBIx-Class:3606
fe160bb6-dc1c-0410-9f2b-d64a711b54a5:/local/DBIC-trunk-0.08:10510
+ 168d5346-440b-0410-b799-f706be625ff1:/DBIx-Class-current:2207
462d4d0c-b505-0410-bf8e-ce8f877b3390:/local/bast/DBIx-Class:3159
4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/DBIx-Class/0.08/branches/resultsetcolumn_custom_columns:5160
4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/DBIx-Class/0.08/branches/sqla_1.50_compat:5410
4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/DBIx-Class/0.08/trunk:5391
9c88509d-e914-0410-b01c-b9530614cbfe:/local/DBIx-Class:32260
9c88509d-e914-0410-b01c-b9530614cbfe:/local/DBIx-Class-CDBICompat:54993
9c88509d-e914-0410-b01c-b9530614cbfe:/vendor/DBIx-Class:31122
bd5ac9a7-f185-4d95-9186-dbb8b392a572:/local/os/bast/DBIx-Class/0.08/trunk:2798
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/belongs_to_null_col_fix:5244
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/cdbicompat_integration:4160
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/complex_join_rels:4589
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/file_column:3920
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/on_disconnect_do:3694
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/oracle_sequence:4173
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/parser_fk_index:4485
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/replication_dedux:4600
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/savepoints:4223
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/storage-ms-access:4142
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/versioned_enhancements:4125
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/branches/versioning:4578
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/DBIx-Class/0.08/trunk:5316
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-C3:318
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-current:2222
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-joins:173
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class-resultset:570
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/datetime:1716
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/find_compat:1855
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/find_unique_query_fixes:2142
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/inflate:1988
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/many_to_many:2025
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/re_refactor_bugfix:1944
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/reorganize_tests:1827
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/resultset-new-refactor:1766
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/resultset_2_electric_boogaloo:2175
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/resultset_cleanup:2102
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/branches/DBIx-Class/sqlt_tests_refactor:2043
bd8105ee-0ff8-0310-8827-fb3f25b6796d:/trunk/DBIx-Class:3606
fe160bb6-dc1c-0410-9f2b-d64a711b54a5:/local/DBIC-trunk-0.08:10510
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/Changes
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/Changes 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/Changes 2009-01-18 19:40:54 UTC (rev 5319)
@@ -5,8 +5,10 @@
- 'result_class' resultset attribute, identical to result_class()
- add 'undef_on_null_fk' option for relationship accessors of type 'single'.
This will prevent DBIC from querying the database if one or more of
- the key columns IS NULL. Tests + docs (groditi)
- - for 'belongs_to' rels, 'null_on_fk' defaults to true.
+ the key columns IS NULL
+ - for 'belongs_to' rels, 'undef_on_null_fk' defaults to true.
+ - fixed scope unaware last_insert_id fetching for MSSQL
+ (http://msdn.microsoft.com/en-us/library/ms190315.aspx)
0.08099_05 2008-10-30 21:30:00 (UTC)
- Rewritte of Storage::DBI::connect_info(), extended with an
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Manual/Cookbook.pod
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Manual/Cookbook.pod 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Manual/Cookbook.pod 2009-01-18 19:40:54 UTC (rev 5319)
@@ -1268,7 +1268,7 @@
generator to put the quotes the correct place.
In most cases you should set these as part of the arguments passed to
-L<DBIx::Class::Schema/conect>:
+L<DBIx::Class::Schema/connect>:
my $schema = My::Schema->connect(
'dbi:mysql:my_db',
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/ResultSet.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/ResultSet.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -2104,9 +2104,8 @@
=back
-Returns the current alias of the result source that corrensponds to the result
-set (this alias will eventually be used as the SQL table alias in the SQL
-query). Usually it is C<me>.
+Returns the current table alias for the result source this resultset is built
+on, that will be used in the SQL query. Usually it is C<me>.
Currently the source alias that refers to the result set returned by a
L</search>/L</find> family method depends on how you got to the resultset: it's
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Schema.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Schema.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Schema.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -573,6 +573,14 @@
This interface is preferred over using the individual methods L</txn_begin>,
L</txn_commit>, and L</txn_rollback> below.
+WARNING: If you are connected with C<AutoCommit => 0> the transaction is
+considered nested, and you will still need to call L</txn_commit> to write your
+changes when appropriate. You will also want to connect with C<auto_savepoint =>
+1> to get partial rollback to work, if the storage driver for your database
+supports it.
+
+Connecting with C<AutoCommit => 1> is recommended.
+
=cut
sub txn_do {
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/MSSQL.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/MSSQL.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/MSSQL.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -7,7 +7,7 @@
sub _dbh_last_insert_id {
my ($self, $dbh, $source, $col) = @_;
- my ($id) = $dbh->selectrow_array('SELECT @@IDENTITY');
+ my ($id) = $dbh->selectrow_array('SELECT SCOPE_IDENTITY()');
return $id;
}
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -103,6 +103,22 @@
sub datetime_parser_type { return "DateTime::Format::Oracle"; }
+sub _svp_begin {
+ my ($self, $name) = @_;
+
+ $self->dbh->do("SAVEPOINT $name");
+}
+
+# Oracle automatically releases a savepoint when you start another one with the
+# same name.
+sub _svp_release { 1 }
+
+sub _svp_rollback {
+ my ($self, $name) = @_;
+
+ $self->dbh->do("ROLLBACK TO SAVEPOINT $name")
+}
+
=head1 AUTHORS
Andy Grundman <andy at hybridized.org>
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class/Storage/DBI/Oracle.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -25,20 +25,6 @@
}
}
-sub _svp_begin {
- my ($self, $name) = @_;
-
- $self->dbh->do("SAVEPOINT $name");
-}
-
-# Would've implemented _svp_release here, but Oracle doesn't support it.
-
-sub _svp_rollback {
- my ($self, $name) = @_;
-
- $self->dbh->do("ROLLBACK TO SAVEPOINT $name")
-}
-
1;
=head1 NAME
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/lib/DBIx/Class.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -217,6 +217,8 @@
bricas: Brian Cassidy <bricas at cpan.org>
+caelum: Rafael Kitover <rkitover at cpan.org>
+
captainL: Luke Saunders <luke.saunders at gmail.com>
castaway: Jess Robinson
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/t/99dbic_sqlt_parser.t 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/t/99dbic_sqlt_parser.t 2009-01-18 19:40:54 UTC (rev 5319)
@@ -5,14 +5,16 @@
use lib qw(t/lib);
use DBICTest;
+
BEGIN {
eval "use DBD::mysql; use SQL::Translator 0.09;";
- plan $@
- ? ( skip_all => 'needs DBD::mysql and SQL::Translator 0.09 for testing' )
- : ( tests => 114 );
+ if ($@) {
+ plan skip_all => 'needs DBD::mysql and SQL::Translator 0.09 for testing';
+ }
}
my $schema = DBICTest->init_schema();
+plan tests => ($schema->sources * 3);
{
my $sqlt_schema = create_schema({ schema => $schema, args => { parser_args => { } } });
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/t/bindtype_columns.t
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/t/bindtype_columns.t 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/t/bindtype_columns.t 2009-01-18 19:40:54 UTC (rev 5319)
@@ -19,46 +19,32 @@
{
local $SIG{__WARN__} = sub {};
$dbh->do('DROP TABLE IF EXISTS artist');
+
+ # the blob/clob are for reference only, will be useful when we switch to SQLT and can test Oracle along the way
$dbh->do(qq[
- CREATE TABLE artist
+ CREATE TABLE bindtype_test
(
- artistid serial NOT NULL PRIMARY KEY,
- media bytea NOT NULL,
- name varchar(100) NULL,
- rank integer NOT NULL DEFAULT '13',
- charfield char(10) NULL
+ id serial NOT NULL PRIMARY KEY,
+ bytea bytea NULL,
+ blob bytea NULL,
+ clob text NULL
);
],{ RaiseError => 1, PrintError => 1 });
}
-$schema->class('Artist')->load_components(qw/
-
- PK::Auto
- Core
-/);
-
-$schema->class('Artist')->add_columns(
-
- "media", {
-
- data_type => "bytea",
- is_nullable => 0,
- },
-);
-
# test primary key handling
my $big_long_string = 'abcd' x 250000;
-my $new = $schema->resultset('Artist')->create({ media => $big_long_string });
+my $new = $schema->resultset('BindType')->create({ bytea => $big_long_string });
-ok($new->artistid, "Created a blob row");
-is($new->media, $big_long_string, "Set the blob correctly.");
+ok($new->id, "Created a bytea row");
+is($new->bytea, $big_long_string, "Set the blob correctly.");
-my $rs = $schema->resultset('Artist')->find({artistid=>$new->artistid});
+my $rs = $schema->resultset('BindType')->find({ id => $new->id });
-is($rs->get_column('media'), $big_long_string, "Created the blob correctly.");
+is($rs->get_column('bytea'), $big_long_string, "Created the blob correctly.");
-$dbh->do("DROP TABLE artist");
+$dbh->do("DROP TABLE bindtype_test");
Added: DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema/BindType.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema/BindType.pm (rev 0)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema/BindType.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -0,0 +1,29 @@
+package # hide from PAUSE
+ DBICTest::Schema::BindType;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->table('bindtype_test');
+
+__PACKAGE__->add_columns(
+ 'id' => {
+ data_type => 'integer',
+ is_auto_increment => 1,
+ },
+ 'bytea' => {
+ data_type => 'bytea',
+ is_nullable => 1,
+ },
+ 'blob' => {
+ data_type => 'blob',
+ is_nullable => 1,
+ },
+ 'clob' => {
+ data_type => 'clob',
+ is_nullable => 1,
+ },
+);
+
+__PACKAGE__->set_primary_key('id');
+
+1;
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema.pm
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema.pm 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/DBICTest/Schema.pm 2009-01-18 19:40:54 UTC (rev 5319)
@@ -8,6 +8,7 @@
__PACKAGE__->load_classes(qw/
Artist
SequenceTest
+ BindType
Employee
CD
FileColumn
Modified: DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/sqlite.sql
===================================================================
--- DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/sqlite.sql 2009-01-18 19:40:39 UTC (rev 5318)
+++ DBIx-Class/0.08/branches/sqla_1.50_compat/t/lib/sqlite.sql 2009-01-18 19:40:54 UTC (rev 5319)
@@ -1,6 +1,6 @@
--
-- Created by SQL::Translator::Producer::SQLite
--- Created on Mon Nov 17 02:53:11 2008
+-- Created on Sat Jan 17 19:40:47 2009
--
BEGIN TRANSACTION;
@@ -38,6 +38,17 @@
CREATE INDEX cd_artwork_idx_cd_id_cd_artwor ON cd_artwork (cd_id);
--
+-- Table: bindtype_test
+--
+CREATE TABLE bindtype_test (
+ id INTEGER PRIMARY KEY NOT NULL,
+ bytea blob,
+ blob blob,
+ clob clob
+);
+
+
+--
-- Table: bookmark
--
CREATE TABLE bookmark (
More information about the Bast-commits
mailing list