use strict;
use warnings;

use Test::More 0.96;
use Module::Data;
use Test::Fatal;

my $md;
my $data;

use Data::Dump qw( pp );

is(
	exception {
		$md = Module::Data->new('Test::Fatal');
	},
	undef,
	'Creating a new object for Test::Fatal introspection works'
);

is( $md->root->file( 'Test', 'Fatal.pm' )->absolute->stringify, $md->path->absolute->stringify, "root contains package" );

is(
	exception {
		$data = {
			_notional_name => $md->_notional_name,
			path           => $md->path->stringify,
			package        => $md->package,
			root           => $md->root->stringify,
		};
	},
	undef,
	'All methods work without failing'
);

note pp($data);
note pp($md);

# FILENAME: 01_basic.t
# CREATED: 22/03/12 14:13:34 by Kent Fredric (kentnl) <kentfredric@gmail.com>
# ABSTRACT: Basic module load and decode tests

done_testing;