>From f5eb03edf1aeb7e4af4e22a38fe829f59aa820cd Mon Sep 17 00:00:00 2001
From: Daniel Ruoso <daniel@ruoso.com>
Date: Thu, 29 Oct 2009 13:52:37 -0300
Subject: [PATCH] add a test to demonstrate the missing prefix handling

---
 DJabberd/t/xmlnamespace.t |   28 ++++++++++++++++++++++++++++
 1 files changed, 28 insertions(+), 0 deletions(-)
 create mode 100644 DJabberd/t/xmlnamespace.t

diff --git a/DJabberd/t/xmlnamespace.t b/DJabberd/t/xmlnamespace.t
new file mode 100644
index 0000000..f1499fa
--- /dev/null
+++ b/DJabberd/t/xmlnamespace.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use strict;
+use Test::More tests => 4;
+use lib 't/lib';
+
+require 'djabberd-test.pl';
+
+two_parties(sub {
+    my ($pa, $pb) = @_;
+    $pa->login;
+    $pb->login;
+
+    # now pa/pb send presence to become available resources
+    $pa->send_xml("<presence/>");
+    $pb->send_xml("<presence/>");
+    select(undef, undef, undef, 0.25);
+
+    # PA to PB
+    $pa->send_xml(qq{<message from="$pa" to="$pb" id="1"><SOAP-ENV:Envelope xmlns:SOAP-ENV="http://www.w3.org/2001/12/soap-envelope"><SOAP-ENV:Body><x0:foo xmlns:x0="urn:test" /></SOAP-ENV:Body></SOAP-ENV:Envelope></message>});
+
+    my $msg = $pb->recv_xml;
+    like($msg, qr/SOAP-ENV:Envelope/, "pb got Envelope in the correct prefix");
+    like($msg, qr/xmlns:SOAP-ENV/, "pb got SOAP-ENV prefix decl");
+    like($msg, qr/x0:foo/, "pb got foo in the correct prefix");
+    like($msg, qr/xmlns:x0/, "pb got x0 prefix decl");
+
+});
+
-- 
1.5.6.5