[Rt-commit] r17319 - rt/3.8/trunk/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Tue Dec 23 18:18:29 2008
New Revision: 17319

Modified:
   rt/3.8/trunk/lib/RT/Test.pm

Log:
* add is_empty test function. Oracle has very funny handling
  of empty strings, in many cases we don't care if string is
  undef or empty - both is the same

Modified: rt/3.8/trunk/lib/RT/Test.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Test.pm	(original)
+++ rt/3.8/trunk/lib/RT/Test.pm	Tue Dec 23 18:18:29 2008
@@ -55,6 +55,9 @@
 use Socket;
 use File::Temp;
 use File::Spec;
+
+our @EXPORT = qw(is_empty);
+
 my $config;
 our ($existing_server, $port, $dbname);
 my $mailsent;
@@ -184,6 +187,16 @@
     mkpath [ $RT::MasonSessionDir ]
         if RT->Config->Get('DatabaseType');
 
+    __PACKAGE__->export_to_level(1, @EXPORT);
+
+}
+
+sub is_empty($;$) {
+    my ($v, $d) = shift;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    return Test::More::ok(1, $d) unless defined $v;
+    return Test::More::ok(1, $d) unless length $v;
+    return Test::More::is($v, '', $d);
 }
 
 my $created_new_db;    # have we created new db? mainly for parallel testing