File: test-helper-s3-client.pl

package info (click to toggle)
libnet-amazon-s3-perl 0.991-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,620 kB
  • sloc: perl: 9,906; makefile: 20
file content (28 lines) | stat: -rw-r--r-- 451 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 

use strict;
use warnings;

use FindBin;
use lib $FindBin::Bin;

BEGIN { require "test-helper-common.pl" }
BEGIN { require "test-helper-errors.pl" }

use HTTP::Status qw[ HTTP_OK ];

use Shared::Examples::Net::Amazon::S3::Client (
	qw[ fixture ],
	qw[ with_response_fixture ],
);

use Shared::Examples::Net::Amazon::S3 (
	qw[ s3_api_with_signature_2 ],
);

sub expect_error {
	my ($code, $message) = @_;

	+( throws => qr/^${code}: $message/ );
}

1;