loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

[Perl] minor improvements (#8967)

Browse Source 
* update perl readme, test files

* update perl test files

* update readme
This commit is contained in:
William Cheng 2021-03-13 21:48:00 +08:00 committed by GitHub
parent 030cabc1cc
commit 4e2ece4b51
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
78 changed files with 389 additions and 1125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
modules/openapi-generator/src/main/resources/perl/README.mustache vendored
View File

@ -223,6 +223,15 @@ spec. If so, this is available via the `class_documentation()` and
Each of these calls returns a hashref with various useful pieces of information. Each of these calls returns a hashref with various useful pieces of information.
# Installation Prerequisites
Use [cpanm](https://metacpan.org/pod/distribution/App-cpanminus/bin/cpanm) to install the module dependencies:
```
cpanm --local-lib=~/perl5 local::lib && eval $(perl -I ~/perl5/lib/perl5/ -Mlocal::lib)
cpanm --quiet --no-interactive Class::Accessor Test::Exception Test::More Log::Any LWP::UserAgent URI::Query Module::Runtime DateTime Module::Find Moose::Role JSON
```
# LOAD THE MODULES # LOAD THE MODULES
To load the API packages: To load the API packages:
@ -252,19 +261,27 @@ use warnings;
{{/model}}{{/models}} {{/model}}{{/models}}
# for displaying the API response data # for displaying the API response data
use Data::Dumper; use Data::Dumper;
use {{moduleName}}::{{classname}};
{{#apiInfo}}{{#apis}}{{#-first}}{{#operations}}{{#operation}}{{#-first}}
my $api_instance = {{moduleName}}::{{classname}}->new( my $api_instance = {{moduleName}}::{{classname}}->new(
{{#apiInfo}}{{#apis}}{{#-first}}{{#operations}}{{#operation}}{{#-first}}{{#hasAuthMethods}}{{#authMethods}}{{#isBasic}} {{#hasAuthMethods}}
{{#authMethods}}
{{#isBasic}}
# Configure HTTP basic authorization: {{{name}}} # Configure HTTP basic authorization: {{{name}}}
username => 'YOUR_USERNAME', username => 'YOUR_USERNAME',
password => 'YOUR_PASSWORD',{{/isBasic}}{{#isApiKey}} password => 'YOUR_PASSWORD',
{{/isBasic}}
{{#isApiKey}}
# Configure API key authorization: {{{name}}} # Configure API key authorization: {{{name}}}
api_key => {'{{{keyParamName}}}' => 'YOUR_API_KEY'}, api_key => {'{{{keyParamName}}}' => 'YOUR_API_KEY'},
# uncomment below to setup prefix (e.g. Bearer) for API key, if needed # uncomment below to setup prefix (e.g. Bearer) for API key, if needed
#api_key_prefix => {'{{{keyParamName}}}' => 'Bearer'},{{/isApiKey}}{{#isOAuth}} #api_key_prefix => {'{{{keyParamName}}}' => 'Bearer'},
{{/isApiKey}}
{{#isOAuth}}
# Configure OAuth2 access token for authorization: {{{name}}} # Configure OAuth2 access token for authorization: {{{name}}}
access_token => 'YOUR_ACCESS_TOKEN',{{/isOAuth}}{{/authMethods}} access_token => 'YOUR_ACCESS_TOKEN',
{{/isOAuth}}
{{/authMethods}}
{{/hasAuthMethods}} {{/hasAuthMethods}}
); );

10
modules/openapi-generator/src/main/resources/perl/api_test.mustache vendored
View File

@ -21,13 +21,11 @@ isa_ok($api, '{{moduleName}}::{{classname}}');
# #
# {{{nickname}}} test # {{{nickname}}} test
# #
{ # uncomment below and update the test
{{#allParams}} my ${{paramName}} = undef; # replace NULL with a proper value {{#allParams}}
#my ${{nickname}}_{{paramName}} = undef; # replace NULL with a proper value
{{/allParams}} {{/allParams}}
my $result = $api->{{nickname}}({{#allParams}}{{paramName}} => ${{paramName}}{{^-last}}, {{/-last}}{{/allParams}}); #my ${{nickname}}_result = $api->{{nickname}}({{#allParams}}{{paramName}} => ${{nickname}}_{{paramName}}{{^-last}}, {{/-last}}{{/allParams}});
}
{{/operation}} {{/operation}}
{{/operations}} {{/operations}}
1;

7
modules/openapi-generator/src/main/resources/perl/object_test.mustache vendored
View File

@ -16,9 +16,10 @@ use warnings;
use_ok('{{moduleName}}::Object::{{classname}}'); use_ok('{{moduleName}}::Object::{{classname}}');
my $instance = {{moduleName}}::Object::{{classname}}->new(); # uncomment below and update the test
#my $instance = {{moduleName}}::Object::{{classname}}->new();
isa_ok($instance, '{{moduleName}}::Object::{{classname}}'); #
#isa_ok($instance, '{{moduleName}}::Object::{{classname}}');
{{/model}} {{/model}}
{{/models}} {{/models}}

13
samples/client/petstore/perl/README.md
View File

@ -217,6 +217,15 @@ spec. If so, this is available via the `class_documentation()` and
Each of these calls returns a hashref with various useful pieces of information. Each of these calls returns a hashref with various useful pieces of information.
# Installation Prerequisites
Use [cpanm](https://metacpan.org/pod/distribution/App-cpanminus/bin/cpanm) to install the module dependencies:
```
cpanm --local-lib=~/perl5 local::lib && eval $(perl -I ~/perl5/lib/perl5/ -Mlocal::lib)
cpanm --quiet --no-interactive Class::Accessor Test::Exception Test::More Log::Any LWP::UserAgent URI::Query Module::Runtime DateTime Module::Find Moose::Role JSON
```
# LOAD THE MODULES # LOAD THE MODULES
To load the API packages: To load the API packages:
@ -344,9 +353,9 @@ use WWW::OpenAPIClient::Object::User;
# for displaying the API response data # for displaying the API response data
use Data::Dumper; use Data::Dumper;
use WWW::OpenAPIClient::;
my $api_instance = WWW::OpenAPIClient::->new(
my $api_instance = WWW::OpenAPIClient::AnotherFakeApi->new(
); );
my $client = WWW::OpenAPIClient::Object::Client->new(); # Client | client model my $client = WWW::OpenAPIClient::Object::Client->new(); # Client | client model

33
samples/client/petstore/perl/t/AdditionalPropertiesAnyTypeTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesAnyType');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesAnyType->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesAnyType');

33
samples/client/petstore/perl/t/AdditionalPropertiesArrayTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesArray');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesArray->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesArray');

33
samples/client/petstore/perl/t/AdditionalPropertiesBooleanTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesBoolean');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesBoolean->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesBoolean');

7
samples/client/petstore/perl/t/AdditionalPropertiesClassTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesClass'); use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesClass');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesClass->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesClass->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesClass'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesClass');

33
samples/client/petstore/perl/t/AdditionalPropertiesIntegerTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesInteger');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesInteger->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesInteger');

33
samples/client/petstore/perl/t/AdditionalPropertiesNumberTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesNumber');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesNumber->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesNumber');

33
samples/client/petstore/perl/t/AdditionalPropertiesObjectTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesObject');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesObject->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesObject');

33
samples/client/petstore/perl/t/AdditionalPropertiesStringTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::AdditionalPropertiesString');
my $instance = WWW::OpenAPIClient::Object::AdditionalPropertiesString->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::AdditionalPropertiesString');

33
samples/client/petstore/perl/t/AdultTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::Adult');
my $instance = WWW::OpenAPIClient::Object::Adult->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Adult');

7
samples/client/petstore/perl/t/AnimalTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Animal'); use_ok('WWW::OpenAPIClient::Object::Animal');
my $instance = WWW::OpenAPIClient::Object::Animal->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Animal->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Animal'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Animal');

9
samples/client/petstore/perl/t/AnotherFakeApiTest.t
View File

@ -32,10 +32,7 @@ isa_ok($api, 'WWW::OpenAPIClient::AnotherFakeApi');
# #
# call_123_test_special_tags test # call_123_test_special_tags test
# #
{ # uncomment below and update the test
my $body = undef; # replace NULL with a proper value #my $call_123_test_special_tags_client = undef; # replace NULL with a proper value
my $result = $api->call_123_test_special_tags(body => $body); #my $call_123_test_special_tags_result = $api->call_123_test_special_tags(client => $call_123_test_special_tags_client);
}
1;

7
samples/client/petstore/perl/t/ApiResponseTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ApiResponse'); use_ok('WWW::OpenAPIClient::Object::ApiResponse');
my $instance = WWW::OpenAPIClient::Object::ApiResponse->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ApiResponse->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ApiResponse'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ApiResponse');

7
samples/client/petstore/perl/t/ArrayOfArrayOfNumberOnlyTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly'); use_ok('WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly');
my $instance = WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ArrayOfArrayOfNumberOnly');

7
samples/client/petstore/perl/t/ArrayOfNumberOnlyTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ArrayOfNumberOnly'); use_ok('WWW::OpenAPIClient::Object::ArrayOfNumberOnly');
my $instance = WWW::OpenAPIClient::Object::ArrayOfNumberOnly->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ArrayOfNumberOnly->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ArrayOfNumberOnly'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ArrayOfNumberOnly');

7
samples/client/petstore/perl/t/ArrayTestTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ArrayTest'); use_ok('WWW::OpenAPIClient::Object::ArrayTest');
my $instance = WWW::OpenAPIClient::Object::ArrayTest->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ArrayTest->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ArrayTest'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ArrayTest');

33
samples/client/petstore/perl/t/BigCatAllOfTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::BigCatAllOf');
my $instance = WWW::OpenAPIClient::Object::BigCatAllOf->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::BigCatAllOf');

33
samples/client/petstore/perl/t/BigCatTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::BigCat');
my $instance = WWW::OpenAPIClient::Object::BigCat->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::BigCat');

7
samples/client/petstore/perl/t/CapitalizationTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Capitalization'); use_ok('WWW::OpenAPIClient::Object::Capitalization');
my $instance = WWW::OpenAPIClient::Object::Capitalization->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Capitalization->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Capitalization'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Capitalization');

7
samples/client/petstore/perl/t/CatAllOfTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::CatAllOf'); use_ok('WWW::OpenAPIClient::Object::CatAllOf');
my $instance = WWW::OpenAPIClient::Object::CatAllOf->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::CatAllOf->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::CatAllOf'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::CatAllOf');

7
samples/client/petstore/perl/t/CatTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Cat'); use_ok('WWW::OpenAPIClient::Object::Cat');
my $instance = WWW::OpenAPIClient::Object::Cat->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Cat->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Cat'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Cat');

7
samples/client/petstore/perl/t/CategoryTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Category'); use_ok('WWW::OpenAPIClient::Object::Category');
my $instance = WWW::OpenAPIClient::Object::Category->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Category->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Category'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Category');

33
samples/client/petstore/perl/t/ChildTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::Child');
my $instance = WWW::OpenAPIClient::Object::Child->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Child');

7
samples/client/petstore/perl/t/ClassModelTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ClassModel'); use_ok('WWW::OpenAPIClient::Object::ClassModel');
my $instance = WWW::OpenAPIClient::Object::ClassModel->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ClassModel->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ClassModel'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ClassModel');

7
samples/client/petstore/perl/t/ClientTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Client'); use_ok('WWW::OpenAPIClient::Object::Client');
my $instance = WWW::OpenAPIClient::Object::Client->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Client->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Client'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Client');

9
samples/client/petstore/perl/t/DefaultApiTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -32,9 +32,6 @@ isa_ok($api, 'WWW::OpenAPIClient::DefaultApi');
# #
# foo_get test # foo_get test
# #
{ # uncomment below and update the test
my $result = $api->foo_get(); #my $foo_get_result = $api->foo_get();
}
1;

7
samples/client/petstore/perl/t/DogAllOfTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::DogAllOf'); use_ok('WWW::OpenAPIClient::Object::DogAllOf');
my $instance = WWW::OpenAPIClient::Object::DogAllOf->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::DogAllOf->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::DogAllOf'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::DogAllOf');

7
samples/client/petstore/perl/t/DogTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Dog'); use_ok('WWW::OpenAPIClient::Object::Dog');
my $instance = WWW::OpenAPIClient::Object::Dog->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Dog->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Dog'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Dog');

7
samples/client/petstore/perl/t/EnumArraysTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::EnumArrays'); use_ok('WWW::OpenAPIClient::Object::EnumArrays');
my $instance = WWW::OpenAPIClient::Object::EnumArrays->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::EnumArrays->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::EnumArrays'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::EnumArrays');

7
samples/client/petstore/perl/t/EnumClassTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::EnumClass'); use_ok('WWW::OpenAPIClient::Object::EnumClass');
my $instance = WWW::OpenAPIClient::Object::EnumClass->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::EnumClass->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::EnumClass'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::EnumClass');

