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.
15 die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
24 say "ok 2\n","ok 3\n","ok 4";
33 say {"STDOUT"} "ok 8";
35 if (!exists &Errno::EBADF) {
36 print "ok 9 # skipped: no EBADF\n";
39 no warnings 'unopened';
40 say NONEXISTENT "foo";
41 print "not " if ($! != &Errno::EBADF);
52 # test that $, doesn't show up before the trailing \n
53 local $, = "\nnot ok 13"; # how to fool Test::Harness