Agent-TCLI-Package-Net

 view release on metacpan or  search on metacpan

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

78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
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

106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
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

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
$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

98
99
100
101
102
103
104
105
106
107
108
109
110
111
$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

75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
$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;