7
samples/client/petstore/perl/t/EnumTestTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::EnumTest'); use_ok('WWW::OpenAPIClient::Object::EnumTest');
my $instance = WWW::OpenAPIClient::Object::EnumTest->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::EnumTest->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::EnumTest'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::EnumTest');

178
samples/client/petstore/perl/t/FakeApiTest.t
View File

@ -32,154 +32,144 @@ isa_ok($api, 'WWW::OpenAPIClient::FakeApi');
# #
# fake_health_get test # fake_health_get test
# #
{ # uncomment below and update the test
my $result = $api->fake_health_get(); #my $fake_health_get_result = $api->fake_health_get();
}
# #
# fake_http_signature_test test # fake_http_signature_test test
# #
{ # uncomment below and update the test
my $pet = undef; # replace NULL with a proper value #my $fake_http_signature_test_pet = undef; # replace NULL with a proper value
my $query_1 = undef; # replace NULL with a proper value #my $fake_http_signature_test_query_1 = undef; # replace NULL with a proper value
my $header_1 = undef; # replace NULL with a proper value #my $fake_http_signature_test_header_1 = undef; # replace NULL with a proper value
my $result = $api->fake_http_signature_test(pet => $pet, query_1 => $query_1, header_1 => $header_1); #my $fake_http_signature_test_result = $api->fake_http_signature_test(pet => $fake_http_signature_test_pet, query_1 => $fake_http_signature_test_query_1, header_1 => $fake_http_signature_test_header_1);
}
# #
# fake_outer_boolean_serialize test # fake_outer_boolean_serialize test
# #
{ # uncomment below and update the test
my $body = undef; # replace NULL with a proper value #my $fake_outer_boolean_serialize_body = undef; # replace NULL with a proper value
my $result = $api->fake_outer_boolean_serialize(body => $body); #my $fake_outer_boolean_serialize_result = $api->fake_outer_boolean_serialize(body => $fake_outer_boolean_serialize_body);
}
# #
# fake_outer_composite_serialize test # fake_outer_composite_serialize test
# #
{ # uncomment below and update the test
my $outer_composite = undef; # replace NULL with a proper value #my $fake_outer_composite_serialize_outer_composite = undef; # replace NULL with a proper value
my $result = $api->fake_outer_composite_serialize(outer_composite => $outer_composite); #my $fake_outer_composite_serialize_result = $api->fake_outer_composite_serialize(outer_composite => $fake_outer_composite_serialize_outer_composite);
}
# #
# fake_outer_number_serialize test # fake_outer_number_serialize test
# #
{ # uncomment below and update the test
my $body = undef; # replace NULL with a proper value #my $fake_outer_number_serialize_body = undef; # replace NULL with a proper value
my $result = $api->fake_outer_number_serialize(body => $body); #my $fake_outer_number_serialize_result = $api->fake_outer_number_serialize(body => $fake_outer_number_serialize_body);
}
# #
# fake_outer_string_serialize test # fake_outer_string_serialize test
# #
{ # uncomment below and update the test
my $body = undef; # replace NULL with a proper value #my $fake_outer_string_serialize_body = undef; # replace NULL with a proper value
my $result = $api->fake_outer_string_serialize(body => $body); #my $fake_outer_string_serialize_result = $api->fake_outer_string_serialize(body => $fake_outer_string_serialize_body);
}
#
# fake_property_enum_integer_serialize test
#
# uncomment below and update the test
#my $fake_property_enum_integer_serialize_outer_object_with_enum_property = undef; # replace NULL with a proper value
#my $fake_property_enum_integer_serialize_result = $api->fake_property_enum_integer_serialize(outer_object_with_enum_property => $fake_property_enum_integer_serialize_outer_object_with_enum_property);
# #
# test_body_with_file_schema test # test_body_with_file_schema test
# #
{ # uncomment below and update the test
my $file_schema_test_class = undef; # replace NULL with a proper value #my $test_body_with_file_schema_file_schema_test_class = undef; # replace NULL with a proper value
my $result = $api->test_body_with_file_schema(file_schema_test_class => $file_schema_test_class); #my $test_body_with_file_schema_result = $api->test_body_with_file_schema(file_schema_test_class => $test_body_with_file_schema_file_schema_test_class);
}
# #
# test_body_with_query_params test # test_body_with_query_params test
# #
{ # uncomment below and update the test
my $query = undef; # replace NULL with a proper value #my $test_body_with_query_params_query = undef; # replace NULL with a proper value
my $user = undef; # replace NULL with a proper value #my $test_body_with_query_params_user = undef; # replace NULL with a proper value
my $result = $api->test_body_with_query_params(query => $query, user => $user); #my $test_body_with_query_params_result = $api->test_body_with_query_params(query => $test_body_with_query_params_query, user => $test_body_with_query_params_user);
}
# #
# test_client_model test # test_client_model test
# #
{ # uncomment below and update the test
my $client = undef; # replace NULL with a proper value #my $test_client_model_client = undef; # replace NULL with a proper value
my $result = $api->test_client_model(client => $client); #my $test_client_model_result = $api->test_client_model(client => $test_client_model_client);
}
# #
# test_endpoint_parameters test # test_endpoint_parameters test
# #
{ # uncomment below and update the test
my $number = undef; # replace NULL with a proper value #my $test_endpoint_parameters_number = undef; # replace NULL with a proper value
my $double = undef; # replace NULL with a proper value #my $test_endpoint_parameters_double = undef; # replace NULL with a proper value
my $pattern_without_delimiter = undef; # replace NULL with a proper value #my $test_endpoint_parameters_pattern_without_delimiter = undef; # replace NULL with a proper value
my $byte = undef; # replace NULL with a proper value #my $test_endpoint_parameters_byte = undef; # replace NULL with a proper value
my $integer = undef; # replace NULL with a proper value #my $test_endpoint_parameters_integer = undef; # replace NULL with a proper value
my $int32 = undef; # replace NULL with a proper value #my $test_endpoint_parameters_int32 = undef; # replace NULL with a proper value
my $int64 = undef; # replace NULL with a proper value #my $test_endpoint_parameters_int64 = undef; # replace NULL with a proper value
my $float = undef; # replace NULL with a proper value #my $test_endpoint_parameters_float = undef; # replace NULL with a proper value
my $string = undef; # replace NULL with a proper value #my $test_endpoint_parameters_string = undef; # replace NULL with a proper value
my $binary = undef; # replace NULL with a proper value #my $test_endpoint_parameters_binary = undef; # replace NULL with a proper value
my $date = undef; # replace NULL with a proper value #my $test_endpoint_parameters_date = undef; # replace NULL with a proper value
my $date_time = undef; # replace NULL with a proper value #my $test_endpoint_parameters_date_time = undef; # replace NULL with a proper value
my $password = undef; # replace NULL with a proper value #my $test_endpoint_parameters_password = undef; # replace NULL with a proper value
my $callback = undef; # replace NULL with a proper value #my $test_endpoint_parameters_callback = undef; # replace NULL with a proper value
my $result = $api->test_endpoint_parameters(number => $number, double => $double, pattern_without_delimiter => $pattern_without_delimiter, byte => $byte, integer => $integer, int32 => $int32, int64 => $int64, float => $float, string => $string, binary => $binary, date => $date, date_time => $date_time, password => $password, callback => $callback); #my $test_endpoint_parameters_result = $api->test_endpoint_parameters(number => $test_endpoint_parameters_number, double => $test_endpoint_parameters_double, pattern_without_delimiter => $test_endpoint_parameters_pattern_without_delimiter, byte => $test_endpoint_parameters_byte, integer => $test_endpoint_parameters_integer, int32 => $test_endpoint_parameters_int32, int64 => $test_endpoint_parameters_int64, float => $test_endpoint_parameters_float, string => $test_endpoint_parameters_string, binary => $test_endpoint_parameters_binary, date => $test_endpoint_parameters_date, date_time => $test_endpoint_parameters_date_time, password => $test_endpoint_parameters_password, callback => $test_endpoint_parameters_callback);
}
# #
# test_enum_parameters test # test_enum_parameters test
# #
{ # uncomment below and update the test
my $enum_header_string_array = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_header_string_array = undef; # replace NULL with a proper value
my $enum_header_string = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_header_string = undef; # replace NULL with a proper value
my $enum_query_string_array = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_query_string_array = undef; # replace NULL with a proper value
my $enum_query_string = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_query_string = undef; # replace NULL with a proper value
my $enum_query_integer = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_query_integer = undef; # replace NULL with a proper value
my $enum_query_double = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_query_double = undef; # replace NULL with a proper value
my $enum_form_string_array = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_form_string_array = undef; # replace NULL with a proper value
my $enum_form_string = undef; # replace NULL with a proper value #my $test_enum_parameters_enum_form_string = undef; # replace NULL with a proper value
my $result = $api->test_enum_parameters(enum_header_string_array => $enum_header_string_array, enum_header_string => $enum_header_string, enum_query_string_array => $enum_query_string_array, enum_query_string => $enum_query_string, enum_query_integer => $enum_query_integer, enum_query_double => $enum_query_double, enum_form_string_array => $enum_form_string_array, enum_form_string => $enum_form_string); #my $test_enum_parameters_result = $api->test_enum_parameters(enum_header_string_array => $test_enum_parameters_enum_header_string_array, enum_header_string => $test_enum_parameters_enum_header_string, enum_query_string_array => $test_enum_parameters_enum_query_string_array, enum_query_string => $test_enum_parameters_enum_query_string, enum_query_integer => $test_enum_parameters_enum_query_integer, enum_query_double => $test_enum_parameters_enum_query_double, enum_form_string_array => $test_enum_parameters_enum_form_string_array, enum_form_string => $test_enum_parameters_enum_form_string);
}
# #
# test_group_parameters test # test_group_parameters test
# #
{ # uncomment below and update the test
my $required_string_group = undef; # replace NULL with a proper value #my $test_group_parameters_required_string_group = undef; # replace NULL with a proper value
my $required_boolean_group = undef; # replace NULL with a proper value #my $test_group_parameters_required_boolean_group = undef; # replace NULL with a proper value
my $required_int64_group = undef; # replace NULL with a proper value #my $test_group_parameters_required_int64_group = undef; # replace NULL with a proper value
my $string_group = undef; # replace NULL with a proper value #my $test_group_parameters_string_group = undef; # replace NULL with a proper value
my $boolean_group = undef; # replace NULL with a proper value #my $test_group_parameters_boolean_group = undef; # replace NULL with a proper value
my $int64_group = undef; # replace NULL with a proper value #my $test_group_parameters_int64_group = undef; # replace NULL with a proper value
my $result = $api->test_group_parameters(required_string_group => $required_string_group, required_boolean_group => $required_boolean_group, required_int64_group => $required_int64_group, string_group => $string_group, boolean_group => $boolean_group, int64_group => $int64_group); #my $test_group_parameters_result = $api->test_group_parameters(required_string_group => $test_group_parameters_required_string_group, required_boolean_group => $test_group_parameters_required_boolean_group, required_int64_group => $test_group_parameters_required_int64_group, string_group => $test_group_parameters_string_group, boolean_group => $test_group_parameters_boolean_group, int64_group => $test_group_parameters_int64_group);
}
# #
# test_inline_additional_properties test # test_inline_additional_properties test
# #
{ # uncomment below and update the test
my $request_body = undef; # replace NULL with a proper value #my $test_inline_additional_properties_request_body = undef; # replace NULL with a proper value
my $result = $api->test_inline_additional_properties(request_body => $request_body); #my $test_inline_additional_properties_result = $api->test_inline_additional_properties(request_body => $test_inline_additional_properties_request_body);
}
# #
# test_json_form_data test # test_json_form_data test
# #
{ # uncomment below and update the test
my $param = undef; # replace NULL with a proper value #my $test_json_form_data_param = undef; # replace NULL with a proper value
my $param2 = undef; # replace NULL with a proper value #my $test_json_form_data_param2 = undef; # replace NULL with a proper value
my $result = $api->test_json_form_data(param => $param, param2 => $param2); #my $test_json_form_data_result = $api->test_json_form_data(param => $test_json_form_data_param, param2 => $test_json_form_data_param2);
}
# #
# test_query_parameter_collection_format test # test_query_parameter_collection_format test
# #
{ # uncomment below and update the test
my $pipe = undef; # replace NULL with a proper value #my $test_query_parameter_collection_format_pipe = undef; # replace NULL with a proper value
my $ioutil = undef; # replace NULL with a proper value #my $test_query_parameter_collection_format_ioutil = undef; # replace NULL with a proper value
my $http = undef; # replace NULL with a proper value #my $test_query_parameter_collection_format_http = undef; # replace NULL with a proper value
my $url = undef; # replace NULL with a proper value #my $test_query_parameter_collection_format_url = undef; # replace NULL with a proper value
my $context = undef; # replace NULL with a proper value #my $test_query_parameter_collection_format_context = undef; # replace NULL with a proper value
my $result = $api->test_query_parameter_collection_format(pipe => $pipe, ioutil => $ioutil, http => $http, url => $url, context => $context); #my $test_query_parameter_collection_format_result = $api->test_query_parameter_collection_format(pipe => $test_query_parameter_collection_format_pipe, ioutil => $test_query_parameter_collection_format_ioutil, http => $test_query_parameter_collection_format_http, url => $test_query_parameter_collection_format_url, context => $test_query_parameter_collection_format_context);
}
1;

