view release on metacpan or  search on metacpan

t/01-signature4-lite.t  view on Meta::CPAN

    url     => 'https://s3.amazonaws.com/bucket/key',
    headers => {
      'Content-Type' => 'application/gzip',
      'x-amz-acl'    => 'private',
    },
    time => $TEST_TIME,
  );

  is $signed->{'Content-Type'}, 'application/gzip', 'Content-Type passed through';
  is $signed->{'x-amz-acl'},    'private',          'x-amz-acl passed through';
  like $signed->{Authorization}, qr/content-type/, 'Content-Type in SignedHeaders';
  like $signed->{Authorization}, qr/x-amz-acl/,    'x-amz-acl in SignedHeaders';
};

########################################################################
# error handling
########################################################################

subtest 'error handling' => sub {
  my $signer = new_signer();