rt/t/crypt/smime/status-string.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test tests => 2;
   5
   6 require RT::Crypt::SMIME;
   7 note "simple round trip";
   8 {
   9     my %data = (Foo => 'bar', Baz => 'zoo');
  10     is_deeply(
  11         [ RT::Crypt::SMIME->ParseStatus( RT::Crypt::SMIME->FormatStatus( \%data, \%data ) ) ],
  12         [ \%data, \%data ],
  13     );
  14 }
  15
  16 note "status appendability";
  17 {
  18     my %data = (Foo => 'bar', Baz => 'zoo');
  19     is_deeply(
  20         [ RT::Crypt::SMIME->ParseStatus(
  21             RT::Crypt::SMIME->FormatStatus( \%data )
  22             . RT::Crypt::SMIME->FormatStatus( \%data )
  23         ) ],
  24         [ \%data, \%data ],
  25     );
  26 }