[PERL] Fix bug on test script (#12983)

This commit is contained in:
Thomas Hansen 2022-07-23 02:56:24 +02:00 committed by GitHub
parent c03cf178c9
commit 219b32b543
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -61,7 +61,7 @@ print "\nupload_file:"
additional_metadata => 'testabc', additional_metadata => 'testabc',
file => './test.pl' file => './test.pl'
); );
print "\nadd_pet:" . Dumper $api->add_pet( body => $pet ); print "\nadd_pet:" . Dumper $api->add_pet( pet => $pet );
print "\nget_pet_by_id:" . Dumper $api->get_pet_by_id( pet_id => $pet_id ); print "\nget_pet_by_id:" . Dumper $api->get_pet_by_id( pet_id => $pet_id );
print "\nupdate_pet_with_form:" print "\nupdate_pet_with_form:"
. Dumper $api->update_pet_with_form( . Dumper $api->update_pet_with_form(