From f60d276f6b482afeb2639a9d2dac6e80092e750b Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
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 <gmc@esilibrary.com>

Conflicts:
	src/perl/t/02-AppSession.t
---
 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 1ac6673..22befb4 100644
--- a/src/perl/t/02-AppSession.t
+++ b/src/perl/t/02-AppSession.t
@@ -1,7 +1,15 @@
 #!perl -T
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 BEGIN {
 	use_ok( 'OpenSRF::AppSession' );
 }
+
+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