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