summaryrefslogtreecommitdiff
path: root/rt/t/ticket
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/ticket')
-rw-r--r--rt/t/ticket/action_linear_escalate.t1
-rw-r--r--rt/t/ticket/add-watchers.t47
-rw-r--r--rt/t/ticket/badlinks.t1
-rw-r--r--rt/t/ticket/batch-upload-csv.t4
-rw-r--r--rt/t/ticket/cfsort-freeform-multiple.t1
-rw-r--r--rt/t/ticket/cfsort-freeform-single.t1
-rw-r--r--rt/t/ticket/clicky.t1
-rw-r--r--rt/t/ticket/googleish_search.t1
-rw-r--r--rt/t/ticket/link_search.t3
-rw-r--r--rt/t/ticket/merge.t1
-rw-r--r--rt/t/ticket/requestor-order.t4
-rw-r--r--rt/t/ticket/search.t12
-rw-r--r--rt/t/ticket/search_by_cf_freeform_multiple.t1
-rw-r--r--rt/t/ticket/search_by_cf_freeform_single.t1
-rw-r--r--rt/t/ticket/search_by_links.t1
-rw-r--r--rt/t/ticket/search_by_txn.t1
-rw-r--r--rt/t/ticket/search_by_watcher.t1
-rw-r--r--rt/t/ticket/search_long_cf_values.t1
-rw-r--r--rt/t/ticket/sort-by-custom-ownership.t1
-rw-r--r--rt/t/ticket/sort-by-queue.t1
-rw-r--r--rt/t/ticket/sort-by-user.t1
-rw-r--r--rt/t/ticket/sort_by_cf.t1
22 files changed, 15 insertions, 72 deletions
diff --git a/rt/t/ticket/action_linear_escalate.t b/rt/t/ticket/action_linear_escalate.t
index 2a1be611d..0d1ff8aa5 100644
--- a/rt/t/ticket/action_linear_escalate.t
+++ b/rt/t/ticket/action_linear_escalate.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
use strict;
use warnings;
diff --git a/rt/t/ticket/add-watchers.t b/rt/t/ticket/add-watchers.t
index e49c694ed..11b3a8453 100644
--- a/rt/t/ticket/add-watchers.t
+++ b/rt/t/ticket/add-watchers.t
@@ -1,50 +1,3 @@
-#!/usr/bin/perl -w
-# BEGIN BPS TAGGED BLOCK {{{
-#
-# COPYRIGHT:
-#
-# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
-# <jesse.com>
-#
-# (Except where explicitly superseded by other copyright notices)
-#
-#
-# LICENSE:
-#
-# This work is made available to you under the terms of Version 2 of
-# the GNU General Public License. A copy of that license should have
-# been provided with this software, but in any event can be snarfed
-# from www.gnu.org.
-#
-# This work is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-#
-# CONTRIBUTION SUBMISSION POLICY:
-#
-# (The following paragraph is not intended to limit the rights granted
-# to you to modify and distribute this software under the terms of
-# the GNU General Public License and is only of importance to you if
-# you choose to contribute your changes and enhancements to the
-# community by submitting them to Best Practical Solutions, LLC.)
-#
-# By intentionally submitting any modifications, corrections or
-# derivatives to this work, or any other work intended for use with
-# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-# you are the copyright holder for those contributions and you grant
-# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-# royalty-free, perpetual, license to use, copy, create derivative
-# works based on those contributions, and sublicense and distribute
-# those contributions and any derivatives thereof.
-#
-# END BPS TAGGED BLOCK }}}
-
use RT::Test nodata => 1, tests => 32;
use strict;
diff --git a/rt/t/ticket/badlinks.t b/rt/t/ticket/badlinks.t
index 71ab73928..6fac5d563 100644
--- a/rt/t/ticket/badlinks.t
+++ b/rt/t/ticket/badlinks.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
use strict;
use warnings;
use RT::Test tests => 14;
diff --git a/rt/t/ticket/batch-upload-csv.t b/rt/t/ticket/batch-upload-csv.t
index cedc0143a..8dc906e1b 100644
--- a/rt/t/ticket/batch-upload-csv.t
+++ b/rt/t/ticket/batch-upload-csv.t
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -w
-use strict; use warnings;
+use strict;
+use warnings;
use RT::Test tests => 12;
use_ok('RT');
diff --git a/rt/t/ticket/cfsort-freeform-multiple.t b/rt/t/ticket/cfsort-freeform-multiple.t
index e285d0e6f..ba6150b4f 100644
--- a/rt/t/ticket/cfsort-freeform-multiple.t
+++ b/rt/t/ticket/cfsort-freeform-multiple.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use RT::Test nodata => 1, tests => 41;
diff --git a/rt/t/ticket/cfsort-freeform-single.t b/rt/t/ticket/cfsort-freeform-single.t
index 35a53fb54..ae109e9e4 100644
--- a/rt/t/ticket/cfsort-freeform-single.t
+++ b/rt/t/ticket/cfsort-freeform-single.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use RT::Test nodata => 1, tests => 89;
diff --git a/rt/t/ticket/clicky.t b/rt/t/ticket/clicky.t
index 3a7ec8241..20d39a3aa 100644
--- a/rt/t/ticket/clicky.t
+++ b/rt/t/ticket/clicky.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use strict;
use warnings;
diff --git a/rt/t/ticket/googleish_search.t b/rt/t/ticket/googleish_search.t
index aa33257f1..d372801bc 100644
--- a/rt/t/ticket/googleish_search.t
+++ b/rt/t/ticket/googleish_search.t
@@ -1,5 +1,4 @@
-#!/usr/bin/perl -w
use strict;
use warnings;
diff --git a/rt/t/ticket/link_search.t b/rt/t/ticket/link_search.t
index dbcf4b477..9e5ed1c87 100644
--- a/rt/t/ticket/link_search.t
+++ b/rt/t/ticket/link_search.t
@@ -1,6 +1,5 @@
-#!/usr/bin/perl -w
-
use strict;
+use warnings;
use RT;
# Load the config file
diff --git a/rt/t/ticket/merge.t b/rt/t/ticket/merge.t
index d06d54174..2484b6512 100644
--- a/rt/t/ticket/merge.t
+++ b/rt/t/ticket/merge.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use strict;
use warnings;
diff --git a/rt/t/ticket/requestor-order.t b/rt/t/ticket/requestor-order.t
index bdacc460e..d8308d391 100644
--- a/rt/t/ticket/requestor-order.t
+++ b/rt/t/ticket/requestor-order.t
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -w
-use strict; use warnings;
+use strict;
+use warnings;
use RT::Test tests => 58;
use_ok('RT');
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;
diff --git a/rt/t/ticket/search_by_cf_freeform_multiple.t b/rt/t/ticket/search_by_cf_freeform_multiple.t
index 4e7cddc06..1b4f0922c 100644
--- a/rt/t/ticket/search_by_cf_freeform_multiple.t
+++ b/rt/t/ticket/search_by_cf_freeform_multiple.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
use strict;
use warnings;
diff --git a/rt/t/ticket/search_by_cf_freeform_single.t b/rt/t/ticket/search_by_cf_freeform_single.t
index 278a3ce03..f8462a9af 100644
--- a/rt/t/ticket/search_by_cf_freeform_single.t
+++ b/rt/t/ticket/search_by_cf_freeform_single.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
use strict;
use warnings;
diff --git a/rt/t/ticket/search_by_links.t b/rt/t/ticket/search_by_links.t
index 61b69b73e..d25d3002e 100644
--- a/rt/t/ticket/search_by_links.t
+++ b/rt/t/ticket/search_by_links.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
use strict;
use warnings;
diff --git a/rt/t/ticket/search_by_txn.t b/rt/t/ticket/search_by_txn.t
index 0e5f76dcd..6f970aadc 100644
--- a/rt/t/ticket/search_by_txn.t
+++ b/rt/t/ticket/search_by_txn.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use warnings;
use strict;
diff --git a/rt/t/ticket/search_by_watcher.t b/rt/t/ticket/search_by_watcher.t
index cfc7b1c22..a6800bbb4 100644
--- a/rt/t/ticket/search_by_watcher.t
+++ b/rt/t/ticket/search_by_watcher.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
use strict;
use warnings;
diff --git a/rt/t/ticket/search_long_cf_values.t b/rt/t/ticket/search_long_cf_values.t
index 6ce8505d6..5b904b363 100644
--- a/rt/t/ticket/search_long_cf_values.t
+++ b/rt/t/ticket/search_long_cf_values.t
@@ -1,4 +1,3 @@
-#!/opt/perl/bin/perl -w
# tests relating to searching. Especially around custom fields with long values
# (> 255 chars)
diff --git a/rt/t/ticket/sort-by-custom-ownership.t b/rt/t/ticket/sort-by-custom-ownership.t
index b06e9a00a..80e88a818 100644
--- a/rt/t/ticket/sort-by-custom-ownership.t
+++ b/rt/t/ticket/sort-by-custom-ownership.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use RT;
use RT::Test nodata => 1, tests => 7;
diff --git a/rt/t/ticket/sort-by-queue.t b/rt/t/ticket/sort-by-queue.t
index bf2934bc2..f54ccf7a6 100644
--- a/rt/t/ticket/sort-by-queue.t
+++ b/rt/t/ticket/sort-by-queue.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use RT::Test nodata => 1, tests => 12;
diff --git a/rt/t/ticket/sort-by-user.t b/rt/t/ticket/sort-by-user.t
index 10d43de37..42f95fc25 100644
--- a/rt/t/ticket/sort-by-user.t
+++ b/rt/t/ticket/sort-by-user.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use RT::Test nodata => 1, tests => 52;
diff --git a/rt/t/ticket/sort_by_cf.t b/rt/t/ticket/sort_by_cf.t
index 65704da62..30f6ad815 100644
--- a/rt/t/ticket/sort_by_cf.t
+++ b/rt/t/ticket/sort_by_cf.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
use RT::Test nodata => 1, tests => 21;
RT::Init();
generated by cgit v1.2.1 (git 2.18.0) at 2024-10-02 14:20:40 +0000