1#!/usr/local/bin/perl -w 2 3use strict; 4 5use Test::More 'no_plan'; 6 7use CGI; 8 9$ENV{REQUEST_METHOD} = 'POST'; 10$ENV{CONTENT_TYPE} = 'multipart/related;boundary="----=_Part_0.7772611529786723.1196412625897" type="text/xml"; start="cid:mm7-submit"'; 11 12my $q; 13 14{ 15 local *STDIN; 16 open STDIN, '<t/rt_31107.txt' 17 or die 'missing test file t/rt_31107.txt'; 18 binmode STDIN; 19 $q = CGI->new; 20} 21 22foreach my $class ( 'File::Temp','CGI::File::Temp','Fh' ) { 23 isa_ok( $q->param( 'capabilities.zip' ),$class,'capabilities.zip' ); 24 isa_ok( $q->param( 'mm7-submit' ),$class,'mm7-submit' ); 25} 26 27my $fh = $q->param( 'mm7-submit' ); 28 29my @content = $fh->getlines; 30like( 31 $content[9], 32 qr!<CapRequestId>4401196412625869430</CapRequestId>!, 33 'multipart data read' 34); 35 36# test back compatibility handle method 37seek( $fh,0,0 ); 38@content = $fh->handle->getlines; 39like( 40 $content[9], 41 qr!<CapRequestId>4401196412625869430</CapRequestId>!, 42 'multipart data read' 43); 44