[Rt-commit] rt branch, 3.8/test-compat, updated. rt-3.8.15-4-g33d769c

[? sunnavy]

The branch, 3.8/test-compat has been updated
       via  33d769c76050e37e40bfe574117a78d507fb87ae (commit)
      from  7468211183374b1ee3c10af8424cd2abcdd4742b (commit)

Summary of changes:
 t/api/cf_pattern.t                        | 2 +-
 t/mail/sendmail.t                         | 3 ++-
 t/ticket/cfsort-freeform-multiple.t       | 1 +
 t/ticket/cfsort-freeform-single.t         | 3 +--
 t/ticket/search_by_cf_freeform_multiple.t | 2 +-
 t/ticket/search_by_cf_freeform_single.t   | 2 +-
 t/ticket/sort-by-queue.t                  | 1 +
 t/ticket/sort-by-user.t                   | 1 +
 8 files changed, 9 insertions(+), 6 deletions(-)

- Log -----------------------------------------------------------------
commit 33d769c76050e37e40bfe574117a78d507fb87ae
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Sun Jan 27 00:26:01 2013 +0800

    destroy more tickets and objects before global destruction for modern perl
    
    see also commit 7468211

diff --git a/t/api/cf_pattern.t b/t/api/cf_pattern.t
index 89db2fe..ffc5b3f 100644
--- a/t/api/cf_pattern.t
+++ b/t/api/cf_pattern.t
@@ -50,4 +50,4 @@ works($cf->SetPattern('(?!)')); # reject everything
 fails(add(''));
 fails(add('...'));
 
-1;
+undef $t;
diff --git a/t/mail/sendmail.t b/t/mail/sendmail.t
index 1f97bbb..215fba7 100644
--- a/t/mail/sendmail.t
+++ b/t/mail/sendmail.t
@@ -535,4 +535,5 @@ diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
 
 # Don't taint the environment
 $everyone->PrincipalObj->RevokeRight(Right =>'SuperUser');
-1;
+
+ at scrips_fired = ();
diff --git a/t/ticket/cfsort-freeform-multiple.t b/t/ticket/cfsort-freeform-multiple.t
index f8f5950..b2e8ec9 100644
--- a/t/ticket/cfsort-freeform-multiple.t
+++ b/t/ticket/cfsort-freeform-multiple.t
@@ -135,3 +135,4 @@ run_tests();
 );
 run_tests();
 
+ at tickets = ();
diff --git a/t/ticket/cfsort-freeform-single.t b/t/ticket/cfsort-freeform-single.t
index f1f506b..7e178b8 100644
--- a/t/ticket/cfsort-freeform-single.t
+++ b/t/ticket/cfsort-freeform-single.t
@@ -187,5 +187,4 @@ diag "create another CF\n" if $ENV{TEST_VERBOSE};
 );
 run_tests();
 
-
-
+ at tickets = ();
diff --git a/t/ticket/search_by_cf_freeform_multiple.t b/t/ticket/search_by_cf_freeform_multiple.t
index be51306..45dc81c 100644
--- a/t/ticket/search_by_cf_freeform_multiple.t
+++ b/t/ticket/search_by_cf_freeform_multiple.t
@@ -150,4 +150,4 @@ sub run_tests {
 }
 run_tests();
 
-exit 0;
+ at tickets = ();
diff --git a/t/ticket/search_by_cf_freeform_single.t b/t/ticket/search_by_cf_freeform_single.t
index d5ff7ec..bbff8ad 100644
--- a/t/ticket/search_by_cf_freeform_single.t
+++ b/t/ticket/search_by_cf_freeform_single.t
@@ -139,4 +139,4 @@ sub run_tests {
 }
 run_tests();
 
-exit 0;
+ at tickets = ();
diff --git a/t/ticket/sort-by-queue.t b/t/ticket/sort-by-queue.t
index df6e1ad..133c194 100644
--- a/t/ticket/sort-by-queue.t
+++ b/t/ticket/sort-by-queue.t
@@ -98,3 +98,4 @@ sub run_tests {
 );
 run_tests();
 
+ at tickets = ();
diff --git a/t/ticket/sort-by-user.t b/t/ticket/sort-by-user.t
index f9b1602..574fdcb 100644
--- a/t/ticket/sort-by-user.t
+++ b/t/ticket/sort-by-user.t
@@ -150,3 +150,4 @@ run_tests();
 );
 run_tests();
 
+ at tickets = ();

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