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