t/sqlmaker/oracle.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 BEGIN {
   6   require DBIx::Class::Optional::Dependencies;
   7   plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('id_shortener')
   8     unless DBIx::Class::Optional::Dependencies->req_ok_for ('id_shortener');
   9 }
  10
  11 use Test::Exception;
  12 use Data::Dumper::Concise;
  13 use lib qw(t/lib);
  14 use DBIC::SqlMakerTest;
  15 use DBIx::Class::SQLMaker::Oracle;
  16
  17 #
  18 #  Offline test for connect_by
  19 #  ( without active database connection)
  20 #
  21 my @handle_tests = (
  22     {
  23         connect_by  => { 'parentid' => { '-prior' => \'artistid' } },
  24         stmt        => '"parentid" = PRIOR artistid',
  25         bind        => [],
  26         msg         => 'Simple: "parentid" = PRIOR artistid',
  27     },
  28     {
  29         connect_by  => { 'parentid' => { '!=' => { '-prior' => { -ident => 'artistid' } } } },
  30         stmt        => '"parentid" != ( PRIOR "artistid" )',
  31         bind        => [],
  32         msg         => 'Simple: "parentid" != ( PRIOR "artistid" )',
  33     },
  34     # Examples from http://download.oracle.com/docs/cd/B19306_01/server.102/b14200/queries003.htm
  35
  36     # CONNECT BY last_name != 'King' AND PRIOR employee_id = manager_id ...
  37     {
  38         connect_by  => [
  39             last_name => { '!=' => 'King' },
  40             manager_id => { '-prior' => { -ident => 'employee_id' } },
  41         ],
  42         stmt        => '( "last_name" != ? OR "manager_id" = PRIOR "employee_id" )',
  43         bind        => ['King'],
  44         msg         => 'oracle.com example #1',
  45     },
  46     # CONNECT BY PRIOR employee_id = manager_id and
  47     #            PRIOR account_mgr_id = customer_id ...
  48     {
  49         connect_by  => {
  50             manager_id => { '-prior' => { -ident => 'employee_id' } },
  51             customer_id => { '>', { '-prior' => \'account_mgr_id' } },
  52         },
  53         stmt        => '( "customer_id" > ( PRIOR account_mgr_id ) AND "manager_id" = PRIOR "employee_id" )',
  54         bind        => [],
  55         msg         => 'oracle.com example #2',
  56     },
  57     # CONNECT BY NOCYCLE PRIOR employee_id = manager_id AND LEVEL <= 4;
  58     # TODO: NOCYCLE parameter doesn't work
  59 );
  60
  61 my $sqla_oracle = DBIx::Class::SQLMaker::Oracle->new( quote_char => '"', name_sep => '.' );
  62 isa_ok($sqla_oracle, 'DBIx::Class::SQLMaker::Oracle');
  63
  64
  65 for my $case (@handle_tests) {
  66     my ( $stmt, @bind );
  67     my $msg = sprintf("Offline: %s",
  68         $case->{msg} || substr($case->{stmt},0,25),
  69     );
  70     lives_ok(
  71         sub {
  72             ( $stmt, @bind ) = $sqla_oracle->_recurse_where( $case->{connect_by} );
  73             is_same_sql_bind( $stmt, \@bind, $case->{stmt}, $case->{bind},$msg )
  74               || diag "Search term:\n" . Dumper $case->{connect_by};
  75         }
  76     ,sprintf("lives is ok from '%s'",$msg));
  77 }
  78
  79 is (
  80   $sqla_oracle->_shorten_identifier('short_id'),
  81   'short_id',
  82   '_shorten_identifier for short id without keywords ok'
  83 );
  84
  85 is (
  86   $sqla_oracle->_shorten_identifier('short_id', [qw/ foo /]),
  87   'short_id',
  88   '_shorten_identifier for short id with one keyword ok'
  89 );
  90
  91 is (
  92   $sqla_oracle->_shorten_identifier('short_id', [qw/ foo bar baz /]),
  93   'short_id',
  94   '_shorten_identifier for short id with keywords ok'
  95 );
  96
  97 is (
  98   $sqla_oracle->_shorten_identifier('very_long_identifier_which_exceeds_the_30char_limit'),
  99   'VryLngIdntfrWhchExc_72M8CIDTM7',
 100   '_shorten_identifier without keywords ok',
 101 );
 102
 103 is (
 104   $sqla_oracle->_shorten_identifier('very_long_identifier_which_exceeds_the_30char_limit',[qw/ foo /]),
 105   'Foo_72M8CIDTM7KBAUPXG48B22P4E',
 106   '_shorten_identifier with one keyword ok',
 107 );
 108 is (
 109   $sqla_oracle->_shorten_identifier('very_long_identifier_which_exceeds_the_30char_limit',[qw/ foo bar baz /]),
 110   'FooBarBaz_72M8CIDTM7KBAUPXG48B',
 111   '_shorten_identifier with keywords ok',
 112 );
 113
 114 # test SQL generation for INSERT ... RETURNING
 115
 116 sub UREF { \do { my $x } };
 117
 118 $sqla_oracle->{bindtype} = 'columns';
 119
 120 for my $q ('', '"') {
 121   local $sqla_oracle->{quote_char} = $q;
 122
 123   my ($sql, @bind) = $sqla_oracle->insert(
 124     'artist',
 125     {
 126       'name' => 'Testartist',
 127     },
 128     {
 129       'returning' => 'artistid',
 130       'returning_container' => [],
 131     },
 132   );
 133
 134   is_same_sql_bind(
 135     $sql, \@bind,
 136     "INSERT INTO ${q}artist${q} (${q}name${q}) VALUES (?) RETURNING ${q}artistid${q} INTO ?",
 137     [ [ name => 'Testartist' ], [ artistid => UREF ] ],
 138     'sql_maker generates insert returning for one column'
 139   );
 140
 141   ($sql, @bind) = $sqla_oracle->insert(
 142     'artist',
 143     {
 144       'name' => 'Testartist',
 145     },
 146     {
 147       'returning' => \'artistid',
 148       'returning_container' => [],
 149     },
 150   );
 151
 152   is_same_sql_bind(
 153     $sql, \@bind,
 154     "INSERT INTO ${q}artist${q} (${q}name${q}) VALUES (?) RETURNING artistid INTO ?",
 155     [ [ name => 'Testartist' ], [ artistid => UREF ] ],
 156     'sql_maker generates insert returning for one column'
 157   );
 158
 159
 160   ($sql, @bind) = $sqla_oracle->insert(
 161     'computed_column_test',
 162     {
 163       'a_timestamp' => '2010-05-26 18:22:00',
 164     },
 165     {
 166       'returning' => [ 'id', 'a_computed_column', 'charfield' ],
 167       'returning_container' => [],
 168     },
 169   );
 170
 171   is_same_sql_bind(
 172     $sql, \@bind,
 173     "INSERT INTO ${q}computed_column_test${q} (${q}a_timestamp${q}) VALUES (?) RETURNING ${q}id${q}, ${q}a_computed_column${q}, ${q}charfield${q} INTO ?, ?, ?",
 174     [ [ a_timestamp => '2010-05-26 18:22:00' ], [ id => UREF ], [ a_computed_column => UREF ], [ charfield => UREF ] ],
 175     'sql_maker generates insert returning for multiple columns'
 176   );
 177 }
 178
 179 done_testing;