From 629b08d324e3d0761f177318b2d9d659aa8a7ea8 Mon Sep 17 00:00:00 2001 From: Chad Granum 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ř --- 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