#!/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;
};