X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fticket%2Fsearch.t;h=852241fe52dc1acd91cbd51bb7ac0347bb62bff0;hb=7588a4ac90a9b07c08a3107cd1107d773be1c991;hp=fd0a7e08f605f493f405c421fe2dc5abee767aeb;hpb=a6fe07e49e3fc12169e801b1ed6874c3a5bd8500;p=freeside.git

diff --git a/rt/t/ticket/search.t b/rt/t/ticket/search.t
index fd0a7e08f..852241fe5 100644
--- a/rt/t/ticket/search.t
+++ b/rt/t/ticket/search.t
@@ -1,4 +1,3 @@
-#!/opt/perl/bin/perl -w
 
 # tests relating to searching. Especially around custom fields, and
 # corner cases.
@@ -6,7 +5,7 @@
 use strict;
 use warnings;
 
-use RT::Test nodata => 1, tests => 43;
+use RT::Test nodata => 1, tests => undef;
 
 # setup the queue
 
@@ -276,3 +275,12 @@ $tix = RT::Tickets->new(RT->SystemUser);
 $tix->FromSQL("CF.SearchTest = 'foo1' OR CF.SearchTest = 'foo3' OR CF.SearchTest2 = 'bar1' OR CF.SearchTest2 = 'bar2'");
 is($tix->Count, 3, "is cf1 or is cf1 or is cf2 or is cf2");
 
+# tests with lower cased NULL
+$tix = RT::Tickets->new(RT->SystemUser);
+$tix->FromSQL('Requestor.Name IS null');
+is($tix->Count, 1, "t6 doesn't have a Requestor");
+like($tix->BuildSelectCountQuery, qr/\bNULL\b/, "Contains upper-case NULL");
+unlike($tix->BuildSelectCountQuery, qr/\bnull\b/, "Lacks lower-case NULL");
+
+
+done_testing;