File no-history-truncate-file-test.patch of Package perl-Term-ReadLine-Gnu
diff -Naur Term-ReadLine-Gnu-1.47/t/history.t Term-ReadLine-Gnu-1.47-new/t/history.t
--- Term-ReadLine-Gnu-1.47/t/history.t 2025-07-06 04:21:43.000000000 +0200
+++ Term-ReadLine-Gnu-1.47-new/t/history.t 2025-11-03 19:46:43.885197434 +0100
@@ -11,7 +11,7 @@
use strict;
use warnings;
-use Test::More tests => 99;
+use Test::More tests => 96;
# redefine Test::Mode::note due to it requires Perl 5.10.1.
no warnings 'redefine';
@@ -293,13 +293,6 @@
is_deeply([$t->GetHistory], [0,1,2,3,4,1,2,2,3,4], 'append_history');
#print "@{[$t->GetHistory]}\n";
-# history_truncate_file()
-ok(! $t->history_truncate_file($hfile, 6), "history_truncate_file") or diag("$!");
-$t->SetHistory(); # clear history list
-ok(! $t->read_history($hfile), "read_history") or diag("$!");
-is_deeply([$t->GetHistory], [4,1,2,2,3,4], 'history_truncate_file');
-#print "@{[$t->GetHistory]}\n";
-
########################################################################
note "2.3.7 History Expansion";