use lib "t/lib";
use Test::More tests=>42;

BEGIN{ use_ok( "Net::Jabber" ); }

require "t/mytestlib.pl";

my $query = new Net::Jabber::Stanza("query");
ok( defined($query), "new()" );
isa_ok( $query, "Net::Jabber::Stanza" );
isa_ok( $query, "Net::XMPP::Stanza" );

testScalar($query,"XMLNS","jabber:iq:gateway");

testJID($query,"JID","user1","server1","resource1");
testScalar($query,"Desc","desc");
testScalar($query,"Prompt","prompt");

is( $query->GetXML(), "<query xmlns='jabber:iq:gateway'><jid>user1\@server1/resource1</jid><desc>desc</desc><prompt>prompt</prompt></query>", "GetXML()" );


my $query2 = new Net::Jabber::Stanza("query");
ok( defined($query2), "new()" );
isa_ok( $query2, "Net::Jabber::Stanza" );
isa_ok( $query2, "Net::XMPP::Stanza" );

testScalar($query2,"XMLNS","jabber:iq:gateway");

$query2->SetGateway(jid=>"user2\@server2/resource2",
                    desc=>"desc",
                    prompt=>"prompt"
                    );

testPostJID($query2,"JID","user2","server2","resource2");
testPostScalar($query2,"Desc","desc");
testPostScalar($query2,"Prompt","prompt");

is( $query2->GetXML(), "<query xmlns='jabber:iq:gateway'><desc>desc</desc><jid>user2\@server2/resource2</jid><prompt>prompt</prompt></query>", "GetXML()" );