1use lib "t/lib"; 2use Test::More tests=>44; 3 4BEGIN{ use_ok( "Net::Jabber" ); } 5 6require "t/mytestlib.pl"; 7 8my $query = new Net::Jabber::Stanza("si"); 9ok( defined($query), "new()" ); 10isa_ok( $query, "Net::Jabber::Stanza" ); 11isa_ok( $query, "Net::XMPP::Stanza" ); 12 13testScalar($query,"XMLNS","http://jabber.org/protocol/si"); 14 15testScalar($query,"ID","id"); 16testScalar($query,"MimeType","mimetype"); 17testScalar($query,"Profile","profile"); 18 19is( $query->GetXML(), "<si id='id' mime-type='mimetype' profile='profile' xmlns='http://jabber.org/protocol/si'/>", "GetXML()" ); 20 21 22my $query2 = new Net::Jabber::Stanza("si"); 23ok( defined($query2), "new()" ); 24isa_ok( $query2, "Net::Jabber::Stanza" ); 25isa_ok( $query2, "Net::XMPP::Stanza" ); 26 27testScalar($query2,"XMLNS","http://jabber.org/protocol/si"); 28 29$query2->SetStream(id=>"id", 30 mimetype=>"mimetype", 31 profile=>"profile" 32 ); 33 34testPostScalar($query2,"ID","id"); 35testPostScalar($query2,"MimeType","mimetype"); 36testPostScalar($query2,"Profile","profile"); 37 38is( $query2->GetXML(), "<si id='id' mime-type='mimetype' profile='profile' xmlns='http://jabber.org/protocol/si'/>", "GetXML()" ); 39 40 41my $iq = new Net::Jabber::IQ(); 42ok( defined($iq), "new()" ); 43isa_ok( $iq, "Net::Jabber::IQ" ); 44 45my $query3 = $iq->NewChild("http://jabber.org/protocol/si"); 46ok( defined($query3), "new()" ); 47isa_ok( $query3, "Net::Jabber::Stanza" ); 48isa_ok( $query3, "Net::XMPP::Stanza" ); 49 50testPostScalar($query3,"XMLNS","http://jabber.org/protocol/si"); 51 52$query3->SetStream(id=>"id", 53 mimetype=>"mimetype", 54 profile=>"profile" 55 ); 56 57testPostScalar($query3,"ID","id"); 58testPostScalar($query3,"MimeType","mimetype"); 59testPostScalar($query3,"Profile","profile"); 60 61is( $iq->GetXML(), "<iq><si id='id' mime-type='mimetype' profile='profile' xmlns='http://jabber.org/protocol/si'/></iq>", "GetXML()" ); 62 63 64