use lib "t/lib";
use Test::More tests=>4;
BEGIN{ use_ok( "Net::Jabber" ); }
require "t/mytestlib.pl";
my $client = new Net::Jabber::Client();
ok( defined($client), "new()" );
isa_ok( $client, "Net::Jabber::Client" );
my $presence_xml = $client->MUCJoin(room=>"test1",
server=>"test2",
nick=>"test3",
'__netjabber__:test'=>1);
is( $presence_xml, "<presence to='test1\@test2/test3'><x xmlns='http://jabber.org/protocol/muc'/></presence>", "GetXML()");