From 59b4dd74e8695bc9bd7ad6c379b0f313db1cbb61 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 16 Dec 2013 08:08:51 -0800 Subject: [PATCH] LP#1180849: test case - ignoring subrequest responses after respond_complete() This patch adds a regression test for verifying that subrequests ignore additional responses after respond_complete() is called. Signed-off-by: Galen Charlton --- src/perl/t/02-AppSession.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/perl/t/02-AppSession.t b/src/perl/t/02-AppSession.t index 01cce39..5a88b2c 100644 --- a/src/perl/t/02-AppSession.t +++ b/src/perl/t/02-AppSession.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 4; BEGIN { use_ok( 'OpenSRF::AppSession' ); @@ -12,3 +12,11 @@ my $locale = OpenSRF::AppSession->default_locale('fr-CA'); is($locale, 'fr-CA', 'got back the default locale we set'); $locale = OpenSRF::AppSession->reset_locale(); is($locale, 'en-US', 'got back en-US after reset of default locale'); + +my $subreq = OpenSRF::AppSubrequest->new(); +$subreq->respond('a'); +$subreq->respond('b'); +$subreq->respond_complete(); +$subreq->respond('c'); +my @responses = $subreq->responses(); +is_deeply(\@responses, ['a', 'b'], 'further responses ignored after respond_complete() is called'); -- 2.43.2