Agent-TCLI-Package-Net

 view release on metacpan or  search on metacpan

t/TCLI.Package.Net.HTTP.t  view on Meta::CPAN

is($test_c1_0->name,'http', '$test_c1_0->name get from init args');
is($test_c1_0->usage,'http tget url=http:\example.com\request resp=404', '$test_c1_0->usage get from init args');
is($test_c1_0->help,'http web cient environment', '$test_c1_0->help get from init args');
is($test_c1_0->topic,'net', '$test_c1_0->topic get from init args');
is($test_c1_0->command,'tcli_'.$testee, '$test_c1_0->command get from init args');
is($test_c1_0->handler,'establish_context', '$test_c1_0->handler get from init args');
is($test_c1_0->call_style,'session', '$test_c1_0->call_style get from init args');


$t->is_body('http','Context now: http','Context now: http');
$t->not_ok('tget','tget no args');
$t->ok('tget url=http://testing.erichacker.com/404.html resp=404',
		'tget for 404' );
$t->like_body('tget url=http://testing.erichacker.com/404.html resp=200',
		qr(failed), 'tget failed for bad request');
$t->like_body('tget url=http://testing.erichacker.com/ resp=200',
		qr(ok), 'tget for 200');

$t->like_body('cget url=http://testing.erichacker.com/404.html',
		qr(resp=404), 'cget for 404 url' );
$t->like_body('cget url=http://testing.erichacker.com/',
		qr(resp=200), 'cget for good url');

#retries
$t->like_body('cget url=http://testing.erichacker.com/ resp=200 rc=2 ri=10',
		qr(http://testing.erichacker.com/ resp=200 try=1), 'Retry count 1 of 2');
$t->ok('','Retry count 2 of 2');

# Bad cases
$t->like_body('cget http://testing.erichacker.com/',
		qr(Invalid.*?url),  'Forgot url= in command');
$t->not_ok('cget url=htpp://testing.erichacker.com/',
		'Invalid url= in command');

$test_master->run;

t/TCLI.Package.Net.HTTPD.t  view on Meta::CPAN

is($test_c1_0->call_style,'session', '$test_c1_0->call_style get from init args');


$t->is_body('httpd','Context now: httpd','Context now: httpd');
$t->ok('spawn' );
$t->ok('stop' );

$t->like_body('show port',qr(8080),'show default port');
$t->ok('set port 8000');
$t->like_body('show port',qr(8000),'show set port');
$t->not_ok('set port eight');
$t->like_body('show port',qr(8000),'show set port');
$t->ok('set port 8080');

$t->like_body('show address',qr(#!undefined),'show default address');
$t->ok('set address 127.0.0.1');
$t->like_body('show address',qr(127.0.0.1),'show set address');
$t->not_ok('set address foobario');
$t->like_body('show address',qr(127.0.0.1),'show set address');

$t->ok('set hostname example.com');
$t->like_body('show hostname',qr(example.com),'show set hostname');

$t->ok('set regex ^/foo/.*');
$t->like_body('show regex',qr(\^/foo/\.\*),'show set regex');

$t->like_body('show response',qr(OK200),'show set response');
$t->ok('set response NA404');
$t->like_body('show response',qr(NA404),'show set response');
$t->not_ok('set response OK404');
$t->like_body('show response',qr(NA404),'show set response');
$t->ok('set response OK200');

$t->ok('uri add regex=foo');
$t->like_body('show handlers',qr(foo));
$t->ok('spawn' );
$t->ok('/http cget url=http://127.0.0.1:8080/foo.htm');
$t->ok('stop' );
$t->ok('uri delete regex=foo');
$t->unlike_body('show handlers',qr(foo),'foo gone');

t/TCLI.Package.Net.HTTPD.t  view on Meta::CPAN

$t->ok('/tail test add like 200.*?foobar');
$t->ok('/http cget url=http://127.0.0.1:8080/foobar.htm');

$t->ok('stop' );
$t->ok('uri delete regex=bar.*');
$t->unlike_body('show handlers',qr(bar),'bar gone');

# test for error on restarting on same port
$t->ok('spawn port 8000' );
$t->ok('/http cget url=http://127.0.0.1:8000/foo.htm','HTTPD up');
$t->not_ok('spawn port 8000' );
$t->not_ok('stop' );
$t->ok('stop port 8000' );

# Can't add handler after server up yet. Need to fix SimpleHTTP
# 13 tests
#$t->ok('spawn' );
#$t->ok('uri add regex=bar.*');
#$t->like_body('show handlers',qr(bar.*));
#
#$t->ok('/tail test add like 200.*?bar');
#$t->ok('/http cget url=http://127.0.0.1:8080/bar.htm');

t/TCLI.Package.Net.SMTP.t  view on Meta::CPAN

$t->ok('set server=localhost');
$t->like_body('show server',qr(localhost));

$t->like_body('show port',qr(25));
$t->ok('set port=925');
$t->like_body('show port',qr(925));
$t->ok('set port=25');
$t->like_body('show port',qr(25));

# Bad cases
$t->not_ok('set port=smtp');


$test_master->run;

t/dev/TCLI.Package.Net.SMTP.Live.t  view on Meta::CPAN

$t->ok('send subj="test address escaped quotes"');

$t->ok('set from="\"Testee Jr\" <testee@testing.erichacker.com>"');
$t->ok('send subj="test address escaped quotes with space"');

$t->ok('set from="Testee Jr <testee@testing.erichacker.com>"');
$t->ok('send subj="test address space no quotes"');


# fail for noexistant file
$t->not_ok('sendtext textfile="DONTREADME"');

# fail for bad address
$t->not_ok('set from="Testee testee@testing.erichacker.com"');



$test_master->run;