X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51threads.t;h=4cb7bec3ebd3578e9c8fedd1835b4efc38503c8c;hb=55087b9990ac4c004f1e6b9742f73d89274cf7f2;hp=615fb09975f564508f61a9aa8395f15d9f50c755;hpb=1346e22d4899edf837c77312259c3ebaaf71f602;p=dbsrgits%2FDBIx-Class.git diff --git a/t/51threads.t b/t/51threads.t index 615fb09..4cb7bec 100644 --- a/t/51threads.t +++ b/t/51threads.t @@ -8,7 +8,7 @@ use Config; BEGIN { plan skip_all => 'Your perl does not support ithreads' - if !$Config{useithreads} || $] < 5.008; + if !$Config{useithreads}; } use threads; @@ -44,7 +44,7 @@ eval { { local $SIG{__WARN__} = sub {}; eval { $dbh->do("DROP TABLE cd") }; - $dbh->do("CREATE TABLE cd (cdid serial PRIMARY KEY, artist INTEGER NOT NULL UNIQUE, title VARCHAR(255) NOT NULL UNIQUE, year VARCHAR(255));"); + $dbh->do("CREATE TABLE cd (cdid serial PRIMARY KEY, artist INTEGER NOT NULL UNIQUE, title VARCHAR(100) NOT NULL UNIQUE, year VARCHAR(100) NOT NULL, genreid INTEGER, single_track INTEGER);"); } $schema->resultset('CD')->create({ title => 'vacation in antarctica', artist => 123, year => 1901 }); @@ -60,7 +60,6 @@ while(@children < $num_children) { my $newthread = async { my $tid = threads->tid; - my $dbh = $schema->storage->dbh; my $child_rs = $schema->resultset('CD')->search({ year => 1901 }); my $row = $parent_rs->next;