Blob Blame History Raw
From 629b08d324e3d0761f177318b2d9d659aa8a7ea8 Mon Sep 17 00:00:00 2001
From: Chad Granum <exodist7@gmail.com>
Date: Tue, 4 Dec 2018 11:36:18 -0800
Subject: [PATCH] This test belongs in Term::Table
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This test was moved to Term::Table

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 t/modules/Util/Table.t | 30 ------------------------------

diff --git a/t/modules/Util/Table.t b/t/modules/Util/Table.t
index d11bb13..0083b73 100644
--- a/t/modules/Util/Table.t
+++ b/t/modules/Util/Table.t
@@ -246,36 +246,6 @@ subtest no_header => sub {
     );
 };
 
-subtest sanitize => sub {
-    my @table = table(
-        max_width => 60,
-        sanitize => 1,
-        header => [ 'data1' ],
-        rows => [["a\t\n\r\b\a        

 ‌\N{U+000B}bф"]],
-    );
-
-    my $have_gcstring = eval { require Unicode::GCString; 1 } || 0;
-
-    is(
-        \@table,
-        [
-            ( $have_gcstring
-                ? ()
-                : ("Unicode::GCString is not installed, table may not display all unicode characters properly")
-            ),
-            '+---------------------------------------------------+',
-            '| data1                                             |',
-            '+---------------------------------------------------+',
-            '| a\t\n                                             |',
-            '| \r\b\a\N{U+A0}\N{U+1680}\N{U+2000}\N{U+2001}\N{U+ |',
-            '| 2002}\N{U+2003}\N{U+2004}\N{U+2008}\N{U+2028}\N{U |',
-            '| +2029}\N{U+3000}\N{U+200C}\N{U+FEFF}\N{U+B}bф     |',
-            '+---------------------------------------------------+',
-        ],
-        "Sanitized data"
-    );
-};
-
 subtest mark_tail => sub {
     my @table = table(
         max_width => 60,
-- 
2.20.1