9
samples/client/petstore/perl/t/FakeClassnameTags123ApiTest.t
View File

@ -32,10 +32,7 @@ isa_ok($api, 'WWW::OpenAPIClient::FakeClassnameTags123Api');
# #
# test_classname test # test_classname test
# #
{ # uncomment below and update the test
my $client = undef; # replace NULL with a proper value #my $test_classname_client = undef; # replace NULL with a proper value
my $result = $api->test_classname(client => $client); #my $test_classname_result = $api->test_classname(client => $test_classname_client);
}
1;

9
samples/client/petstore/perl/t/FileSchemaTestClassTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::FileSchemaTestClass'); use_ok('WWW::OpenAPIClient::Object::FileSchemaTestClass');
my $instance = WWW::OpenAPIClient::Object::FileSchemaTestClass->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::FileSchemaTestClass->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::FileSchemaTestClass'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::FileSchemaTestClass');

9
samples/client/petstore/perl/t/FileTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::File'); use_ok('WWW::OpenAPIClient::Object::File');
my $instance = WWW::OpenAPIClient::Object::File->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::File->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::File'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::File');

9
samples/client/petstore/perl/t/FooTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Foo'); use_ok('WWW::OpenAPIClient::Object::Foo');
my $instance = WWW::OpenAPIClient::Object::Foo->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Foo->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Foo'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Foo');

