Commit 778879b6 authored by sikeda's avatar sikeda
Browse files

[-dev] Adding testcases for Sympa::Tools::Text.


git-svn-id: https://subversion.renater.fr/sympa/branches/sympa-6.2-branch@12432 05aa8bb8-cd2b-0410-b1d7-8918dfa770ce
parent 742ca145
......@@ -37,6 +37,7 @@ check_SCRIPTS = \
t/tools_data.t \
t/tools_file.t \
t/Tools_SMIME.t \
t/Tools_Text.t \
t/tools_time.t
check_DATA = \
t/locale/cs/LC_MESSAGES/sympa.mo \
......
# -*- indent-tabs-mode: nil; -*-
# vim:ft=perl:et:sw=4
# $Id$
use strict;
use warnings;
use Test::More;
use Sympa::Tools::Text;
plan tests => 3;
my $email = q{&'+-./09=A@Z.a-z};
is Sympa::Tools::Text::canonic_email($email),
q{&'+-./09=a@z.a-z}, 'canonic_email';
is Sympa::Tools::Text::canonic_email("\t\r\n "), undef,
'canonic_email, whitespaces';
is Sympa::Tools::Text::canonic_email(undef), undef,
'canonic_email, undefined value';
# ToDo: foldcase()
# ToDo: wrap_text()
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment