import SOAP-WSDL 1.24 from CPAN

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

t/lib/Test/SOAPMessage.pm

@@ -1,64 +0,0 @@
-package Test::SOAPMessage;
-
-use strict;
-
-use SOAP::Lite;
-use Test::Differences;
-use Tie::IxHash;
-
-use base qw/Exporter/;
-
-our @EXPORT = qw/soap_eq_or_diff/;
-
-sub soap_eq_or_diff
-{
-	my $got = shift;
-	my $expected = shift;
-	my $message = shift;
-	my $soapGot = SOAP::Deserializer->deserialize( $got );
-	my $soapExpected = SOAP::Deserializer->deserialize( $expected );
-
-	return eq_or_diff(
-		unlather( $soapGot ), 
-		unlather( $soapExpected ),
-		$message
-	);
-}
-
-sub unlather
-{
-        my $som = shift;
-        my $path = shift || '/Envelope/Body/[1]';
-        my $data = shift;
-        
-        unless ( $data )
-        {
-        	my %hashData = ();
-        	tie (%hashData, q/Tie::IxHash/);
-        	$data = \%hashData;
-        }
-        
-        my $value;
-        my $tag;
-        my $i = 1;
-        while( $som->match("$path/[$i]") )
-        {
-                $tag = $som->dataof->name();
-                $data ||= {};
-                $value = unlather($som,$path.'/'. '[' . $i . ']' ) || $som->valueof("$path/[$i]");
-                if ($data->{ $tag })
-                {
-                        $data->{ $tag } = [ $data->{ $tag } ] unless ( ref ( $data->{ $tag } ) eq 'ARRAY' );
-                        push @{ $data->{ $tag } }, $value;
-                }
-                else
-                {
-                        $data->{ $tag } = $value;
-                }
-                $i++;
-        }
-        $data ||= $som->valueof($path);
-        return $data;
-}
-
-1;