PATH=/opt/SUNWspro/bin:/usr/local/bin:/opt/csw/bin:/usr/ccs/bin:/usr/bin:/usr/sbin Start 2014-12-28T18:09:50 ActivePerl-1205 CPAN-2.00 Reading '/export/home/fly1232/var/cpan/Metadata' Database was generated on Mon, 29 Dec 2014 00:29:02 GMT Running make for I/ID/IDOPEREL/McBain-WithPSGI-2.001000.tar.gz Fetching with LWP: http://cpan.nas1.activestate.com/authors/id/I/ID/IDOPEREL/McBain-WithPSGI-2.001000.tar.gz Fetching with LWP: http://cpan.nas1.activestate.com/authors/id/I/ID/IDOPEREL/CHECKSUMS Checksum for /export/home/fly1232/var/cpan/sources/authors/id/I/ID/IDOPEREL/McBain-WithPSGI-2.001000.tar.gz ok McBain-WithPSGI-2.001000 McBain-WithPSGI-2.001000/README McBain-WithPSGI-2.001000/Changes McBain-WithPSGI-2.001000/LICENSE McBain-WithPSGI-2.001000/INSTALL McBain-WithPSGI-2.001000/dist.ini McBain-WithPSGI-2.001000/MANIFEST McBain-WithPSGI-2.001000/META.json McBain-WithPSGI-2.001000/SIGNATURE McBain-WithPSGI-2.001000/t McBain-WithPSGI-2.001000/t/00-load.t McBain-WithPSGI-2.001000/Makefile.PL McBain-WithPSGI-2.001000/MANIFEST.SKIP McBain-WithPSGI-2.001000/t/01-simple.t McBain-WithPSGI-2.001000/t/lib McBain-WithPSGI-2.001000/t/lib/Mendoza.pm McBain-WithPSGI-2.001000/t/lib/Mendoza McBain-WithPSGI-2.001000/t/lib/Mendoza/Math.pm McBain-WithPSGI-2.001000/lib/McBain McBain-WithPSGI-2.001000/lib/McBain/WithPSGI.pm McBain-WithPSGI-2.001000/t/release-dist-manifest.t McBain-WithPSGI-2.001000/t/lib/Mendoza/Math McBain-WithPSGI-2.001000/t/lib/Mendoza/Math/Constants.pm CPAN.pm: Building I/ID/IDOPEREL/McBain-WithPSGI-2.001000.tar.gz >>> /export/home/fly1232/bin/perl Makefile.PL Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for McBain::WithPSGI Writing MYMETA.yml and MYMETA.json ---- Unsatisfied dependencies detected during ---- ---- IDOPEREL/McBain-WithPSGI-2.001000.tar.gz ---- Plack [build_requires] Running make test Delayed until after prerequisites Running test for module 'Plack' Running make for M/MI/MIYAGAWA/Plack-1.0033.tar.gz Checksum for /export/home/fly1232/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/fly1232/bin/perl Makefile.PL Warning: prerequisite Test::TCP 2.00 not found. We have 1.15. 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/fly1232/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/fly1232/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/fly1232/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 # new request 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 - 50377, 51480 ok t/07_optional.t ................ 1..2 ok 1 - One ok 2 - Two ok t/08_exit.t .................... 1..5 # SEVER: 17389 # CLIENT: 17388 ok 1 ok 2 ok 3 ok 4 ok 5 ok t/09_fork.t .................... 1..6 ok 1 - Successfully forked child 17392 ok 2 - Successfully forked child 0 ok 3 - Successfully executed child 17392 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 # new request 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, 13 wallclock secs ( 0.19 usr 0.12 sys + 5.16 cusr 0.72 csys = 6.19 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/fly1232/var/cpan/build/Plack-1.0033-acKiZ_ 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/fly1232/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/fly1232/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 t/HTTP-Server-PSGI/harakiri.t ........................ ok 1 ok 2 ok 3 ok 4 ok 5 # check that the server is dead ok 6 - no response 1..6 ok t/HTTP-Server-PSGI/post.t ............................ # send a broken request # send next request ok 1 ok 2 ok 3 1..3 ok 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 t/Plack-Handler/apache1.t ............................ skipped: TEST_APACHE1 is not set t/Plack-Handler/apache2-registry.t ................... skipped: TEST_APACHE2 is not set t/Plack-Handler/apache2.t ............................ skipped: TEST_APACHE2 is not set t/Plack-Handler/cgi.t ................................ # SCRIPT_NAME ok 1 # GET ok 2 ok 3 ok 4 ok 5 # POST ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 # big POST ok 12 ok 13 ok 14 ok 15 ok 16 # psgi.url_scheme ok 17 ok 18 ok 19 ok 20 # return glob ok 21 ok 22 ok 23 ok 24 ok 25 # filehandle ok 26 ok 27 ok 28 ok 29 # bigger file ok 30 ok 31 ok 32 ok 33 ok 34 # handle HTTP-Header ok 35 ok 36 ok 37 ok 38 # handle HTTP-Cookie ok 39 ok 40 ok 41 ok 42 # validate env ok 43 ok 44 ok 45 ok 46 # % encoding in PATH_INFO ok 47 - PATH_INFO should be decoded per RFC 3875 # % double encoding in PATH_INFO ok 48 - PATH_INFO should be decoded only once, per RFC 3875 # % encoding in PATH_INFO (outside of URI characters) ok 49 # SERVER_PROTOCOL is required ok 50 ok 51 ok 52 ok 53 # SCRIPT_NAME should not be undef ok 54 # call close after read IO::Handle-like ok 55 - closed ok 56 # has errors ok 57 # status line ok 58 # Do not crash when the app dies ok 59 ok 60 # multi headers (request) ok 61 # multi headers (response) ok 62 # Do not set $env->{COOKIE} ok 63 ok 64 # no entity headers on 304 ok 65 ok 66 ok 67 ok 68 - No Content-Type ok 69 - No Content-Length ok 70 - No Transfer-Encoding # REQUEST_URI is set ok 71 # filehandle with path() ok 72 ok 73 ok 74 ok 75 # a big header value > 128 bytes ok 76 ok 77 ok 78 # coderef res ok 79 ok 80 ok 81 ok 82 # coderef streaming ok 83 ok 84 ok 85 ok 86 # CRLF output and FCGI parse bug ok 87 ok 88 # newlines ok 89 # test 404 ok 90 ok 91 ok 92 # request->input seekable ok 93 # request->content on GET ok 94 # handle Authorization header ok 95 # skip Authorization header is unsupported under CGI ok 96 # skip Authorization header is unsupported under CGI ok 97 # skip Authorization header is unsupported under CGI ok 98 # skip Authorization header is unsupported under CGI # repeated slashes ok 99 ok 100 ok 101 ok 102 1..102 ok t/Plack-Handler/fcgi.t ............................... skipped: release test only t/Plack-Handler/output_encoding.t .................... ok 1 - \n is not converted 1..1 ok t/Plack-Handler/standalone.t ......................... # SCRIPT_NAME ok 1 # GET ok 2 ok 3 ok 4 ok 5 # POST ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 # big POST ok 12 ok 13 ok 14 ok 15 ok 16 # psgi.url_scheme ok 17 ok 18 ok 19 ok 20 # return glob ok 21 ok 22 ok 23 ok 24 ok 25 # filehandle ok 26 ok 27 ok 28 ok 29 # bigger file ok 30 ok 31 ok 32 ok 33 ok 34 # handle HTTP-Header ok 35 ok 36 ok 37 ok 38 # handle HTTP-Cookie ok 39 ok 40 ok 41 ok 42 # validate env ok 43 ok 44 ok 45 ok 46 # % encoding in PATH_INFO ok 47 - PATH_INFO should be decoded per RFC 3875 # % double encoding in PATH_INFO ok 48 - PATH_INFO should be decoded only once, per RFC 3875 # % encoding in PATH_INFO (outside of URI characters) ok 49 # SERVER_PROTOCOL is required ok 50 ok 51 ok 52 ok 53 # SCRIPT_NAME should not be undef ok 54 # call close after read IO::Handle-like ok 55 - closed ok 56 # has errors ok 57 # status line ok 58 # Do not crash when the app dies ok 59 ok 60 # multi headers (request) ok 61 # multi headers (response) ok 62 # Do not set $env->{COOKIE} ok 63 ok 64 # no entity headers on 304 ok 65 ok 66 ok 67 ok 68 - No Content-Type ok 69 - No Content-Length ok 70 - No Transfer-Encoding # REQUEST_URI is set ok 71 # filehandle with path() ok 72 ok 73 ok 74 ok 75 # a big header value > 128 bytes ok 76 ok 77 ok 78 # coderef res ok 79 ok 80 ok 81 ok 82 # coderef streaming ok 83 ok 84 ok 85 ok 86 # CRLF output and FCGI parse bug ok 87 ok 88 # newlines ok 89 # test 404 ok 90 ok 91 ok 92 # request->input seekable ok 93 # request->content on GET ok 94 # handle Authorization header ok 95 ok 96 ok 97 ok 98 # repeated slashes ok 99 ok 100 ok 101 ok 102 1..102 ok 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 t/Plack-Loader/restarter.t ........................... skipped: author test only 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 t/Plack-Loader/shotgun.t ............................. # SCRIPT_NAME ok 1 # GET ok 2 ok 3 ok 4 ok 5 # POST ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 # big POST ok 12 ok 13 ok 14 ok 15 ok 16 # psgi.url_scheme ok 17 ok 18 ok 19 ok 20 # return glob ok 21 ok 22 ok 23 ok 24 ok 25 # filehandle ok 26 ok 27 ok 28 ok 29 # bigger file ok 30 ok 31 ok 32 ok 33 ok 34 # handle HTTP-Header ok 35 ok 36 ok 37 ok 38 # handle HTTP-Cookie ok 39 ok 40 ok 41 ok 42 # validate env ok 43 ok 44 ok 45 ok 46 # % encoding in PATH_INFO ok 47 - PATH_INFO should be decoded per RFC 3875 # % double encoding in PATH_INFO ok 48 - PATH_INFO should be decoded only once, per RFC 3875 # % encoding in PATH_INFO (outside of URI characters) ok 49 # SERVER_PROTOCOL is required ok 50 ok 51 ok 52 ok 53 # SCRIPT_NAME should not be undef ok 54 # call close after read IO::Handle-like ok 55 - closed ok 56 # has errors ok 57 # status line ok 58 # Do not crash when the app dies ok 59 ok 60 # multi headers (request) ok 61 # multi headers (response) ok 62 # Do not set $env->{COOKIE} ok 63 ok 64 # no entity headers on 304 ok 65 ok 66 ok 67 ok 68 - No Content-Type ok 69 - No Content-Length ok 70 - No Transfer-Encoding # REQUEST_URI is set ok 71 # filehandle with path() ok 72 ok 73 ok 74 ok 75 # a big header value > 128 bytes ok 76 ok 77 ok 78 # coderef res ok 79 ok 80 ok 81 ok 82 # coderef streaming ok 83 ok 84 ok 85 ok 86 # CRLF output and FCGI parse bug ok 87 ok 88 # newlines ok 89 # test 404 ok 90 ok 91 ok 92 # request->input seekable ok 93 # request->content on GET ok 94 # handle Authorization header ok 95 ok 96 ok 97 ok 98 # repeated slashes ok 99 ok 100 ok 101 ok 102 1..102 ok 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 t/Plack-Middleware/chunked.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 ok 17 ok 18 ok 19 ok 20 ok 21 - Chunked shouldn't be used in HTTP/1.0 ok 22 ok 23 ok 24 - Chunked shouldn't be used in HTTP/1.0 ok 25 ok 26 ok 27 - Chunked shouldn't be used in HTTP/1.0 ok 28 ok 29 ok 30 - Chunked shouldn't be used in HTTP/1.0 ok 31 ok 32 ok 33 - Chunked shouldn't be used in HTTP/1.0 ok 34 ok 35 ok 36 - Chunked shouldn't be used in HTTP/1.0 1..36 ok t/Plack-Middleware/component-leak.t .................. ok 1 - $res has been released. ok 2 - $cb has been released. 1..2 ok 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 t/Plack-Middleware/error_document_streaming_app.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 # 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(0x555560) at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 104. # ok 2 - Response needs to be 3 element array, or 2 element in streaming at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 112. # ok 3 - Headers needs to be an array ref: HASH(0x555660) at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/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 /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 116. # ok 5 - Body must be bytes and should not contain wide characters (UTF-8 strings) at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 156. # ok 6 - Body should be an array ref or filehandle: HASH(0x555500) at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 7 - Body should be an array ref or filehandle: at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/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 /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/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 /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/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 /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 136. # ok 11 - Response headers MUST NOT contain a key named Status at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/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 /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 133. # ok 13 - Response headers MUST NOT contain characters below octal : Foo # Bar at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 139. # ok 14 - The number of response headers needs to be even, not odd(1) at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 125. # ok 15 - Body should be an array ref or filehandle: HASH(0x556000) at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 16 - Body should be an array ref or filehandle: at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 152. # ok 17 - Response headers MUST be a defined string at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/blib/lib/Plack/Middleware/Lint.pm line 142. # ok 18 - SCRIPT_NAME must not be / at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/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 t/Plack-Middleware/stacktrace/sigdie.t ............... ok 1 ok 2 1..2 ok t/Plack-Middleware/stacktrace/streaming.t ............ ok 1 ok 2 1..2 ok t/Plack-Middleware/stacktrace/utf8.t ................. ok 1 ok 2 ok 3 1..3 ok 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 t/Plack-Middleware/urlmap_ports.t .................... ok 1 1..1 ok Perl v5.8.0 required--this is only v5.6.1, stopped at /export/home/fly1232/var/megalib/constant.pm line 2. BEGIN failed--compilation aborted at /export/home/fly1232/var/megalib/constant.pm line 2. Compilation failed in require at /export/home/fly1232/var/megalib/CGI/Util.pm line 11. BEGIN failed--compilation aborted at /export/home/fly1232/var/megalib/CGI/Util.pm line 11. Compilation failed in require at /export/home/fly1232/var/megalib/CGI.pm line 11. BEGIN failed--compilation aborted at /export/home/fly1232/var/megalib/CGI.pm line 11. Compilation failed in require at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/t/Plack-Middleware/cgi-bin/cgi_dir.cgi line 2. BEGIN failed--compilation aborted at /data1/fly1232-var/cpan/build/Plack-1.0033-acKiZ_/t/Plack-Middleware/cgi-bin/cgi_dir.cgi line 2. # Failed test at t/Plack-Middleware/wrapcgi.t line 33. # got: '500' # expected: '200' # Failed test at t/Plack-Middleware/wrapcgi.t line 34. # got: ' # An Error Occurred # #

