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	dpavlin	24	#!/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