Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Otherwise successful test fails under test_harness (-t)

by tye (Sage)
on Feb 12, 2012 at 02:43 UTC ( [id://953276]=note: print w/replies, xml ) Need Help??


in reply to Otherwise successful test fails under test_harness

Since the output is going through a pipe to a summarizing program, I'm not surprised that IO::Pager doesn't even try to launch a pager and so it doesn't fail because it never even checks whether $ENV{PAGER} is set.

- tye        

  • Comment on Re: Otherwise successful test fails under test_harness (-t)

Replies are listed 'Best First'.
Re^2: Otherwise successful test fails under test_harness (-t)
by belg4mit (Prior) on Feb 12, 2012 at 03:45 UTC
    While cryptic, and not exactly correct—see the UPDATE appended to my post before I received this reply, in short: there is no launching of a pager—this did get me to insert some print statements and compare the output in the two scenarios. The heart of the problem was indeed the lack of TTY, and a cryptic line from 8 years ago that I no longer grok the intent of: 
    # This allows us to have multiple pseudo-STDOUT
return 0 unless -t STDOUT;

    [download]
    Thanks!

    --
    In Bob We Trust, All Others Bring Data.

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://953276]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2024-04-24 22:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found