An Error Occurred

#

500 Internal Server Error

# # # ' # expected: 'MATCH' # Looks like you failed 2 tests of 6. t/Plack-Middleware/wrapcgi.t ......................... ok 1 ok 2 ok 3 ok 4 not ok 5 not ok 6 1..6 Dubious, test returned 2 (wstat 512, 0x200) Failed 2/6 subtests 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 t/Plack-Request/double_port.t ........................ ok 1 1..1 ok 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 t/Plack-Request/upload-large.t ....................... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 1..6 ok 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 t/Plack-Runner/path.t ................................ skipped: release test only 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 t/Plack-Test/2args.t ................................. ok 1 1..1 ok 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 t/Plack-Test/hello_server.t .......................... ok 1 ok 2 ok 3 1..3 ok t/Plack-Test/suite.t ................................. # SCRIPT_NAME ok 1 # GET ok 2 ok 3 ok 4 ok 5 # POST ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 # big POST ok 12 ok 13 ok 14 ok 15 ok 16 # psgi.url_scheme ok 17 ok 18 ok 19 ok 20 # return glob ok 21 ok 22 ok 23 ok 24 ok 25 # filehandle ok 26 ok 27 ok 28 ok 29 # bigger file ok 30 ok 31 ok 32 ok 33 ok 34 # handle HTTP-Header ok 35 ok 36 ok 37 ok 38 # handle HTTP-Cookie ok 39 ok 40 ok 41 ok 42 # validate env ok 43 ok 44 ok 45 ok 46 # % encoding in PATH_INFO ok 47 - PATH_INFO should be decoded per RFC 3875 # % double encoding in PATH_INFO ok 48 - PATH_INFO should be decoded only once, per RFC 3875 # % encoding in PATH_INFO (outside of URI characters) ok 49 # SERVER_PROTOCOL is required ok 50 ok 51 ok 52 ok 53 # SCRIPT_NAME should not be undef ok 54 # call close after read IO::Handle-like ok 55 - closed ok 56 # has errors ok 57 # status line ok 58 # Do not crash when the app dies ok 59 ok 60 # multi headers (request) ok 61 # multi headers (response) ok 62 # Do not set $env->{COOKIE} ok 63 ok 64 # no entity headers on 304 ok 65 ok 66 ok 67 ok 68 - No Content-Type ok 69 - No Content-Length ok 70 - No Transfer-Encoding # REQUEST_URI is set ok 71 # filehandle with path() ok 72 ok 73 ok 74 ok 75 # a big header value > 128 bytes ok 76 ok 77 ok 78 # coderef res ok 79 ok 80 ok 81 ok 82 # coderef streaming ok 83 ok 84 ok 85 ok 86 # CRLF output and FCGI parse bug ok 87 ok 88 # newlines ok 89 # test 404 ok 90 ok 91 ok 92 # request->input seekable ok 93 # request->content on GET ok 94 # handle Authorization header ok 95 ok 96 ok 97 ok 98 # repeated slashes ok 99 ok 100 ok 101 ok 102 1..102 ok 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 t/Plack-Util/response_cb.t ........................... ok 1 1..1 ok t/release-pod-syntax.t ............................... skipped: these tests are for release candidate testing Test Summary Report ------------------- t/Plack-Middleware/file.t (Wstat: 51200 Tests: 212 Failed: 200) Failed tests: 13-212 Non-zero exit status: 200 t/Plack-Middleware/wrapcgi.t (Wstat: 512 Tests: 6 Failed: 2) Failed tests: 5-6 Non-zero exit status: 2 Files=138, Tests=1329, 67 wallclock secs ( 1.82 usr 0.86 sys + 53.69 cusr 6.92 csys = 63.29 CPU) Result: FAIL Failed 2/138 test programs. 202/1329 subtests failed. make: *** [test_dynamic] Error 255 MIYAGAWA/Plack-1.0033.tar.gz 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 make for I/ID/IDOPEREL/McBain-WithPSGI-2.001000.tar.gz Has already been unwrapped into directory /export/home/fly1232/var/cpan/build/McBain-WithPSGI-2.001000-nELiey CPAN.pm: Building I/ID/IDOPEREL/McBain-WithPSGI-2.001000.tar.gz Warning: Prerequisite 'Plack => 1.0029' for 'IDOPEREL/McBain-WithPSGI-2.001000.tar.gz' failed when processing 'MIYAGAWA/Plack-1.0033.tar.gz' with 'make_test => NO'. Continuing, but chances to succeed are limited. >>> make cp lib/McBain/WithPSGI.pm blib/lib/McBain/WithPSGI.pm Manifying 1 pod document IDOPEREL/McBain-WithPSGI-2.001000.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 "/export/home/fly1232/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(1, 'blib/lib', 'blib/arch')" t/*.t # Testing McBain::WithPSGI 2.001, Perl 5.012004, /export/home/fly1232/bin/perl t/00-load.t ................ 1..1 ok 1 - use McBain::WithPSGI; ok Can't locate object method "create" via package "Plack::Test" at t/01-simple.t line 47. t/01-simple.t .............. Dubious, test returned 255 (wstat 65280, 0xff00) No subtests run t/release-dist-manifest.t .. skipped: these tests are for release candidate testing Test Summary Report ------------------- t/01-simple.t (Wstat: 65280 Tests: 0 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output Files=3, Tests=1, 1 wallclock secs ( 0.10 usr 0.03 sys + 0.86 cusr 0.09 csys = 1.08 CPU) Result: FAIL Failed 1/3 test programs. 0/1 subtests failed. make: *** [test_dynamic] Error 255 IDOPEREL/McBain-WithPSGI-2.001000.tar.gz make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports IDOPEREL/McBain-WithPSGI-2.001000.tar.gz Finished 2014-12-28T18:11:37