Perly/t/01-Depends.t

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

use Jifty::Test tests => 3;

# Make sure we can load the action
use_ok('Perly::Depends');

ok(my $dep = Perly::Depends->parse(qq{
use Foo;
use Foo::Bar;
use lowercase.pm;
}), 'parse');

is_deeply( $dep, {
        depended_upon_by => [],
        depends_on => ["Foo", "Foo::Bar", "lowercase"],
}, 'dependencies');

1	#!/usr/bin/env perl
2	use warnings;
3	use strict;
4
5	use Jifty::Test tests => 3;
6
7	# Make sure we can load the action
8	use_ok('Perly::Depends');
9
10	ok(my $dep = Perly::Depends->parse(qq{
11	use Foo;
12	use Foo::Bar;
13	use lowercase.pm;
14	}), 'parse');
15
16	is_deeply( $dep, {
17	depended_upon_by => [],
18	depends_on => ["Foo", "Foo::Bar", "lowercase"],
19	}, 'dependencies');
20