File: lowercase-headers.t

package info (click to toggle)
libwebservice-s3-tiny-perl 0.003-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 852 kB
  • sloc: perl: 137; sh: 5; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 378 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use strict;
use warnings;

use Test::More;
use WebService::S3::Tiny;

{
    no warnings 'redefine';

    *HTTP::Tiny::request = sub { \@_ };
}

my $s3 = WebService::S3::Tiny->new(
    access_key => 1,
    host       => 1,
    secret_key => 1,
);

my $req = $s3->put_object( foo => 'bar', 'baz', { 'Foo-Bar' => 'Baz' } );

is $req->[3]{headers}{'foo-bar'}, 'Baz';

done_testing;