Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
36 lines (26 sloc) 938 Bytes
use Test;
use Panda::Installer;
use Panda::Resources;
use Shell::Command;
plan 8;
my $srcdir = 'testmodules';
my $destdir = "{cwd}/removeme";
my $r = Panda::Resources.new(srcdir => $srcdir);
my $b = Panda::Installer.new(resources => $r, destdir => $destdir);
my $p = Pies::Project.new(name => 'compiled::module');
lives_ok { $b.install($p) };
sub file_exists_ok($a as Str, $msg as Str) {
ok $a.IO ~~ :f, $msg
}
file_exists_ok "$destdir/lib/foo.pm", 'module installed';
file_exists_ok "$destdir/lib/foo.pir", 'pir installed';
file_exists_ok "$destdir/lib/bar.pod", 'pod installed';
todo 1;
file_exists_ok "$destdir/lib/baz.js", 'random files installed';
file_exists_ok "$destdir/bin/bar", 'bin installed';
file_exists_ok "$destdir/compiled/module/doc/foofile",
'docs installed 1';
file_exists_ok "$destdir/compiled/module/doc/bardir/barfile",
'docs installed 2';
rm_rf $destdir;
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.