Back
From: metabase:user:30977d10-2aae-11df-837a-5e0a49663a4f
Subject: FAIL Plack-Middleware-StackTrace-LinkedSource-0.11 v5.23.8 GNU/Linux
Date: 2016-02-27T12:15:06Z
This distribution has been tested as part of the CPAN Testers
project, supporting the Perl programming language. See
http://wiki.cpantesters.org/ for more information or email
questions to cpan-testers-discuss@perl.org
--
Dear Dai Okabayashi,
This is a computer-generated report for Plack-Middleware-StackTrace-LinkedSource-0.11
on perl 5.23.8, created by CPAN-Reporter-1.2015.
Thank you for uploading your work to CPAN. However, there was a problem
testing your distribution.
If you think this report is invalid, please consult the CPAN Testers Wiki
for suggestions on how to avoid getting FAIL reports for missing library
or binary dependencies, unsupported operating systems, and so on:
http://wiki.cpantesters.org/wiki/CPANAuthorNotes
Sections of this report:
* Tester comments
* Program output
* Prerequisites
* Environment and other context
------------------------------
TESTER COMMENTS
------------------------------
Additional comments from tester:
this report is from an automated smoke testing program
and was not reviewed by a human for accuracy
------------------------------
PROGRAM OUTPUT
------------------------------
Output from '/usr/bin/make test':
/home/stro/perl/5.23.8t/bin/perl Build --makefile_env_macros 1 test
t/00_compile.t .. ok
# Failed test at t/01_basic.t line 26.
# '<!doctype html><head><title>Error: orz at t/01_basic.t line 10</title><style type="text/css">a.toggle { color: #444 }
# body { margin: 0; padding: 0; background: #fff; color: #000; }
# h1 { margin: 0 0 .5em; padding: .25em .5em .1em 1.5em; border-bottom: thick solid #002; background: #444; color: #eee; font-size: x-large; }
# pre.message { margin: .5em 1em; }
# li.frame { font-size: small; margin-top: 3em }
# li.frame:nth-child(1) { margin-top: 0 }
# pre.context { border: 1px solid #aaa; padding: 0.2em 0; background: #fff; color: #444; font-size: medium; }
# pre .match { color: #000;background-color: #f99; font-weight: bold }
# pre.vardump { margin:0 }
# pre code strong { color: #000; background: #f88; }
#
# table.lexicals, table.arguments { border-collapse: collapse }
# table.lexicals td, table.arguments td { border: 1px solid #000; margin: 0; padding: .3em }
# table.lexicals tr:nth-child(2n) { background: #DDDDFF }
# table.arguments tr:nth-child(2n) { background: #DDFFDD }
# .lexicals, .arguments { display: none }
# .variable, .value { font-family: monospace; white-space: pre }
# td.variable { vertical-align: top }
# </style><script language="JavaScript" type="text/javascript">
# function toggleThing(ref, type, hideMsg, showMsg) {
# var css = document.getElementById(type+'-'+ref).style;
# css.display = css.display == 'block' ? 'none' : 'block';
#
# var hyperlink = document.getElementById('toggle-'+ref);
# hyperlink.textContent = css.display == 'block' ? hideMsg : showMsg;
# }
#
# function toggleArguments(ref) {
# toggleThing(ref, 'arguments', 'Hide function arguments', 'Show function arguments');
# }
#
# function toggleLexicals(ref) {
# toggleThing(ref, 'lexicals', 'Hide lexical variables', 'Show lexical variables');
# }
# </script>
# </head>
# <body>
# <h1>Error trace</h1><pre class="message">orz at t/01_basic.t line 10</pre><ol>
# <li class="frame">in Plack::Middleware::StackTrace::try {...} at t/01_basic.t line 10<pre class="context"><code> 7: use Plack::Middleware::StackTrace::LinkedSource;
# 8:
# 9: {
# <strong class="match"> 10: my $traceapp = Plack::Middleware::StackTrace::LinkedSource->wrap(sub { die "orz" }, no_print_errors => 1);
# </strong> 11: my $app = sub {
# 12: my $env = shift;
# 13: my $ret = $traceapp->($env);
# </code></pre></li><li class="frame">in (eval) at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L90">lib/site_perl/5.23.8/Try/Tiny.pm line 90</a><pre class="context"><code> 87: if ( $wantarray ) {
# 88: @ret = $try->();
# 89: } elsif ( defined $wantarray ) {
# <strong class="match"> 90: $ret[0] = $try->();
# </strong> 91: } else {
# 92: $try->();
# 93: };
# </code></pre></li><li class="frame">in Plack::Middleware::StackTrace::call at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L83">lib/site_perl/5.23.8/Try/Tiny.pm line 83</a><pre class="context"><code> 80:
# 81: # failed will be true if the eval dies, because 1 will not be returned
# 82: # from the eval body
# <strong class="match"> 83: my $failed = not eval {
# </strong> 84: $@ = $prev_error;
# 85:
# 86: # evaluate the try block in the correct context
# </code></pre><p><a class="toggle" id="toggle-arg-3" href="javascript:toggleArguments('arg-3')">Show function arguments</a></p><table class="arguments" id="arguments-arg-3"><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::StackTrace::LinkedSource=HASH(0x1d2af00)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x2601188)'</td></tr></table></li><li class="frame">in Plack::Middleware::StackTrace::LinkedSource::call at <a href="/source/Plack/Middleware/StackTrace/LinkedSource.pm#L54">/home/stro/cpan/build/5.23.8t/build/Plack-Middleware-StackTrace-LinkedSource-0.11-sSYLKC/b<a href="/source/lib/Plack/Middleware/StackTrace/LinkedSource.pm#L54">lib/lib/Plack/Middleware/StackTrace/LinkedSource.pm line 54</a></a><pre class="context"><code> 51: return $self->viewer->call($env);
# 52: }
# 53:
# <strong class="match"> 54: my $res = $self->SUPER::call($env);
# </strong> 55:
# 56: if ($res->[0] == 500 && Plack::Util::header_get($res->[1], 'content-type') =~ m!text/html!) {
# 57: my $body = $res->[2][0];
# </code></pre><p><a class="toggle" id="toggle-arg-4" href="javascript:toggleArguments('arg-4')">Show function arguments</a></p><table class="arguments" id="arguments-arg-4"><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::StackTrace::LinkedSource=HASH(0x1d2af00)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x2601188)'</td></tr></table></li><li class="frame">in Plack::Component::__ANON__ at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Component.pm#L50">lib/site_perl/5.23.8/Plack/Component.pm line 50</a><pre class="context"><code> 47: sub to_app {
# 48: my $self = shift;
# 49: $self->prepare_app;
# <strong class="match"> 50: return sub { $self->call(@_) };
# </strong> 51: }
# 52:
# 53:
# </code></pre><p><a class="toggle" id="toggle-arg-5" href="javascript:toggleArguments('arg-5')">Show function arguments</a></p><table class="arguments" id="arguments-arg-5"><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x2601188)'</td></tr></table></li><li class="frame">in main::__ANON__ at t/01_basic.t line 13<pre class="context"><code> 10: my $traceapp = Plack::Middleware::StackTrace::LinkedSource->wrap(sub { die "orz" }, no_print_errors => 1);
# 11: my $app = sub {
# 12: my $env = shift;
# <strong class="match"> 13: my $ret = $traceapp->($env);
# </strong> 14: return $ret;
# 15: };
# 16: test_psgi $app, sub {
# </code></pre><p><a class="toggle" id="toggle-arg-6" href="javascript:toggleArguments('arg-6')">Show function arguments</a></p><table class="arguments" id="arguments-arg-6"><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x2601188)'</td></tr></table></li><li class="frame">in Plack::Test::MockHTTP::try {...} at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test/MockHTTP.pm#L24">lib/site_perl/5.23.8/Plack/Test/MockHTTP.pm line 24</a><pre class="context"><code> 21: my $env = $req->to_psgi;
# 22:
# 23: my $res = try {
# <strong class="match"> 24: HTTP::Response->from_psgi($self->{app}->($env));
# </strong> 25: } catch {
# 26: HTTP::Response->from_psgi([ 500, [ 'Content-Type' => 'text/plain' ], [ $_ ] ]);
# 27: };
# </code></pre></li><li class="frame">in (eval) at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L90">lib/site_perl/5.23.8/Try/Tiny.pm line 90</a><pre class="context"><code> 87: if ( $wantarray ) {
# 88: @ret = $try->();
# 89: } elsif ( defined $wantarray ) {
# <strong class="match"> 90: $ret[0] = $try->();
# </strong> 91: } else {
# 92: $try->();
# 93: };
# </code></pre></li><li class="frame">in Try::Tiny::try at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L83">lib/site_perl/5.23.8/Try/Tiny.pm line 83</a><pre class="context"><code> 80:
# 81: # failed will be true if the eval dies, because 1 will not be returned
# 82: # from the eval body
# <strong class="match"> 83: my $failed = not eval {
# </strong> 84: $@ = $prev_error;
# 85:
# 86: # evaluate the try block in the correct context
# </code></pre><p><a class="toggle" id="toggle-arg-9" href="javascript:toggleArguments('arg-9')">Show function arguments</a></p><table class="arguments" id="arguments-arg-9"><tr><td class="variable">$_[0]</td><td class="value">'CODE(0x1d364d0)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Try::Tiny::Catch=REF(0x2390640)'</td></tr></table></li><li class="frame">in Plack::Test::MockHTTP::request at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test/MockHTTP.pm#L27">lib/site_perl/5.23.8/Plack/Test/MockHTTP.pm line 27</a><pre class="context"><code> 24: HTTP::Response->from_psgi($self->{app}->($env));
# 25: } catch {
# 26: HTTP::Response->from_psgi([ 500, [ 'Content-Type' => 'text/plain' ], [ $_ ] ]);
# <strong class="match"> 27: };
# </strong> 28:
# 29: $res->request($req);
# 30: return $res;
# </code></pre><p><a class="toggle" id="toggle-arg-10" href="javascript:toggleArguments('arg-10')">Show function arguments</a></p><table class="arguments" id="arguments-arg-10"><tr><td class="variable">$_[0]</td><td class="value">'Plack::Test::MockHTTP=HASH(0x25966b0)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HTTP::Request=HASH(0x25964b8)'</td></tr></table></li><li class="frame">in Plack::Test::__ANON__ at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test.pm#L38">lib/site_perl/5.23.8/Plack/Test.pm line 38</a><pre class="context"><code> 35: my $tester = Plack::Test->create($app, %args);
# 36: return $tester->(@_) if ref $tester eq 'CODE'; # compatibility
# 37:
# <strong class="match"> 38: $client->(sub { $tester->request(@_) });
# </strong> 39: }
# 40:
# 41: 1;
# </code></pre><p><a class="toggle" id="toggle-arg-11" href="javascript:toggleArguments('arg-11')">Show function arguments</a></p><table class="arguments" id="arguments-arg-11"><tr><td class="variable">$_[0]</td><td class="value">'HTTP::Request=HASH(0x25964b8)'</td></tr></table></li><li class="frame">in main::__ANON__ at t/01_basic.t line 21<pre class="context"><code> 18:
# 19: my $req = GET "/";
# 20: $req->header(Accept => "text/html,*/*");
# <strong class="match"> 21: my $res = $cb->($req);
# </strong> 22:
# 23: ok $res->is_error;
# 24: is_deeply [ $res->content_type ], [ 'text/html', 'charset=utf-8' ];
# </code></pre><p><a class="toggle" id="toggle-arg-12" href="javascript:toggleArguments('arg-12')">Show function arguments</a></p><table class="arguments" id="arguments-arg-12"><tr><td class="variable">$_[0]</td><td class="value">'CODE(0x25966c8)'</td></tr></table></li><li class="frame">in Plack::Test::test_psgi at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test.pm#L38">lib/site_perl/5.23.8/Plack/Test.pm line 38</a><pre class="context"><code> 35: my $tester = Plack::Test->create($app, %args);
# 36: return $tester->(@_) if ref $tester eq 'CODE'; # compatibility
# 37:
# <strong class="match"> 38: $client->(sub { $tester->request(@_) });
# </strong> 39: }
# 40:
# 41: 1;
# </code></pre><p><a class="toggle" id="toggle-arg-13" href="javascript:toggleArguments('arg-13')">Show function arguments</a></p><table class="arguments" id="arguments-arg-13"><tr><td class="variable">$_[0]</td><td class="value">'app'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'CODE(0x1d0cf48)'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'client'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'CODE(0x258dca0)'</td></tr></table></li><li class="frame"> at t/01_basic.t line 28<pre class="context"><code> 25: like $res->content, qr/<title>Error: orz/;
# 26: like $res->content, qr!<a href="/source/Try/Tiny\.pm\#L\d+">.+[/\\]Try[/\\]Tiny\.pm line \d+</a>!;
# 27: }
# <strong class="match"> 28: }
# </strong> 29:
# 30: {
# 31: my $sourceapp = Plack::Middleware::StackTrace::LinkedSource->wrap(sub { [200, [], ["OK"]] });
# </code></pre></li></ol></body></html>'
# doesn't match '(?^:<a href="/source/Try/Tiny\.pm\#L\d+">.+[/\\]Try[/\\]Tiny\.pm line \d+</a>)'
# Failed test at t/01_basic.t line 84.
# '<!doctype html><head><title>Error: amg at t/01_basic.t line 68</title><style type="text/css">a.toggle { color: #444 }
# body { margin: 0; padding: 0; background: #fff; color: #000; }
# h1 { margin: 0 0 .5em; padding: .25em .5em .1em 1.5em; border-bottom: thick solid #002; background: #444; color: #eee; font-size: x-large; }
# pre.message { margin: .5em 1em; }
# li.frame { font-size: small; margin-top: 3em }
# li.frame:nth-child(1) { margin-top: 0 }
# pre.context { border: 1px solid #aaa; padding: 0.2em 0; background: #fff; color: #444; font-size: medium; }
# pre .match { color: #000;background-color: #f99; font-weight: bold }
# pre.vardump { margin:0 }
# pre code strong { color: #000; background: #f88; }
#
# table.lexicals, table.arguments { border-collapse: collapse }
# table.lexicals td, table.arguments td { border: 1px solid #000; margin: 0; padding: .3em }
# table.lexicals tr:nth-child(2n) { background: #DDDDFF }
# table.arguments tr:nth-child(2n) { background: #DDFFDD }
# .lexicals, .arguments { display: none }
# .variable, .value { font-family: monospace; white-space: pre }
# td.variable { vertical-align: top }
# </style><script language="JavaScript" type="text/javascript">
# function toggleThing(ref, type, hideMsg, showMsg) {
# var css = document.getElementById(type+'-'+ref).style;
# css.display = css.display == 'block' ? 'none' : 'block';
#
# var hyperlink = document.getElementById('toggle-'+ref);
# hyperlink.textContent = css.display == 'block' ? hideMsg : showMsg;
# }
#
# function toggleArguments(ref) {
# toggleThing(ref, 'arguments', 'Hide function arguments', 'Show function arguments');
# }
#
# function toggleLexicals(ref) {
# toggleThing(ref, 'lexicals', 'Hide lexical variables', 'Show lexical variables');
# }
# </script>
# </head>
# <body>
# <h1>Error trace</h1><pre class="message">amg at t/01_basic.t line 68</pre><ol>
# <li class="frame">in Plack::Middleware::StackTrace::try {...} at t/01_basic.t line 68<pre class="context"><code> 65:
# 66: {
# 67: local $ENV{PLACK_ENV} = 'production';
# <strong class="match"> 68: my $traceapp = Plack::Middleware::StackTrace::LinkedSource->wrap(sub { die "amg" }, no_print_errors => 1, force => 1);
# </strong> 69: my $app = sub {
# 70: my $env = shift;
# 71: my $ret = $traceapp->($env);
# </code></pre></li><li class="frame">in (eval) at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L90">lib/site_perl/5.23.8/Try/Tiny.pm line 90</a><pre class="context"><code> 87: if ( $wantarray ) {
# 88: @ret = $try->();
# 89: } elsif ( defined $wantarray ) {
# <strong class="match"> 90: $ret[0] = $try->();
# </strong> 91: } else {
# 92: $try->();
# 93: };
# </code></pre></li><li class="frame">in Plack::Middleware::StackTrace::call at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L83">lib/site_perl/5.23.8/Try/Tiny.pm line 83</a><pre class="context"><code> 80:
# 81: # failed will be true if the eval dies, because 1 will not be returned
# 82: # from the eval body
# <strong class="match"> 83: my $failed = not eval {
# </strong> 84: $@ = $prev_error;
# 85:
# 86: # evaluate the try block in the correct context
# </code></pre><p><a class="toggle" id="toggle-arg-3" href="javascript:toggleArguments('arg-3')">Show function arguments</a></p><table class="arguments" id="arguments-arg-3"><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::StackTrace::LinkedSource=HASH(0x2595c90)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x2689b98)'</td></tr></table></li><li class="frame">in Plack::Middleware::StackTrace::LinkedSource::call at <a href="/source/Plack/Middleware/StackTrace/LinkedSource.pm#L54">/home/stro/cpan/build/5.23.8t/build/Plack-Middleware-StackTrace-LinkedSource-0.11-sSYLKC/b<a href="/source/lib/Plack/Middleware/StackTrace/LinkedSource.pm#L54">lib/lib/Plack/Middleware/StackTrace/LinkedSource.pm line 54</a></a><pre class="context"><code> 51: return $self->viewer->call($env);
# 52: }
# 53:
# <strong class="match"> 54: my $res = $self->SUPER::call($env);
# </strong> 55:
# 56: if ($res->[0] == 500 && Plack::Util::header_get($res->[1], 'content-type') =~ m!text/html!) {
# 57: my $body = $res->[2][0];
# </code></pre><p><a class="toggle" id="toggle-arg-4" href="javascript:toggleArguments('arg-4')">Show function arguments</a></p><table class="arguments" id="arguments-arg-4"><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::StackTrace::LinkedSource=HASH(0x2595c90)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x2689b98)'</td></tr></table></li><li class="frame">in Plack::Component::__ANON__ at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Component.pm#L50">lib/site_perl/5.23.8/Plack/Component.pm line 50</a><pre class="context"><code> 47: sub to_app {
# 48: my $self = shift;
# 49: $self->prepare_app;
# <strong class="match"> 50: return sub { $self->call(@_) };
# </strong> 51: }
# 52:
# 53:
# </code></pre><p><a class="toggle" id="toggle-arg-5" href="javascript:toggleArguments('arg-5')">Show function arguments</a></p><table class="arguments" id="arguments-arg-5"><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x2689b98)'</td></tr></table></li><li class="frame">in main::__ANON__ at t/01_basic.t line 71<pre class="context"><code> 68: my $traceapp = Plack::Middleware::StackTrace::LinkedSource->wrap(sub { die "amg" }, no_print_errors => 1, force => 1);
# 69: my $app = sub {
# 70: my $env = shift;
# <strong class="match"> 71: my $ret = $traceapp->($env);
# </strong> 72: return $ret;
# 73: };
# 74: test_psgi $app, sub {
# </code></pre><p><a class="toggle" id="toggle-arg-6" href="javascript:toggleArguments('arg-6')">Show function arguments</a></p><table class="arguments" id="arguments-arg-6"><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x2689b98)'</td></tr></table></li><li class="frame">in Plack::Test::MockHTTP::try {...} at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test/MockHTTP.pm#L24">lib/site_perl/5.23.8/Plack/Test/MockHTTP.pm line 24</a><pre class="context"><code> 21: my $env = $req->to_psgi;
# 22:
# 23: my $res = try {
# <strong class="match"> 24: HTTP::Response->from_psgi($self->{app}->($env));
# </strong> 25: } catch {
# 26: HTTP::Response->from_psgi([ 500, [ 'Content-Type' => 'text/plain' ], [ $_ ] ]);
# 27: };
# </code></pre></li><li class="frame">in (eval) at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L90">lib/site_perl/5.23.8/Try/Tiny.pm line 90</a><pre class="context"><code> 87: if ( $wantarray ) {
# 88: @ret = $try->();
# 89: } elsif ( defined $wantarray ) {
# <strong class="match"> 90: $ret[0] = $try->();
# </strong> 91: } else {
# 92: $try->();
# 93: };
# </code></pre></li><li class="frame">in Try::Tiny::try at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Try/Tiny.pm#L83">lib/site_perl/5.23.8/Try/Tiny.pm line 83</a><pre class="context"><code> 80:
# 81: # failed will be true if the eval dies, because 1 will not be returned
# 82: # from the eval body
# <strong class="match"> 83: my $failed = not eval {
# </strong> 84: $@ = $prev_error;
# 85:
# 86: # evaluate the try block in the correct context
# </code></pre><p><a class="toggle" id="toggle-arg-9" href="javascript:toggleArguments('arg-9')">Show function arguments</a></p><table class="arguments" id="arguments-arg-9"><tr><td class="variable">$_[0]</td><td class="value">'CODE(0x1d0cf48)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Try::Tiny::Catch=REF(0x2689b50)'</td></tr></table></li><li class="frame">in Plack::Test::MockHTTP::request at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test/MockHTTP.pm#L27">lib/site_perl/5.23.8/Plack/Test/MockHTTP.pm line 27</a><pre class="context"><code> 24: HTTP::Response->from_psgi($self->{app}->($env));
# 25: } catch {
# 26: HTTP::Response->from_psgi([ 500, [ 'Content-Type' => 'text/plain' ], [ $_ ] ]);
# <strong class="match"> 27: };
# </strong> 28:
# 29: $res->request($req);
# 30: return $res;
# </code></pre><p><a class="toggle" id="toggle-arg-10" href="javascript:toggleArguments('arg-10')">Show function arguments</a></p><table class="arguments" id="arguments-arg-10"><tr><td class="variable">$_[0]</td><td class="value">'Plack::Test::MockHTTP=HASH(0x26342d0)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HTTP::Request=HASH(0x267c930)'</td></tr></table></li><li class="frame">in Plack::Test::__ANON__ at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test.pm#L38">lib/site_perl/5.23.8/Plack/Test.pm line 38</a><pre class="context"><code> 35: my $tester = Plack::Test->create($app, %args);
# 36: return $tester->(@_) if ref $tester eq 'CODE'; # compatibility
# 37:
# <strong class="match"> 38: $client->(sub { $tester->request(@_) });
# </strong> 39: }
# 40:
# 41: 1;
# </code></pre><p><a class="toggle" id="toggle-arg-11" href="javascript:toggleArguments('arg-11')">Show function arguments</a></p><table class="arguments" id="arguments-arg-11"><tr><td class="variable">$_[0]</td><td class="value">'HTTP::Request=HASH(0x267c930)'</td></tr></table></li><li class="frame">in main::__ANON__ at t/01_basic.t line 79<pre class="context"><code> 76:
# 77: my $req = GET "/";
# 78: $req->header(Accept => "text/html,*/*");
# <strong class="match"> 79: my $res = $cb->($req);
# </strong> 80:
# 81: ok $res->is_error;
# 82: is_deeply [ $res->content_type ], [ 'text/html', 'charset=utf-8' ];
# </code></pre><p><a class="toggle" id="toggle-arg-12" href="javascript:toggleArguments('arg-12')">Show function arguments</a></p><table class="arguments" id="arguments-arg-12"><tr><td class="variable">$_[0]</td><td class="value">'CODE(0x2688468)'</td></tr></table></li><li class="frame">in Plack::Test::test_psgi at /home/stro/perl/5.23.8t/<a href="/source/site_perl/5.23.8/Plack/Test.pm#L38">lib/site_perl/5.23.8/Plack/Test.pm line 38</a><pre class="context"><code> 35: my $tester = Plack::Test->create($app, %args);
# 36: return $tester->(@_) if ref $tester eq 'CODE'; # compatibility
# 37:
# <strong class="match"> 38: $client->(sub { $tester->request(@_) });
# </strong> 39: }
# 40:
# 41: 1;
# </code></pre><p><a class="toggle" id="toggle-arg-13" href="javascript:toggleArguments('arg-13')">Show function arguments</a></p><table class="arguments" id="arguments-arg-13"><tr><td class="variable">$_[0]</td><td class="value">'app'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'CODE(0x2689d18)'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'client'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'CODE(0x25963b0)'</td></tr></table></li><li class="frame"> at t/01_basic.t line 86<pre class="context"><code> 83: like $res->content, qr/<title>Error: amg/;
# 84: like $res->content, qr!<a href="/source/Try/Tiny\.pm\#L\d+">.+[/\\]Try[/\\]Tiny\.pm line \d+</a>!;
# 85: }
# <strong class="match"> 86: }
# </strong> 87:
# 88: done_testing;
# </code></pre></li></ol></body></html>'
# doesn't match '(?^:<a href="/source/Try/Tiny\.pm\#L\d+">.+[/\\]Try[/\\]Tiny\.pm line \d+</a>)'
# Looks like you failed 2 tests of 14.
t/01_basic.t ....
Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/14 subtests
Test Summary Report
-------------------
t/01_basic.t (Wstat: 512 Tests: 14 Failed: 2)
Failed tests: 4, 14
Non-zero exit status: 2
Files=2, Tests=15, 1 wallclock secs ( 0.01 usr 0.00 sys + 0.82 cusr 0.15 csys = 0.98 CPU)
Result: FAIL
Failed 1/2 test programs. 2/15 subtests failed.
Makefile:74: recipe for target 'test' failed
make: *** [test] Error 2
------------------------------
PREREQUISITES
------------------------------
Prerequisite modules loaded:
requires:
Module Need Have
---------------------------------- -------- --------
perl 5.008005 5.023008
Plack::App::SourceViewer 0 0.01
Plack::Middleware::StackTrace 0 0
Plack::Util 0 0
Plack::Util::Accessor 0 0
strict 0 1.10
warnings 0 1.35
build_requires:
Module Need Have
---------------------------------- -------- --------
HTTP::Request::Common 0 6.11
Module::Build::Pluggable::CPANfile 0.05 0.05
Plack::Test 0 0
Test::More 0.88 1.001014
configure_requires:
Module Need Have
---------------------------------- -------- --------
Module::Build 0.40 0.4216
Module::Build::Pluggable 0 0.10
Module::Build::Pluggable::CPANfile 0.05 0.05
------------------------------
ENVIRONMENT AND OTHER CONTEXT
------------------------------
Environment variables:
AUTOMATED_TESTING = 1
LANG = en_US.UTF-8
PATH = /usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games
PERL5LIB =
PERL5OPT =
PERL5_CPANPLUS_IS_RUNNING = 9963
PERL5_CPAN_IS_RUNNING = 9963
PERL5_CPAN_IS_RUNNING_IN_RECURSION = 19135,9963
PERL_CR_SMOKER_CURRENT = Plack-Middleware-StackTrace-LinkedSource-0.11
PERL_EXTUTILS_AUTOINSTALL = --defaultdeps
PERL_MM_USE_DEFAULT = 1
SHELL = /bin/bash
TERM = xterm
Perl special variables (and OS-specific diagnostics, for MSWin32):
$^X = /home/stro/perl/5.23.8t/bin/perl
$UID/$EUID = 1000 / 1000
$GID = 1000 24 25 29 30 44 46 108 114 1000
$EGID = 1000 24 25 29 30 44 46 108 114 1000
Perl module toolchain versions installed:
Module Have
------------------- --------
CPAN 2.11
CPAN::Meta 2.150005
Cwd 3.63
ExtUtils::CBuilder 0.280225
ExtUtils::Command 7.10
ExtUtils::Install 2.04
ExtUtils::MakeMaker 7.10_01
ExtUtils::Manifest 1.70
ExtUtils::ParseXS 3.31
File::Spec 3.63
JSON 2.90
JSON::PP 2.27300
Module::Build 0.4216
Module::Signature n/a
Parse::CPAN::Meta 1.4417
Test::Harness 3.36
Test::More 1.001014
YAML 1.15
YAML::Syck 1.29
version 0.9909
--
Summary of my perl5 (revision 5 version 23 subversion 8) configuration:
Platform:
osname=linux, osvers=3.16.0-4-amd64, archname=x86_64-linux-thread-multi
uname='linux vm-debian-001 3.16.0-4-amd64 #1 smp debian 3.16.7-ckt11-1 (2015-05-24) x86_64 gnulinux '
config_args=''
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2',
optimize='-O2',
cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
ccversion='', gccversion='4.9.2', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678, doublekind=3
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16, longdblkind=3
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector-strong -L/usr/local/lib'
libpth=/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.9/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib
libs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
libc=libc-2.19.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.19'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'
Characteristics of this binary (from libperl):
Compile-time options: HAS_TIMES MULTIPLICITY PERLIO_LAYERS
PERL_COPY_ON_WRITE PERL_DONT_CREATE_GVSV
PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
PERL_PRESERVE_IVUV USE_64_BIT_ALL USE_64_BIT_INT
USE_ITHREADS USE_LARGE_FILES USE_LOCALE
USE_LOCALE_COLLATE USE_LOCALE_CTYPE
USE_LOCALE_NUMERIC USE_LOCALE_TIME USE_PERLIO
USE_PERL_ATOF USE_REENTRANT_API
Built under linux
Compiled at Feb 24 2016 17:52:47
%ENV:
PERL5LIB=""
PERL5OPT=""
PERL5_CPANPLUS_IS_RUNNING="9963"
PERL5_CPAN_IS_RUNNING="9963"
PERL5_CPAN_IS_RUNNING_IN_RECURSION="19135,9963"
PERL_CR_SMOKER_CURRENT="Plack-Middleware-StackTrace-LinkedSource-0.11"
PERL_EXTUTILS_AUTOINSTALL="--defaultdeps"
PERL_MM_USE_DEFAULT="1"
@INC:
/home/stro/perl/5.23.8t/lib/site_perl/5.23.8/x86_64-linux-thread-multi
/home/stro/perl/5.23.8t/lib/site_perl/5.23.8
/home/stro/perl/5.23.8t/lib/5.23.8/x86_64-linux-thread-multi
/home/stro/perl/5.23.8t/lib/5.23.8
.