From: espie <espie@openbsd.org>
Date: Tue, 7 Nov 2023 07:40:50 +0000 (+0000)
Subject: comment out test that no longer makes sense, as noticed by anton
X-Git-Url: http://artulab.com/gitweb/?a=commitdiff_plain;h=5433d80e87ac63b09e89fdc68367fe991bee12fe;p=openbsd

comment out test that no longer makes sense, as noticed by anton
---

diff --git a/gnu/usr.bin/perl/cpan/Term-Cap/test.pl b/gnu/usr.bin/perl/cpan/Term-Cap/test.pl
index 60059abd575..59782fe2851 100755
--- a/gnu/usr.bin/perl/cpan/Term-Cap/test.pl
+++ b/gnu/usr.bin/perl/cpan/Term-Cap/test.pl
@@ -25,7 +25,7 @@ unless( $files || $terminfo || $^O eq 'VMS' ) {
     plan skip_all => 'no termcap available to test';
 }
 else {
-    plan tests => 45;
+    plan tests => 44;
 }
 
 use_ok( 'Term::Cap' );
@@ -135,10 +135,10 @@ SKIP: {
 
 	# it shouldn't try to read one file more than 32(!) times
 	# see __END__ for a really awful termcap example
-	$ENV{TERMPATH} = join(' ', ('tcout') x 33);
-	$vals->{TERM} = 'bar';
-	eval { $t = Term::Cap->Tgetent($vals) };
-	like( $@, qr/failed termcap loop/, 'Tgetent() should catch deep recursion');
+#	$ENV{TERMPATH} = join(' ', ('tcout') x 33);
+#	$vals->{TERM} = 'bar';
+#	eval { $t = Term::Cap->Tgetent($vals) };
+#	like( $@, qr/failed termcap loop/, 'Tgetent() should catch deep recursion');
 
 	# now let it read a fake termcap file, and see if it sets properties 
 	$ENV{TERMPATH} = 'tcout';