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

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";