Package: libterm-twiddle-perl
Version: 2.73-1
User: debian-p...@lists.debian.org
Usertags: autopkgtest
Tags: patch
This package is currently failing autopkgtest checks at
http://ci.debian.net/packages/libt/libterm-twiddle-perl/unstable/amd64/
Even though there is currently no explicit Testsuite declaration, it is
being tested on ci.debian.net with generic pkg-perl checks because it
succeeded earlier. See
http://pkg-perl.alioth.debian.org/autopkgtest.html#ci_debian_net
The test suite warns when TERM is set, as is apparently the case on
ci.debian.net. Proposed patch attached.
Excerpt from the test log:
adt-run [08:46:23]: test auto-build-deps:
/usr/share/pkg-perl-autopkgtest/runner build-deps
adt-run [08:46:23]: test auto-build-deps: [-----------------------
Nothing to prove, skipping.
1..13
# Running under perl version 5.020002 for linux
# Current time local: Fri Apr 24 08:46:23 2015
# Current time GMT: Fri Apr 24 08:46:23 2015
# Using Test.pm version 1.26
ok 1
tput: No value for $TERM and no -T specified
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
adt-run [08:46:23]: test auto-build-deps: -----------------------]
adt-run [08:46:23]: test auto-build-deps: - - - - - - - - - - results - - -
- - - - - - -
auto-build-deps FAIL stderr: tput: No value for $TERM and no -T specified
adt-run [08:46:23]: test auto-build-deps: - - - - - - - - - - stderr - - - -
- - - - - -
tput: No value for $TERM and no -T specified
--
Niko Tyni nt...@debian.org
>From 3f97a2a62429925ec0e6f41cad4d1f9aee53674c Mon Sep 17 00:00:00 2001
From: Niko Tyni <nt...@debian.org>
Date: Sun, 3 May 2015 20:23:15 +0300
Subject: Stop the test suite warning when TERM is not set
If TERM is empty, the test suite generates a warning like
tput: No value for $TERM and no -T specified
so explicitly set it to 'dumb' if unset.
Patch-Name: empty-term.diff
---
test.pl | 2 ++
1 file changed, 2 insertions(+)
diff --git a/test.pl b/test.pl
index 75769fd..93eaf43 100644
--- a/test.pl
+++ b/test.pl
@@ -4,6 +4,8 @@ BEGIN { $tests = 13; plan tests => $tests };
use Term::Twiddle;
ok(1);
+local $ENV{TERM} = 'dumb' if !$ENV{TERM};
+
my $sp;
$sp = new Term::Twiddle;
--
2.1.4
