[scpubgit/Object-Remote.git] / t / fatnode.t

use strict;
use warnings;

use strictures 1;
use Test::More;

plan tests => 1;

require Object::Remote::FatNode;
my $data =  do {
    no warnings 'once';
    $Object::Remote::FatNode::DATA;
};

ok $data !~ m|MODULELOADER_HOOK|mx,'MODULELOADER_HOOK should not be in the fatpack.';
Commit	Line	Data
e454581e	1	use strict;
	2	use warnings;
	3
	4	use strictures 1;
	5	use Test::More;
	6
	7	plan tests => 1;
	8
	9	require Object::Remote::FatNode;
	10	my $data = do {
	11	no warnings 'once';
	12	$Object::Remote::FatNode::DATA;
	13	};
	14
	15	ok $data !~ m\|MODULELOADER_HOOK\|mx,'MODULELOADER_HOOK should not be in the fatpack.';