root/Net-IDN-Nameprep/trunk/t/02_prohibit.t

Revision 319 (checked in by miyagawa, 19 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test::More 'no_plan';
3
4 use Net::IDN::Nameprep::Prohibited;
5
6 my @ok  = ('0041');
7 my @not = ('0000', '00a0');
8
9 for my $ok (@ok) {
10     ok(! Net::IDN::Nameprep::Prohibited->prohibited(hex $ok), "not prohibited - $ok");
11 }
12
13 for my $not (@not) {
14     ok(Net::IDN::Nameprep::Prohibited->prohibited(hex $not), "prohibited - $not");
15 }
16
Note: See TracBrowser for help on using the browser.