#!/usr/bin/perl
# Compile testing for minijsan
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 3;
use File::Spec::Functions ':ALL';
# Does the module load
require_ok('JSAN::Mini' );
# Does the csync script compile
my $script = $ENV{HARNESS_ACTIVE}
? catfile( 'script', 'minijsan' )
: catfile( updir(), 'script', 'minijsan' );
ok( -f $script, "Found script minijsan where expected at $script" );
SKIP: {
skip "Can't find minijsan to compile test it", 1 unless -f $script;
my $include = '';
unless ( $ENV{HARNESS_ACTIVE} ) {
$include = '-I' . catdir( updir(), 'lib');
}
my $cmd = "perl $include -c $script 1>/dev/null 2>/dev/null";
# diag( $cmd );
my $rv = system( $cmd );
is( $rv, 0, "Script $script compiles cleanly" );
}