use lib "t/lib";
use Test::More tests=>54;
BEGIN{ use_ok( "Net::XMPP" ); }
require "t/mytestlib.pl";
my $message = new Net::XMPP::Message();
ok( defined($message), "new()");
isa_ok( $message, "Net::XMPP::Message");
testScalar($message, "Body", "body");
testJID($message, "From", "user1", "server1", "resource1");
testScalar($message, "Subject", "subject");
testJID($message, "To", "user2", "server2", "resource2");
$message->InsertRawXML("bar");
$message->InsertRawXML("foo");
is( $message->GetXML(), "bodysubjectbarfoo", "GetXML()" );
$message->ClearRawXML();
is( $message->GetXML(), "bodysubject", "GetXML()" );
$message->InsertRawXML("foo");
is( $message->GetXML(), "bodysubjectfoo", "GetXML()" );
my $iq = new Net::XMPP::IQ();
ok( defined($iq), "new()");
isa_ok( $iq, "Net::XMPP::IQ");
testJID($iq, "From", "user1", "server1", "resource1");
testJID($iq, "To", "user2", "server2", "resource2");
my $query = $iq->NewChild("jabber:iq:auth");
ok( defined($query), "NewChild()");
isa_ok( $query, "Net::XMPP::Stanza" );
testPostScalar( $query, "XMLNS", "jabber:iq:auth");
is( $iq->GetXML(), "", "GetXML()");
$iq->InsertRawXML("");
is( $iq->GetXML(), "", "GetXML()");
$query->InsertRawXML("");
is( $query->GetXML(), "", "GetXML()");
is( $iq->GetXML(), "", "GetXML()");