1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
//Licensed under the GNU General Public License
#include "clientstream_test.h"
ClientStreamTest::ClientStreamTest(int argc, char ** argv) : TQApplication( argc, argv )
{
// set up client stream
myConnector = new KNetworkConnector( 0 );
//myConnector->setOptHostPort( "localhost", 8300 );
myConnector->setOptHostPort( "login.oscar.aol.com", 5190 );
myTestObject = new ClientStream( myConnector, myConnector);
// notify when the transport layer is connected
connect( myTestObject, TQ_SIGNAL( connected() ), TQ_SLOT( slotConnected() ) );
// notify and start sending
//connect( myTestObject, TQ_SIGNAL( warning(int) ), TQ_SLOT( slotWarning(int) ) );
// do test once the event loop is running
TQTimer::singleShot( 0, this, TQ_SLOT( slotDoTest() ) );
connected = false;
}
ClientStreamTest::~ClientStreamTest()
{
delete myTestObject;
delete myConnector;
}
void ClientStreamTest::slotDoTest()
{
TQString server = TQString::fromLatin1("login.oscar.aol.com");
// connect to server
tqDebug( "connecting to server ");
myTestObject->connectToServer( server, true ); // fine up to here...
}
void ClientStreamTest::slotConnected()
{
tqDebug( "connection is up");
connected = true;
}
int main(int argc, char ** argv)
{
ClientStreamTest a( argc, argv );
a.exec();
return 0;
}
#include "clientstream_test.moc"
|
