use 5.010000;
use strict;
use warnings;
use Test::More tests => 2;
my $file = 'bin/getvideo';
ok( -e $file, "File $file found" );
my $message = `$^X -c $file 2>&1`;
like( $message, qr/syntax OK/i, "$file compiles" );
done_testing();
use 5.010000;
use strict;
use warnings;
use Test::More tests => 2;
my $file = 'bin/getvideo';
ok( -e $file, "File $file found" );
my $message = `$^X -c $file 2>&1`;
like( $message, qr/syntax OK/i, "$file compiles" );
done_testing();