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');