From 5433d80e87ac63b09e89fdc68367fe991bee12fe Mon Sep 17 00:00:00 2001 From: espie Date: Tue, 7 Nov 2023 07:40:50 +0000 Subject: [PATCH] comment out test that no longer makes sense, as noticed by anton --- gnu/usr.bin/perl/cpan/Term-Cap/test.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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'; -- 2.20.1