Re: [PATCH] Cleanup of the regexp API

[p5sagit/p5-mst-13.2.git] / ext / B / t / concise-xs.t

diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t
index f0c7a70..d2ff6b8 100644 (file)
--- a/ext/B/t/concise-xs.t
+++ b/ext/B/t/concise-xs.t
@@ -117,11 +117,11 @@ use Getopt::Std;
 use Carp;
 use Test::More tests => ( # per-pkg tests (function ct + require_ok)
                          40 + 16       # Data::Dumper, Digest::MD5
-                         + 515 + 235   # B::Deparse, B
+                         + 517 + 262   # B::Deparse, B
                          + 595 + 190   # POSIX, IO::Socket
-                         + 3 * ($] > 5.009)
-                         + 16 * ($] >= 5.009003)
-                         - 22);        # fudge
+                         + 323 * ($] > 5.009)
+                         + 17 * ($] >= 5.009003)
+                         - 344);       # fudge
 
 require_ok("B::Concise");
 
@@ -142,7 +142,7 @@ my $testpkgs = {
     Data::Dumper => { XS => [qw/ bootstrap Dumpxs /],
                      dflt => 'perl' },
     B => { 
-       dflt => 'constant',             # all but 47/274
+       dflt => 'constant',             # all but 47/297
        skip => [ 'regex_padav' ],      # threaded only
        perl => [qw(
                    walksymtable walkoptree_slow walkoptree_exec
@@ -157,7 +157,7 @@ my $testpkgs = {
                  formfeed end_av dowarn diehook defstash curstash
                  cstring comppadlist check_av cchar cast_I32 bootstrap
                  begin_av amagic_generation sub_generation address
-                 )],
+                 ), $] > 5.009 ? ('unitcheck_av') : ()],
     },
 
     B::Deparse => { dflt => 'perl',    # 235 functions
@@ -176,7 +176,7 @@ my $testpkgs = {
                     OPpSORT_REVERSE OPpTARGET_MY OPpTRANS_COMPLEMENT
                     OPpTRANS_DELETE OPpTRANS_SQUASH PMf_CONTINUE
                     PMf_EVAL PMf_EXTENDED PMf_FOLD PMf_GLOBAL PMf_KEEP
-                    PMf_MULTILINE PMf_ONCE PMf_SINGLELINE PMf_SKIPWHITE
+                    PMf_MULTILINE PMf_ONCE PMf_SINGLELINE RXf_SKIPWHITE
                     POSTFIX SVf_FAKE SVf_IOK SVf_NOK SVf_POK SVf_ROK
                     SVpad_OUR SVs_RMG SVs_SMG SWAP_CHILDREN OPpPAD_STATE
                     /],
@@ -213,8 +213,8 @@ my $testpkgs = {
                             register_domain recv protocol peername
                             new listen import getsockopt croak
                             connected connect configure confess close
-                            carp bind atmark accept blocking
-                            /],
+                            carp bind atmark accept
+                            /, $] > 5.009 ? ('blocking') : () ],
 
                    XS => [qw/ unpack_sockaddr_un unpack_sockaddr_in
                           sockatmark sockaddr_family pack_sockaddr_un