[Bps-public-commit] dbix-searchbuilder branch, master, updated. 1.63_01-39-g4752b56

[Thomas Sibley]

The branch, master has been updated
       via  4752b566ccb490014ba6594ae62081d3d445b68f (commit)
      from  664e847a9d409e3bdb2243e953e35d98ab08afff (commit)

Summary of changes:
 t/20set_edge_cases.t | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 4752b566ccb490014ba6594ae62081d3d445b68f
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Thu Apr 11 16:15:00 2013 -0700

    Oracle treats the empty string as NULL; skip tests triggering an error

diff --git a/t/20set_edge_cases.t b/t/20set_edge_cases.t
index 4647939..943f76a 100644
--- a/t/20set_edge_cases.t
+++ b/t/20set_edge_cases.t
@@ -45,9 +45,12 @@ foreach my $d (@AvailableDrivers) {
         like( $msg, qr/Illegal value for non-nullable field Name/, 'error message' );
         is( $rec->Name, 'bar', 'name is still bar' );
 
-        ( $val, $msg ) = $rec->SetName('');
-        ok( $val, $msg );
-        is( $rec->Name, '', "name is changed to ''" );
+        SKIP: {
+            skip 'Oracle treats the empty string as a NULL' => 2 if $d eq 'Oracle';
+            ( $val, $msg ) = $rec->SetName('');
+            ok( $val, $msg );
+            is( $rec->Name, '', "name is changed to ''" );
+        }
 
         ( $val, $msg ) = $rec->SetCounter(42);
         ok( $val, $msg );

-----------------------------------------------------------------------