1#!/usr/bin/perl 2use strict; 3use warnings; 4use Apache::Test; 5use Apache::TestUtil qw(t_cmp); 6use Apache::TestRequest qw(GET); 7use FindBin; 8use lib "$FindBin::Bin/../lib"; 9use TestSOAP qw(make_soap); 10 11my $config = Apache::Test::config(); 12my $hostport = Apache::TestRequest::hostport($config) || ''; 13 14plan tests => 11; 15 16my $soap_uri = "http://$hostport/TestSOAP/convert"; 17my $soap_proxy = "http://$hostport/TestSOAP__convert"; 18my $soap = make_soap($soap_uri, $soap_proxy) or die "SOAP::Lite setup failed"; 19ok t_cmp(defined $soap, 1, "$soap"); 20my $string = 'AbCdEfG'; 21 22my $out = $soap->convert(mode => 'lc', string => $string); 23eval{$out->fault}; 24ok t_cmp($@, ""); 25ok t_cmp($out->fault, undef); 26my $results = $out->result(); 27ok t_cmp(defined $results, 1); 28ok t_cmp(ref($results), 'HASH'); 29ok t_cmp($results->{results}, lc($string)); 30 31$out = $soap->convert(mode => 'uc', string => $string); 32eval{$out->fault}; 33ok t_cmp($@, ""); 34ok t_cmp($out->fault, undef); 35$results = $out->result(); 36ok t_cmp(defined $results, 1); 37ok t_cmp(ref($results), 'HASH'); 38ok t_cmp($results->{results}, uc($string)); 39 40