File | /data/SimpleDB-Client/author.t/01.HTTP.t |
Statements Executed | 18 |
Statement Execution Time | 15.0ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 4.92ms | 34.6ms | BEGIN@1 | main::
0 | 0 | 0 | 0s | 0s | RUNTIME | main::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | 3 | 171µs | 2 | 37.6ms | # spent 34.6ms (4.92+29.7) within main::BEGIN@1 which was called
# once (4.92ms+29.7ms) by main::RUNTIME at line 1 # spent 34.6ms making 1 call to main::BEGIN@1
# spent 2.97ms making 1 call to Test::Builder::Module::import |
2 | 3 | 14.7ms | 2 | 15.4ms | use lib '../lib'; # spent 15.3ms making 1 call to main::BEGIN@2
# spent 83µs making 1 call to lib::import |
3 | |||||
4 | 1 | 3µs | 1 | 511ms | use_ok('SimpleDB::Client'); # spent 511ms making 1 call to Test::More::use_ok |
5 | |||||
6 | 1 | 2µs | my $access = $ENV{AWS_ACCESS_KEY}; | ||
7 | 1 | 2µs | my $secret = $ENV{AWS_SECRET_ACCESS_KEY}; | ||
8 | |||||
9 | 1 | 500ns | unless (defined $access && defined $secret) { | ||
10 | die "You need to set environment variables AWS_ACCESS_KEY and AWS_SECRE_ACCESST_KEY to run these tests."; | ||||
11 | } | ||||
12 | |||||
13 | 1 | 4µs | 1 | 14.6ms | my $http = SimpleDB::Client->new(secret_key=>$secret, access_key=>$access); # spent 14.6ms making 1 call to SimpleDB::Client::new |
14 | 1 | 5µs | 1 | 559µs | isa_ok($http, 'SimpleDB::Client'); # spent 559µs making 1 call to Test::More::isa_ok |
15 | 1 | 15µs | 2 | 205ms | ok($http->send_request('CreateDomain',{DomainName=>'yyyy'}), 'try creating a domain'); # spent 204ms making 1 call to SimpleDB::Client::send_request
# spent 486µs making 1 call to Test::More::ok |
16 | |||||
17 | 1 | 4µs | 1 | 59.8ms | my $result = $http->send_request('ListDomains'); # spent 59.8ms making 1 call to SimpleDB::Client::send_request |
18 | 1 | 2µs | my $domains = $result->{ListDomainsResult}{DomainName}; | ||
19 | 1 | 2µs | unless (ref $domains eq 'ARRAY') { | ||
20 | $domains = [$domains]; | ||||
21 | } | ||||
22 | |||||
23 | 1 | 11µs | 1 | 414µs | ok(grep({$_ eq 'yyyy'} @{$domains}), 'got created domain'); # spent 414µs making 1 call to Test::More::ok |
24 | |||||
25 | 1 | 118µs | 1 | 103ms | $http->send_request('DeleteDomain', {DomainName=>'xxxx'}); # spent 103ms making 1 call to SimpleDB::Client::send_request |
26 |