You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
58 lines
1.6 KiB
58 lines
1.6 KiB
//Licensed under the GNU General Public License
|
|
|
|
#include "clientstream_test.h"
|
|
#include <kdebug.h>
|
|
#include "../ymsgtransfer.h"
|
|
#include "../yahootypes.h"
|
|
|
|
ClientStreamTest::ClientStreamTest(int argc, char ** argv) : TQApplication( argc, argv )
|
|
{
|
|
// set up client stream
|
|
myConnector = new KNetworkConnector( 0 );
|
|
//myConnector->setOptHostPort( "localhost", 8300 );
|
|
myConnector->setOptHostPort( "scs.msg.yahoo.com", 5050 );
|
|
myTestObject = new ClientStream( myConnector, myConnector);
|
|
// notify when the transport layer is connected
|
|
connect( myTestObject, TQT_SIGNAL( connected() ), TQT_SLOT( slotConnected() ) );
|
|
// notify and start sending
|
|
//connect( myTestObject, TQT_SIGNAL( warning(int) ), TQT_SLOT( slotWarning(int) ) );
|
|
|
|
// do test once the event loop is running
|
|
TQTimer::singleShot( 0, this, TQT_SLOT( slotDoTest() ) );
|
|
connected = false;
|
|
}
|
|
|
|
ClientStreamTest::~ClientStreamTest()
|
|
{
|
|
delete myTestObject;
|
|
delete myConnector;
|
|
}
|
|
|
|
void ClientStreamTest::slotDoTest()
|
|
{
|
|
TQString server = TQString::fromLatin1("scs.msg.yahoo.com");
|
|
// connect to server
|
|
kdDebug(14180) << k_funcinfo << " connecting to server" << endl;
|
|
myTestObject->connectToServer( server, true ); // fine up to here...
|
|
}
|
|
|
|
void ClientStreamTest::slotConnected()
|
|
{
|
|
kdDebug(14180) << k_funcinfo << " connection is up" << endl;
|
|
connected = true;
|
|
YMSGTransfer *t = new YMSGTransfer(Yahoo::ServiceLogon);
|
|
t->setParam( 1, "kopetetest");
|
|
|
|
myTestObject->write(t);
|
|
while(1);
|
|
}
|
|
|
|
int main(int argc, char ** argv)
|
|
{
|
|
ClientStreamTest a( argc, argv );
|
|
a.exec();
|
|
return 0;
|
|
}
|
|
|
|
#include "clientstream_test.moc"
|