7
samples/client/petstore/perl/t/FormatTestTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::FormatTest'); use_ok('WWW::OpenAPIClient::Object::FormatTest');
my $instance = WWW::OpenAPIClient::Object::FormatTest->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::FormatTest->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::FormatTest'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::FormatTest');

7
samples/client/petstore/perl/t/HasOnlyReadOnlyTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::HasOnlyReadOnly'); use_ok('WWW::OpenAPIClient::Object::HasOnlyReadOnly');
my $instance = WWW::OpenAPIClient::Object::HasOnlyReadOnly->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::HasOnlyReadOnly->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::HasOnlyReadOnly'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::HasOnlyReadOnly');

9
samples/client/petstore/perl/t/HealthCheckResultTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::HealthCheckResult'); use_ok('WWW::OpenAPIClient::Object::HealthCheckResult');
my $instance = WWW::OpenAPIClient::Object::HealthCheckResult->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::HealthCheckResult->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::HealthCheckResult'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::HealthCheckResult');

33
samples/client/petstore/perl/t/HumanTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::Human');
my $instance = WWW::OpenAPIClient::Object::Human->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Human');

33
samples/client/petstore/perl/t/InlineObject1Test.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineObject1');
my $instance = WWW::OpenAPIClient::Object::InlineObject1->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject1');

