X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F73oracle.t;h=99e12eb88c225adf947e7a65777112ce36548dc6;hb=184005983ab22b5cf557191542d8d18c114176aa;hp=3f6093040a495d9dff1c047d3c2689a10fc46888;hpb=54161a15147b7e8c1fe3251595cf9d5dae78b59b;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/73oracle.t b/t/73oracle.t
index 3f60930..99e12eb 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -45,14 +45,6 @@ my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
 
 my $dbh = $schema->storage->dbh;
 
-if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
-    plan tests => 46;
-}
-else {
-    plan tests => 36;
-}
-
-
 eval {
   $dbh->do("DROP SEQUENCE artist_seq");
   $dbh->do("DROP SEQUENCE cd_seq");
@@ -437,7 +429,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
     START WITH
         name = ?
     CONNECT BY
-        parentid = prior artistid
+        parentid = PRIOR( artistid )
     ORDER SIBLINGS BY
         name DESC
 
@@ -454,7 +446,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
       my $rs = $schema->resultset('Artist')->search({ parentid => undef },
                               {
                                 'start_with' => { 'name' => 'greatgrandchild' },
-                                'connect_by' => { '-prior' => [  \'parentid', \'artistid' ] } ,
+                                'connect_by' => { 'artistid' => { '-prior' => \'parentid' } },
                               });
 =pod
     SELECT
@@ -466,7 +458,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
     START WITH
         name = ?
     CONNECT BY
-        prior parentid = artistid
+        artistid = PRIOR( parentid )
 
     Parameters: 'greatgrandchild'
 =cut
@@ -537,7 +529,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
       my $rs = $schema->resultset('Artist')->search({},
                               {
                                 'start_with' => { 'name' => 'greatgrandchild' },
-                                'connect_by' => { '-prior' => [ \'parentid', \'artistid' ] },
+                                'connect_by' => { artistid => { '-prior' => \'parentid' } },
                                 'order_by' => 'name ASC',
                               });
       my $ok = 1;
@@ -549,7 +541,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
     START WITH
         name = ?
     CONNECT BY
-        prior parentid = artistid
+        artistid = PRIOR( parentid )
     ORDER BY
         name ASC
 
@@ -566,7 +558,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
       my $rs = $schema->resultset('Artist')->search({},
                               {
                                 'start_with' => { 'name' => 'greatgrandchild' },
-                                'connect_by' => { '-prior' => [ \'parentid', \'artistid' ] },
+                                'connect_by' => { 'artistid' => { '-prior' => \'parentid' } },
                                 'order_by' => 'name ASC',
                                 'rows' => 2,
                                 'page' => 1,
@@ -579,7 +571,7 @@ if ( $schema->storage->isa('DBIx::Class::Storage::DBI::Oracle::Generic') ) {
     START WITH
         name = ?
     CONNECT BY
-        prior parentid = artistid
+        artistid = PRIOR( parentid )
 
     Parameters: 'greatgrandchild'
 =cut