|
|
|
//Licensed under the GNU General Public License
|
|
|
|
|
|
|
|
#include "userinfotest.h"
|
|
|
|
|
|
|
|
LoginTest::LoginTest(int argc, char ** argv) : TQApplication( argc, argv )
|
|
|
|
{
|
|
|
|
// set up client stream
|
|
|
|
myConnector = new KNetworkConnector( 0 );
|
|
|
|
myConnector->setOptHostPort( "login.oscar.aol.com", 5190 );
|
|
|
|
myTestObject = new ClientStream( myConnector, myConnector);
|
|
|
|
|
|
|
|
// notify when the transport layer is connected
|
|
|
|
//connect( myTestObject, TQT_SIGNAL( connected() ), TQT_SLOT( slotConnected() ) );
|
|
|
|
myClient = new Client();
|
|
|
|
|
|
|
|
myConnection = new Connection( myConnector, myTestObject, "AUTHORIZER" );
|
|
|
|
myConnection->setClient( myClient );
|
|
|
|
// do test once the event loop is running
|
|
|
|
TQTimer::singleShot( 0, this, TQT_SLOT( slotDoTest() ) );
|
|
|
|
connected = false;
|
|
|
|
}
|
|
|
|
|
|
|
|
LoginTest::~LoginTest()
|
|
|
|
{
|
|
|
|
delete myTestObject;
|
|
|
|
delete myConnector;
|
|
|
|
delete myClient;
|
|
|
|
}
|
|
|
|
|
|
|
|
void LoginTest::slotDoTest()
|
|
|
|
{
|
|
|
|
TQString server = TQString::fromLatin1("login.oscar.aol.com");
|
|
|
|
// connect to server
|
|
|
|
tqDebug( "connecting to server ");
|
|
|
|
|
|
|
|
myClient->setIsIcq( true );
|
|
|
|
myClient->start( server, 5190, "userid", "password" );
|
|
|
|
myClient->connectToServer( myConnection, server, true );
|
|
|
|
//TQObject::connect( myClient, TQT_SIGNAL( userIsOnline( const TQString& ) ), this, TQT_SLOT( runUserInfoTest()));
|
|
|
|
//TQTimer::singleShot( 6000, this, TQT_SLOT(runUserInfoTest() ) );
|
|
|
|
connected = true;
|
|
|
|
}
|
|
|
|
|
|
|
|
void LoginTest::slotConnected()
|
|
|
|
{
|
|
|
|
tqDebug( "connection is up");
|
|
|
|
connected = true;
|
|
|
|
}
|
|
|
|
|
|
|
|
int main(int argc, char ** argv)
|
|
|
|
{
|
|
|
|
LoginTest a( argc, argv );
|
|
|
|
a.exec();
|
|
|
|
if ( !a.isConnected() )
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void LoginTest::runUserInfoTest()
|
|
|
|
{
|
|
|
|
tqDebug( "running user info test" );
|
|
|
|
TQString contact = TQString::fromLatin1( "userid" );
|
|
|
|
myClient->requestFullInfo( contact );
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#include "userinfotest.moc"
|