my @handle_tests = (
{
connect_by => { 'parentid' => { '-prior' => \'artistid' } },
- stmt => "parentid = PRIOR( artistid )",
+ stmt => '"parentid" = PRIOR artistid',
bind => [],
- msg => 'Simple: parentid = PRIOR artistid',
+ msg => 'Simple: "parentid" = PRIOR artistid',
},
{
connect_by => { 'parentid' => { '!=' => { '-prior' => \'artistid' } } },
- stmt => "parentid != PRIOR( artistid )",
+ stmt => '"parentid" != ( PRIOR artistid )',
bind => [],
- msg => 'Simple: parentid != PRIOR artistid',
+ msg => 'Simple: "parentid" != ( PRIOR artistid )',
},
- # Example from http://download.oracle.com/docs/cd/B19306_01/server.102/b14200/queries003.htm
+ # Examples from http://download.oracle.com/docs/cd/B19306_01/server.102/b14200/queries003.htm
# CONNECT BY last_name != 'King' AND PRIOR employee_id = manager_id ...
{
last_name => { '!=' => 'King' },
manager_id => { '-prior' => \'employee_id' },
],
- stmt => "( last_name != ? AND manager_id = PRIOR( employee_id ) )",
+ stmt => '( "last_name" != ? OR "manager_id" = PRIOR employee_id )',
bind => ['King'],
- msg => 'oracle.com excample #1',
+ msg => 'oracle.com example #1',
},
# CONNECT BY PRIOR employee_id = manager_id and
# PRIOR account_mgr_id = customer_id ...
{
- connect_by => [
+ connect_by => {
manager_id => { '-prior' => \'employee_id' },
- customer_id => { '-prior' => \'account_mgr_id' },
- ],
- stmt => "( manager_id = PRIOR( employee_id ) AND customer_id = PRIOR( account_mgr_id ) )",
+ customer_id => { '>', { '-prior' => \'account_mgr_id' } },
+ },
+ stmt => '( "customer_id" > ( PRIOR account_mgr_id ) AND "manager_id" = PRIOR employee_id )',
bind => [],
- msg => 'oracle.com excample #2',
+ msg => 'oracle.com example #2',
},
# CONNECT BY NOCYCLE PRIOR employee_id = manager_id AND LEVEL <= 4;
# TODO: NOCYCLE parameter doesn't work
);
-my $sqla_oracle = DBIx::Class::SQLAHacks::Oracle->new();
+my $sqla_oracle = DBIx::Class::SQLAHacks::Oracle->new( quote_char => '"', name_sep => '.' );
isa_ok($sqla_oracle, 'DBIx::Class::SQLAHacks::Oracle');
);
lives_ok(
sub {
- ( $stmt, @bind ) = $sqla_oracle->_recurse_where( $case->{connect_by}, 'and' );
+ ( $stmt, @bind ) = $sqla_oracle->_recurse_where( $case->{connect_by} );
is_same_sql_bind( $stmt, \@bind, $case->{stmt}, $case->{bind},$msg )
|| diag "Search term:\n" . Dumper $case->{connect_by};
}