Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/request.t

Lines Matching refs:is
31 is $q->request_method => 'GET',"CGI::request_method()";
32 is $q->query_string => 'game=chess;game=checkers;weather=dull',"CGI::query_string()";
33 is $q->param(), 2,"CGI::param()";
34 is join(' ',sort $q->param()), 'game weather',"CGI::param()";
35 is $q->param('game'), 'chess',"CGI::param()";
36 is $q->param('weather'), 'dull',"CGI::param()";
37 is join(' ',$q->param('game')), 'chess checkers',"CGI::param()";
39 is $q->param(-name=>'foo'), 'bar','CGI::param() get';
40 is $q->query_string, 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux";
41 is $q->http('love'), 'true',"CGI::http()";
42 is $q->script_name, '/cgi-bin/foo.cgi',"CGI::script_name()";
43 is $q->url, 'http://the.good.ship.lollypop.com:8080/cgi-bin/foo.cgi',"CGI::url()";
44 is $q->self_url,
47 is $q->url(-absolute=>1), '/cgi-bin/foo.cgi','CGI::url(-absolute=>1)';
48 is $q->url(-relative=>1), 'foo.cgi','CGI::url(-relative=>1)';
49 is $q->url(-relative=>1,-path=>1), 'foo.cgi/somewhere/else','CGI::url(-relative=>1,-path=>1)';
50 is $q->url(-relative=>1,-path=>1,-query=>1), 
59 is join(' ',$q->keywords), 'mary had a little lamb','CGI::keywords';
60 is join(' ',$q->param('keywords')), 'mary had a little lamb','CGI::keywords';
62 is $q->param('foo'), 'bar','CGI::param() redux';
64 is $q->param('bar'), 'froz',"CGI::param() redux 2";
68 is $p->{bar}, 'froz',"tied interface fetch";
70 is join(' ',$q->param('bar')), 'foo bar baz','tied interface store';
85   is $q->param('weather'), 'nice',"CGI::param() from POST";
86   is $q->url_param('big_balls'), 'basketball',"CGI::url_param()";
96     ok $q->param,     'param() is true if parameters';
97     ok $q->url_param, 'url_param() is true if parameters';
103     ok !$q->param,     'param() is false if no parameters';
104     ok !$q->url_param, 'url_param() is false if no parameters';