1 files changed, 28 insertions, 0 deletions
diff --git a/t/UserId.t b/t/UserId.t
new file mode 100644
index 0000000..1e8124c
--- /dev/null
+++ b/t/UserId.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+#
+# $Id: UserId.t,v 1.1 2001/04/30 01:36:12 ftobin Exp $
+#
+
+use strict;
+
+use lib './t';
+use MyTest;
+use GnuPG::UserId;
+
+my $v1 = 'Dekan';
+my $v2 = 'Frank Tobin';
+
+my $user_id = GnuPG::UserId->new( as_string => $v1 );
+
+# deprecation test
+TEST
+{
+    $user_id->user_id_string() eq $v1;
+};
+
+# deprecation test
+TEST
+{
+    $user_id->user_id_string( $v2 );
+    $user_id->as_string() eq $v2;
+};