Could someone with Oracle please fetch –current from svn and apply this one and
run make test (don’t forget to set $ENV{DBICTEST_ORA_DSN}, _USER and _PASS)?!
Thanks!
***snip***
nac2:/home/ah/svn/DBIx-Class/branches/DBIx-Class-current# svn diff t/73oracle.t
Index: t/73oracle.t
===================================================================
--- t/73oracle.t (revision 3302)
+++ t/73oracle.t (working copy)
@@ -11,7 +11,7 @@
'Warning: This test drops and creates tables called \'artist\', \'cd\' and
\'track\''
unless ($dsn && $user && $pass);
-plan tests => 6;
+plan tests => 8;
DBICTest::Schema->compose_namespace('OraTest' => $dsn, $user, $pass);
@@ -87,6 +87,13 @@
$it->next;
is( $it->next, undef, "next past end of resultset ok" );
+# test WhereJoins
+# multiple left joins
+# should end up with liner_notes and liner_notes_2 prefetched
+my $rs_cds = OraTest::CD->search(undef, { prefetch => ['liner_notes',
'liner_notes'] });
+is(scalar(@{$rs_cds->{attrs}->{prefetch}}), 2, 'both prefetches kept');
+ok($rs_cds->next, 'query on double joined rel runs okay');
+
# clean up our mess
$dbh->do("DROP SEQUENCE artist_seq");
$dbh->do("DROP TABLE artist");
***snip***
-Alex
smime.p7s
Description: S/MIME cryptographic signature
_______________________________________________ List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class Wiki: http://dbix-class.shadowcatsystems.co.uk/ IRC: irc.perl.org#dbix-class SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/ Searchable Archive: http://www.mail-archive.com/[email protected]/
