#!/usr/bin/perl

# Test specific functions in Devel::Pler

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 8;
use File::Spec::Functions ':ALL';
use pler;

# Can we find the current perl executable ok
ok( pler::perl(), 'Got perl() ok' );
ok( pler::perl,   'Got perl   ok' );
ok( -f pler::perl, 'perl exists'  );
ok( file_name_is_absolute( pler::perl ), 'perl path is absolute' );

# Can we find the mandated make
ok( pler::make(), 'Got make() ok' );
ok( pler::make,   'Got make   ok' );
ok( -f pler::make, 'make exists'  );
ok( file_name_is_absolute( pler::make ), 'make path is absolute' );

exit(0);