RT 4.2.11, ticket#13852

1 files changed, 26 insertions, 0 deletions

diff --git a/rt/t/crypt/smime/status-string.t b/rt/t/crypt/smime/status-string.t
new file mode 100644
index 000000000..9317229fb
--- /dev/null
+++ b/rt/t/crypt/smime/status-string.t
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+
+use RT::Test tests => 2;
+
+require RT::Crypt::SMIME;
+note "simple round trip";
+{
+    my %data = (Foo => 'bar', Baz => 'zoo');
+    is_deeply(
+        [ RT::Crypt::SMIME->ParseStatus( RT::Crypt::SMIME->FormatStatus( \%data, \%data ) ) ],
+        [ \%data, \%data ],
+    );
+}
+
+note "status appendability";
+{
+    my %data = (Foo => 'bar', Baz => 'zoo');
+    is_deeply(
+        [ RT::Crypt::SMIME->ParseStatus(
+            RT::Crypt::SMIME->FormatStatus( \%data )
+            . RT::Crypt::SMIME->FormatStatus( \%data )
+        ) ],
+        [ \%data, \%data ],
+    );
+}