[svn:dbd-oracle] r12729 - dbd-oracle/trunk/t

[byterock]

Author: byterock
Date: Fri May  1 04:09:04 2009
New Revision: 12729

Modified:
   dbd-oracle/trunk/t/58object.t

Log:
  Fix for bug in 58object.t when test run as externally identified user from 
Charles Jardine


Modified: dbd-oracle/trunk/t/58object.t
==============================================================================
--- dbd-oracle/trunk/t/58object.t       (original)
+++ dbd-oracle/trunk/t/58object.t       Fri May  1 04:09:04 2009
@@ -5,7 +5,7 @@
 use strict;

 use Data::Dumper;

 

-use Test::More tests => 34;

+use Test::More tests => 35;

 unshift @INC ,'t';

 require 'nchar_test_lib.pl';

 

@@ -36,6 +36,12 @@
 # check that our db handle is good

 isa_ok($dbh, "DBI::db");

 

+

+ok(my $schema = $dbh->selectrow_array(

+  "select sys_context('userenv', 'current_schema') from dual"

+), 'Fetch current schema name');

+ 

+

 my $obj_prefix = "dbd_test_";

 my $super_type = "${obj_prefix}_type_A";

 my $sub_type = "${obj_prefix}_type_B";