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

Lines Matching refs:result
33   my $result = CGI::Cookie->parse($test_cookie[0]);
34   is(ref($result), 'HASH', "Hash ref returned in scalar context");
36   my @result = CGI::Cookie->parse($test_cookie[0]);
37   is(@result, 8, "returns correct number of fields");
39   @result = CGI::Cookie->parse($test_cookie[1]);
40   is(@result, 6, "returns correct number of fields");
42   my %result = CGI::Cookie->parse($test_cookie[0]);
43   is($result{foo}->value, '123', "cookie foo is correct");
44   is($result{bar}->value, 'qwerty', "cookie bar is correct");
45   is($result{baz}->value, 'wibble', "cookie baz is correct");
46   is($result{qux}->value, 'a1', "cookie qux is correct");
68   my %result = CGI::Cookie->fetch();
69   ok(keys %result == 0, "No cookies in environment, returns empty list");
73   %result = CGI::Cookie->fetch();
74   ok(eq_set([keys %result], [qw(foo bar baz qux)]),
77   is(ref($result{foo}), 'CGI::Cookie', 'Type of objects returned is correct');
78   is($result{foo}->value, 'vixen',      "cookie foo is correct");
79   is($result{bar}->value, 'cow',        "cookie bar is correct");
80   is($result{baz}->value, 'bitch',      "cookie baz is correct");
81   is($result{qux}->value, 'politician', "cookie qux is correct");
85   %result = CGI::Cookie->fetch();
86   ok(keys %result == 0, "No cookies in environment, returns empty list");
90   %result = CGI::Cookie->fetch();
91   ok(eq_set([keys %result], [qw(foo bar baz qux)]),
94   is(ref($result{foo}), 'CGI::Cookie', 'Type of objects returned is correct');
95   is($result{foo}->value, 'a phrase', "cookie foo is correct");
96   is($result{bar}->value, 'yes, a phrase', "cookie bar is correct");
97   is($result{baz}->value, '^wibble', "cookie baz is correct");
98   is($result{qux}->value, "'", "cookie qux is correct");
110   my %result = CGI::Cookie->raw_fetch();
111   ok(keys %result == 0, "No cookies in environment, returns empty list");
115   %result = CGI::Cookie->raw_fetch();
116   ok(eq_set([keys %result], [qw(foo bar baz qux)]),
119   is(ref($result{foo}), '', 'Plain scalar returned');
120   is($result{foo}, 'vixen',      "cookie foo is correct");
121   is($result{bar}, 'cow',        "cookie bar is correct");
122   is($result{baz}, 'bitch',      "cookie baz is correct");
123   is($result{qux}, 'politician', "cookie qux is correct");
127   %result = CGI::Cookie->raw_fetch();
128   ok(keys %result == 0, "No cookies in environment, returns empty list");
132   %result = CGI::Cookie->raw_fetch();
133   ok(eq_set([keys %result], [qw(foo bar baz qux)]),
136   is(ref($result{foo}), '', 'Plain scalar returned');
137   is($result{foo}, 'a%20phrase', "cookie foo is correct");
138   is($result{bar}, 'yes%2C%20a%20phrase', "cookie bar is correct");
139   is($result{baz}, '%5Ewibble', "cookie baz is correct");
140   is($result{qux}, '%27', "cookie qux is correct");
143   %result = CGI::Cookie->raw_fetch();
144   is($result{foo}, '', 'no value translates to empty string');