开源软件构建与测试

_service:tar_scm:perl-Test-Harness.spec Changed

_service Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/Changes -> _service:tar_scm:Test-Harness-3.44.tar.gz/Changes Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/META.json -> _service:tar_scm:Test-Harness-3.44.tar.gz/META.json Changed

@@ -4,7 +4,7 @@
       "unknown"
    ,
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010",
+   "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010",
    "keywords" : 
       "TAP",
       "test",
@@ -16,7 +16,7 @@
    ,
    "meta-spec" : {
       "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
-      "version" : "2"
+      "version" : 2
    },
    "name" : "Test-Harness",
    "no_index" : {
@@ -43,7 +43,7 @@
          "requires" : {}
       }
    },
-   "release_status" : "unstable",
+   "release_status" : "stable",
    "resources" : {
       "bugtracker" : {
          "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness"
@@ -53,6 +53,6 @@
          "url" : "http://github.com/Perl-Toolchain-Gang/Test-Harness/tree/master"
       }
    },
-   "version" : "3.43_02",
-   "x_serialization_backend" : "JSON::PP version 2.27300"
+   "version" : "3.44",
+   "x_serialization_backend" : "JSON::PP version 4.06"
 }

_service:tar_scm:Test-Harness-3.43_02.tar.gz/META.yml -> _service:tar_scm:Test-Harness-3.44.tar.gz/META.yml Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/bin/prove -> _service:tar_scm:Test-Harness-3.44.tar.gz/bin/prove Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/App/Prove.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/App/Prove.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/App/Prove/State.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/App/Prove/State.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/App/Prove/State/Result.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/App/Prove/State/Result.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/App/Prove/State/Result/Test.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/App/Prove/State/Result/Test.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Base.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Base.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/Base.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/Base.pm Changed

@@ -58,11 +58,11 @@
 
 =head1 VERSION
 
-Version 3.43_02
+Version 3.44
 
 =cut
 
-our $VERSION = '3.43_02';
+our $VERSION = '3.44';
 
 =head1 DESCRIPTION
 
@@ -387,7 +387,30 @@
     $spaces = ' ' unless $spaces;
     my $output = $self->_get_output_method($parser);
     my $wait   = $parser->wait;
