From a69823cd867374d9183fe65284f06f7fc3b6ddbf Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 9 Nov 2013 06:56:42 -0800
Subject: [PATCH] More test tweaks

---
 lib/B/Deparse-core.t |  2 ++
 lib/B/Deparse.t      |  2 +-
 lib/locale.t         |  1 +
 t/op/coresubs.t      | 10 +++++++++-
 4 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/lib/B/Deparse-core.t b/lib/B/Deparse-core.t
index f839e88..60702c6 100644
--- a/lib/B/Deparse-core.t
+++ b/lib/B/Deparse-core.t
@@ -40,6 +40,7 @@ plan tests => 2071;
 
 use feature (sprintf(":%vd", $^V)); # to avoid relying on the feature
                                     # logic to add CORE::
+no warnings 'experimental::aggref';
 use B::Deparse;
 my $deparse = new B::Deparse;
 
@@ -92,6 +93,7 @@ sub testit {
 
 	unless ($got_text =~ /^{
     package test;
+    BEGIN {\${\^WARNING_BITS} = "[^"]*"}
     use strict 'refs', 'subs';
     use feature [^\n]+
     \Q$vars\E\(\) = (.*)
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 904251a..47feb4b 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -10,7 +10,6 @@ BEGIN {
 }
 
 use warnings;
-no  warnings 'experimental::aggref';
 use strict;
 use Test::More;
 
@@ -977,6 +976,7 @@ tr/a/b/r;
 <a,>;
 ####
 # [perl #91008]
+# CONTEXT no warnings 'experimental::aggref';
 each $@;
 keys $~;
 values $!;
diff --git a/lib/locale.t b/lib/locale.t
index fee2fc8..641e858 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -2035,6 +2035,7 @@ foreach $test_num ($first_locales_test_number..$final_locales_test_number) {
 	    print "# not in Perl itself.\n";
 	}
         if ($Okay{$test_num} && grep { $_ == $test_num } @problematical_tests) {
+            no warnings 'experimental::aggref';
             # Round to nearest .1%
             my $percent_fail = (int(.5 + (1000 * scalar(keys $Problem{$test_num})
                                           / scalar(@Locale))))
diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 86118bc..2e93c71 100644
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -25,9 +25,17 @@ my %unsupported = map +($_=>1), qw (
 );
 my %args_for = (
   dbmopen  => '%1,$2,$3',
-  dbmclose => '%1',
+ (dbmclose => '%1',
+  keys     =>
+  values   =>
+  each     =>)[0,1,2,1,3,1,4,1],
   delete   => '$1[2]',
   exists   => '$1[2]',
+ (push     => '@1',
+  pop      =>
+  shift    =>
+  unshift  =>
+  splice   =>)[0,1,2,1,3,1,4,1,5,1],
 );
 my %desc = (
   pos => 'match position',
-- 
1.8.3.1