diff options
Diffstat (limited to 'debian/vendor-h2o/t/50expires.t')
-rw-r--r-- | debian/vendor-h2o/t/50expires.t | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/debian/vendor-h2o/t/50expires.t b/debian/vendor-h2o/t/50expires.t deleted file mode 100644 index d5c2570..0000000 --- a/debian/vendor-h2o/t/50expires.t +++ /dev/null @@ -1,47 +0,0 @@ -use strict; -use warnings; -use Test::More; -use t::Util; - -plan skip_all => 'curl not found' - unless prog_exists('curl'); - -sub fetch { - my $extra_conf = shift; - my $server = spawn_h2o(<< "EOT"); -hosts: - default: - paths: - /: - file.dir: examples/doc_root -$extra_conf -EOT - return `curl --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/ 2>&1 > /dev/null`; -} - - -my $resp = fetch(''); -unlike $resp, qr/^cache-control:.*\Wmax-age/im, "off by default"; - -$resp = fetch(<< 'EOT'); -expires: OFF -EOT -unlike $resp, qr/^cache-control:.*\Wmax-age/im, "explicitly turned off"; - -$resp = fetch(<< 'EOT'); -expires: 1 day -EOT -like $resp, qr/^cache-control:.*\Wmax-age=86400\W/im, "expires 1 day"; - -$resp = fetch(<< 'EOT'); -expires: 1 month -EOT -like $resp, qr/^cache-control:.*\Wmax-age=2592000\W/im, "expires 1 month"; - -$resp = fetch(<< 'EOT'); - expires: OFF -expires: 1 day -EOT -unlike $resp, qr/^cache-control:.*\Wmax-age/im, "on at global, off at path-level"; - -done_testing(); |