← Back to branch summary

~ubuntu-branches/ubuntu/vivid/libnet-idn-encode-perl/vivid-proposed

« back to all changes in this revision

Viewing changes to t/uts46_to_unicode.t

  • Committer: Package Import Robot
  • Author(s): gregor herrmann, Salvatore Bonaccorso, gregor herrmann
  • Date: 2014-09-17 19:47:25 UTC
  • mfrom: (7.1.1 sid)
  • Revision ID: package-import@ubuntu.com-20140917194725-xcrnmvyve985wbkw
Tags: 2.201-1
* Team upload.

[ Salvatore Bonaccorso ]
* Update Vcs-Browser URL to cgit web frontend

[ gregor herrmann ]
* debian/control: update {versioned,alternative} (build) dependencies.
* New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/uts46_to_unicode.t
4791
4791
is(eval{uts46_to_unicode("\x{10B89}\x{064C}。-Ssꡮ\x{200C}", %p)},        undef,  "to_unicode\(\'\\uD802\\uDF89\\u064C\。\-Ssꡮ\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@));
4792
4792
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔Ⴡ", %p)},        undef,  "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@));
4793
4793
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔Ⴡ", %p)},        undef,  "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔Ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@));
4794
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); }
4795
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); }
4796
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); }
4797
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); }
4798
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); }
4799
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); }
4800
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); }
4801
 
TODO: { local $TODO = "test file was generated on perl 5.019007, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); }
 
4794
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); }
 
4795
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); }
 
4796
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); }
 
4797
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔Ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); }
 
4798
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); }
 
4799
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); }
 
4800
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); }
 
4801
TODO: { local $TODO = "test file was generated on perl 5.016003, which is too old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)},       "🔔ⴡ",   "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); }
4802
4802
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔ⴡ", %p)},        undef,  "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@));
4803
4803
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔ⴡ", %p)},        undef,  "to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔ⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@));
4804
4804
is(eval{uts46_to_unicode("\x{2DBF}.ß\x{200D}", %p)},    undef,  "to_unicode\(\'\\u2DBF\.ß\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@));