-    defined $wait or $wait = '(none)';
+
+    if (defined $wait) {
+        my $signum = $wait & 0x7f;
+
+        my $description;
+
+        if ($signum) {
+            require Config;
+            my @names = split ' ', $Config::Config{'sig_name'};
+            $description = "Signal: $names$signum";
+
+            my $dumped = $wait & 0x80;
+            $description .= ', dumped core' if $dumped;
+        }
+        elsif ($wait != 0) {
+            $description = sprintf 'exited %d', ($wait >> 8);
+        }
+
+        $wait .= " ($description)" if $wait != 0;
+    }
+    else {
+        $wait = '(none)';
+    }
+
     $self->$output(
         sprintf "$test$spaces(Wstat: %s Tests: %d Failed: %d)\n",
         $wait, $parser->tests_run, scalar $parser->failed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/Color.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/Color.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/Console.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/Console.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/Console/ParallelSession.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/Console/ParallelSession.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/Console/Session.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/Console/Session.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/File.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/File.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/File/Session.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/File/Session.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Formatter/Session.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Formatter/Session.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Harness.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Harness.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Harness/Env.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Harness/Env.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Object.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Object.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Aggregator.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Aggregator.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Grammar.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Grammar.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Iterator.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Iterator.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Iterator/Array.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Iterator/Array.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Iterator/Process.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Iterator/Process.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Iterator/Stream.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Iterator/Stream.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/IteratorFactory.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/IteratorFactory.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Multiplexer.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Multiplexer.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Bailout.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Bailout.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Comment.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Comment.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Plan.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Plan.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Pragma.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Pragma.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Test.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Test.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Unknown.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Unknown.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/Version.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/Version.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Result/YAML.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Result/YAML.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/ResultFactory.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/ResultFactory.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Scheduler.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Scheduler.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Scheduler/Job.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Scheduler/Job.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Scheduler/Spinner.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Scheduler/Spinner.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/Source.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/Source.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/SourceHandler.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/SourceHandler.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/SourceHandler/Executable.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/SourceHandler/Executable.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/SourceHandler/File.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/SourceHandler/File.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/SourceHandler/Handle.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/SourceHandler/Handle.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/SourceHandler/Perl.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/SourceHandler/Perl.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/SourceHandler/RawTAP.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/SourceHandler/RawTAP.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/YAMLish/Reader.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/YAMLish/Reader.pm Changed

@@ -5,16 +5,21 @@
 
 use base 'TAP::Object';
 
-our $VERSION = '3.43_02';
+our $VERSION = '3.44';
+
+                             # No EBCDIC support on early perls
+*to_native = (ord "A" == 65 || $ < 5.008)
+             ? sub { return shift }
+             : sub { utf8::unicode_to_native(shift) };
 
 # TODO:
 #   Handle blessed object syntax
 
 # Printable characters for escapes
 my %UNESCAPES = (
-    z => "\x00", a => "\x07", t    => "\x09",
-    n => "\x0a", v => "\x0b", f    => "\x0c",
-    r => "\x0d", e => "\x1b", '\\' => '\\',
+    z => "\x00", a => "\a",  t    => "\t",
+    n => "\n",   v => "\cK", f    => "\f",
+    r => "\r",   e => "\e",  '\\' => '\\',
 );
 
 my $QQ_STRING    = qr{ " (?:\\. | ^")* " }x;
@@ -22,6 +27,7 @@
 my $IS_HASH_KEY  = qr{ ^ \w\'\" }x;
 my $IS_END_YAML  = qr{ ^ \.\.\. \s* $ }x;
 my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x;
+my $IS_ARRAY_LINE = qr{ ^ - \s* ($QQ_STRING|\S+) }x;
 
 # new() implementation supplied by TAP::Object
 
@@ -117,7 +123,8 @@
 
     $str =~ s/\\"/"/gx;
     $str =~ s/ \\ ( tartan\\favez | x(0-9a-fA-F{2}) ) 
-                 / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex;
+                 / (length($1) > 1) ? pack("H2", to_native($2))
+                                    : $UNESCAPES{$1} /gex;
     return $str;
 }
 
@@ -240,9 +247,17 @@
         my ( $key, $value ) = ( $self->_read_scalar($1), $2 );
         $self->_next;
 
+        my ( $next_line, $next_indent ) = $self->_peek;
+
         if ( defined $value ) {
             $hash->{$key} = $self->_read_scalar($value);
         }
+        elsif (not defined $value                  # no explicit undef ("~") given
+               and $next_indent <= $limit          # next line is same or less indentation
+               and $next_line !~ $IS_ARRAY_LINE)   # arrays can start at same indent
+        {
+            $hash->{$key} = undef;
+        }
         else {
             $hash->{$key} = $self->_read_nested;
         }
@@ -269,7 +284,7 @@
 
 =head1 VERSION
 
-Version 3.43_02
+Version 3.44
 
 =head1 SYNOPSIS

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/TAP/Parser/YAMLish/Writer.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/TAP/Parser/YAMLish/Writer.pm Changed

@@ -5,17 +5,26 @@
 
 use base 'TAP::Object';
 
-our $VERSION = '3.43_02';
+our $VERSION = '3.44';
 
-my $ESCAPE_CHAR = qr{  \x00-\x1f \"  }x;
+                             # No EBCDIC support on early perls
+*from_native = (ord "A" == 65 || $ < 5.008)
+             ? sub { return shift }
+             : sub { utf8::native_to_unicode(shift) };
+
+my $ESCAPE_CHAR = qr{  :cntrl: \"  }x;
 my $ESCAPE_KEY  = qr{ (?: ^\W ) | $ESCAPE_CHAR }x;
 
-my @UNPRINTABLE = qw(
-  z    x01  x02  x03  x04  x05  x06  a
-  x08  t    n    v    f    r    x0e  x0f
-  x10  x11  x12  x13  x14  x15  x16  x17
-  x18  x19  x1a  e    x1c  x1d  x1e  x1f
-);
+my @UNPRINTABLE;
+$UNPRINTABLE$_ = sprintf("x%02x", from_native($_)) for 0 .. ord(" ") - 1;
+$UNPRINTABLEord "\0" = 'z';
+$UNPRINTABLEord "\a" = 'a';
+$UNPRINTABLEord "\t" = 't';
+$UNPRINTABLEord "\n" = 'n';
+$UNPRINTABLEord "\cK" = 'v';
+$UNPRINTABLEord "\f" = 'f';
+$UNPRINTABLEord "\r" = 'r';
+$UNPRINTABLEord "\e" = 'e';
 
 # new() implementation supplied by TAP::Object
 
@@ -76,7 +85,7 @@
     if ( $val =~ /$rule/ ) {
         $val =~ s/\\/\\\\/g;
         $val =~ s/"/\\"/g;
-        $val =~ s/ ( \x00-\x1f ) / '\\' . $UNPRINTABLE ord($1)  /gex;
+        $val =~ s/ ( :cntrl: ) / '\\' . $UNPRINTABLE ord($1)  /gex;
         return qq{"$val"};
     }
 
@@ -146,7 +155,7 @@
 
 =head1 VERSION
 
-Version 3.43_02
+Version 3.44
 
 =head1 SYNOPSIS

_service:tar_scm:Test-Harness-3.43_02.tar.gz/lib/Test/Harness.pm -> _service:tar_scm:Test-Harness-3.44.tar.gz/lib/Test/Harness.pm Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/compat/test-harness-compat.t -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/compat/test-harness-compat.t Changed

@@ -6,6 +6,7 @@
 
 use strict;
 use warnings;
+use Config;
 
 # use lib 't/lib';
 
@@ -16,7 +17,20 @@
 # unset this global when self-testing ('testcover' and etc issue)
 local $ENV{HARNESS_PERL_SWITCHES};
 
-my $TEST_DIR = 't/sample-tests';
+my $TEST_DIR       = 't/sample-tests';
+my $NoTaintSupport = exists($Config{taint_support}) && !$Config{taint_support};
+
+my @test_list      = qw(descriptive die die_head_end die_last_minute duplicates
+                        head_end head_fail inc_taint junk_before_plan lone_not_bug
+                        no_nums no_output schwern sequence_misparse shbang_misparse
+                        simple simple_fail skip skip_nomsg skipall skipall_nomsg
+                        stdout_stderr taint todo_inline
+                        todo_misparse too_many vms_nit
+                        );
+
+if ($NoTaintSupport) {
+    @test_list = grep { $_ !~ /taint/ && $_ ne 'shbang_misparse' } @test_list;
+}
 
 {
 
@@ -44,14 +58,7 @@
             }
         },
         join(
-            ',', qw(
-              descriptive die die_head_end die_last_minute duplicates
-              head_end head_fail inc_taint junk_before_plan lone_not_bug
-              no_nums no_output schwern sequence_misparse shbang_misparse
-              simple simple_fail skip skip_nomsg skipall skipall_nomsg
-              stdout_stderr taint todo_inline
-              todo_misparse too_many vms_nit
-              )
+            ',', @test_list
           ) => {
             'failed' => {
                 "$TEST_DIR/die" => {
@@ -94,6 +101,7 @@
                     'name'   => "$TEST_DIR/head_fail",
                     'wstat'  => ''
                 },
+                $NoTaintSupport ? () : (
                 "$TEST_DIR/inc_taint" => {
                     'canon'  => 1,
                     'estat'  => 1,
@@ -101,7 +109,7 @@
                     'max'    => 1,
                     'name'   => "$TEST_DIR/inc_taint",
                     'wstat'  => '256'
-                },
+                }),
                 "$TEST_DIR/no_nums" => {
                     'canon'  => 3,
                     'estat'  => '',
@@ -162,15 +170,15 @@
                 }
             },
             'totals' => {
-                'bad'         => 12,
+                'bad'         => ($NoTaintSupport ? 11 : 12),
                 'bonus'       => 1,
-                'files'       => 27,
-                'good'        => 15,
-                'max'         => 76,
-                'ok'          => 78,
+                'files'       => ($NoTaintSupport ? 24 : 27),
+                'good'        => ($NoTaintSupport ? 13 : 15),
+                'max'         => ($NoTaintSupport ? 72 : 76),
+                'ok'          => ($NoTaintSupport ? 75 : 78),
                 'skipped'     => 2,
                 'sub_skipped' => 2,
-                'tests'       => 27,
+                'tests'       => ($NoTaintSupport ? 24 : 27),
                 'todo'        => 2
             }
           },
@@ -316,6 +324,7 @@
             }
         },
         'inc_taint' => {
+            'skip_if' => sub { $NoTaintSupport },
             'failed' => {
                 "$TEST_DIR/inc_taint" => {
                     'canon'  => 1,
@@ -455,6 +464,7 @@
             }
         },
         'shbang_misparse' => {
+            'skip_if' => sub { $NoTaintSupport },
             'failed' => {},
             'todo'   => {},
             'totals' => {
@@ -620,9 +630,10 @@
             }
         },
         'taint' => {
-            'failed' => {},
-            'todo'   => {},
-            'totals' => {
+            'skip_if' => sub { $NoTaintSupport },
+            'failed'  => {},
+            'todo'    => {},
+            'totals'  => {
                 'bad'         => 0,
                 'bonus'       => 0,
                 'files'       => 1,
@@ -636,9 +647,10 @@
             }
         },
         'taint_warn' => {
-            'failed' => {},
-            'todo'   => {},
-            'totals' => {
+            'skip_if' => sub { $NoTaintSupport },
+            'failed'  => {},
+            'todo'    => {},
+            'totals'  => {
                 'bad'         => 0,
                 'bonus'       => 0,
                 'files'       => 1,
@@ -813,6 +825,10 @@
                   if $skip_if->();
             }
 
+            if (($test_key eq 'inc_taint' || $test_key eq 'shbang_misparse') && $NoTaintSupport) {
+                skip "your perl was built without taint support", 4;
+            }
+
             my @test_names = split( /,/, $test_key );
             my @test_files
               = map { File::Spec->catfile( $TEST_DIR, $_ ) } @test_names;

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/harness-bailout.t -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/harness-bailout.t Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/harness.t -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/harness.t Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/regression.t -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/regression.t Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/sample-tests/segfault -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/sample-tests/segfault Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/source.t -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/source.t Changed

_service:tar_scm:Test-Harness-3.43_02.tar.gz/t/yamlish.t -> _service:tar_scm:Test-Harness-3.44.tar.gz/t/yamlish.t Changed

@@ -138,6 +138,74 @@
                 six => '6'
             },
         },
+        {   name => 'Edge cases for hash start vs. undefined scalar 1',
+            in   => 
+                '---',
+                'one:',
+                '  five: 5',
+                '  two:',
+                '  four: 4',
+                '  three: 3',
+                'six: 6',
+                '...',
+            ,
+            out => {
+                one => { two => undef, three => '3', four => '4', five => '5' },
+                six => '6'
+            },
+        },
+        {   name => 'Edge cases for hash start vs. undefined scalar 2',
+            in   => 
+                '---',
+                'one:',
+                '  five: 5',
+                '  two: ~',
+                '  four: 4',
+                '  three: 3',
+                'six: 6',
+                '...',
+            ,
+            out => {
+                one => { two => undef, three => '3', four => '4', five => '5' },
+                six => '6'
+            },
+        },
+        {   name => 'Edge cases for hash start vs. undefined scalar 3',
+            in   => 
+                '---',
+                'two:',
+                'four: 4',
+                'three: 3',
+                '...',
+            ,
+            out => {
+                two => undef, three => '3', four => '4',
+            },
+        },
+        {   name => 'Edge cases for hash start vs. undefined scalar 4',
+            in   => 
+                '---',
+                'two:',
+                '  four: 4',
+                '  three: 3',
+                '...',
+            ,
+            out => {
+                two => { three => '3', four => '4' },
+            },
+        },
+        {   name => 'Edge cases for hash start vs. undefined scalar 5',
+            in   => 
+                '---',
+                'two:',
+                '- four: 4',
+                '- three: 3',
+                '...',
+            ,
+            out => {
+                two =>  { four => '4' }, { three => '3' } ,
+            },
+        },
         {   name => 'Space after colon',
             in   =>  '---', 'spog: ', ' - 1', ' - 2', '...' ,
             out => { spog =>  1, 2  },
@@ -451,7 +519,7 @@
             ,
             name => 'Regression: inline_nested_hash'
         },
-        {   name => "Unprintables",
+        {   name => "Unprintables", # This is an ASCII centric test
             in   => 
                 "---",
                 "- \"\\z\\x01\\x02\\x03\\x04\\x05\\x06\\a\\x08\\t\\n\\v\\f\\r\\x0e\\x0f\"",

Changes of Revision 2