4 require Config; import Config;
5 if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
6 print "1..0 # Skip: XS::APItest was not built\n";
11 use Test::More tests => 15;
13 BEGIN { use_ok('XS::APItest') };
15 #########################
17 my $ldok = have_long_double();
19 # first some IO redirection
20 ok open(my $oldout, ">&STDOUT"), "saving STDOUT";
21 ok open(STDOUT, '>', "foo.out"),"redirecting STDOUT";
23 # Allow for it to be removed
24 END { unlink "foo.out"; };
26 select STDOUT; $| = 1; # make unbuffered
28 # Run the printf tests
33 print_long_double() if $ldok; # val=7 hardwired
39 # Now redirect STDOUT and read from the file
40 ok open(STDOUT, ">&", $oldout), "restore STDOUT";
41 ok open(my $foo, "<foo.out"), "open foo.out";
42 print "# Test output by reading from file\n";
44 my @output = map { chomp; $_ } <$foo>;
46 ok @output >= 9, "captured at least nine output lines";
48 is($output[0], "5.000", "print_double");
49 is($output[1], "3", "print_int");
50 is($output[2], "4", "print_long");
51 is($output[3], "4.000", "print_float");
54 skip "No long doubles", 1 unless $ldok;
55 is($output[4], "7.000", "print_long_double");
59 skip "No perlio", 4 unless $Config{useperlio};
60 is($output[5], "6.000", "print_nv");
61 is($output[6], "2", "print_iv positive");
62 is($output[7], "-2", "print_iv negative");
63 is($output[8], "3", "print_uv");