Permalink
Browse files

release 1.40: adjust tests and STATUS

  • Loading branch information...
Reini Urban
Reini Urban committed Jan 30, 2012
1 parent 91d35c0 commit d645f9443a8a83c5eb8cc8e6a609a9afb825bd68
View
@@ -3,7 +3,9 @@
The Perl compiler was in CORE from alpha4 until Perl 5.9.4
and worked quite fine with Perl 5.6 and 5.8
-1.40 2012-02-xx rurban
+1.40 2012-01-30 rurban
+ static PerlIO Layers (e.g. __DATA__)
+
* C: fixed deferred %INC, %INC is now stored and cleaned up at the end.
Improved __DATA__ handle as PerlIO layer, PerlIO::scalar now
loaded static (test 15).
View
10 STATUS
@@ -16,7 +16,7 @@ Most B::C and B::CC bugs fixed.
5.10 + 5.12 + 5.14 + 5.16 compatibility added.
Open Problems for B::C:
- shared_hek cleanup esp. since 5.15,
+ shared_hek cleanup esp. since 5.15
see google issues
See below at the detailed 5.6, 5.8, 5.10, 5.12, 5.14 status
@@ -83,22 +83,22 @@ t/cc 21,30,46,50,103,105
5.10.1:
t/bytecode 27,42,43
t/c -
-t/cc 14,15,21,30,46,50,103,105
+t/cc 14,21,30,46,50,103,105
5.12.4:
t/bytecode 32,46
t/c 21
-t/cc 14,15,21,30,46,50,103,105
+t/cc 14,21,30,46,50,103,105
5.14.2:
t/bytecode 27,46
t/c -
-t/cc 14,15,21,30,46,50,103,105
+t/cc 14,21,30,46,50,103,105
5.15.7:
t/bytecode 27,46
t/c -
-t/cc 14,15,21,30,46,50,103,105
+t/cc 14,21,30,46,50,103,105
CPAN Modules
View
@@ -3744,7 +3744,7 @@ sub B::IO::save {
# deal with $x = *STDIN/STDOUT/STDERR{IO} and aliases
my $perlio_func;
# Note: all single-direction fp use IFP, just bi-directional pipes and
- # sockets use OFP also. But we need to set both.
+ # sockets use OFP also. But we need to set both, pp_print checks OFP.
my $o = $io->object_2svref();
eval "require ".ref($o).";";
my $fd = $o->fileno();
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.008004d-nt
# path = /usr/local/bin/perl5.8.4d-nt
# platform = linux 64bit non-threaded debug
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.008005d-nt
# path = /usr/local/bin/perl5.8.5d-nt
# platform = linux 64bit non-threaded debug
@@ -79,7 +79,7 @@ pass Sub::Identify
pass Class::ISA
pass FCGI
pass Tree::DAG_Node
-skip Path::Class
+pass Path::Class
pass Test::Warn
pass Encode
pass Variable::Magic
@@ -102,8 +102,8 @@ pass IO::String
pass AppConfig
pass UNIVERSAL::require
pass Template::Stash
-# 98 / 100 modules tested with B-C-1.40 - perl-5.008005d-nt
-# pass 98 / 98 (100.0%)
-# fail 0 / 98 (0.0%)
+# 99 / 100 modules tested with B-C-1.40 - perl-5.008005d-nt
+# pass 99 / 99 (100.0%)
+# fail 0 / 99 (0.0%)
# todo 1 / 0 ()
-# skip 2 / 100 (2.0% not installed)
+# skip 1 / 100 (1.0% not installed)
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.008009d
# path = /usr/local/bin/perl5.8.9d
# platform = linux 64bit threaded debug
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.008009d-nt
# path = /usr/local/bin/perl5.8.9d-nt
# platform = linux 64bit non-threaded debug
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.010001d-nt
# path = /usr/local/bin/perl5.10.1-nt
# platform = linux 64bit non-threaded debug
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.012004
# path = /usr/bin/perl5.12.4
# platform = linux 64bit threaded
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.014002-nt
# path = /usr/local/bin/perl5.14.2-nt
# platform = linux 64bit non-threaded
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.014002d
# path = /usr/local/bin/perl5.14.2d
# platform = linux 64bit threaded debug
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.015007-nt
# path = /usr/local/bin/perl5.15.7-nt
# platform = linux 64bit non-threaded
View
@@ -1,4 +1,4 @@
-# B::C::VERSION = 1.40 3740451 2012-01-28 | CC minor -fro-inc simplification
+# B::C::VERSION = 1.40 91d35c0 2012-01-29 | ->fileno needs the package loaded M
# perlversion = 5.015007d-nt
# path = /usr/local/bin/perl5.15.7
# platform = linux 64bit non-threaded debug
View
@@ -11,10 +11,12 @@ my $i=0;
sub test3 {
my $name = shift;
my $script = shift;
- my $todo = 'TODO %+ setting regdata magic crashes' if $name eq 'ccode90i_c';
+ my $cmt = join('',@_);
+ my $todo;
+ $todo = 'TODO %+ setting regdata magic crashes' if $name eq 'ccode90i_c';
plctestok($i*3+1, $name, $script, $todo);
- ctestok($i*3+2, "C", $name, $script, 'C '.join(''.@_));
- ctestok($i*3+3, "CC", $name, $script, 'TODO CC '.join('',@_));
+ ctestok($i*3+2, "C", $name, $script, "C $cmt");
+ ctestok($i*3+3, "CC", $name, $script, "TODO CC $cmt");
$i++;
}
View
@@ -253,9 +253,9 @@ sub is_todo {
#foreach(qw(
# ExtUtils::CBuilder
#)) { return 'overlong linking time' if $_ eq $module; }
- if ($] < 5.007) { foreach(qw(
- ExtUtils::CBuilder
- )) { return '5.6' if $_ eq $module; }}
+ #if ($] < 5.007) { foreach(qw(
+ # ExtUtils::CBuilder
+ #)) { return '5.6' if $_ eq $module; }}
if ($] >= 5.008004 and $] < 5.0080006) { foreach(qw(
Module::Pluggable
)) { return '5.8.5 CopFILE_set' if $_ eq $module; }}
@@ -277,7 +277,11 @@ sub is_todo {
# ---------------------------------------
if ($Config{useithreads}) {
+ if (!$DEDBUGGING) { foreach(qw(
+ Test::Tester
+ )) { return 'non-debugging with threads' if $_ eq $module; }}
if ($] >= 5.008005 and $] < 5.008006) { foreach(qw(
+ Module::Build
Test::NoWarnings
Test::Warn
Test::Simple
@@ -298,6 +302,7 @@ sub is_todo {
Pod::Text
Template::Stash
)) { return '5.10 with threads' if $_ eq $module; }}
+ # XXX 5.12.0 not tested recently
if ($] eq 5.012000) { foreach(qw(
DBI
DateTime
View
@@ -793,24 +793,27 @@ sub todo_tests_default {
my @todo = ();
push @todo, (15) if $] < 5.007;
if ($what =~ /^c(|_o[1-4])$/) {
- push @todo, (50) if $] >= 5.010 and $] < 5.012 and $what =~ /c_o[4]/;
+ push @todo, (7) if $] == 5.008005;
push @todo, (21) if $] >= 5.012 and $] < 5.014;
push @todo, (15) if $] > 5.010 and $ITHREADS;
+ push @todo, (27) if $] >= 5.012 and $] < 5.014 and $ITHREADS and $DEBUGGING;
# @ISA issue 64
push @todo, (10,12,19,25,42,43,50) if $what eq 'c_o4';
+ push @todo, (48) if $] >= 5.008009 and $] < 5.010 and $what eq 'c_o4';
# DynaLoader::dl_load_file()
push @todo, (15,27,29,41..45,49) if $] > 5.015 and $what eq 'c_o4';
} elsif ($what =~ /^cc/) {
# 8,11,14..16,18..19 fail on 5.00505 + 5.6, old core failures (max 20)
# on cygwin 29 passes
#15,21,27,30,41-45,50,103,105
push @todo, (21,30,46,50,103,105);
+ push @todo, (15) if $] < 5.008008;
+ push @todo, (104,105) if $] < 5.007; # leaveloop, no cxstack
push @todo, (3,7,15,41,44,45) if $] > 5.008 and $] <= 5.008005;
- push @todo, (15); #if $] < 5.008008 or $] >= 5.010;
- push @todo, (14) if $] >= 5.012;
+ push @todo, (42,43) if $] > 5.008 and $] <= 5.008005 and !$ITHREADS;
- push @todo, (104,105) if $] < 5.007; # leaveloop, no cxstack
+ push @todo, (14) if $] >= 5.012;
push @todo, (10,16) if $what eq 'cc_o2';
#push @todo, (103) if $] > 5.007 and $] < 5.009 and $what eq 'cc_o1';
# only tested 5.8.4 and .5
View
@@ -390,6 +390,12 @@ print q(o) if $s eq q(string test);
q(test string) =~ /(?<first>\w+) (?<second>\w+)/;
print q(k) if $+{first} eq q(test);'
result[90]='ok'
+tests[901]='my %errs = %!; # t/op/magic.t Errno compiled in
+print q(ok) if defined ${"!"}{ENOENT};'
+result[901]='ok'
+tests[902]='my %errs = %{"!"}; # t/op/magic.t Errno to be loaded at run-time
+print q(ok) if defined ${"!"}{ENOENT};'
+result[902]='ok'
# IO handles
tests[91]='# issue59
use strict;

0 comments on commit d645f94

Please sign in to comment.