PATH=/opt/SUNWspro/bin:/usr/local/bin:/opt/csw/bin:/usr/ccs/bin:/usr/bin:/usr/sbin Start 2015-01-06T02:12:55 ActivePerl-1200 CPAN-2.00 Reading '/export/home/fly1264/var/cpan/Metadata' Database was generated on Tue, 06 Jan 2015 09:17:02 GMT Running make for O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz Fetching with LWP: http://cpan.nas1.activestate.com/authors/id/O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz Fetching with LWP: http://cpan.nas1.activestate.com/authors/id/O/OA/OALDERS/CHECKSUMS Checksum for /export/home/fly1264/var/cpan/sources/authors/id/O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz ok Plack-Test-Agent-1.3/ Plack-Test-Agent-1.3/Changes Plack-Test-Agent-1.3/cpanfile Plack-Test-Agent-1.3/dist.ini Plack-Test-Agent-1.3/INSTALL Plack-Test-Agent-1.3/lib/ Plack-Test-Agent-1.3/LICENSE Plack-Test-Agent-1.3/Makefile.PL Plack-Test-Agent-1.3/MANIFEST Plack-Test-Agent-1.3/META.json Plack-Test-Agent-1.3/META.yml Plack-Test-Agent-1.3/README.md Plack-Test-Agent-1.3/README.pod Plack-Test-Agent-1.3/t/ Plack-Test-Agent-1.3/tidyall.ERR Plack-Test-Agent-1.3/weaver.ini Plack-Test-Agent-1.3/t/00-compile.t Plack-Test-Agent-1.3/t/00-report-prereqs.dd Plack-Test-Agent-1.3/t/00-report-prereqs.t Plack-Test-Agent-1.3/t/2args.t Plack-Test-Agent-1.3/t/author-eol.t Plack-Test-Agent-1.3/t/author-no-tabs.t Plack-Test-Agent-1.3/t/author-pod-spell.t Plack-Test-Agent-1.3/t/cookie.t Plack-Test-Agent-1.3/t/cycle.t Plack-Test-Agent-1.3/t/extra_get_args.t Plack-Test-Agent-1.3/t/hello.t Plack-Test-Agent-1.3/t/hello_server.t Plack-Test-Agent-1.3/t/mech.t Plack-Test-Agent-1.3/t/okay.t Plack-Test-Agent-1.3/t/release-cpan-changes.t Plack-Test-Agent-1.3/t/release-pod-coverage.t Plack-Test-Agent-1.3/t/release-pod-syntax.t Plack-Test-Agent-1.3/t/release-portability.t Plack-Test-Agent-1.3/t/release-synopsis.t Plack-Test-Agent-1.3/lib/Plack/ Plack-Test-Agent-1.3/lib/Plack/Test/ Plack-Test-Agent-1.3/lib/Plack/Test/Agent.pm CPAN.pm: Building O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz >>> /export/home/fly1264/bin/perl Makefile.PL Warning: prerequisite HTTP::Message::PSGI 0 not found. Warning: prerequisite Plack::Loader 0 not found. Warning: prerequisite Plack::Util::Accessor 0 not found. Warning: prerequisite Test::TCP 0 not found. Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Plack::Test::Agent Writing MYMETA.yml and MYMETA.json ---- Unsatisfied dependencies detected during ---- ---- OALDERS/Plack-Test-Agent-1.3.tar.gz ---- HTTP::Message::PSGI [requires] Test::TCP [requires] Plack::Loader [requires] Plack::Util::Accessor [requires] Running make test Delayed until after prerequisites Running test for module 'HTTP::Message::PSGI' Running make for M/MI/MIYAGAWA/Plack-1.0033.tar.gz Checksum for /export/home/fly1264/var/cpan/sources/authors/id/M/MI/MIYAGAWA/Plack-1.0033.tar.gz ok Plack-1.0033/ Plack-1.0033/benchmarks/ Plack-1.0033/Changes Plack-1.0033/cpanfile Plack-1.0033/dist.ini Plack-1.0033/eg/ Plack-1.0033/lib/ Plack-1.0033/LICENSE Plack-1.0033/Makefile.PL Plack-1.0033/MANIFEST Plack-1.0033/META.json Plack-1.0033/META.yml Plack-1.0033/README Plack-1.0033/script/ Plack-1.0033/share/ Plack-1.0033/t/ Plack-1.0033/xt/ Plack-1.0033/xt/author-downstream.t Plack-1.0033/t/FCGIUtils.pm Plack-1.0033/t/HTTP-Message-PSGI/ Plack-1.0033/t/HTTP-Server-PSGI/ Plack-1.0033/t/Plack-Builder/ Plack-1.0033/t/Plack-Handler/ Plack-1.0033/t/Plack-HTTPParser-PP/ Plack-1.0033/t/Plack-Loader/ Plack-1.0033/t/Plack-Middleware/ Plack-1.0033/t/Plack-MIME/ Plack-1.0033/t/Plack-Request/ Plack-1.0033/t/Plack-Response/ Plack-1.0033/t/Plack-Runner/ Plack-1.0033/t/Plack-TempBuffer/ Plack-1.0033/t/Plack-Test/ Plack-1.0033/t/Plack-Util/ Plack-1.0033/t/release-pod-syntax.t Plack-1.0033/t/test.txt Plack-1.0033/t/Plack-Util/bad.psgi Plack-1.0033/t/Plack-Util/bad2.psgi Plack-1.0033/t/Plack-Util/bin/ Plack-1.0033/t/Plack-Util/can.t Plack-1.0033/t/Plack-Util/error.psgi Plack-1.0033/t/Plack-Util/foreach.t Plack-1.0033/t/Plack-Util/headers.t Plack-1.0033/t/Plack-Util/headers_obj.t Plack-1.0033/t/Plack-Util/Hello.pm Plack-1.0033/t/Plack-Util/hello.psgi Plack-1.0033/t/Plack-Util/inc/ Plack-1.0033/t/Plack-Util/inline_object.t Plack-1.0033/t/Plack-Util/io_with_path.t Plack-1.0033/t/Plack-Util/is_real_fh.t Plack-1.0033/t/Plack-Util/load.t Plack-1.0033/t/Plack-Util/response_cb.t Plack-1.0033/t/Plack-Util/inc/hello.psgi Plack-1.0033/t/Plack-Util/bin/findbin.psgi Plack-1.0033/t/Plack-Test/2args.t Plack-1.0033/t/Plack-Test/cookie.t Plack-1.0033/t/Plack-Test/hello.t Plack-1.0033/t/Plack-Test/hello_server.t Plack-1.0033/t/Plack-Test/suite.t Plack-1.0033/t/Plack-TempBuffer/print.t Plack-1.0033/t/Plack-Runner/options.t Plack-1.0033/t/Plack-Runner/path.t Plack-1.0033/t/Plack-Response/body.t Plack-1.0033/t/Plack-Response/compatible.t Plack-1.0033/t/Plack-Response/cookie.t Plack-1.0033/t/Plack-Response/new.t Plack-1.0033/t/Plack-Response/redirect.t Plack-1.0033/t/Plack-Response/response.t Plack-1.0033/t/Plack-Response/to_app.t Plack-1.0033/t/Plack-Request/base.t Plack-1.0033/t/Plack-Request/body.t Plack-1.0033/t/Plack-Request/content-on-get.t Plack-1.0033/t/Plack-Request/content.t Plack-1.0033/t/Plack-Request/cookie.t Plack-1.0033/t/Plack-Request/double_port.t Plack-1.0033/t/Plack-Request/foo1.txt Plack-1.0033/t/Plack-Request/foo2.txt Plack-1.0033/t/Plack-Request/hostname.t Plack-1.0033/t/Plack-Request/many_upload.t Plack-1.0033/t/Plack-Request/multi_read.t Plack-1.0033/t/Plack-Request/new.t Plack-1.0033/t/Plack-Request/parameters.t Plack-1.0033/t/Plack-Request/params.t Plack-1.0033/t/Plack-Request/path_info.t Plack-1.0033/t/Plack-Request/path_info_escaped.t Plack-1.0033/t/Plack-Request/query_string.t Plack-1.0033/t/Plack-Request/readbody.t Plack-1.0033/t/Plack-Request/request_uri.t Plack-1.0033/t/Plack-Request/upload-basename.t Plack-1.0033/t/Plack-Request/upload-large.t Plack-1.0033/t/Plack-Request/upload.t Plack-1.0033/t/Plack-Request/uri.t Plack-1.0033/t/Plack-Request/uri_utf8.t Plack-1.0033/t/Plack-MIME/add_type.t Plack-1.0033/t/Plack-MIME/basic.t Plack-1.0033/t/Plack-MIME/fallback.t Plack-1.0033/t/Plack-Middleware/access_log.t Plack-1.0033/t/Plack-Middleware/access_log_timed.t Plack-1.0033/t/Plack-Middleware/access_log_value_zero.t Plack-1.0033/t/Plack-Middleware/auth_basic.t Plack-1.0033/t/Plack-Middleware/auth_basic_env.t Plack-1.0033/t/Plack-Middleware/auth_basic_simple.t Plack-1.0033/t/Plack-Middleware/bufferedstreaming.t Plack-1.0033/t/Plack-Middleware/cascade/ Plack-1.0033/t/Plack-Middleware/cgi-bin/ Plack-1.0033/t/Plack-Middleware/cgibin.t Plack-1.0033/t/Plack-Middleware/cgibin_exec.t Plack-1.0033/t/Plack-Middleware/chunked.t Plack-1.0033/t/Plack-Middleware/component-leak.t Plack-1.0033/t/Plack-Middleware/component.t Plack-1.0033/t/Plack-Middleware/conditional.t Plack-1.0033/t/Plack-Middleware/conditional_new.t Plack-1.0033/t/Plack-Middleware/conditionalget.t Plack-1.0033/t/Plack-Middleware/conditionalget_writer.t Plack-1.0033/t/Plack-Middleware/content_length.t Plack-1.0033/t/Plack-Middleware/directory.t Plack-1.0033/t/Plack-Middleware/error_document.t Plack-1.0033/t/Plack-Middleware/error_document_streaming_app.t Plack-1.0033/t/Plack-Middleware/errors/ Plack-1.0033/t/Plack-Middleware/file.t Plack-1.0033/t/Plack-Middleware/head.t Plack-1.0033/t/Plack-Middleware/head_streaming.t Plack-1.0033/t/Plack-Middleware/htpasswd Plack-1.0033/t/Plack-Middleware/httpexceptions.t Plack-1.0033/t/Plack-Middleware/httpexceptions_streaming.t Plack-1.0033/t/Plack-Middleware/iis6_script_name_fix.t Plack-1.0033/t/Plack-Middleware/iis7_keep_alive_fix.t Plack-1.0033/t/Plack-Middleware/jsonp.t Plack-1.0033/t/Plack-Middleware/lint.t Plack-1.0033/t/Plack-Middleware/lint_env.t Plack-1.0033/t/Plack-Middleware/lint_utf8_false_alarm.t Plack-1.0033/t/Plack-Middleware/log4perl.t Plack-1.0033/t/Plack-Middleware/log_dispatch.t Plack-1.0033/t/Plack-Middleware/order.t Plack-1.0033/t/Plack-Middleware/prefix.t Plack-1.0033/t/Plack-Middleware/psgibin.t Plack-1.0033/t/Plack-Middleware/rearrange_headers.t Plack-1.0033/t/Plack-Middleware/recursive/ Plack-1.0033/t/Plack-Middleware/refresh-init.t Plack-1.0033/t/Plack-Middleware/runtime.t Plack-1.0033/t/Plack-Middleware/simple_content_filter.t Plack-1.0033/t/Plack-Middleware/simple_logger.t Plack-1.0033/t/Plack-Middleware/stacktrace/ Plack-1.0033/t/Plack-Middleware/static.foo Plack-1.0033/t/Plack-Middleware/static.t Plack-1.0033/t/Plack-Middleware/static.txt Plack-1.0033/t/Plack-Middleware/static_env.t Plack-1.0033/t/Plack-Middleware/urlmap.t Plack-1.0033/t/Plack-Middleware/urlmap_builder.t Plack-1.0033/t/Plack-Middleware/urlmap_env.t Plack-1.0033/t/Plack-Middleware/urlmap_ports.t Plack-1.0033/t/Plack-Middleware/wrapcgi.t Plack-1.0033/t/Plack-Middleware/wrapcgi_exec.t Plack-1.0033/t/Plack-Middleware/xframework.t Plack-1.0033/t/Plack-Middleware/xsendfile.t Plack-1.0033/t/Plack-Middleware/stacktrace/basic.t Plack-1.0033/t/Plack-Middleware/stacktrace/force.t Plack-1.0033/t/Plack-Middleware/stacktrace/multiple_exceptions.t Plack-1.0033/t/Plack-Middleware/stacktrace/sigdie.t Plack-1.0033/t/Plack-Middleware/stacktrace/streaming.t Plack-1.0033/t/Plack-Middleware/stacktrace/utf8.t Plack-1.0033/t/Plack-Middleware/recursive/base.t Plack-1.0033/t/Plack-Middleware/recursive/streaming.t Plack-1.0033/t/Plack-Middleware/recursive/throw.t Plack-1.0033/t/Plack-Middleware/recursive/throw_streaming.t Plack-1.0033/t/Plack-Middleware/errors/404.html Plack-1.0033/t/Plack-Middleware/errors/500.html Plack-1.0033/t/Plack-Middleware/cgi-bin/cgi_dir.cgi Plack-1.0033/t/Plack-Middleware/cgi-bin/hello.cgi Plack-1.0033/t/Plack-Middleware/cgi-bin/hello.py Plack-1.0033/t/Plack-Middleware/cgi-bin/hello2.cgi Plack-1.0033/t/Plack-Middleware/cgi-bin/hello3.cgi Plack-1.0033/t/Plack-Middleware/cgi-bin/utf8.cgi Plack-1.0033/t/Plack-Middleware/cascade/basic.t Plack-1.0033/t/Plack-Middleware/cascade/streaming.t Plack-1.0033/t/Plack-Loader/auto.t Plack-1.0033/t/Plack-Loader/auto_fallback.t Plack-1.0033/t/Plack-Loader/delayed.t Plack-1.0033/t/Plack-Loader/restarter.t Plack-1.0033/t/Plack-Loader/restarter_valid.t Plack-1.0033/t/Plack-Loader/shotgun.t Plack-1.0033/t/Plack-HTTPParser-PP/simple.t Plack-1.0033/t/Plack-Handler/apache1.t Plack-1.0033/t/Plack-Handler/apache2-registry.t Plack-1.0033/t/Plack-Handler/apache2.t Plack-1.0033/t/Plack-Handler/cgi.t Plack-1.0033/t/Plack-Handler/fcgi.t Plack-1.0033/t/Plack-Handler/output_encoding.t Plack-1.0033/t/Plack-Handler/standalone.t Plack-1.0033/t/Plack-Handler/try_mangle.pl Plack-1.0033/t/Plack-Builder/builder.t Plack-1.0033/t/Plack-Builder/mount.t Plack-1.0033/t/Plack-Builder/oo_interface.t Plack-1.0033/t/HTTP-Server-PSGI/harakiri.t Plack-1.0033/t/HTTP-Server-PSGI/post.t Plack-1.0033/t/HTTP-Message-PSGI/content_length.t Plack-1.0033/t/HTTP-Message-PSGI/empty_streamed_response.t Plack-1.0033/t/HTTP-Message-PSGI/host.t Plack-1.0033/t/HTTP-Message-PSGI/path_info.t Plack-1.0033/t/HTTP-Message-PSGI/unknown_response.t Plack-1.0033/t/HTTP-Message-PSGI/utf8_req.t Plack-1.0033/share/#foo Plack-1.0033/share/baybridge.jpg Plack-1.0033/share/face.jpg Plack-1.0033/script/plackup Plack-1.0033/lib/HTTP/ Plack-1.0033/lib/Plack/ Plack-1.0033/lib/Plack.pm Plack-1.0033/lib/Plack/App/ Plack-1.0033/lib/Plack/Builder.pm Plack-1.0033/lib/Plack/Component.pm Plack-1.0033/lib/Plack/Handler/ Plack-1.0033/lib/Plack/Handler.pm Plack-1.0033/lib/Plack/HTTPParser/ Plack-1.0033/lib/Plack/HTTPParser.pm Plack-1.0033/lib/Plack/Loader/ Plack-1.0033/lib/Plack/Loader.pm Plack-1.0033/lib/Plack/LWPish.pm Plack-1.0033/lib/Plack/Middleware/ Plack-1.0033/lib/Plack/Middleware.pm Plack-1.0033/lib/Plack/MIME.pm Plack-1.0033/lib/Plack/Request/ Plack-1.0033/lib/Plack/Request.pm Plack-1.0033/lib/Plack/Response.pm Plack-1.0033/lib/Plack/Runner.pm Plack-1.0033/lib/Plack/TempBuffer.pm Plack-1.0033/lib/Plack/Test/ Plack-1.0033/lib/Plack/Test.pm Plack-1.0033/lib/Plack/Util/ Plack-1.0033/lib/Plack/Util.pm Plack-1.0033/lib/Plack/Util/Accessor.pm Plack-1.0033/lib/Plack/Test/MockHTTP.pm Plack-1.0033/lib/Plack/Test/Server.pm Plack-1.0033/lib/Plack/Test/Suite.pm Plack-1.0033/lib/Plack/Request/Upload.pm Plack-1.0033/lib/Plack/Middleware/AccessLog/ Plack-1.0033/lib/Plack/Middleware/AccessLog.pm Plack-1.0033/lib/Plack/Middleware/Auth/ Plack-1.0033/lib/Plack/Middleware/BufferedStreaming.pm Plack-1.0033/lib/Plack/Middleware/Chunked.pm Plack-1.0033/lib/Plack/Middleware/Conditional.pm Plack-1.0033/lib/Plack/Middleware/ConditionalGET.pm Plack-1.0033/lib/Plack/Middleware/ContentLength.pm Plack-1.0033/lib/Plack/Middleware/ContentMD5.pm Plack-1.0033/lib/Plack/Middleware/ErrorDocument.pm Plack-1.0033/lib/Plack/Middleware/Head.pm Plack-1.0033/lib/Plack/Middleware/HTTPExceptions.pm Plack-1.0033/lib/Plack/Middleware/IIS6ScriptNameFix.pm Plack-1.0033/lib/Plack/Middleware/IIS7KeepAliveFix.pm Plack-1.0033/lib/Plack/Middleware/JSONP.pm Plack-1.0033/lib/Plack/Middleware/LighttpdScriptNameFix.pm Plack-1.0033/lib/Plack/Middleware/Lint.pm Plack-1.0033/lib/Plack/Middleware/Log4perl.pm Plack-1.0033/lib/Plack/Middleware/LogDispatch.pm Plack-1.0033/lib/Plack/Middleware/NullLogger.pm Plack-1.0033/lib/Plack/Middleware/RearrangeHeaders.pm Plack-1.0033/lib/Plack/Middleware/Recursive.pm Plack-1.0033/lib/Plack/Middleware/Refresh.pm Plack-1.0033/lib/Plack/Middleware/Runtime.pm Plack-1.0033/lib/Plack/Middleware/SimpleContentFilter.pm Plack-1.0033/lib/Plack/Middleware/SimpleLogger.pm Plack-1.0033/lib/Plack/Middleware/StackTrace.pm Plack-1.0033/lib/Plack/Middleware/Static.pm Plack-1.0033/lib/Plack/Middleware/XFramework.pm Plack-1.0033/lib/Plack/Middleware/XSendfile.pm Plack-1.0033/lib/Plack/Middleware/Auth/Basic.pm Plack-1.0033/lib/Plack/Middleware/AccessLog/Timed.pm Plack-1.0033/lib/Plack/Loader/Delayed.pm Plack-1.0033/lib/Plack/Loader/Restarter.pm Plack-1.0033/lib/Plack/Loader/Shotgun.pm Plack-1.0033/lib/Plack/HTTPParser/PP.pm Plack-1.0033/lib/Plack/Handler/Apache1.pm Plack-1.0033/lib/Plack/Handler/Apache2/ Plack-1.0033/lib/Plack/Handler/Apache2.pm Plack-1.0033/lib/Plack/Handler/CGI.pm Plack-1.0033/lib/Plack/Handler/FCGI.pm Plack-1.0033/lib/Plack/Handler/HTTP/ Plack-1.0033/lib/Plack/Handler/Standalone.pm Plack-1.0033/lib/Plack/Handler/HTTP/Server/ Plack-1.0033/lib/Plack/Handler/HTTP/Server/PSGI.pm Plack-1.0033/lib/Plack/Handler/Apache2/Registry.pm Plack-1.0033/lib/Plack/App/Cascade.pm Plack-1.0033/lib/Plack/App/CGIBin.pm Plack-1.0033/lib/Plack/App/Directory.pm Plack-1.0033/lib/Plack/App/File.pm Plack-1.0033/lib/Plack/App/PSGIBin.pm Plack-1.0033/lib/Plack/App/URLMap.pm Plack-1.0033/lib/Plack/App/WrapCGI.pm Plack-1.0033/lib/HTTP/Message/ Plack-1.0033/lib/HTTP/Server/ Plack-1.0033/lib/HTTP/Server/PSGI.pm Plack-1.0033/lib/HTTP/Message/PSGI.pm Plack-1.0033/eg/dot-psgi/ Plack-1.0033/eg/dot-psgi/cgi-pm.psgi Plack-1.0033/eg/dot-psgi/cgi-script.psgi Plack-1.0033/eg/dot-psgi/Dumper.psgi Plack-1.0033/eg/dot-psgi/echo-stream-sync.psgi Plack-1.0033/eg/dot-psgi/echo-stream.psgi Plack-1.0033/eg/dot-psgi/echo.psgi Plack-1.0033/eg/dot-psgi/error.psgi Plack-1.0033/eg/dot-psgi/Hello.psgi Plack-1.0033/eg/dot-psgi/image.psgi Plack-1.0033/eg/dot-psgi/nonblock-hello.psgi Plack-1.0033/eg/dot-psgi/plack-req.psgi Plack-1.0033/eg/dot-psgi/runnable.psgi Plack-1.0033/eg/dot-psgi/slowapp.psgi Plack-1.0033/eg/dot-psgi/static/ Plack-1.0033/eg/dot-psgi/static.psgi Plack-1.0033/eg/dot-psgi/twitter-stream.psgi Plack-1.0033/eg/dot-psgi/static/index.html Plack-1.0033/eg/dot-psgi/static/test.css Plack-1.0033/eg/dot-psgi/static/test.js Plack-1.0033/benchmarks/ab.pl Plack-1.0033/benchmarks/fcgi.pl CPAN.pm: Building M/MI/MIYAGAWA/Plack-1.0033.tar.gz >>> /export/home/fly1264/bin/perl Makefile.PL Warning: prerequisite Test::TCP 2.00 not found. Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Plack Writing MYMETA.yml and MYMETA.json ---- Unsatisfied dependencies detected during ---- ---- MIYAGAWA/Plack-1.0033.tar.gz ---- Test::TCP [requires] Running make test Delayed until after prerequisites Running test for module 'Test::TCP' Running make for T/TO/TOKUHIROM/Test-TCP-2.06.tar.gz Checksum for /export/home/fly1264/var/cpan/sources/authors/id/T/TO/TOKUHIROM/Test-TCP-2.06.tar.gz ok Test-TCP-2.06/Changes Test-TCP-2.06/LICENSE Test-TCP-2.06/META.json Test-TCP-2.06/Makefile.PL Test-TCP-2.06/README.md Test-TCP-2.06/cpanfile Test-TCP-2.06/lib/Net/EmptyPort.pm Test-TCP-2.06/lib/Test/TCP.pm Test-TCP-2.06/lib/Test/TCP/CheckPort.pm Test-TCP-2.06/minil.toml Test-TCP-2.06/t/00_compile.t Test-TCP-2.06/t/01_simple.t Test-TCP-2.06/t/02_abrt.t Test-TCP-2.06/t/03_return_when_sigterm.t Test-TCP-2.06/t/04_die.t Test-TCP-2.06/t/05_sigint.t Test-TCP-2.06/t/06_nest.t Test-TCP-2.06/t/07_optional.t Test-TCP-2.06/t/08_exit.t Test-TCP-2.06/t/09_fork.t Test-TCP-2.06/t/10_oo.t Test-TCP-2.06/t/11_net_empty_port.t Test-TCP-2.06/t/12_pass_wait_port_options.t Test-TCP-2.06/t/13_undef_port.t Test-TCP-2.06/t/Server.pm Test-TCP-2.06/xt/02_perlcritic.t Test-TCP-2.06/xt/04_dependents.t Test-TCP-2.06/xt/author/11_net_emptyport.t Test-TCP-2.06/META.yml Test-TCP-2.06/MANIFEST CPAN.pm: Building T/TO/TOKUHIROM/Test-TCP-2.06.tar.gz >>> /export/home/fly1264/bin/perl Makefile.PL cp META.json MYMETA.json cp META.yml MYMETA.yml Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Test::TCP >>> make cp lib/Test/TCP/CheckPort.pm blib/lib/Test/TCP/CheckPort.pm cp lib/Net/EmptyPort.pm blib/lib/Net/EmptyPort.pm cp lib/Test/TCP.pm blib/lib/Test/TCP.pm Manifying 3 pod documents TOKUHIROM/Test-TCP-2.06.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/export/home/fly1264/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t # Test::More: 1.001009 t/00_compile.t ................. 1..1 ok 1 - use Test::TCP; ok t/01_simple.t .................. 1..22 ok 1 - test case for sharedfork ok 2 - test case for sharedfork ok 3 - test case for sharedfork ok 4 - test case for sharedfork ok 5 - test case for sharedfork ok 6 - test case for sharedfork ok 7 - test case for sharedfork ok 8 - test case for sharedfork ok 9 - test case for sharedfork ok 10 - test case for sharedfork ok 11 - test case for sharedfork ok 12 - test case for sharedfork ok 13 - test case for sharedfork ok 14 - test case for sharedfork ok 15 - test case for sharedfork ok 16 - test case for sharedfork ok 17 - test case for sharedfork ok 18 - test case for sharedfork ok 19 - test case for sharedfork ok 20 - test case for sharedfork # send 1 # new request ok 21 # send 2 # new request ok 22 # finalize ok # your server received SIGABRT t/02_abrt.t .................... 1..2 ok 1 ok 2 ok t/03_return_when_sigterm.t ..... 1..2 ok 1 ok 2 - test finished. ok t/04_die.t ..................... 1..3 ok 1 ok 2 ok 3 - already killed by test_tcp ok # Failed test 'should not reach here' # at t/05_sigint.t line 47. # $Config{sig_name}: ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM USR1 USR2 CHLD PWR WINCH URG IO STOP TSTP CONT TTIN TTOU VTALRM PROF XCPU XFSZ WAITING LWP FREEZE THAW CANCEL LOST RTMIN NUM39 NUM40 NUM41 NUM42 NUM43 NUM44 RTMAX IOT CLD POLL # CHILD_ERROR_NATIVE: 0 # $?: 0 # Failed test at t/05_sigint.t line 25. # Failed test 'sigint' # at t/05_sigint.t line 26. # got: 'ZERO' # expected: 'INT' # Looks like you planned 2 tests but ran 3. # Looks like you failed 3 tests of 3 run. t/05_sigint.t .................. 1..2 not ok 1 - should not reach here not ok 2 not ok 3 - sigint Dubious, test returned 3 (wstat 768, 0x300) Failed 2/2 subtests t/06_nest.t .................... 1..1 ok 1 - 51047, 50145 ok t/07_optional.t ................ 1..2 ok 1 - One ok 2 - Two ok t/08_exit.t .................... 1..5 # SEVER: 23195 # CLIENT: 23194 ok 1 ok 2 ok 3 ok 4 ok 5 ok t/09_fork.t .................... 1..6 ok 1 - Successfully forked child 23198 ok 2 - Successfully forked child 0 ok 3 - Successfully executed child 23198 ok 4 - child exited normally ok 5 - socket is connected # new request ok 6 - got expected reply ok t/10_oo.t ...................... 1..22 ok 1 - test case for sharedfork ok 2 - test case for sharedfork ok 3 - test case for sharedfork ok 4 - test case for sharedfork ok 5 - test case for sharedfork ok 6 - test case for sharedfork ok 7 - test case for sharedfork ok 8 - test case for sharedfork ok 9 - test case for sharedfork ok 10 - test case for sharedfork ok 11 - test case for sharedfork ok 12 - test case for sharedfork ok 13 - test case for sharedfork ok 14 - test case for sharedfork ok 15 - test case for sharedfork ok 16 - test case for sharedfork ok 17 - test case for sharedfork ok 18 - test case for sharedfork ok 19 - test case for sharedfork ok 20 - test case for sharedfork # send 1 # new request ok 21 # send 2 # new request ok 22 # finalize # new request ok t/11_net_empty_port.t .......... ok 1 - found an empty port ok 2 - port is closed ok 3 - port is open 1..3 ok t/12_pass_wait_port_options.t .. ok 1 ok 2 - test case for sharedfork ok 3 - test case for sharedfork ok 4 - test case for sharedfork ok 5 - test case for sharedfork ok 6 - test case for sharedfork ok 7 - test case for sharedfork ok 8 - test case for sharedfork ok 9 - test case for sharedfork ok 10 - test case for sharedfork ok 11 - test case for sharedfork ok 12 - test case for sharedfork ok 13 - test case for sharedfork ok 14 - test case for sharedfork ok 15 - test case for sharedfork ok 16 - test case for sharedfork ok 17 - test case for sharedfork ok 18 - test case for sharedfork ok 19 - test case for sharedfork ok 20 - test case for sharedfork ok 21 - test case for sharedfork # send 1 # new request ok 22 # send 2 # new request ok 23 # finalize # new request ok 24 ok 25 - test case for sharedfork ok 26 - test case for sharedfork ok 27 - test case for sharedfork ok 28 - test case for sharedfork ok 29 - test case for sharedfork ok 30 - test case for sharedfork ok 31 - test case for sharedfork ok 32 - test case for sharedfork ok 33 - test case for sharedfork ok 34 - test case for sharedfork ok 35 - test case for sharedfork ok 36 - test case for sharedfork ok 37 - test case for sharedfork ok 38 - test case for sharedfork ok 39 - test case for sharedfork ok 40 - test case for sharedfork ok 41 - test case for sharedfork ok 42 - test case for sharedfork ok 43 - test case for sharedfork ok 44 - test case for sharedfork # send 1 # new request ok 45 # send 2 # new request ok 46 # finalize # new request ok 47 1..47 ok t/13_undef_port.t .............. 1..22 ok 1 - test case for sharedfork ok 2 - test case for sharedfork ok 3 - test case for sharedfork ok 4 - test case for sharedfork ok 5 - test case for sharedfork ok 6 - test case for sharedfork ok 7 - test case for sharedfork ok 8 - test case for sharedfork ok 9 - test case for sharedfork ok 10 - test case for sharedfork ok 11 - test case for sharedfork ok 12 - test case for sharedfork ok 13 - test case for sharedfork ok 14 - test case for sharedfork ok 15 - test case for sharedfork ok 16 - test case for sharedfork ok 17 - test case for sharedfork ok 18 - test case for sharedfork ok 19 - test case for sharedfork ok 20 - test case for sharedfork # send 1 # new request ok 21 # send 2 # new request ok 22 # finalize ok Test Summary Report ------------------- t/05_sigint.t (Wstat: 768 Tests: 3 Failed: 3) Failed tests: 1-3 Non-zero exit status: 3 Parse errors: Bad plan. You planned 2 tests but ran 3. Files=14, Tests=141, 12 wallclock secs ( 0.29 usr 0.13 sys + 6.35 cusr 1.11 csys = 7.88 CPU) Result: FAIL Failed 1/14 test programs. 3/141 subtests failed. make: *** [test_dynamic] Error 255 TOKUHIROM/Test-TCP-2.06.tar.gz make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports TOKUHIROM/Test-TCP-2.06.tar.gz Running make for M/MI/MIYAGAWA/Plack-1.0033.tar.gz Has already been unwrapped into directory /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd CPAN.pm: Building M/MI/MIYAGAWA/Plack-1.0033.tar.gz Warning: Prerequisite 'Test::TCP => 2.00' for 'MIYAGAWA/Plack-1.0033.tar.gz' failed when processing 'TOKUHIROM/Test-TCP-2.06.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. >>> make cp share/#foo blib/lib/auto/share/dist/Plack/#foo cp share/baybridge.jpg blib/lib/auto/share/dist/Plack/baybridge.jpg cp share/face.jpg blib/lib/auto/share/dist/Plack/face.jpg cp lib/Plack/Util/Accessor.pm blib/lib/Plack/Util/Accessor.pm cp lib/Plack/App/CGIBin.pm blib/lib/Plack/App/CGIBin.pm cp lib/Plack/App/PSGIBin.pm blib/lib/Plack/App/PSGIBin.pm cp lib/Plack/Middleware/Log4perl.pm blib/lib/Plack/Middleware/Log4perl.pm cp lib/Plack/Handler/Apache2.pm blib/lib/Plack/Handler/Apache2.pm cp lib/Plack/Response.pm blib/lib/Plack/Response.pm cp lib/Plack/Middleware/Recursive.pm blib/lib/Plack/Middleware/Recursive.pm cp lib/Plack/Test/MockHTTP.pm blib/lib/Plack/Test/MockHTTP.pm cp lib/Plack/Middleware/Lint.pm blib/lib/Plack/Middleware/Lint.pm cp lib/Plack/Middleware/BufferedStreaming.pm blib/lib/Plack/Middleware/BufferedStreaming.pm cp lib/Plack/HTTPParser.pm blib/lib/Plack/HTTPParser.pm cp lib/Plack/Middleware/StackTrace.pm blib/lib/Plack/Middleware/StackTrace.pm cp lib/Plack/Middleware/AccessLog/Timed.pm blib/lib/Plack/Middleware/AccessLog/Timed.pm cp lib/Plack/Middleware/LighttpdScriptNameFix.pm blib/lib/Plack/Middleware/LighttpdScriptNameFix.pm cp lib/Plack/Middleware/Chunked.pm blib/lib/Plack/Middleware/Chunked.pm cp lib/Plack/Request.pm blib/lib/Plack/Request.pm cp lib/Plack/Middleware/Conditional.pm blib/lib/Plack/Middleware/Conditional.pm cp lib/Plack/App/Cascade.pm blib/lib/Plack/App/Cascade.pm cp lib/Plack/Middleware/Runtime.pm blib/lib/Plack/Middleware/Runtime.pm cp lib/Plack/Middleware/SimpleLogger.pm blib/lib/Plack/Middleware/SimpleLogger.pm cp lib/Plack/App/WrapCGI.pm blib/lib/Plack/App/WrapCGI.pm cp lib/Plack/TempBuffer.pm blib/lib/Plack/TempBuffer.pm cp lib/Plack/Middleware/Auth/Basic.pm blib/lib/Plack/Middleware/Auth/Basic.pm cp lib/Plack/Middleware/Static.pm blib/lib/Plack/Middleware/Static.pm cp lib/Plack/Util.pm blib/lib/Plack/Util.pm cp lib/Plack/Handler/Apache1.pm blib/lib/Plack/Handler/Apache1.pm cp lib/Plack/Loader/Shotgun.pm blib/lib/Plack/Loader/Shotgun.pm cp lib/Plack/Middleware/SimpleContentFilter.pm blib/lib/Plack/Middleware/SimpleContentFilter.pm cp lib/Plack/Middleware/IIS7KeepAliveFix.pm blib/lib/Plack/Middleware/IIS7KeepAliveFix.pm cp lib/Plack/Middleware/NullLogger.pm blib/lib/Plack/Middleware/NullLogger.pm cp lib/Plack/Middleware/ContentMD5.pm blib/lib/Plack/Middleware/ContentMD5.pm cp lib/Plack/App/File.pm blib/lib/Plack/App/File.pm cp lib/Plack/Handler/CGI.pm blib/lib/Plack/Handler/CGI.pm cp lib/Plack/Handler.pm blib/lib/Plack/Handler.pm cp lib/Plack/Middleware.pm blib/lib/Plack/Middleware.pm cp lib/Plack/Handler/Apache2/Registry.pm blib/lib/Plack/Handler/Apache2/Registry.pm cp lib/Plack/Runner.pm blib/lib/Plack/Runner.pm cp lib/Plack/Loader/Restarter.pm blib/lib/Plack/Loader/Restarter.pm cp lib/Plack/Test/Server.pm blib/lib/Plack/Test/Server.pm cp lib/Plack/Test.pm blib/lib/Plack/Test.pm cp lib/Plack/Handler/FCGI.pm blib/lib/Plack/Handler/FCGI.pm cp lib/Plack/Request/Upload.pm blib/lib/Plack/Request/Upload.pm cp lib/Plack/LWPish.pm blib/lib/Plack/LWPish.pm cp lib/HTTP/Server/PSGI.pm blib/lib/HTTP/Server/PSGI.pm cp lib/Plack/Middleware/ContentLength.pm blib/lib/Plack/Middleware/ContentLength.pm cp lib/Plack/MIME.pm blib/lib/Plack/MIME.pm cp lib/Plack/Middleware/HTTPExceptions.pm blib/lib/Plack/Middleware/HTTPExceptions.pm cp lib/Plack.pm blib/lib/Plack.pm cp lib/Plack/HTTPParser/PP.pm blib/lib/Plack/HTTPParser/PP.pm cp lib/Plack/Middleware/XFramework.pm blib/lib/Plack/Middleware/XFramework.pm cp lib/Plack/Test/Suite.pm blib/lib/Plack/Test/Suite.pm cp lib/Plack/Handler/HTTP/Server/PSGI.pm blib/lib/Plack/Handler/HTTP/Server/PSGI.pm cp lib/Plack/Middleware/Refresh.pm blib/lib/Plack/Middleware/Refresh.pm cp lib/Plack/Middleware/JSONP.pm blib/lib/Plack/Middleware/JSONP.pm cp lib/Plack/Middleware/IIS6ScriptNameFix.pm blib/lib/Plack/Middleware/IIS6ScriptNameFix.pm cp lib/Plack/Loader.pm blib/lib/Plack/Loader.pm cp lib/Plack/Middleware/ErrorDocument.pm blib/lib/Plack/Middleware/ErrorDocument.pm cp lib/Plack/Builder.pm blib/lib/Plack/Builder.pm cp lib/Plack/Middleware/Head.pm blib/lib/Plack/Middleware/Head.pm cp lib/Plack/Middleware/XSendfile.pm blib/lib/Plack/Middleware/XSendfile.pm cp lib/Plack/Loader/Delayed.pm blib/lib/Plack/Loader/Delayed.pm cp lib/Plack/Middleware/LogDispatch.pm blib/lib/Plack/Middleware/LogDispatch.pm cp lib/Plack/App/Directory.pm blib/lib/Plack/App/Directory.pm cp lib/Plack/App/URLMap.pm blib/lib/Plack/App/URLMap.pm cp lib/Plack/Middleware/ConditionalGET.pm blib/lib/Plack/Middleware/ConditionalGET.pm cp lib/Plack/Component.pm blib/lib/Plack/Component.pm cp lib/Plack/Middleware/RearrangeHeaders.pm blib/lib/Plack/Middleware/RearrangeHeaders.pm cp lib/Plack/Middleware/AccessLog.pm blib/lib/Plack/Middleware/AccessLog.pm cp lib/Plack/Handler/Standalone.pm blib/lib/Plack/Handler/Standalone.pm cp lib/HTTP/Message/PSGI.pm blib/lib/HTTP/Message/PSGI.pm cp script/plackup blib/script/plackup "/export/home/fly1264/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/plackup Manifying 1 pod document Manifying 69 pod documents MIYAGAWA/Plack-1.0033.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 Skip blib/lib/auto/share/dist/Plack/#foo (unchanged) Skip blib/lib/auto/share/dist/Plack/baybridge.jpg (unchanged) Skip blib/lib/auto/share/dist/Plack/face.jpg (unchanged) PERL_DL_NONLAZY=1 "/export/home/fly1264/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/HTTP-Message-PSGI/*.t t/HTTP-Server-PSGI/*.t t/Plack-Builder/*.t t/Plack-HTTPParser-PP/*.t t/Plack-Handler/*.t t/Plack-Loader/*.t t/Plack-MIME/*.t t/Plack-Middleware/*.t t/Plack-Middleware/cascade/*.t t/Plack-Middleware/recursive/*.t t/Plack-Middleware/stacktrace/*.t t/Plack-Request/*.t t/Plack-Response/*.t t/Plack-Runner/*.t t/Plack-TempBuffer/*.t t/Plack-Test/*.t t/Plack-Util/*.t t/HTTP-Message-PSGI/content_length.t ................. ok 1 ok 2 1..2 ok t/HTTP-Message-PSGI/empty_streamed_response.t ........ ok 1 - undef response body converted to empty string 1..1 ok t/HTTP-Message-PSGI/host.t ........................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok t/HTTP-Message-PSGI/path_info.t ...................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 1..8 ok t/HTTP-Message-PSGI/unknown_response.t ............... ok 1 - converting undef PSGI response results in error ok 2 - converting invalid PSGI response results in error 1..2 ok t/HTTP-Message-PSGI/utf8_req.t ....................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 1..16 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/HTTP-Server-PSGI/harakiri.t line 6. BEGIN failed--compilation aborted at t/HTTP-Server-PSGI/harakiri.t line 6. t/HTTP-Server-PSGI/harakiri.t ........................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/HTTP-Server-PSGI/post.t line 6. BEGIN failed--compilation aborted at t/HTTP-Server-PSGI/post.t line 6. t/HTTP-Server-PSGI/post.t ............................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Builder/builder.t ............................ 1..1 ok 1 ok t/Plack-Builder/mount.t .............................. ok 1 ok 2 1..2 ok t/Plack-Builder/oo_interface.t ....................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 - to_app() is called without mount(). No application to build. at t/Plack-Builder/oo_interface.t line 52. # ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 - no warnings 1..19 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/Plack-Handler/apache1.t line 5. BEGIN failed--compilation aborted at t/Plack-Handler/apache1.t line 5. t/Plack-Handler/apache1.t ............................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/Plack-Handler/apache2-registry.t line 4. BEGIN failed--compilation aborted at t/Plack-Handler/apache2-registry.t line 4. t/Plack-Handler/apache2-registry.t ................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/Plack-Handler/apache2.t line 5. BEGIN failed--compilation aborted at t/Plack-Handler/apache2.t line 5. t/Plack-Handler/apache2.t ............................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. Compilation failed in require at t/Plack-Handler/cgi.t line 12. BEGIN failed--compilation aborted at t/Plack-Handler/cgi.t line 12. t/Plack-Handler/cgi.t ................................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. Compilation failed in require at t/Plack-Handler/fcgi.t line 10. BEGIN failed--compilation aborted at t/Plack-Handler/fcgi.t line 10. t/Plack-Handler/fcgi.t ............................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Handler/output_encoding.t .................... ok 1 - \n is not converted 1..1 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. Compilation failed in require at t/Plack-Handler/standalone.t line 4. BEGIN failed--compilation aborted at t/Plack-Handler/standalone.t line 4. t/Plack-Handler/standalone.t ......................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-HTTPParser-PP/simple.t ....................... ok 1 - simple get ok 2 - result of GET / ok 3 - POST ok 4 - result of GET with headers ok 5 - multiline header ok 6 - multiline ok 7 - URI fragment ok 8 ok 9 - %23 -> \# ok 10 ok 11 - URI fragment after query string ok 12 ok 13 1..13 ok t/Plack-Loader/auto.t ................................ ok 1 1..1 ok t/Plack-Loader/auto_fallback.t ....................... ok 1 1..1 ok t/Plack-Loader/delayed.t ............................. ok 1 1..1 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/Plack-Loader/restarter.t line 3. BEGIN failed--compilation aborted at t/Plack-Loader/restarter.t line 3. t/Plack-Loader/restarter.t ........................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Loader/restarter_valid.t ..................... ok 1 - Foo.pm is valid ok 2 - foo.t is valid ok 3 - lib/Bar.pm is valid ok 4 - view/index.tt is valid ok 5 - _myapp/foo.psgi is valid ok 6 - .www/bar.pl is valid ok 7 - _sass.css is valid ok 8 - /Users/joe/foo/bar.pm is valid ok 9 - /path/to/4912 is valid ok 10 - /path/to/5037 is valid ok 11 - .git/123 should be ignored ok 12 - .svn/abc should be ignored ok 13 - Foo.pm~ should be ignored ok 14 - _flymake.pl should be ignored ok 15 - /Users/joe/foo.pl~ should be ignored ok 16 - /foo/bar/x.txt.bak should be ignored ok 17 - /path/to/foo.swp should be ignored ok 18 - /path/to/foo.swpx should be ignored ok 19 - /path/to/foo.swx should be ignored ok 20 - /path/to/4913 should be ignored ok 21 - /path/to/5036 should be ignored ok 22 - /path/to/.\#Foo.pm should be ignored 1..22 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. Compilation failed in require at t/Plack-Loader/shotgun.t line 4. BEGIN failed--compilation aborted at t/Plack-Loader/shotgun.t line 4. t/Plack-Loader/shotgun.t ............................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Middleware/access_log.t ...................... ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-Middleware/access_log_timed.t ................ ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 1..9 ok t/Plack-Middleware/access_log_value_zero.t ........... ok 1 ok 2 1..2 ok t/Plack-Middleware/auth_basic.t ...................... ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-Middleware/auth_basic_env.t .................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 1..7 ok t/Plack-Middleware/auth_basic_simple.t ............... ok 1 ok 2 ok 3 ok 4 1..4 ok t/Plack-Middleware/bufferedstreaming.t ............... 1..4 ok 1 - headers passed through ok 2 - body accumulated ok 3 - headers passed through ok 4 - body accumulated ok t/Plack-Middleware/cascade/basic.t ................... ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-Middleware/cascade/streaming.t ............... ok 1 ok 2 ok 3 ok 4 1..4 ok t/Plack-Middleware/cgibin.t .......................... skipped: release test only t/Plack-Middleware/cgibin_exec.t ..................... skipped: release test only Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 35) line 2. t/Plack-Middleware/chunked.t ......................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 11) line 2. t/Plack-Middleware/component-leak.t .................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Middleware/component.t ....................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 1..8 ok t/Plack-Middleware/conditional.t ..................... ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/conditional_new.t ................. ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/conditionalget.t .................. 1..12 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok t/Plack-Middleware/conditionalget_writer.t ........... ok 1 - Response HTTP status ok 2 - Response content ok 3 - Response HTTP status ok 4 1..4 ok t/Plack-Middleware/content_length.t .................. 1..5 ok 1 ok 2 ok 3 ok 4 ok 5 ok t/Plack-Middleware/directory.t ....................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 1..7 ok t/Plack-Middleware/error_document.t .................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 12) line 2. t/Plack-Middleware/error_document_streaming_app.t .... Dubious, test returned 2 (wstat 512, 0x200) No subtests run # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Failed test at t/Plack-Middleware/file.t line 54. # got: '200' # expected: '404' # Failed test at t/Plack-Middleware/file.t line 55. # got: 'use strict; # use Plack::Test; # use Test::More; # use HTTP::Request::Common; # use Plack::App::File; # use FindBin qw($Bin); # # my $app = Plack::App::File->new(file => 'Changes'); # # test_psgi $app, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/plain'; # is $res->code, 200; # }; # # my $app_content_type = Plack::App::File->new( # file => 'Changes', # content_type => 'text/x-changes' # ); # # test_psgi $app_content_type, sub { # my $cb = shift; # # my $res = $cb->(GET "/"); # is $res->code, 200; # like $res->content, qr/Plack/; # # $res = $cb->(GET "/whatever"); # is $res->content_type, 'text/x-changes'; # is $res->code, 200; # }; # # my $app_secure = Plack::App::File->new(root => $Bin); # # test_psgi $app_secure, sub { # my $cb = shift; # # my $res = $cb->(GET "/file.t"); # is $res->code, 200; # like $res->content, qr/We will find for this literal string/; # # my $res = $cb->(GET "/../Plack-Middleware/file.t"); # is $res->code, 403; # is $res->content, 'forbidden'; # # for my $i (1..100) { # $res = $cb->(GET "/file.t" . ("/" x $i)); # is $res->code, 404; # is $res->content, 'not found'; # } # }; # # done_testing; # ' # expected: 'not found' # Looks like you failed 200 tests of 212. t/Plack-Middleware/file.t ............................ ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 not ok 13 not ok 14 not ok 15 not ok 16 not ok 17 not ok 18 not ok 19 not ok 20 not ok 21 not ok 22 not ok 23 not ok 24 not ok 25 not ok 26 not ok 27 not ok 28 not ok 29 not ok 30 not ok 31 not ok 32 not ok 33 not ok 34 not ok 35 not ok 36 not ok 37 not ok 38 not ok 39 not ok 40 not ok 41 not ok 42 not ok 43 not ok 44 not ok 45 not ok 46 not ok 47 not ok 48 not ok 49 not ok 50 not ok 51 not ok 52 not ok 53 not ok 54 not ok 55 not ok 56 not ok 57 not ok 58 not ok 59 not ok 60 not ok 61 not ok 62 not ok 63 not ok 64 not ok 65 not ok 66 not ok 67 not ok 68 not ok 69 not ok 70 not ok 71 not ok 72 not ok 73 not ok 74 not ok 75 not ok 76 not ok 77 not ok 78 not ok 79 not ok 80 not ok 81 not ok 82 not ok 83 not ok 84 not ok 85 not ok 86 not ok 87 not ok 88 not ok 89 not ok 90 not ok 91 not ok 92 not ok 93 not ok 94 not ok 95 not ok 96 not ok 97 not ok 98 not ok 99 not ok 100 not ok 101 not ok 102 not ok 103 not ok 104 not ok 105 not ok 106 not ok 107 not ok 108 not ok 109 not ok 110 not ok 111 not ok 112 not ok 113 not ok 114 not ok 115 not ok 116 not ok 117 not ok 118 not ok 119 not ok 120 not ok 121 not ok 122 not ok 123 not ok 124 not ok 125 not ok 126 not ok 127 not ok 128 not ok 129 not ok 130 not ok 131 not ok 132 not ok 133 not ok 134 not ok 135 not ok 136 not ok 137 not ok 138 not ok 139 not ok 140 not ok 141 not ok 142 not ok 143 not ok 144 not ok 145 not ok 146 not ok 147 not ok 148 not ok 149 not ok 150 not ok 151 not ok 152 not ok 153 not ok 154 not ok 155 not ok 156 not ok 157 not ok 158 not ok 159 not ok 160 not ok 161 not ok 162 not ok 163 not ok 164 not ok 165 not ok 166 not ok 167 not ok 168 not ok 169 not ok 170 not ok 171 not ok 172 not ok 173 not ok 174 not ok 175 not ok 176 not ok 177 not ok 178 not ok 179 not ok 180 not ok 181 not ok 182 not ok 183 not ok 184 not ok 185 not ok 186 not ok 187 not ok 188 not ok 189 not ok 190 not ok 191 not ok 192 not ok 193 not ok 194 not ok 195 not ok 196 not ok 197 not ok 198 not ok 199 not ok 200 not ok 201 not ok 202 not ok 203 not ok 204 not ok 205 not ok 206 not ok 207 not ok 208 not ok 209 not ok 210 not ok 211 not ok 212 1..212 Dubious, test returned 200 (wstat 51200, 0xc800) Failed 200/212 subtests t/Plack-Middleware/head.t ............................ ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/head_streaming.t .................. ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/httpexceptions.t .................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 1..8 ok t/Plack-Middleware/httpexceptions_streaming.t ........ ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok t/Plack-Middleware/iis6_script_name_fix.t ............ ok 1 - check PATH_INFO ok 2 - check SCRIPT_NAME 1..2 ok t/Plack-Middleware/iis7_keep_alive_fix.t ............. ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/jsonp.t ........................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 1..8 ok t/Plack-Middleware/lint.t ............................ ok 1 - Response should be array ref or code ref: HASH(0x100905020) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 104. # ok 2 - Response needs to be 3 element array, or 2 element in streaming at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 112. # ok 3 - Headers needs to be an array ref: HASH(0x1009051a0) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 120. # ok 4 - Status code needs to be an integer greater than or equal to 100: 0 at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 116. # ok 5 - Body must be bytes and should not contain wide characters (UTF-8 strings) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 156. # ok 6 - Body should be an array ref or filehandle: HASH(0x100904f90) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 7 - Body should be an array ref or filehandle: at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 8 - Response headers MUST NOT contain a key with : or newlines, or that end in - or _: Foo: at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 133. # ok 9 - Response headers MUST NOT contain a key with : or newlines, or that end in - or _: Foo- at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 133. # ok 10 - Response headers MUST consist only of letters, digits, _ or - and MUST start with a letter: 0xyz at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 136. # ok 11 - Response headers MUST NOT contain a key named Status at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 130. # ok 12 - Response headers MUST NOT contain a key with : or newlines, or that end in - or _: Foo # Bar at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 133. # ok 13 - Response headers MUST NOT contain characters below octal : Foo # Bar at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 139. # ok 14 - The number of response headers needs to be even, not odd(1) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 125. # ok 15 - Body should be an array ref or filehandle: HASH(0x100907a88) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 16 - Body should be an array ref or filehandle: at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 17 - Response headers MUST be a defined string at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 142. # ok 18 - SCRIPT_NAME must not be / at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Middleware/Lint.pm line 40. # ok 19 - foo ok 20 - Léon 1..20 ok t/Plack-Middleware/lint_env.t ........................ ok 1 ok 2 - (?-xism:Missing env param: REQUEST_METHOD) ok 3 - (?-xism:Invalid env param: REQUEST_METHOD) ok 4 - (?-xism:PATH_INFO must begin with /) ok 5 - (?-xism:Missing mandatory .*SERVER_PORT) ok 6 - (?-xism:Invalid SERVER_PROTOCOL) ok 7 - (?-xism:psgi\.version should be ArrayRef) ok 8 - (?-xism:HTTP_CONTENT_TYPE should not exist) 1..8 ok t/Plack-Middleware/lint_utf8_false_alarm.t ........... ok 1 - abc 1..1 ok t/Plack-Middleware/log4perl.t ........................ ok 1 ok 2 1..2 ok t/Plack-Middleware/log_dispatch.t .................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 1..7 ok t/Plack-Middleware/order.t ........................... ok 1 ok 2 1..2 ok t/Plack-Middleware/prefix.t .......................... ok 1 ok 2 1..2 ok t/Plack-Middleware/psgibin.t ......................... ok 1 ok 2 1..2 ok t/Plack-Middleware/rearrange_headers.t ............... ok 1 - Pre-test: test that header order is not changed by default. ok 2 - Rearrange Middleware changes the header order 1..2 ok t/Plack-Middleware/recursive/base.t .................. ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/recursive/streaming.t ............. ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/recursive/throw.t ................. ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-Middleware/recursive/throw_streaming.t ....... ok 1 ok 2 ok 3 1..3 ok t/Plack-Middleware/refresh-init.t .................... ok 1 ok 2 1..2 ok t/Plack-Middleware/runtime.t ......................... ok 1 1..1 ok t/Plack-Middleware/simple_content_filter.t ........... ok 1 ok 2 1..2 ok t/Plack-Middleware/simple_logger.t ................... ok 1 ok 2 1..2 ok t/Plack-Middleware/stacktrace/basic.t ................ ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 1..8 ok t/Plack-Middleware/stacktrace/force.t ................ ok 1 ok 2 ok 3 ok 4 1..4 ok t/Plack-Middleware/stacktrace/multiple_exceptions.t .. ok 1 - Status code is 500 ok 2 - Original exception returned ok 3 - Destructor called only once ok 4 - Status code is 500 ok 5 - Original exception returned ok 6 - Destructor called only once ok 7 - Status code is 500 ok 8 - Original stack trace returned ok 9 - Status code is 500 ok 10 - Original stack trace returned 1..10 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 15) line 2. t/Plack-Middleware/stacktrace/sigdie.t ............... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Middleware/stacktrace/streaming.t ............ ok 1 ok 2 1..2 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 17) line 2. t/Plack-Middleware/stacktrace/utf8.t ................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Middleware/static.t .......................... ok 1 - ok case ok 2 ok 3 ok 4 ok 5 ok 6 - directory traversal ok 7 - not found ok 8 ok 9 ok 10 ok 11 - pass through ok 12 ok 13 ok 14 ok 15 1..15 ok t/Plack-Middleware/static_env.t ...................... ok 1 ok 2 1..2 ok t/Plack-Middleware/urlmap.t .......................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 1..11 ok t/Plack-Middleware/urlmap_builder.t .................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 1..9 ok t/Plack-Middleware/urlmap_env.t ...................... ok 1 ok 2 1..2 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 11) line 2. t/Plack-Middleware/urlmap_ports.t .................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Middleware/wrapcgi.t ......................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok t/Plack-Middleware/wrapcgi_exec.t .................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 1..11 ok t/Plack-Middleware/xframework.t ...................... ok 1 1..1 ok t/Plack-Middleware/xsendfile.t ....................... ok 1 ok 2 ok 3 ok 4 - pass through app header 1..4 ok t/Plack-MIME/add_type.t .............................. ok 1 ok 2 1..2 ok t/Plack-MIME/basic.t ................................. ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-MIME/fallback.t .............................. ok 1 ok 2 1..2 ok t/Plack-Request/base.t ............................... 1..9 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok t/Plack-Request/body.t ............................... ok 1 ok 2 ok 3 1..3 ok t/Plack-Request/content-on-get.t ..................... ok 1 ok 2 ok 3 ok 4 1..4 ok t/Plack-Request/content.t ............................ ok 1 ok 2 1..2 ok t/Plack-Request/cookie.t ............................. ok 1 - non-existing keys return undef ok 2 ok 3 ok 4 ok 5 - When we get multiple values we return the first one (which e.g. Apache does too) ok 6 ok 7 ok 8 1..8 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 22) line 2. t/Plack-Request/double_port.t ........................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Request/hostname.t ........................... 1..2 ok 1 ok 2 ok t/Plack-Request/many_upload.t ........................ ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 1..7 ok t/Plack-Request/multi_read.t ......................... ok 1 ok 2 ok 3 ok 4 1..4 ok t/Plack-Request/new.t ................................ ok 1 - An object of class 'Plack::Request' isa 'Plack::Request' ok 2 - address ok 3 - method ok 4 - protocol ok 5 - uri ok 6 - port ok 7 - url_scheme 1..7 ok t/Plack-Request/parameters.t ......................... ok 1 ok 2 ok 3 1..3 ok t/Plack-Request/params.t ............................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 1..12 ok t/Plack-Request/path_info.t .......................... ok 1 ok 2 ok 3 1..3 ok t/Plack-Request/path_info_escaped.t .................. ok 1 ok 2 - %2f vs / can't be distinguished - that's alright ok 3 1..3 ok t/Plack-Request/query_string.t ....................... ok 1 ok 2 1..2 ok t/Plack-Request/readbody.t ........................... 1..1 ok 1 ok t/Plack-Request/request_uri.t ........................ ok 1 ok 2 1..2 ok t/Plack-Request/upload-basename.t .................... 1..1 ok 1 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 22) line 2. t/Plack-Request/upload-large.t ....................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Request/upload.t ............................. ok 1 - An object of class 'Plack::Request::Upload' isa 'HASH' ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 1..14 ok t/Plack-Request/uri.t ................................ 1..32 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 ok 32 ok t/Plack-Request/uri_utf8.t ........................... ok 1 1..1 ok t/Plack-Response/body.t .............................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok t/Plack-Response/compatible.t ........................ ok 1 ok 2 ok 3 ok 4 1..4 ok t/Plack-Response/cookie.t ............................ ok 1 ok 2 ok 3 1..3 ok t/Plack-Response/new.t ............................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok t/Plack-Response/redirect.t .......................... ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-Response/response.t .......................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 1..9 ok t/Plack-Response/to_app.t ............................ ok 1 - response code ok 2 - content 1..2 ok t/Plack-Runner/options.t ............................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 1..14 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at t/Plack-Runner/path.t line 7. BEGIN failed--compilation aborted at t/Plack-Runner/path.t line 7. t/Plack-Runner/path.t ................................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-TempBuffer/print.t ........................... ok 1 ok 2 ok 3 ok 4 ok 5 - An object of class 'IO::File' isa 'IO::File' ok 6 ok 7 ok 8 ok 9 - An object of class 'IO::File' isa 'IO::File' ok 10 ok 11 1..11 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 8) line 2. t/Plack-Test/2args.t ................................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Test/cookie.t ................................ ok 1 ok 2 1..2 ok t/Plack-Test/hello.t ................................. ok 1 ok 2 ok 3 1..3 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 5) line 2. t/Plack-Test/hello_server.t .......................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Suite.pm line 9. Compilation failed in require at t/Plack-Test/suite.t line 7. BEGIN failed--compilation aborted at t/Plack-Test/suite.t line 7. t/Plack-Test/suite.t ................................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/Plack-Util/can.t ................................... ok 1 - Did not die calling 'can' on Plack::Util package with invalid sub ok 2 - Cannot do that method ok 3 - Did not die calling 'can' on Plack::Util package with real sub ok 4 - can() returns the sub 1..4 ok t/Plack-Util/foreach.t ............................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 - close 1..11 ok t/Plack-Util/headers.t ............................... ok 1 ok 2 ok 3 - header_set case-insensitive ok 4 ok 5 - header_get case-insensitive ok 6 ok 7 ok 8 - header_remove case-insensitive ok 9 ok 10 1..10 ok t/Plack-Util/headers_obj.t ........................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 1..8 ok t/Plack-Util/inline_object.t ......................... ok 1 - method call works ok 2 - can returns true value for method ok 3 - can returns sub ref for method ok 4 - croaks if nonexistant method called ok 5 - can returns undef for nonexistant method 1..5 ok t/Plack-Util/io_with_path.t .......................... ok 1 ok 2 ok 3 ok 4 - An object of class 'Plack::Util::IOWithPath' isa 'IO::Handle' 1..4 ok t/Plack-Util/is_real_fh.t ............................ ok 1 ok 2 ok 3 ok 4 ok 5 1..5 ok t/Plack-Util/load.t .................................. ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 1..13 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd/blib/lib/Plack/Test/Server.pm line 7. Compilation failed in require at (eval 11) line 2. t/Plack-Util/response_cb.t ........................... Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/release-pod-syntax.t ............................... skipped: these tests are for release candidate testing Test Summary Report ------------------- t/HTTP-Server-PSGI/harakiri.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/HTTP-Server-PSGI/post.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Handler/apache1.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Handler/apache2-registry.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Handler/apache2.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Handler/cgi.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Handler/fcgi.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Handler/standalone.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Loader/restarter.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Loader/shotgun.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Middleware/chunked.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Middleware/component-leak.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Middleware/error_document_streaming_app.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Middleware/file.t (Wstat: 51200 Tests: 212 Failed: 200) Failed tests: 13-212 Non-zero exit status: 200 t/Plack-Middleware/stacktrace/sigdie.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Middleware/stacktrace/utf8.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Middleware/urlmap_ports.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Request/double_port.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Request/upload-large.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Runner/path.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Test/2args.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Test/hello_server.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Test/suite.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/Plack-Util/response_cb.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=138, Tests=840, 62 wallclock secs ( 1.91 usr 1.35 sys + 50.16 cusr 6.26 csys = 59.68 CPU) Result: FAIL Failed 24/138 test programs. 200/840 subtests failed. make: *** [test_dynamic] Error 255 MIYAGAWA/Plack-1.0033.tar.gz one dependency not OK (Test::TCP); additionally test harness failed make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports MIYAGAWA/Plack-1.0033.tar.gz Running test for module 'Test::TCP' Running make for T/TO/TOKUHIROM/Test-TCP-2.06.tar.gz Has already been unwrapped into directory /export/home/fly1264/var/cpan/build/Test-TCP-2.06-46nTNH Has already been made Running make test Won't repeat unsuccessful test during this command Has already been tested within this command Running test for module 'Plack::Loader' Running make for M/MI/MIYAGAWA/Plack-1.0033.tar.gz Has already been unwrapped into directory /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd Warning: Prerequisite 'Test::TCP => 2.00' for 'MIYAGAWA/Plack-1.0033.tar.gz' failed when processing 'TOKUHIROM/Test-TCP-2.06.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. Has already been made Running make test Won't repeat unsuccessful test during this command Has already been tested within this command Running test for module 'Plack::Util::Accessor' Running make for M/MI/MIYAGAWA/Plack-1.0033.tar.gz Has already been unwrapped into directory /export/home/fly1264/var/cpan/build/Plack-1.0033-rs2Wxd Warning: Prerequisite 'Test::TCP => 2.00' for 'MIYAGAWA/Plack-1.0033.tar.gz' failed when processing 'TOKUHIROM/Test-TCP-2.06.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. Has already been made Running make test Won't repeat unsuccessful test during this command Has already been tested within this command Running make for O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz Has already been unwrapped into directory /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5 CPAN.pm: Building O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz Warning: Prerequisite 'HTTP::Message::PSGI => 0' for 'O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz' seems not available according to the indices Warning: Prerequisite 'Test::TCP => 0' for 'OALDERS/Plack-Test-Agent-1.3.tar.gz' failed when processing 'TOKUHIROM/Test-TCP-2.06.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. Warning: Prerequisite 'Plack::Util::Accessor => 0' for 'O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz' seems not available according to the indices Warning: Prerequisite 'Plack::Loader => 0' for 'O/OA/OALDERS/Plack-Test-Agent-1.3.tar.gz' seems not available according to the indices >>> make cp README.pod blib/lib/Plack/Test/README.pod cp lib/Plack/Test/Agent.pm blib/lib/Plack/Test/Agent.pm Manifying 2 pod documents OALDERS/Plack-Test-Agent-1.3.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/export/home/fly1264/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t # Failed test 'Plack/Test/Agent.pm loaded ok' # at t/00-compile.t line 37. # got: '512' # expected: '0' Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at -e line 1. # Looks like you failed 1 test of 1. t/00-compile.t ............ 1..1 not ok 1 - Plack/Test/Agent.pm loaded ok Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests # # Versions for all modules listed in MYMETA.json (including optional ones): # # === Configure Requires === # # Module Want Have # ------------------- ---- ---- # ExtUtils::MakeMaker any 7.04 # # === Build Requires === # # Module Want Have # ------------------- ---- ---- # ExtUtils::MakeMaker any 7.04 # # === Test Requires === # # Module Want Have # -------------------------- ---- ---------- # ExtUtils::MakeMaker any 7.04 # File::Spec any 3.47 # HTTP::Cookies any 6.01 # HTTP::Server::Simple::PSGI any 0.16 # IO::Handle any 1.28 # IPC::Open3 any 1.05 # Modern::Perl any 1.20140107 # Plack::Request any 0.09 # Test::Memory::Cycle any 1.04 # Test::More 0.88 1.001009 # Test::Requires any 0.08 # open any 1.07 # utf8 any 1.08 # # === Test Recommends === # # Module Want Have # ---------- -------- -------- # CPAN::Meta 2.120900 2.143240 # # === Runtime Requires === # # Module Want Have # --------------------- ---- ------- # HTTP::Message::PSGI any missing # HTTP::Request::Common any 6.04 # HTTP::Response any 6.04 # Plack::Loader any missing # Plack::Util::Accessor any missing # Test::TCP any missing # Test::WWW::Mechanize any 1.44 # parent any 0.228 # strict any 1.04 # warnings any 1.09 # # # *** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING *** # # The following REQUIRED prerequisites were not satisfied: # # HTTP::Message::PSGI is not installed (any version required) # Plack::Loader is not installed (any version required) # Plack::Util::Accessor is not installed (any version required) # Test::TCP is not installed (any version required) # t/00-report-prereqs.t ..... 1..1 ok 1 ok Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/2args.t line 7. BEGIN failed--compilation aborted at t/2args.t line 7. t/2args.t ................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/author-eol.t ............ skipped: these tests are for testing by the author t/author-no-tabs.t ........ skipped: these tests are for testing by the author t/author-pod-spell.t ...... skipped: these tests are for testing by the author Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/cookie.t line 7. BEGIN failed--compilation aborted at t/cookie.t line 7. t/cookie.t ................ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/cycle.t line 9. BEGIN failed--compilation aborted at t/cycle.t line 9. t/cycle.t ................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/extra_get_args.t line 7. BEGIN failed--compilation aborted at t/extra_get_args.t line 7. t/extra_get_args.t ........ Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/hello.t line 7. BEGIN failed--compilation aborted at t/hello.t line 7. t/hello.t ................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/hello_server.t line 7. BEGIN failed--compilation aborted at t/hello_server.t line 7. t/hello_server.t .......... Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/mech.t line 9. BEGIN failed--compilation aborted at t/mech.t line 9. t/mech.t .................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Can't locate Test/TCP.pm in @INC (@INC contains: /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/arch /export/home/fly1264/var/megalib /export/home/fly1264/var/megalib /export/home/fly1264/ap1200/site/lib /export/home/fly1264/ap1200/lib .) at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. BEGIN failed--compilation aborted at /export/home/fly1264/var/cpan/build/Plack-Test-Agent-1.3-ZSKaG5/blib/lib/Plack/Test/Agent.pm line 9. Compilation failed in require at t/okay.t line 9. BEGIN failed--compilation aborted at t/okay.t line 9. t/okay.t .................. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t/release-cpan-changes.t .. skipped: these tests are for release candidate testing t/release-pod-coverage.t .. skipped: these tests are for release candidate testing t/release-pod-syntax.t .... skipped: these tests are for release candidate testing t/release-portability.t ... skipped: these tests are for release candidate testing t/release-synopsis.t ...... skipped: these tests are for release candidate testing Test Summary Report ------------------- t/00-compile.t (Wstat: 256 Tests: 1 Failed: 1) Failed test: 1 Non-zero exit status: 1 t/2args.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/cookie.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/cycle.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/extra_get_args.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/hello.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/hello_server.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/mech.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t/okay.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=18, Tests=2, 4 wallclock secs ( 0.28 usr 0.19 sys + 3.21 cusr 0.53 csys = 4.21 CPU) Result: FAIL Failed 9/18 test programs. 1/2 subtests failed. make: *** [test_dynamic] Error 255 OALDERS/Plack-Test-Agent-1.3.tar.gz 4 dependencies missing (Test::TCP,HTTP::Message::PSGI,Plack::Util::Accessor,Plack::Loader); additionally test harness failed make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports OALDERS/Plack-Test-Agent-1.3.tar.gz Finished 2015-01-06T02:14:48