import SOAP-WSDL 2.00.07 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.07
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz

t/SOAP/WSDL/Client.t

@@ -1,8 +1,17 @@
 use strict;
 use warnings;
-use Test::More tests => 9; #qw(no_plan);
+use Test::More tests => 15;
 use_ok qw(SOAP::WSDL::Client);
 
+{
+    no warnings qw(redefine once);
+    *SOAP::WSDL::Factory::Transport::get_transport = sub {
+        my ($self, $url , %args_of) = @_;
+        if (%args_of) {
+            is $args_of{foo}, 'bar';
+        }
+    };
+}
 ok my $client = SOAP::WSDL::Client->new();
 
 ok $client = SOAP::WSDL::Client->new({
@@ -13,6 +22,23 @@ is $client->get_content_type(), 'text/xml; charset=utf-8';
 
 is $client->get_endpoint(), 'http://localhost';
 
+$client->set_proxy('http://localhost',
+    foo => 'bar',
+);
+
+#TODO is this behaviour still required? declare as deprecated and remove...
+$client->set_proxy(
+    [ 'http://localhost',
+        foo => 'bar',
+    ]
+);
+
+
+is $client->get_proxy(), $client->get_transport(), 'get_proxy returns same as get_transport';
+
+ok $client->set_soap_version('1.1');
+is $client->get_soap_version(), '1.1';
+
 $client->no_dispatch(1);
 $client->set_serializer('main');
 my $serialize = $client->call({
@@ -35,3 +61,6 @@ sub serialize {
     my $self = shift;
     return shift;
 }
+
+$client->set_deserializer_args({ strict => 0 });
+is $client->get_deserializer_args()->{ strict }, 0;