#!perl
use strict;
use Test::More tests => 1;
use AnyEvent::XMPP::Util qw/filter_xml_chars/;
is (filter_xml_chars ("BB\a\bAA"), "BBAA", "filters out bad chars");
#!perl
use strict;
use Test::More tests => 1;
use AnyEvent::XMPP::Util qw/filter_xml_chars/;
is (filter_xml_chars ("BB\a\bAA"), "BBAA", "filters out bad chars");