Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (15 sloc) 0.544 kB
use Test::More qw(no_plan);
use strict;
use warnings;
use autobox::Core;
my $message = "This is an important message";
my @array = qw(this is an important message);
SKIP: {
my $has_test_output = eval { require Test::Output };
skip "Don't have Test::Output", 1, if not $has_test_output;
Test::Output::stdout_is( sub { $message->say }, $message . "\n" );
Test::Output::stdout_is( sub { @array->say }, "@array\n" );
}
# We need at least one test so that Test::Harness doesn't complain in
# case we had to skip above
ok 1;
Jump to Line
Something went wrong with that request. Please try again.