756a757,796
> 
> # test case-sensitive  associate (part 1)
> {
> package TestAssociate;
> 	sub param(){
> 		# return a param
> 		return $_[0]->{$_[1]} if defined $_[1];
> 		# or a list of all params
> 		# warn 'getting list of all params!';
> 		return (keys %{$_[0]});
> 	} 
> }
> 
> my $associate = bless {ADJECTIVE=>'very'}, 'TestAssociate';
> 
> my $template = HTML::Template->new (
>                                         path => 'templates',
>                                         filename => 'simple.tmpl',
>  	                              	case_sensitive => 1,
>                                         associate => $associate,
>                                         #debug => 1,
>                                        );
> $output =  $template->output;
> ok($output !~ /ADJECTIVE/ and $output =~ /very/);
> 
> # test case-sensitive  associate (part 2)
> 
> my $associate = bless {AdjecTive=>'very'}, 'TestAssociate';
> 
> my $template = HTML::Template->new (
>                                         path => 'templates',
>                                         filename => 'simple.tmpl',
>                                         case_sensitive => 1,
>                                         associate => $associate, 
>                                         # debug => 1,
>                                        ); 
> 
> $output =  $template->output;
> ok($output !~ /ADJECTIVE/ and $output !~ /very/);
>