1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use Test::More tests => 4; 7 8use File::Temp qw(tempdir); 9use File::Spec (); 10 11my $dir = tempdir( CLEANUP => 1 ); 12 13#diag $dir; 14 15my $out = "$dir/out"; 16my $err = "$dir/err"; 17my $cmd = "$^X -wc " . File::Spec->catfile( 'bin', 'check_perldiag' ) . "> $out 2> $err"; 18 19#diag $cmd; 20system $cmd; 21 22ok( -e $out, 'out file exists' ); 23is( -s $out, 0, 'out file is empty' ); 24ok( -e $err, 'err file exists' ); 25 26my $err_data = slurp($err); 27like( $err_data, qr{^bin[/\\]+check_perldiag syntax OK$}, 'syntax ok' ); 28 29sub slurp { 30 my $file = shift; 31 if ( open my $fh, '<', $file ) { 32 local $/ = undef; 33 return <$fh>; 34 } else { 35 warn $!; 36 return; 37 } 38} 39 40