From 9904c0e09fc6fbb502223ef0028eaed1f9acc529 Mon Sep 17 00:00:00 2001
From: William Cheng <wing328hk@gmail.com>
Date: Sat, 16 May 2015 15:37:58 +0800
Subject: [PATCH] add unit testing for pet

---
 samples/client/petstore/perl/t/01_pet_api.t | 59 +++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 samples/client/petstore/perl/t/01_pet_api.t

diff --git a/samples/client/petstore/perl/t/01_pet_api.t b/samples/client/petstore/perl/t/01_pet_api.t
new file mode 100644
index 00000000000..02a10544c57
--- /dev/null
+++ b/samples/client/petstore/perl/t/01_pet_api.t
@@ -0,0 +1,59 @@
+use Test::More tests => 25;
+use Test::Exception;
+
+use lib 'lib';
+use strict;
+use warnings;
+
+use_ok('WWW::SwaggerClient::PetApi');
+use_ok('WWW::SwaggerClient::APIClient');
+use_ok('WWW::SwaggerClient::Object::Pet');
+use_ok('WWW::SwaggerClient::Object::Tag');
+use_ok('WWW::SwaggerClient::Object::Category');
+my $api = WWW::SwaggerClient::PetApi->new();
+
+my $pet_id = 10008;
+
+my $category =  WWW::SwaggerClient::Object::Category->new('id' => '22', 'name' => 'perl');
+my $tag =  WWW::SwaggerClient::Object::Tag->new('id' => '11', 'name' => 'just kidding');
+my $pet =  WWW::SwaggerClient::Object::Pet->new('id' => $pet_id, 'name' => 'perl test',
+      "photoUrls" => ['123', 'oop'], 'tags' => [$tag], 'status' => 'pending', 'category' => $category);
+
+isa_ok($api, 'WWW::SwaggerClient::PetApi');
+isa_ok($category, 'WWW::SwaggerClient::Object::Category');
+isa_ok($tag, 'WWW::SwaggerClient::Object::Tag');
+isa_ok($pet, 'WWW::SwaggerClient::Object::Pet');
+
+my $pet_hash = $pet->to_hash;
+
+is $pet_hash->{category}->{id}, '22', 'get the proper category id';
+is $pet_hash->{category}->{name}, 'perl', 'get the proper category name';
+is $pet_hash->{tags}[0]->{name}, 'just kidding', 'get the proper tag name';
+is $pet_hash->{tags}[0]->{id}, '11', 'get the proper tag id';
+
+my $add_pet = $api->add_pet(body => $pet);
+
+my $get_pet = $api->get_pet_by_id(pet_id => $pet_id);
+my $get_pet_hash = $get_pet->to_hash;
+is $get_pet_hash->{name}, 'perl test', 'get the proper pet name from get_pet_by_id';
+is $get_pet_hash->{id}, '10008', 'get the proper pet id from get_pet_by_id';
+is $get_pet_hash->{category}->{name}, 'perl', 'get the proper category name from get_pet_by_id';
+is $get_pet_hash->{category}->{id}, '22', 'get the proper category id from get_pet_by_id';
+is $get_pet_hash->{category}->{name}, 'perl', 'get the proper category from get_pet_by_id';
+is $get_pet_hash->{tags}[0]->{name}, 'just kidding', 'get the proper tag from get_pet_by_id';
+is $get_pet_hash->{tags}[0]->{id}, '11', 'get the proper tag id from get_pet_by_id';
+
+my $update_pet_with_form = $api->update_pet_with_form(pet_id => $pet_id, name => 'test_name', status => 'sold');
+is $update_pet_with_form, undef, 'get the null response from update_pet_wth_form';
+
+my $get_pet_after_update = $api->get_pet_by_id(pet_id => $pet_id);
+is $get_pet_after_update->{status}, 'sold', 'get the updated status after update_pet_with_form';
+
+my $upload_pet = $api->upload_file(pet_id => $pet_id, additional_metadata => 'testabc', file => 'test.pl');
+is $upload_pet, undef, 'get the null response from upload_pet';
+
+my $delete_pet = $api->delete_pet(pet_id => $pet_id);
+is $delete_pet, undef, 'get the null response from delete_pet';
+throws_ok{$api->get_pet_by_id(pet_id => $pet_id)} qr/API Exception\(404\): Not Found/, "throw 404 error about pet not found after delete";
+#is $get_pet_after_delete->{status}, undef, 'get the updated status after update_pet_with_form';
+