From 030ef5c56a4d8859448d3e35814ce1331d9089f8 Mon Sep 17 00:00:00 2001 From: tokuhirom Date: Sun, 10 Feb 2008 04:17:44 +0000 Subject: [PATCH] added more tests for vianame --- t/charnames.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/t/charnames.t b/t/charnames.t index 9b8fc63..abc4311 100644 --- a/t/charnames.t +++ b/t/charnames.t @@ -1,7 +1,7 @@ use strict; use warnings; use Data::Dumper; -use Test::More tests => 32; +use Test::More tests => 33; use Encode; my $WARN; @@ -54,6 +54,7 @@ BEGIN { } eval { unicode2name() }; like $@, qr{^missing code}, "validation"; eval { unicode2name_en() }; like $@, qr{^missing code}, "validation"; + eval { vianame() }; like $@, qr{^missing name}, "validation"; is Encode::is_utf8("\N{DoCoMo Beer}"), 1; is Encode::is_utf8("\N{DoCoMo ファーストフード}"), 1;