#!/usr/bin/perl -w
use strict;
use Test::More tests => 7;
use Test::Exception;

use File::Basename;
use File::Spec::Functions;

use lib "../lib", "lib";



use_ok("Devel::PerlySense");

ok(my $oPs = Devel::PerlySense->new(), "new ok");
isa_ok($oPs->oProject, "Devel::PerlySense::Project", "  oProject property");
isa_ok($oPs->oHome, "Devel::PerlySense::Home", "  oHome property");


is($oPs->fileFromModule("Foo"), "Foo.pm", "fileFromModule ok");
is($oPs->fileFromModule("Foo::Bar"), catfile("Foo", "Bar") . ".pm", "fileFromModule ok");
is($oPs->fileFromModule("Foo::Bar::Baz"), catfile("Foo", "Bar", "Baz") . ".pm", "fileFromModule ok");



__END__