Quick & dirty Varnish test script using Test::Varnish

test_varnish.pl

#!/opt/local/bin/perl

use Test::More;
use Test::Varnish;

$url = 'FIXME';
$num_runs = 10;
plan tests => $num_runs;

my $tv = Test::Varnish->new({verbose => 1});

$i = 0;
while ($i < $num_runs) {
  $tv->is_cached({ url => $url }, 'Varnish active?');
  $i++;
}