File: rt-75628.t

package info (click to toggle)
libcgi-pm-perl 4.68-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,028 kB
  • sloc: perl: 6,082; makefile: 9
file content (27 lines) | stat: -rw-r--r-- 439 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
#!/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'
);