[Patch] New tests for APR::Table

[Philippe M . Chiasson]

I noticed there are no test suite defined for the APR::Table API, so, here is
a beginning.

t/response/TestAPR/table.pm:

package TestAPR::table;

use strict;
use warnings FATAL => 'all';

use Apache::Test;

use Apache::Const -compile => 'OK';
use APR::Table ();

sub handler {
    my $r = shift;

    plan $r, tests => 5;
    
    my $table = APR::Table::make($r->pool,16);
    
    ok (UNIVERSAL::isa($table,'APR::Table'));
    
    ok $table->set('foo','bar') || 1;
    
    ok $table->get('foo') eq 'bar';
    
    ok $table->unset('foo') || 1;
    
    ok not defined $table->get('foo');
    
    Apache::OK;
}

1;

-- 
Philippe M. Chiasson  <[EMAIL PROTECTED]>
  Extropia's Resident System Guru
     http://www.eXtropia.com/

Tonight I just can't face the Muzak. 
        -- Larry Wall

perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl 
Hacker!\n$/&&print||$$++&&redo}'

PGP signature