RT 4.2.11, ticket#13852

[freeside.git] / rt / t / crypt / smime / status-string.t

diff --git a/rt/t/crypt/smime/status-string.t b/rt/t/crypt/smime/status-string.t
new file mode 100644 (file)
index 0000000..9317229
--- /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 ],
+    );
+}