view release on metacpan or  search on metacpan

t/010-coverage/070-response.t  view on Meta::CPAN

  local $api->context->{_did_send_headers};
  
  is( $api->context->response->Expires => 0, 'response.expires defaults to 0' );
  ok( my $orig_absolute = $api->context->response->ExpiresAbsolute, 'Got response.ExpiresAbsolute' );
  ok( $api->context->response->Expires( -5 ), 'Changed response.exires to -5' );
  is( $api->context->response->Expires => -5, 'response.expires changed to -5' );
  isnt( $api->context->response->ExpiresAbsolute, $orig_absolute, 'response.ExpiresAbsolute changed' );
}


# Redirect:
{
  local $api->context->{_did_send_headers};
  
  ok( my $val = $api->context->response->Redirect('/other.asp'), 'redirected' );
  is( $val => 302, 'response.redirect returns 302' );
  
  eval {
    $api->context->response->Redirect('/fail.asp');
  };
  ok( $@, 'respons.redirect again threw exception' );
  like $@,
        qr/Response\.Redirect cannot be called after headers have been sent/,
        'exception looks right';
}


# Include after the request ended:
{
  # Should NOT throw exception:
  eval {
    $api->context->response->Include( $api->context->server->MapPath('/inc.asp' ) );
  };
  ok( ! $@, 'no exception thrown' );
}


# TrapInclude(1):
{
  # Should NOT throw exception:
  eval {
    $api->context->response->TrapInclude( $api->context->server->MapPath('/inc.asp' ) );
  };
  ok( ! $@, 'no exception thrown' );
}


# TrapInclude(2):
{
  local $api->context->{did_end};
  ok(
    my $res = $api->context->response->TrapInclude( $api->context->server->MapPath('/inc.asp' ) ),
    'got response.trapinclude content'
  );
  like  $res,
        qr/\s+Included\! 1\:2\:3\:4\:5\:6\:7\:8\:9\:10\s+/,
        'TrapInclude content looks right';
}


# Cookies:
{
  is( $api->context->response->Cookies => undef, 'response.cookies starts out undef' );
  
  $api->context->response->AddCookie(
    'test-cookie' => '123'
  );
  like(
    $api->context->response->Cookies, qr/test\-cookie\=123; path\=\/; expires\=.*?\s+GMT/i,
    'response.Cookies looks right after adding a single cookie'
  );
  $api->context->response->AddCookie(
    'another-cookie' => 'foobar'
  );
  
  # Now we should have an arrayref of cookies:
  is(
    ref($api->context->response->Cookies) => 'ARRAY',
    'two cookies makes an array'
  );
  like(
    $api->context->response->Cookies->[0], qr/test\-cookie\=123; path\=\/; expires\=.*?\s+GMT/i,
    'The first cookie is in the first position'
  );
  like(
    $api->context->response->Cookies->[1], qr/another\-cookie\=foobar; path\=\/; expires\=.*?\s+GMT/i,
    'The second cookie is in the second position'
  );
  
  # Test out the other options:
  $api->context->response->AddCookie(
    'path-cookie' => 'pathtest' => '/path/'
  );
  like(
    $api->context->response->Cookies->[2], qr/path\-cookie\=pathtest; path\=\/path\/; expires\=.*?\s+GMT/i,
    'Path cookie looks right and is in the correct position'
  );
  my $five_minutes = time2str( time() + 300 );
  $api->context->response->AddCookie(
    'expire-cookie' => 'expiretest' => '/expires/' => time() + 300
  );
  is(
    $api->context->response->Cookies->[3], "expire-cookie=expiretest; path=/expires/; expires=$five_minutes",
    'Expiration cookie looks right and is in the correct position'
  );
  
}




# DeleteHeader:
{
  $api->context->response->AddHeader( 'removable' => 'test' );
  is( $api->context->response->Headers->{removable} => 'test' );
  $api->context->response->DeleteHeader( 'removable' );
  is( $api->context->response->Headers->{removable} => undef );
}


# IsClientConnected
{
  ok( ! $api->context->response->IsClientConnected, 'response.IsClientConnected is false' );
  local $api->context->{did_end};
  ok( $api->context->response->IsClientConnected, 'response.IsClientConnected is true' );
  
}


# AddHeader:
{
  $api->context->response->AddHeader( );
  $api->context->response->AddHeader( name => undef );
  $api->context->response->AddHeader( undef => undef );
  $api->context->response->AddHeader( undef => 'true' );
}