33
samples/client/petstore/perl/t/InlineObject2Test.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineObject2');
my $instance = WWW::OpenAPIClient::Object::InlineObject2->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject2');

33
samples/client/petstore/perl/t/InlineObject3Test.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineObject3');
my $instance = WWW::OpenAPIClient::Object::InlineObject3->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject3');

33
samples/client/petstore/perl/t/InlineObject4Test.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineObject4');
my $instance = WWW::OpenAPIClient::Object::InlineObject4->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject4');

33
samples/client/petstore/perl/t/InlineObject5Test.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineObject5');
my $instance = WWW::OpenAPIClient::Object::InlineObject5->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject5');

33
samples/client/petstore/perl/t/InlineObjectTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineObject');
my $instance = WWW::OpenAPIClient::Object::InlineObject->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineObject');

9
samples/client/petstore/perl/t/InlineResponseDefaultTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::InlineResponseDefault'); use_ok('WWW::OpenAPIClient::Object::InlineResponseDefault');
my $instance = WWW::OpenAPIClient::Object::InlineResponseDefault->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::InlineResponseDefault->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineResponseDefault'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::InlineResponseDefault');

7
samples/client/petstore/perl/t/ListTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::List'); use_ok('WWW::OpenAPIClient::Object::List');
my $instance = WWW::OpenAPIClient::Object::List->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::List->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::List'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::List');

