Re: How can I enable utf8 layer on Test::More diag output

Instead of calling diag($data) you probably have to do this:

my $tb = Test::More->builder;
$tb->failure_output(\*STDOUT);
$tb->diag($data);
[download]

Of course you can wrap it in a subroutine.

Update: Alternatively, instead of redefining failure_output, it might be better to just call binmode on it:

my $tb = Test::More->builder;
binmode $tb->failure_output, ":utf8";
$tb->diag(...);
[download]

Comment on Re: How can I enable utf8 layer on Test::More diag output Select or Download Code

Replies are listed 'Best First'.

Re^2: How can I enable utf8 layer on Test::More diag output
by mje (Curate) on Jul 22, 2008 at 14:57 UTC

sub _open_testhandles {
    my $self = shift;   
    return if $Opened_Testhandles;
    # We dup STDOUT and STDERR so people can change them in their
    # test suites while still getting normal test output.
    open( $Testout, ">&STDOUT") or die "Can't dup STDOUT:  $!";
    open( $Testerr, ">&STDERR") or die "Can't dup STDERR:  $!";

#    $self->_copy_io_layers( \*STDOUT, $Testout );
#    $self->_copy_io_layers( \*STDERR, $Testerr );
    
    $Opened_Testhandles = 1;
}

sub _copy_io_layers {
    my($self, $src, $dst) = @_;
    
    $self->_try(sub {
        require PerlIO;
        my @src_layers = PerlIO::get_layers($src);

        binmode $dst, join " ", map ":$_", @src_layers if @src_layers;
    });
}
[download]

[reply]
[d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks