X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsqlmaker%2Foracle.t;h=8a2573c83d057209ae9ca20b7343dc0551adcf41;hb=e66002835945589b7174d524ba5add64e714abd2;hp=6b9e6f9b17915c94ba122f503f757a4fe0c8ab78;hpb=d5dedbd62928f65a9071b4d9b6d56c6b663a073b;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/sqlmaker/oracle.t b/t/sqlmaker/oracle.t
index 6b9e6f9..8a2573c 100644
--- a/t/sqlmaker/oracle.t
+++ b/t/sqlmaker/oracle.t
@@ -20,10 +20,10 @@ my @handle_tests = (
         msg         => 'Simple: "parentid" = PRIOR artistid',
     },
     {
-        connect_by  => { 'parentid' => { '!=' => { '-prior' => \'artistid' } } },
-        stmt        => '"parentid" != ( PRIOR artistid )',
+        connect_by  => { 'parentid' => { '!=' => { '-prior' => { -ident => 'artistid' } } } },
+        stmt        => '"parentid" != ( PRIOR "artistid" )',
         bind        => [],
-        msg         => 'Simple: "parentid" != ( PRIOR artistid )',
+        msg         => 'Simple: "parentid" != ( PRIOR "artistid" )',
     },
     # Examples from http://download.oracle.com/docs/cd/B19306_01/server.102/b14200/queries003.htm
 
@@ -31,9 +31,9 @@ my @handle_tests = (
     {
         connect_by  => [
             last_name => { '!=' => 'King' },
-            manager_id => { '-prior' => \'employee_id' },
+            manager_id => { '-prior' => { -ident => 'employee_id' } },
         ],
-        stmt        => '( "last_name" != ? OR "manager_id" = PRIOR employee_id )',
+        stmt        => '( "last_name" != ? OR "manager_id" = PRIOR "employee_id" )',
         bind        => ['King'],
         msg         => 'oracle.com example #1',
     },
@@ -41,10 +41,10 @@ my @handle_tests = (
     #            PRIOR account_mgr_id = customer_id ...
     {
         connect_by  => {
-            manager_id => { '-prior' => \'employee_id' },
+            manager_id => { '-prior' => { -ident => 'employee_id' } },
             customer_id => { '>', { '-prior' => \'account_mgr_id' } },
         },
-        stmt        => '( "customer_id" > ( PRIOR account_mgr_id ) AND "manager_id" = PRIOR employee_id )',
+        stmt        => '( "customer_id" > ( PRIOR account_mgr_id ) AND "manager_id" = PRIOR "employee_id" )',
         bind        => [],
         msg         => 'oracle.com example #2',
     },