7
samples/client/petstore/perl/t/MapTestTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::MapTest'); use_ok('WWW::OpenAPIClient::Object::MapTest');
my $instance = WWW::OpenAPIClient::Object::MapTest->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::MapTest->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::MapTest'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::MapTest');

7
samples/client/petstore/perl/t/MixedPropertiesAndAdditionalPropertiesClassTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass'); use_ok('WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass');
my $instance = WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::MixedPropertiesAndAdditionalPropertiesClass');

7
samples/client/petstore/perl/t/Model200ResponseTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Model200Response'); use_ok('WWW::OpenAPIClient::Object::Model200Response');
my $instance = WWW::OpenAPIClient::Object::Model200Response->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Model200Response->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Model200Response'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Model200Response');

7
samples/client/petstore/perl/t/ModelReturnTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ModelReturn'); use_ok('WWW::OpenAPIClient::Object::ModelReturn');
my $instance = WWW::OpenAPIClient::Object::ModelReturn->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ModelReturn->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ModelReturn'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ModelReturn');

7
samples/client/petstore/perl/t/NameTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Name'); use_ok('WWW::OpenAPIClient::Object::Name');
my $instance = WWW::OpenAPIClient::Object::Name->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Name->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Name'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Name');

9
samples/client/petstore/perl/t/NullableClassTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::NullableClass'); use_ok('WWW::OpenAPIClient::Object::NullableClass');
my $instance = WWW::OpenAPIClient::Object::NullableClass->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::NullableClass->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::NullableClass'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::NullableClass');

7
samples/client/petstore/perl/t/NumberOnlyTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::NumberOnly'); use_ok('WWW::OpenAPIClient::Object::NumberOnly');
my $instance = WWW::OpenAPIClient::Object::NumberOnly->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::NumberOnly->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::NumberOnly'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::NumberOnly');

7
samples/client/petstore/perl/t/OrderTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Order'); use_ok('WWW::OpenAPIClient::Object::Order');
my $instance = WWW::OpenAPIClient::Object::Order->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Order->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Order'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Order');

7
samples/client/petstore/perl/t/OuterCompositeTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::OuterComposite'); use_ok('WWW::OpenAPIClient::Object::OuterComposite');
my $instance = WWW::OpenAPIClient::Object::OuterComposite->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::OuterComposite->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterComposite'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterComposite');

9
samples/client/petstore/perl/t/OuterEnumDefaultValueTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::OuterEnumDefaultValue'); use_ok('WWW::OpenAPIClient::Object::OuterEnumDefaultValue');
my $instance = WWW::OpenAPIClient::Object::OuterEnumDefaultValue->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::OuterEnumDefaultValue->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnumDefaultValue'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnumDefaultValue');

9
samples/client/petstore/perl/t/OuterEnumIntegerDefaultValueTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue'); use_ok('WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue');
my $instance = WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnumIntegerDefaultValue');

9
samples/client/petstore/perl/t/OuterEnumIntegerTest.t
View File

@ -4,7 +4,7 @@ OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0 The version of the OpenAPI document: 1.0.0
Generated by: https://openapi-generator.tech Generated by: https://openapi-generator.tech
@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::OuterEnumInteger'); use_ok('WWW::OpenAPIClient::Object::OuterEnumInteger');
my $instance = WWW::OpenAPIClient::Object::OuterEnumInteger->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::OuterEnumInteger->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnumInteger'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnumInteger');

7
samples/client/petstore/perl/t/OuterEnumTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::OuterEnum'); use_ok('WWW::OpenAPIClient::Object::OuterEnum');
my $instance = WWW::OpenAPIClient::Object::OuterEnum->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::OuterEnum->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnum'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterEnum');

7
samples/client/petstore/perl/t/OuterObjectWithEnumPropertyTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::OuterObjectWithEnumProperty'); use_ok('WWW::OpenAPIClient::Object::OuterObjectWithEnumProperty');
my $instance = WWW::OpenAPIClient::Object::OuterObjectWithEnumProperty->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::OuterObjectWithEnumProperty->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterObjectWithEnumProperty'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::OuterObjectWithEnumProperty');

33
samples/client/petstore/perl/t/PersonTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::Person');
my $instance = WWW::OpenAPIClient::Object::Person->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Person');

79
samples/client/petstore/perl/t/PetApiTest.t
View File

