use
warnings;
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Manager.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
BEGIN { use_ok(
'Lemonldap::NG::Common::EmailAddress'
) }
my
$name
=
'my name'
;
my
=
'test@domain.com'
;
my
$format_email
;
ok(
$format_email
= format_email(
$name
,
),
"calling format_email function"
);
ok(
$format_email
eq
"\"$name\" <$mail>"
,
"testing formatted email value"
);