[p5sagit/p5-mst-13.2.git] / t / io / say.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

# Just a few very basic tests cribbed from t/io/print.t,
# with some minor additions. say is actually compiled to
# a print opcode, so it's more or less guaranteed to behave
# the same way as print in any case.

use strict 'vars';
eval 'use Errno';
die $@ if $@ and !$ENV{PERL_CORE_MINITEST};

use feature "say";

say "1..12";

my $foo = 'STDOUT';
say $foo "ok 1";

say "ok 2\n","ok 3\n","ok 4";
say STDOUT "ok 5";

open(FOO,">-");
say FOO "ok 6";

open(my $bar,">-");
say $bar "ok 7";

say {"STDOUT"} "ok 8";

if (!exists &Errno::EBADF) {
    print "ok 9 # skipped: no EBADF\n";
} else {
    $! = 0;
    no warnings 'unopened';
    say NONEXISTENT "foo";
    print "not " if ($! != &Errno::EBADF);
    say "ok 9";
}

$_ = "ok 10";
say;

$_ = "ok 11";
say STDOUT;

{
    # test that $, doesn't show up before the trailing \n
    local $, = "\nnot ok 13"; # how to fool Test::Harness
    say "ok 12";
}
Commit	Line	Data
0d863452	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	# Just a few very basic tests cribbed from t/io/print.t,
	9	# with some minor additions. say is actually compiled to
	10	# a print opcode, so it's more or less guaranteed to behave
	11	# the same way as print in any case.
	12
	13	use strict 'vars';
	14	eval 'use Errno';
	15	die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
	16
	17	use feature "say";
	18
cfc4a7da	19	say "1..12";
0d863452	20
	21	my $foo = 'STDOUT';
	22	say $foo "ok 1";
	23
	24	say "ok 2\n","ok 3\n","ok 4";
	25	say STDOUT "ok 5";
	26
	27	open(FOO,">-");
	28	say FOO "ok 6";
	29
	30	open(my $bar,">-");
	31	say $bar "ok 7";
	32
	33	say {"STDOUT"} "ok 8";
	34
	35	if (!exists &Errno::EBADF) {
	36	print "ok 9 # skipped: no EBADF\n";
	37	} else {
	38	$! = 0;
	39	no warnings 'unopened';
	40	say NONEXISTENT "foo";
	41	print "not " if ($! != &Errno::EBADF);
	42	say "ok 9";
	43	}
	44
	45	$_ = "ok 10";
	46	say;
	47
	48	$_ = "ok 11";
	49	say STDOUT;
cfc4a7da	50
	51	{
	52	# test that $, doesn't show up before the trailing \n
	53	local $, = "\nnot ok 13"; # how to fool Test::Harness
	54	say "ok 12";
	55	}