perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR table.pm
Date Wed, 12 Sep 2001 16:40:27 GMT
dougm       01/09/12 09:40:27

  Added:       t/response/TestAPR table.pm
  Log:
  add tests for APR::Table
  Submitted by:	 Philippe M . Chiasson <gozer@cpan.org>
  Reviewed by:	dougm
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPR/table.pm
  
  Index: 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;
  
  
  

Mime
View raw message