[Rt-commit] rt branch, 4.0/case-insensitive-null, updated. rt-4.0.8-18-g80bf39f

[Alex Vandiver]

The branch, 4.0/case-insensitive-null has been updated
       via  80bf39f55afdefc9c4e0c695bca0120256446bad (commit)
      from  6d9a25d3c8c9d3dfc0df241579e7e4eca406265a (commit)

Summary of changes:
 t/ticket/search.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

- Log -----------------------------------------------------------------
commit 80bf39f55afdefc9c4e0c695bca0120256446bad
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Fri Nov 2 14:45:23 2012 -0400

    Test that the database always sees an upper-case NULL
    
    This is ensured by RT::SearchBuilder's ->Limit, but test it explicitly.

diff --git a/t/ticket/search.t b/t/ticket/search.t
index 1eee12b..cf9cf99 100644
--- a/t/ticket/search.t
+++ b/t/ticket/search.t
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use RT::Test nodata => 1, tests => 44;
+use RT::Test nodata => 1, tests => undef;
 
 # setup the queue
 
@@ -280,3 +280,8 @@ is($tix->Count, 3, "is cf1 or is cf1 or is cf2 or is cf2");
 $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;

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