@ -32,81 +32,70 @@ isa_ok($api, 'WWW::OpenAPIClient::PetApi');
# #
# add_pet test # add_pet test
# #
{ # uncomment below and update the test
my $pet = undef; # replace NULL with a proper value #my $add_pet_pet = undef; # replace NULL with a proper value
my $result = $api->add_pet(pet => $pet); #my $add_pet_result = $api->add_pet(pet => $add_pet_pet);
}
# #
# delete_pet test # delete_pet test
# #
{ # uncomment below and update the test
my $pet_id = undef; # replace NULL with a proper value #my $delete_pet_pet_id = undef; # replace NULL with a proper value
my $api_key = undef; # replace NULL with a proper value #my $delete_pet_api_key = undef; # replace NULL with a proper value
my $result = $api->delete_pet(pet_id => $pet_id, api_key => $api_key); #my $delete_pet_result = $api->delete_pet(pet_id => $delete_pet_pet_id, api_key => $delete_pet_api_key);
}
# #
# find_pets_by_status test # find_pets_by_status test
# #
{ # uncomment below and update the test
my $status = undef; # replace NULL with a proper value #my $find_pets_by_status_status = undef; # replace NULL with a proper value
my $result = $api->find_pets_by_status(status => $status); #my $find_pets_by_status_result = $api->find_pets_by_status(status => $find_pets_by_status_status);
}
# #
# find_pets_by_tags test # find_pets_by_tags test
# #
{ # uncomment below and update the test
my $tags = undef; # replace NULL with a proper value #my $find_pets_by_tags_tags = undef; # replace NULL with a proper value
my $result = $api->find_pets_by_tags(tags => $tags); #my $find_pets_by_tags_result = $api->find_pets_by_tags(tags => $find_pets_by_tags_tags);
}
# #
# get_pet_by_id test # get_pet_by_id test
# #
{ # uncomment below and update the test
my $pet_id = undef; # replace NULL with a proper value #my $get_pet_by_id_pet_id = undef; # replace NULL with a proper value
my $result = $api->get_pet_by_id(pet_id => $pet_id); #my $get_pet_by_id_result = $api->get_pet_by_id(pet_id => $get_pet_by_id_pet_id);
}
# #
# update_pet test # update_pet test
# #
{ # uncomment below and update the test
my $pet = undef; # replace NULL with a proper value #my $update_pet_pet = undef; # replace NULL with a proper value
my $result = $api->update_pet(pet => $pet); #my $update_pet_result = $api->update_pet(pet => $update_pet_pet);
}
# #
# update_pet_with_form test # update_pet_with_form test
# #
{ # uncomment below and update the test
my $pet_id = undef; # replace NULL with a proper value #my $update_pet_with_form_pet_id = undef; # replace NULL with a proper value
my $name = undef; # replace NULL with a proper value #my $update_pet_with_form_name = undef; # replace NULL with a proper value
my $status = undef; # replace NULL with a proper value #my $update_pet_with_form_status = undef; # replace NULL with a proper value
my $result = $api->update_pet_with_form(pet_id => $pet_id, name => $name, status => $status); #my $update_pet_with_form_result = $api->update_pet_with_form(pet_id => $update_pet_with_form_pet_id, name => $update_pet_with_form_name, status => $update_pet_with_form_status);
}
# #
# upload_file test # upload_file test
# #
{ # uncomment below and update the test
my $pet_id = undef; # replace NULL with a proper value #my $upload_file_pet_id = undef; # replace NULL with a proper value
my $additional_metadata = undef; # replace NULL with a proper value #my $upload_file_additional_metadata = undef; # replace NULL with a proper value
my $file = undef; # replace NULL with a proper value #my $upload_file_file = undef; # replace NULL with a proper value
my $result = $api->upload_file(pet_id => $pet_id, additional_metadata => $additional_metadata, file => $file); #my $upload_file_result = $api->upload_file(pet_id => $upload_file_pet_id, additional_metadata => $upload_file_additional_metadata, file => $upload_file_file);
}
# #
# upload_file_with_required_file test # upload_file_with_required_file test
# #
{ # uncomment below and update the test
my $pet_id = undef; # replace NULL with a proper value #my $upload_file_with_required_file_pet_id = undef; # replace NULL with a proper value
my $required_file = undef; # replace NULL with a proper value #my $upload_file_with_required_file_required_file = undef; # replace NULL with a proper value
my $additional_metadata = undef; # replace NULL with a proper value #my $upload_file_with_required_file_additional_metadata = undef; # replace NULL with a proper value
my $result = $api->upload_file_with_required_file(pet_id => $pet_id, required_file => $required_file, additional_metadata => $additional_metadata); #my $upload_file_with_required_file_result = $api->upload_file_with_required_file(pet_id => $upload_file_with_required_file_pet_id, required_file => $upload_file_with_required_file_required_file, additional_metadata => $upload_file_with_required_file_additional_metadata);
}
1;

7
samples/client/petstore/perl/t/PetTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Pet'); use_ok('WWW::OpenAPIClient::Object::Pet');
my $instance = WWW::OpenAPIClient::Object::Pet->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Pet->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Pet'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Pet');

7
samples/client/petstore/perl/t/ReadOnlyFirstTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::ReadOnlyFirst'); use_ok('WWW::OpenAPIClient::Object::ReadOnlyFirst');
my $instance = WWW::OpenAPIClient::Object::ReadOnlyFirst->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::ReadOnlyFirst->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::ReadOnlyFirst'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::ReadOnlyFirst');

7
samples/client/petstore/perl/t/SpecialModelNameTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::SpecialModelName'); use_ok('WWW::OpenAPIClient::Object::SpecialModelName');
my $instance = WWW::OpenAPIClient::Object::SpecialModelName->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::SpecialModelName->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::SpecialModelName'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::SpecialModelName');

28
samples/client/petstore/perl/t/StoreApiTest.t
View File

