view release on metacpan or  search on metacpan

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

  # query params must be sorted
  my $signed = $signer->sign(
    method => 'GET',
    url    => 'https://s3.amazonaws.com/bucket?prefix=foo&list-type=2&max-keys=10',
    time   => $TEST_TIME,
  );

  ok defined $signed->{Authorization}, 'signs URL with query string';

  # verify sorted order appears in signed headers
  # (we check that the signing didn't die and produced a signature)
  like $signed->{Authorization}, qr/Signature=[0-9a-f]{64}/, 'signature produced with query params';
};

########################################################################
# parse_service_url
########################################################################

subtest 'parse_service_url' => sub {
  # class method call