1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
use strict;
use warnings;
use File::Temp;
use Test::More 0.88;
require './t/TestUtils.pm';
t::TestUtils->import();
use 5.6.0;
use utf8;
use IO::Pager;
SKIP: {
skip_interactive();
my $fileno = fileno(STDOUT);
{
binmode(*STDOUT, ':encoding(UTF-8)');
my $pager = IO::Pager->new(*STDOUT);
$pager->say('Bonzai Bjørn');
$pager->say("$/End of text, try pressing 'Q' to exit.");
$pager->close();
}
#Reinstate some order
CORE::open(*BOB, ">&=$fileno");
binmode(*BOB, ':encoding(UTF-8)');
select(BOB);
my $A = prompt("\nDid you see 'Bonzai Bjørn' in your pager? Note the crossed o in the second word [Yn]");
ok is_yes($A), 'layer preservation';
}
done_testing;
|