@ -32,33 +32,27 @@ isa_ok($api, 'WWW::OpenAPIClient::StoreApi');
# #
# delete_order test # delete_order test
# #
{ # uncomment below and update the test
my $order_id = undef; # replace NULL with a proper value #my $delete_order_order_id = undef; # replace NULL with a proper value
my $result = $api->delete_order(order_id => $order_id); #my $delete_order_result = $api->delete_order(order_id => $delete_order_order_id);
}
# #
# get_inventory test # get_inventory test
# #
{ # uncomment below and update the test
my $result = $api->get_inventory(); #my $get_inventory_result = $api->get_inventory();
}
# #
# get_order_by_id test # get_order_by_id test
# #
{ # uncomment below and update the test
my $order_id = undef; # replace NULL with a proper value #my $get_order_by_id_order_id = undef; # replace NULL with a proper value
my $result = $api->get_order_by_id(order_id => $order_id); #my $get_order_by_id_result = $api->get_order_by_id(order_id => $get_order_by_id_order_id);
}
# #
# place_order test # place_order test
# #
{ # uncomment below and update the test
my $order = undef; # replace NULL with a proper value #my $place_order_order = undef; # replace NULL with a proper value
my $result = $api->place_order(order => $order); #my $place_order_result = $api->place_order(order => $place_order_order);
}
1;

33
samples/client/petstore/perl/t/StringBooleanMapTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::StringBooleanMap');
my $instance = WWW::OpenAPIClient::Object::StringBooleanMap->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::StringBooleanMap');

7
samples/client/petstore/perl/t/TagTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::Tag'); use_ok('WWW::OpenAPIClient::Object::Tag');
my $instance = WWW::OpenAPIClient::Object::Tag->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::Tag->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::Tag'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::Tag');

33
samples/client/petstore/perl/t/TypeHolderDefaultTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::TypeHolderDefault');
my $instance = WWW::OpenAPIClient::Object::TypeHolderDefault->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::TypeHolderDefault');

33
samples/client/petstore/perl/t/TypeHolderExampleTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::TypeHolderExample');
my $instance = WWW::OpenAPIClient::Object::TypeHolderExample->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::TypeHolderExample');

60
samples/client/petstore/perl/t/UserApiTest.t
View File

@ -32,67 +32,57 @@ isa_ok($api, 'WWW::OpenAPIClient::UserApi');
# #
# create_user test # create_user test
# #
{ # uncomment below and update the test
my $user = undef; # replace NULL with a proper value #my $create_user_user = undef; # replace NULL with a proper value
my $result = $api->create_user(user => $user); #my $create_user_result = $api->create_user(user => $create_user_user);
}
# #
# create_users_with_array_input test # create_users_with_array_input test
# #
{ # uncomment below and update the test
my $user = undef; # replace NULL with a proper value #my $create_users_with_array_input_user = undef; # replace NULL with a proper value
my $result = $api->create_users_with_array_input(user => $user); #my $create_users_with_array_input_result = $api->create_users_with_array_input(user => $create_users_with_array_input_user);
}
# #
# create_users_with_list_input test # create_users_with_list_input test
# #
{ # uncomment below and update the test
my $user = undef; # replace NULL with a proper value #my $create_users_with_list_input_user = undef; # replace NULL with a proper value
my $result = $api->create_users_with_list_input(user => $user); #my $create_users_with_list_input_result = $api->create_users_with_list_input(user => $create_users_with_list_input_user);
}
# #
# delete_user test # delete_user test
# #
{ # uncomment below and update the test
my $username = undef; # replace NULL with a proper value #my $delete_user_username = undef; # replace NULL with a proper value
my $result = $api->delete_user(username => $username); #my $delete_user_result = $api->delete_user(username => $delete_user_username);
}
# #
# get_user_by_name test # get_user_by_name test
# #
{ # uncomment below and update the test
my $username = undef; # replace NULL with a proper value #my $get_user_by_name_username = undef; # replace NULL with a proper value
my $result = $api->get_user_by_name(username => $username); #my $get_user_by_name_result = $api->get_user_by_name(username => $get_user_by_name_username);
}
# #
# login_user test # login_user test
# #
{ # uncomment below and update the test
my $username = undef; # replace NULL with a proper value #my $login_user_username = undef; # replace NULL with a proper value
my $password = undef; # replace NULL with a proper value #my $login_user_password = undef; # replace NULL with a proper value
my $result = $api->login_user(username => $username, password => $password); #my $login_user_result = $api->login_user(username => $login_user_username, password => $login_user_password);
}
# #
# logout_user test # logout_user test
# #
{ # uncomment below and update the test
my $result = $api->logout_user(); #my $logout_user_result = $api->logout_user();
}
# #
# update_user test # update_user test
# #
{ # uncomment below and update the test
my $username = undef; # replace NULL with a proper value #my $update_user_username = undef; # replace NULL with a proper value
my $user = undef; # replace NULL with a proper value #my $update_user_user = undef; # replace NULL with a proper value
my $result = $api->update_user(username => $username, user => $user); #my $update_user_result = $api->update_user(username => $update_user_username, user => $update_user_user);
}
1;

7
samples/client/petstore/perl/t/UserTest.t
View File

@ -27,7 +27,8 @@ use warnings;
use_ok('WWW::OpenAPIClient::Object::User'); use_ok('WWW::OpenAPIClient::Object::User');
my $instance = WWW::OpenAPIClient::Object::User->new(); # uncomment below and update the test
#my $instance = WWW::OpenAPIClient::Object::User->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::User'); #
#isa_ok($instance, 'WWW::OpenAPIClient::Object::User');

33
samples/client/petstore/perl/t/XmlItemTest.t
View File

@ -1,33 +0,0 @@
=begin comment
OpenAPI Petstore
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 1.0.0
Generated by: https://openapi-generator.tech
=end comment
=cut
#
# NOTE: This class is auto generated by the OpenAPI Generator
# Please update the test cases below to test the model.
# Ref: https://openapi-generator.tech
#
use Test::More tests => 2;
use Test::Exception;
use lib 'lib';
use strict;
use warnings;
use_ok('WWW::OpenAPIClient::Object::XmlItem');
my $instance = WWW::OpenAPIClient::Object::XmlItem->new();
isa_ok($instance, 'WWW::OpenAPIClient::Object::XmlItem');