+
+# Tests 75 - 84
+warn "Tests 75 to 84\n\n";
+# param()
+{
+ my $p = { foo => 'bar',
+ quux => [ qw/one two three/ ],
+ buz => undef,
+ num => 3,
+ zero => 0,
+ };
+
+ $r->{params} = $p;
+
+ is_deeply( [keys %$p], [$r->param] ); # 75
+
+ cmp_ok( $r->param('foo'), eq => 'bar' ); # 76
+ cmp_ok( $r->param('num'), '==' => 3 ); # 77
+ cmp_ok( $r->param('zero'), '==' => 0 ); # 78
+
+ ok( ! defined $r->param('buz') ); # 79
+
+ # scalar context returns the 1st value, not a ref
+ cmp_ok( scalar $r->param('quux'), eq => 'one' ); # 80
+ is_deeply( [$r->param('quux')], [ qw/one two three/ ] ); # 81
+
+ $r->param(foo => 'booze');
+ cmp_ok( $r->param('foo'), 'eq', 'booze' ); # 82
+
+ $r->param(foo => undef);
+ ok( ! defined $r->param('foo') ); # 83
+
+ # cannot introduce new keys
+ $r->param(new => 'sox');
+ ok( ! defined $r->param('new') ); # 84
+}
+