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