The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w

use strict;

use Test::More tests => 4;

use File::Spec;
require Rose::Conf::Root;

use FindBin '$Bin';

my $dir = File::Spec->tmpdir;

Rose::Conf::Root->import($dir);

is($ENV{'ROSE_CONF_FILE_ROOT'}, $dir, 'import()');
is(Rose::Conf::Root->conf_root, $dir, 'conf_root() 1');

Rose::Conf::Root->conf_root($Bin);

is($ENV{'ROSE_CONF_FILE_ROOT'}, $Bin, 'conf_root() 2');
is(Rose::Conf::Root->conf_root, $Bin, 'conf_root() 3');