view release on metacpan or  search on metacpan

t/TEST.PL  view on Meta::CPAN

#file:t/TEST.PL
#--------------
#!perl

use strict;
use warnings FATAL => 'all';

use lib qw(lib t);

use Apache::TestRunPerl ();

my $I=Apache::TestRunPerl->new;

$I->run(@ARGV);

t/session/012storeclient.t  view on Meta::CPAN

  }
}

sub t_read_file {
  local $/;
  open my $f, '<'.$_[0] or die "ERROR: Cannot open $_[0]: $!\n";
  return scalar <$f>;
}

Apache::TestUtil::t_write_perl_script 't/htdocs/bin/storeclient.pl', <<'EOF';
use lib qw{../../../blib/arch ../../../blib/lib};

use Apache2::ClickPath::StoreClient;

my $ctx=Apache2::ClickPath::StoreClient->new;

if( $ENV{QUERY_STRING} eq 'add' ) {
  my $v=$ctx->get( 'value' );
  $v++;
  $ctx->set( value=>$v );
  print "Content-Type: text/plain\n\n$v";