src/perl/t/02-AppSession.t

   1 #!perl -T
   2
   3 use Test::More tests => 2;
   4
   5 BEGIN {
   6         use_ok( 'OpenSRF::AppSession' );
   7 }
   8
   9 my $subreq = OpenSRF::AppSubrequest->new();
  10 $subreq->respond('a');
  11 $subreq->respond('b');
  12 $subreq->respond_complete();
  13 $subreq->respond('c');
  14 my @responses = $subreq->responses();
  15 is_deeply(\@responses, ['a', 'b'], 'further responses ignored after respond_complete() is called');