#!/usr/local/bin/perl -w

use strict;

use Test::More 'no_plan';

use CGI;

$ENV{REQUEST_METHOD} = 'POST';
$ENV{CONTENT_TYPE}   = 'application/xml';
$ENV{CONTENT_LENGTH} = 792;

my $q;

{
    local *STDIN;
    open STDIN, '<t/rt_75628.txt'
        or die 'missing test file t/rt_75628.txt';
    binmode STDIN;
    $q = CGI->new;
}

like(
	$q->param( 'POSTDATA' ),
	qr!<MM7Version>5.3.0</MM7Version>!,
	'POSTDATA access to XForms:Model'
);