X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F71mysql.t;h=dbba1cd16fb520bc43184563324ddbd11eafe8b7;hb=79fefe056c91c6e7d06ae980c348debe37cad5c9;hp=f5ee39ec2b918cfd8ec284e7bc107e3c5608a200;hpb=f7ffc0af5950caccc0f25cb47ab23514fd66af7a;p=dbsrgits%2FDBIx-Class.git diff --git a/t/71mysql.t b/t/71mysql.t index f5ee39e..dbba1cd 100644 --- a/t/71mysql.t +++ b/t/71mysql.t @@ -21,7 +21,7 @@ my $dbh = $schema->storage->dbh; $dbh->do("DROP TABLE IF EXISTS artist;"); -$dbh->do("CREATE TABLE artist (artistid INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255), charfield CHAR(10));"); +$dbh->do("CREATE TABLE artist (artistid INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(100), rank INTEGER NOT NULL DEFAULT '13', charfield CHAR(10));"); #'dbi:mysql:host=localhost;database=dbic_test', 'dbic_test', ''); @@ -57,9 +57,15 @@ my $test_type_info = { 'name' => { 'data_type' => 'VARCHAR', 'is_nullable' => 1, - 'size' => 255, + 'size' => 100, 'default_value' => undef, }, + 'rank' => { + 'data_type' => 'INT', + 'is_nullable' => 0, + 'size' => 11, + 'default_value' => 13, + }, 'charfield' => { 'data_type' => 'CHAR', 'is_nullable' => 1, @@ -86,8 +92,9 @@ SKIP: { } ## Can we properly deal with the null search problem? - -use Data::Dump qw/dump/; +## +## Only way is to do a SET SQL_AUTO_IS_NULL = 0; on connect +## But I'm not sure if we should do this or not (Ash, 2008/06/03) NULLINSEARCH: {