git.maemo.org Git - pkg-perl/blob - deb-src/libnet-libidn-perl/libnet-libidn-perl-0.07/_test.pl

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl test.pl'
   3
   4 #########################
   5
   6 use strict;
   7 use Test;
   8
   9 #IF_TLD
  10 BEGIN { plan tests => 21, todo => [] };
  11 #ELSE_TLD
  12 BEGIN { plan tests => 10, todo => [] };
  13 #ENDIF_TLD
  14
  15 use Net::LibIDN;
  16
  17 #########################
  18
  19 ok(Net::LibIDN::idn_to_ascii("b\xF6se.de", "ISO-8859-1"), "xn--bse-sna.de");
  20 ok(Net::LibIDN::idn_to_ascii("b\xC3\xB6se.de","UTF-8"), "xn--bse-sna.de");
  21
  22 ok(Net::LibIDN::idn_to_unicode("xn--bse-sna.de", "ISO-8859-1"), "b\xF6se.de");
  23 ok(Net::LibIDN::idn_to_unicode("xn--bse-sna.de", "UTF-8"), "b\xC3\xB6se.de");
  24
  25 ok(Net::LibIDN::idn_punycode_encode("\xDCHHH\xC4AHHH", "ISO-8859-1"), "HHHAHHH-wpa6s");
  26 ok(Net::LibIDN::idn_punycode_encode("\xC3\x9CHHH\xC3\x84AHHH", "UTF-8"), "HHHAHHH-wpa6s");
  27
  28 ok(Net::LibIDN::idn_punycode_decode("HHHAHHH-wpa6s", "ISO-8859-1"), "\xDCHHH\xC4AHHH");
  29 ok(Net::LibIDN::idn_punycode_decode("HHHAHHH-wpa6s", "UTF-8"), "\xC3\x9CHHH\xC3\x84AHHH");
  30
  31 ok(Net::LibIDN::idn_prep_name("GR\xD6\xDFeR", "ISO-8859-1"), "gr\xF6sser");
  32 ok(Net::LibIDN::idn_prep_name("GR\xC3\xB6\xC3\x9Fer", "UTF-8"), "gr\xC3\xB6sser");
  33
  34 #IF_TLD
  35
  36 my $has_nono;
  37
  38 {
  39 my $res = Net::LibIDN::tld_get_table("no");
  40 $has_nono = $$res{name} ne "no";
  41 skip($has_nono, $$res{name}, "no");
  42 skip($has_nono, $$res{nvalid}, 13);
  43 my $sum = 0;
  44 my $zero = 0;
  45 for (my $i=0; $i<13; $i++)
  46 {
  47         $zero = 1 if (!$$res{valid}[$i]{start} && !$$res{valid}[$i]{end});
  48         $sum += $$res{valid}[$i]{start};
  49         $sum += $$res{valid}[$i]{end};
  50 }
  51 skip($has_nono, $sum, 7470);
  52 skip($has_nono, $zero, 0);
  53 }
  54
  55
  56 {
  57 my $errpos;
  58 my $res = Net::LibIDN::tld_check("p\xFBrle.no", $errpos, "ISO-8859-1");
  59 skip($has_nono, $errpos, 1);
  60 skip($has_nono, $res, 0);
  61 }
  62
  63 {
  64 my $errpos;
  65 my $res = Net::LibIDN::tld_check("p\xFBrle.no", $errpos, "ISO-8859-1", "com");
  66 ok($errpos, 0);
  67 ok($res, 1);
  68 }
  69
  70 ok(Net::LibIDN::tld_get("Kruder.DorfMeister"), "dorfmeister");
  71 ok(Net::LibIDN::tld_get("GR\xC3\xB6\xC3\x9Fer"), undef);
  72
  73 ok(Net::LibIDN::tld_get_table("mars"), undef);
  74
  75 #ENDIF_TLD