view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Makefile.PL
MANIFEST			This list of files
META.yml
README
t/01basic.t
t/02plain.t
t/03cgi.t
t/04redirect-plain.t
t/05redirect-cgi.t
t/06die.t
t/07binmode.t
t/08printf.t
t/conf/extra.conf.in
t/perl-bin/binmode.cgi
t/perl-bin/cgi.cgi
t/perl-bin/die.cgi
t/perl-bin/plain.cgi
t/perl-bin/printf.cgi
t/perl-bin/redirect-cgi.cgi
t/perl-bin/redirect-plain.cgi

t/07binmode.t  view on Meta::CPAN

use Apache::TestUtil;

plan tests => 12, (have_lwp && 
                   have_cgi && 
                   have_module(qw(MIME::Base64 mod_perl.c)));

my $image = MIME::Base64::decode_base64(do { local $/; <DATA> });

# mod_cgi
{
  my $url = '/cgi-bin/binmode.cgi';

  {
    my $response = GET $url;

    ok t_cmp(200,
             $response->code,
             'mod_cgi GET binmode.cgi returns 200');

    ok t_cmp($image,
             $response->content,
             'mod_cgi GET binmode.cgi returns content');
  }

  {
    my $response = HEAD $url;

    ok t_cmp(200,
             $response->code,
             'mod_cgi HEAD binmode.cgi returns 200');

    ok t_cmp('',
             $response->content,
             'mod_cgi HEAD binmode.cgi returns no content');
  }
}

# Apache::Registry
{
  my $url = '/perl-bin/binmode.cgi';

  {
    my $response = GET $url;

    ok t_cmp(200,
             $response->code,
             'Registry GET binmode.cgi returns 200');

    ok t_cmp($image,
             $response->content,
             'Registry GET binmode.cgi returns content');
  }

  {
    my $response = HEAD $url;

    ok t_cmp(200,
             $response->code,
             'Registry HEAD binmode.cgi returns 200');

    ok t_cmp($image,
             $response->content,
             'Registry HEAD binmode.cgi returns content (bad)');
  }
}

# HEADRegistry
{
  my $url = '/head-bin/binmode.cgi';

  {
    my $response = GET $url;

    ok t_cmp(200,
             $response->code,
             'HEADRegistry GET binmode.cgi returns 200');

    ok t_cmp($image,
             $response->content,
             'HEADRegistry GET binmode.cgi returns content');
  }

  {
    my $response = HEAD $url;

    ok t_cmp(200,
             $response->code,
             'HEADRegistry HEAD binmode.cgi returns 200');

    ok t_cmp('',
             $response->content,
             'HEADRegistry HEAD binmode.cgi returns no content');
  }
}

__END__
R0lGODlhFAAWAOMAAP////8zM8z//8zMzJmZmWZmZmYAADMzMwCZzACZMwAzZgAAAAAAAAAAAAAA
AAAAACH+TlRoaXMgYXJ0IGlzIGluIHRoZSBwdWJsaWMgZG9tYWluLiBLZXZpbiBIdWdoZXMsIGtl
dmluaEBlaXQuY29tLCBTZXB0ZW1iZXIgMTk5NQAh+QQBAAACACwAAAAAFAAWAAAEkPDISae4WBzA
u99Hdm1eSYYZWXYqOgJBLAcDoNrYNssGsBy/4GsX6y2OyMWQ2OMQngSlBjZLWBM1AFSqkyU4A2tW
ywUMYt/wlTSIvgYGA/Zq3QwU7mmHvh4g8GUsfAUHCH95NwMHV4SGh4EdihOOjy8rZpSVeiV+mYCW
HncKo6Sfm5cliAdQrK1PQBlJsrNSEQA7

t/perl-bin/binmode.cgi  view on Meta::CPAN

AAAAACH+TlRoaXMgYXJ0IGlzIGluIHRoZSBwdWJsaWMgZG9tYWluLiBLZXZpbiBIdWdoZXMsIGtl
dmluaEBlaXQuY29tLCBTZXB0ZW1iZXIgMTk5NQAh+QQBAAACACwAAAAAFAAWAAAEkPDISae4WBzA
u99Hdm1eSYYZWXYqOgJBLAcDoNrYNssGsBy/4GsX6y2OyMWQ2OMQngSlBjZLWBM1AFSqkyU4A2tW
ywUMYt/wlTSIvgYGA/Zq3QwU7mmHvh4g8GUsfAUHCH95NwMHV4SGh4EdihOOjy8rZpSVeiV+mYCW
HncKo6Sfm5cliAdQrK1PQBlJsrNSEQA7';

my $img = decode_base64($img64);

print "Content-type: image/gif\n\n";

binmode(STDOUT);

print $img;