1From c424e6118d3bd836939ce39c70ee9e6bbd984028 Mon Sep 17 00:00:00 2001
2From: Tim Orling <tim.orling@konsulko.com>
3Date: Thu, 17 Nov 2022 16:33:20 -0800
4Subject: [PATCH] Skip TODO test cases that fail
5
6TODO cases report as "not ok" with ptest-runner
7
8Upstream-Status: Inappropriate [ptest-runner specific]
9
10Signed-off-by: Tim Orling <tim.orling@konsulko.com>
11---
12 t/escape-char.t | 20 ++++++++++----------
13 t/iri.t         | 18 +++++++++---------
14 t/mailto.t      | 12 ++++++------
15 3 files changed, 25 insertions(+), 25 deletions(-)
16
17diff --git a/t/escape-char.t b/t/escape-char.t
18index c6ce79c..5e62ad5 100644
19--- a/t/escape-char.t
20+++ b/t/escape-char.t
21@@ -6,16 +6,16 @@ use warnings;
22 use Test::More;
23 use URI ();
24
25-TODO: {
26-    my $str = "http://foo/\xE9";
27-    utf8::upgrade($str);
28-    my $uri = URI->new($str);
29-
30-    local $TODO = 'URI::Escape::escape_char misunderstands utf8';
31-
32-    # http://foo/%C3%A9
33-    is("$uri", 'http://foo/%E9', 'correctly created a URI from a utf8-upgraded string');
34-}
35+#TODO: {
36+#    my $str = "http://foo/\xE9";
37+#    utf8::upgrade($str);
38+#    my $uri = URI->new($str);
39+#
40+#    local $TODO = 'URI::Escape::escape_char misunderstands utf8';
41+#
42+#    # http://foo/%C3%A9
43+#    is("$uri", 'http://foo/%E9', 'correctly created a URI from a utf8-upgraded string');
44+#}
45
46 {
47     my $str = "http://foo/\xE9";
48diff --git a/t/iri.t b/t/iri.t
49index cf983d6..884b36e 100644
50--- a/t/iri.t
51+++ b/t/iri.t
52@@ -6,7 +6,7 @@ use Test::More;
53 use Config qw( %Config );
54
55 if (defined $Config{useperlio}) {
56-    plan tests=>30;
57+    plan tests=>28;
58 } else {
59     plan skip_all=>"this perl doesn't support PerlIO layers";
60 }
61@@ -67,17 +67,17 @@ is $u->as_iri, "http://➡.ws/";
62 # draft-duerst-iri-bis.txt examples (section 3.7.1):
63 is(URI->new("http://www.example.org/D%C3%BCrst")->as_iri, "http://www.example.org/D\xFCrst");
64 is(URI->new("http://www.example.org/D%FCrst")->as_iri, "http://www.example.org/D%FCrst");
65-TODO: {
66-    local $TODO = "some chars (like U+202E, RIGHT-TO-LEFT OVERRIDE) need to stay escaped";
67-is(URI->new("http://xn--99zt52a.example.org/%e2%80%ae")->as_iri, "http://\x{7D0D}\x{8C46}.example.org/%e2%80%ae");
68-}
69+#TODO: {
70+#    local $TODO = "some chars (like U+202E, RIGHT-TO-LEFT OVERRIDE) need to stay escaped";
71+#is(URI->new("http://xn--99zt52a.example.org/%e2%80%ae")->as_iri, "http://\x{7D0D}\x{8C46}.example.org/%e2%80%ae");
72+#}
73
74 # try some URLs that can't be IDNA encoded (fallback to encoded UTF8 bytes)
75 $u = URI->new("http://" . ("ü" x 128));
76 is $u, "http://" . ("%C3%BC" x 128);
77 is $u->host, ("\xC3\xBC" x 128);
78-TODO: {
79-    local $TODO = "should ihost decode UTF8 bytes?";
80-    is $u->ihost, ("ü" x 128);
81-}
82+#TODO: {
83+#    local $TODO = "should ihost decode UTF8 bytes?";
84+#    is $u->ihost, ("ü" x 128);
85+#}
86 is $u->as_iri, "http://" . ("ü" x 128);
87diff --git a/t/mailto.t b/t/mailto.t
88index 79e9a13..c68cfb2 100644
89--- a/t/mailto.t
90+++ b/t/mailto.t
91@@ -48,12 +48,12 @@ $u = URI->new('mailto:user+detail@example.com');
92 is $u->to, 'user+detail@example.com', 'subaddress with `+` parsed correctly';
93 is $u, 'mailto:user+detail@example.com', '... and stringification works';
94
95-TODO: {
96-    local $TODO = "We can't handle quoted local parts without properly parsing the email addresses";
97-    $u = URI->new('mailto:"foo bar+baz"@example.com');
98-    is $u->to, '"foo bar+baz"@example.com', 'address with quoted local part containing spaces is parsed correctly';
99-    is $u, 'mailto:%22foo%20bar+baz%22@example.com', '... and stringification works';
100-}
101+#TODO: {
102+#    local $TODO = "We can't handle quoted local parts without properly parsing the email addresses";
103+#    $u = URI->new('mailto:"foo bar+baz"@example.com');
104+#    is $u->to, '"foo bar+baz"@example.com', 'address with quoted local part containing spaces is parsed correctly';
105+#    is $u, 'mailto:%22foo%20bar+baz%22@example.com', '... and stringification works';
106+#}
107
108 # RFC 5321 (4.1.3) - Address Literals
109
110