was: 0';
};
end;
},
"run.exit_is(22)",
);
is(
intercept { $run->exit_isnt(0) },
array {
event Ok => sub {
call pass => F();
call name => "command
=> ' actual exit value was: 0';
};
end;
},
"run.exit_isnt(0)",
);
is(
intercept { $run->exit_isnt(22) },
array {
event Ok => sub {
call pass => T();
call name => "command exited with value not 22";
};
end;
},
"run.exit_isnt(22)",
);
is(
intercept { $run->out_like(qr{is some out}) },
array {
event Ok => s
nt',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
Alien::Build::Plugin::ABC::XYZ2->new->instance_id,
'zero args different class is different',
);
isnt(
Alien::
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new( foo => 1, bar => 2)->instance_id,
Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
'args vs no args different',
);
isnt(
Ali
:ABC::XYZ1->new( bar => 2, foo => [1,2,3])->instance_id,
'same args is same (array)',
);
isnt(
Alien::Build::Plugin::ABC::XYZ1->new( foo => [1,3,2], bar => 2)->instance_id,
Alien::Bui
$file = eval {
$build->fetch("$base/bogus.html");
};
($file, $@);
};
isnt $error, '', 'throws error';
note "error is: $error";
};
};
#subtest 'fetch from ftp' =>
e_note {
# eval {
# $build->fetch("$base/bogus/")
# };
# $@;
# };
#
# isnt $error, '', 'throws error';
# note "error = $error";
#
# };
#
# subtest 'get file' => sub {
te {
# eval {
# $build->fetch("$base/bogus.txt");
# };
# $@;
# };
#
# isnt $error, '', 'throws error';
# note "error is : $error";
#
# };
#
# subtest 'get directory li
);
eval { $intr->interpolate("-%{foomake3}-") };
isnt( $@, '', "error!");
note $@;
eval { $intr->interpolate("-%{foomake4}-") };
isnt( $@, '', "error!");
note $@;
$intr->add_helper(
subtest 'not new enough' => sub {
local $PkgConfig::LibPkgConf::VERSION = '0.01';
isnt(
Alien::Build::Plugin::PkgConfig::Negotiate->pick,
'PkgConfig::LibPkgConf',
.t file
note scalar capture_merged { Devel::Hide->import(qw( PkgConfig::LibPkgConf )) };
isnt(
Alien::Build::Plugin::PkgConfig::Negotiate->pick,
'PkgConfig::LibPkgConf',
);
;
$plugin->init($meta);
my $configure = $meta->interpolator->interpolate('%{configure}');
isnt $configure, '', "\%{configure} = $configure";
like $configure, qr{configure};
like $configure
;
$plugin->init($meta);
my $configure = $meta->interpolator->interpolate('%{configure}');
isnt $configure, '', "\%{configure} = $configure";
like $configure, qr{configure$};
};
subtest 'ou
$file = eval {
$build->fetch("$base/bogus.html");
};
($file, $@);
};
isnt $error, '', 'throws error';
note "error is: $error";
};
};
subtest 'headers' => sub {
Temp qw( tempdir );
subtest 'dump' => sub {
my $dump = _dump { a => 1, b => 2 }, [ 1..2 ];
isnt $dump, '';
note $dump;
};
subtest 'mirror' => sub {
if($^O eq 'MSWin32' && ! which 'diff'
ienfile;
my $foo = 'bar';
@{ "${foo}::${foo}" } = ();
};
};
my $error = $@;
isnt $error, '', 'throws error';
note "error = $error";
};
subtest 'warnings alienfile' => sub {
'any' => 'Foo::Bar::Baz1' => '2.00');
eval { $build->load_requires };
my $error = $@;
isnt $error, '';
note "error=$error";
};
};
subtest 'hook' => sub {
my $build = alienfile fi