#!/usr/bin/perl
use strict;
use warnings;

use Test::More 'no_plan';
use File::Basename;
use File::Spec;
use Cwd;


my $class  = 'Distribution::Guess::BuildSystem';
my $method = '_setting';

use_ok( $class );
can_ok( $class, $method );

{
my $guesser = $class->new(
	perl_binary => 'foo',
	);

is( $guesser->_setting( 'perl_binary' ), 'foo', 
	'perl_binary setting is right from constructor value' );
$guesser->_setting( 'perl_binary', 'bar' );
is( $guesser->_setting( 'perl_binary' ), 'bar', 
	'perl_binary setting is right from new value' );
}