1 files changed, 27 insertions, 0 deletions
diff --git a/t/rt-75628.t b/t/rt-75628.t
new file mode 100644
index 0000000..c0611d6
--- /dev/null
+++ b/t/rt-75628.t
@@ -0,0 +1,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'
+);