LP#1180849: test case - ignoring subrequest responses after respond_complete()
[OpenSRF.git] / src / perl / t / 02-AppSession.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5 use Test::More tests => 4;
6
7 BEGIN {
8         use_ok( 'OpenSRF::AppSession' );
9 }
10
11 my $locale = OpenSRF::AppSession->default_locale('fr-CA');
12 is($locale, 'fr-CA', 'got back the default locale we set');
13 $locale = OpenSRF::AppSession->reset_locale();
14 is($locale, 'en-US', 'got back en-US after reset of default locale');
15
16 my $subreq = OpenSRF::AppSubrequest->new();
17 $subreq->respond('a');
18 $subreq->respond('b');
19 $subreq->respond_complete();
20 $subreq->respond('c');
21 my @responses = $subreq->responses();
22 is_deeply(\@responses, ['a', 'b'], 'further responses ignored after respond_complete() is called');