From b9f46d97dd4248c8f1ff8a19e02f12e5f978520d Mon Sep 17 00:00:00 2001 From: des Date: Wed, 8 Aug 2007 11:00:26 +0000 Subject: [PATCH] Add three regression tests for POST request handling. All of them currently fail (see #47, #129). git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@1813 d4fa192b-c00b-0410-8231-f00ffab90ce4 --- .../regress/lib/Varnish/Test/Case/POST.pm | 108 ++++++++++++++++++ 1 file changed, 108 insertions(+) create mode 100644 varnish-tools/regress/lib/Varnish/Test/Case/POST.pm diff --git a/varnish-tools/regress/lib/Varnish/Test/Case/POST.pm b/varnish-tools/regress/lib/Varnish/Test/Case/POST.pm new file mode 100644 index 00000000..bcda2af4 --- /dev/null +++ b/varnish-tools/regress/lib/Varnish/Test/Case/POST.pm @@ -0,0 +1,108 @@ +#!/usr/bin/perl -w +#- +# Copyright (c) 2007 Linpro AS +# All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer +# in this position and unchanged. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# $Id$ +# + +package Varnish::Test::Case::POST; + +use strict; +use base 'Varnish::Test::Case'; + +our $DESCR = "Tests Varnish's ability to correctly pass POST requests" . + " to the backend, and their replies back to the client."; + +our $VCL = <new_client; + $self->post($client, "/pass_me", [], $MAGIC_WORDS); + $self->assert_ok(); + $self->assert_body(qr/\Q$MAGIC_WORDS\E/); + + return 'OK'; +} + +sub testPipePOST($) { + my ($self) = @_; + + my $client = $self->new_client; + $self->post($client, "/pipe_me", [], $MAGIC_WORDS); + $self->assert_ok(); + $self->assert_body(qr/\Q$MAGIC_WORDS\E/); + + return 'OK'; +} + +sub testCachePOST($) { + my ($self) = @_; + + my $client = $self->new_client; + + # Warm up the cache + $self->post($client, "/cache_me"); + $self->assert_ok(); + $self->assert_uncached(); + $self->assert_body(qr/\Q$NOTHING_HAPPENS\E/); + + # Verify that the request was cached + $self->post($client, "/cache_me"); + $self->assert_ok(); + $self->assert_cached(); + $self->assert_body(qr/\Q$NOTHING_HAPPENS\E/); + + return 'OK'; +} + +sub server_post($$$$) { + my ($self, $request, $response) = @_; + + if ($request->content()) { + $response->content("The Magic Words are " . $request->content()); + } else { + $response->content($NOTHING_HAPPENS); + } +} + +1; -- 2.39.5