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";
}
}
-use Test::More tests => 15;
+use Test::More tests => 11;
BEGIN { use_ok('XS::APItest') };
# Run the printf tests
print_double(5);
-print_nv(6);
print_int(3);
-print_iv(2);
-print_iv(-2);
-print_uv(3);
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;
-ok @output >= 9, "captured at least nine output lines";
+ok @output >= 4, "captured at least four output lines";
is($output[0], "5.000", "print_double");
-is($output[1], "6.000", "print_nv");
-is($output[2], "3", "print_int");
-is($output[3], "2", "print_iv positive");
-is($output[4], "-2", "print_iv negative");
-is($output[5], "3", "print_uv");
-is($output[6], "4", "print_long");
-is($output[7], "4.000", "print_float");
+is($output[1], "3", "print_int");
+is($output[2], "4", "print_long");
+is($output[3], "4.000", "print_float");
SKIP: {
skip "No long doubles", 1 unless $ldok;
- is($output[8], "7.000", "print_long_double");
+ is($output[4], "7.000", "print_long_double");
}
-