view release on metacpan or  search on metacpan

t/Google-OAuth.t  view on Meta::CPAN

ok( linkcompare( $event, $test[4] ), 'CGI::Simple object' ) ;

my $tqis = 'http://www.tqis.com/pen/GoogleAuth/test.htm' ;

is( $token->response( GET => $tqis )->code, 200, 'token response GET' ) ;

my $request = $token->request( POST => $tqis, $event ) ;

my @headers = %{ $request->headers } ;
my %headers = map { $_ => 1 } (
  'content-type',
  'application/x-www-form-urlencoded',
  'content-length',
  '319',
  'authorization',
  'Bearer ya29.Et6DoQjLzjpioHPGbMyDeGfUS00SuTlIrIsZE_FIDzXtU0IJ1-AnAg'
  ) ;
map { delete $headers{$_} } @headers ;

is( @headers, 6, 'POST request header keys' ) ;
is( keys %headers, 0, 'POST request header values' ) ;