8 die $@ if $@ and !is_miniperl();
18 print "ok 2\n","ok 3\n","ok 4\n";
19 print STDOUT "ok 5\n";
27 my @a = ("ok %d%c",9,ord("\n"));
38 my @x = ("ok","12\nok","13\nok");
39 my @y = ("15\nok","16");
42 local $\ = "ok 17\n# null =>[\000]\nok 18\n";
48 if (!exists &Errno::EBADF) {
49 print "ok 19 # skipped: no EBADF\n";
52 no warnings 'unopened';
53 print NONEXISTENT "foo";
54 print "not " if ($! != &Errno::EBADF);
59 # Change 26009: pp_print didn't extend the stack
60 # before pushing its return value
61 # to make sure only that these obfuscated sentences will not crash.
63 map print(reverse), ('')x68;
66 map print(+()), ('')x68;
72 printf "ok 22%n - not really a test; just printing\n", substr $n,1,1;
73 print "not " x ($n ne "a5c") . "ok 23 - printf with %n (got $n)\n";
75 # [perl #77094] printf with empty list
78 print "ok 24 - printf +() does not steal stack items\n";