cvs commit: modperl-2.0/t/filter/TestFilter buckets.pm

[do...@apache.org]

dougm       01/04/17 22:11:14

  Added:       t/filter/TestFilter buckets.pm
  Log:
  add a test for the brigade/buckets api
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/filter/TestFilter/buckets.pm
  
  Index: buckets.pm
  ===================================================================
  package TestFilter::buckets;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Test;
  use Apache::Test ();
  use Apache::Filter ();
  use APR::Brigade ();
  use APR::Bucket ();
  
  sub handler {
      my($filter, $bb) = @_;
  
      Apache::TestToString->start;
  
      plan tests => 4;
  
      #should only have 1 bucket from the response() below
      for (my $bucket = $bb->first; $bucket; $bucket = $bb->next($bucket)) {
          ok $bucket->type->name;
          ok $bucket->length == 2;
          ok $bucket->read eq 'ok';
      }
  
      my $tests = Apache::TestToString->finish;
  
      my $brigade = APR::Brigade->new($filter->f->r->pool);
      my $bucket = APR::Bucket->new($tests);
  
      $brigade->insert_tail($bucket);
  
      my $ok = $brigade->first->type->name =~ /mod_perl/ ? 4 : 0;
      $brigade->insert_tail(APR::Bucket->new("ok $ok\n"));
  
      $filter->f->next->pass_brigade($brigade);
  
      Apache::OK;
  }
  
  sub response {
      my $r = shift;
  
      $r->content_type('text/plain');
      $r->puts("ok");
  
      0;
  }
  
  1;
  __DATA__
  SetHandler modperl
  PerlResponseHandler TestFilter::buckets::response