add oauth2 support for Perl

This commit is contained in:
wing328
2015-11-05 16:32:46 +08:00
parent 30a4be833b
commit 4bfc032a64
5 changed files with 17 additions and 8 deletions

View File

@@ -1,4 +1,4 @@
use Test::More tests => 42;
use Test::More tests => 41;
use Test::Exception;
use lib 'lib';
@@ -22,7 +22,8 @@ is $store_api->{api_client}->{base_url}, 'http://petstore.swagger.io/v2', 'get t
my $get_inventory_response = $store_api->get_inventory();
like ($get_inventory_response->{pending}, qr/^\d+$/, "pending is numeric");
# comment out pending check as sometimes there's no object with pending status
#like ($get_inventory_response->{pending}, qr/^\d+$/, "pending is numeric");
like ($get_inventory_response->{sold}, qr/^\d+$/, "sold is numeric");
my $pet_json = <<JSON;