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