add access to Perl_croak() via 'mycroak' in XS::APItest

[perl5.git] / ext / XS / APItest / t / printf.t

diff --git a/ext/XS/APItest/t/printf.t b/ext/XS/APItest/t/printf.t
index a17267d..ef2769e 100644 (file)
--- a/ext/XS/APItest/t/printf.t
+++ b/ext/XS/APItest/t/printf.t
@@ -1,6 +1,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
         print "1..0 # Skip: XS::APItest was not built\n";
@@ -32,10 +33,12 @@ print_long(4);
 print_float(4);
 print_long_double() if $ldok;  # val=7 hardwired
 
+print_flush();
+
 # Now redirect STDOUT and read from the file
 ok open(STDOUT, ">&", $oldout), "restore STDOUT";
 ok open(my $foo, "<foo.out"), "open foo.out";
-print "# Test output by reading from file\n";
+#print "# Test output by reading from file\n";
 # now test the output
 my @output = map { chomp; $_ } <$foo>;
 close $foo;