Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
actions	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
bundled	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
compat	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
properties	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00-compile.t	357 B	-r--r--r--	2014-12-27 11:49
PL_files.t	2.18 KB	-r--r--r--	2014-12-27 11:49
README.pod	2.94 KB	-r--r--r--	2014-12-27 11:49
add_property.t	3.1 KB	-r--r--r--	2014-12-27 11:49
add_property_array.t	349 B	-r--r--r--	2014-12-27 11:49
add_property_hash.t	351 B	-r--r--r--	2014-12-27 11:49
basic.t	6.48 KB	-r--r--r--	2014-12-27 11:49
bundle_inc.t	6.02 KB	-r--r--r--	2014-12-27 11:49
compat.t	15.42 KB	-r--r--r--	2014-12-27 11:49
debug.t	555 B	-r--r--r--	2014-12-27 11:49
destinations.t	9.52 KB	-r--r--r--	2014-12-27 11:49
ext.t	5.91 KB	-r--r--r--	2014-12-27 11:49
extend.t	6.7 KB	-r--r--r--	2014-12-27 11:49
files.t	905 B	-r--r--r--	2014-12-27 11:49
help.t	5.2 KB	-r--r--r--	2014-12-27 11:49
install.t	6.03 KB	-r--r--r--	2014-12-27 11:49
install_extra_target.t	2.94 KB	-r--r--r--	2014-12-27 11:49
manifypods.t	3.53 KB	-r--r--r--	2014-12-27 11:49
manifypods_with_utf8.t	1.61 KB	-r--r--r--	2014-12-27 11:49
metadata.t	3.13 KB	-r--r--r--	2014-12-27 11:49
metadata2.t	2.93 KB	-r--r--r--	2014-12-27 11:49
mymeta.t	5.23 KB	-r--r--r--	2014-12-27 11:49
new_from_context.t	429 B	-r--r--r--	2014-12-27 11:49
notes.t	1.26 KB	-r--r--r--	2014-12-27 11:49
parents.t	1.34 KB	-r--r--r--	2014-12-27 11:49
perl_mb_opt.t	1.63 KB	-r--r--r--	2014-12-27 11:49
pod_parser.t	2.77 KB	-r--r--r--	2014-12-27 11:49
ppm.t	5.43 KB	-r--r--r--	2014-12-27 11:49
resume.t	989 B	-r--r--r--	2014-12-27 11:49
runthrough.t	4.88 KB	-r--r--r--	2014-12-27 11:49
sample.t	589 B	-r--r--r--	2014-12-27 11:49
script_dist.t	1.78 KB	-r--r--r--	2014-12-27 11:49
test_file_exts.t	959 B	-r--r--r--	2014-12-27 11:49
test_reqs.t	1.04 KB	-r--r--r--	2014-12-27 11:49
test_type.t	1.41 KB	-r--r--r--	2014-12-27 11:49
test_types.t	4.24 KB	-r--r--r--	2014-12-27 11:49
tilde.t	2.89 KB	-r--r--r--	2014-12-27 11:49
unit_run_test_harness.t	2.34 KB	-r--r--r--	2014-12-27 11:49
use_tap_harness.t	2.42 KB	-r--r--r--	2014-12-27 11:49
versions.t	502 B	-r--r--r--	2014-12-27 11:49
write_default_maniskip.t	932 B	-r--r--r--	2014-12-27 11:49
xs.t	4.38 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/usr/bin/perl -w

use strict;
use Test::More;
use lib 't/lib';
if (eval { require TAP::Harness && TAP::Harness->VERSION(3) }) {
    plan tests => 9;
} else {
    plan skip_all => 'TAP::Harness 3+ not installed'
}

use MBTest;
use DistGen;

blib_load('Module::Build');
my $tmp = MBTest->tmpdir;
my $dist = DistGen->new( dir => $tmp );
$dist->regen;
$dist->chdir_in;

#########################

# Make sure that TAP::Harness properly does its thing.
$dist->change_build_pl(
    module_name     => $dist->name,
    use_tap_harness => 1,
    quiet           => 1,
);
$dist->regen;

ok my $mb = $dist->new_from_context,
    'Construct build object with test_file_exts parameter';

$mb->add_to_cleanup('save_out');
# Use uc() so we don't confuse the current test output
my $out = uc(stdout_of(
    sub {$mb->dispatch('test', verbose => 1)}
));

like $out, qr/^OK 1/m, 'Should see first test output';
like $out, qr/^ALL TESTS SUCCESSFUL/m, 'Should see test success message';

#########################

# Make sure that arguments are passed through to TAP::Harness.
$dist->change_build_pl(
    module_name     => $dist->name,
    use_tap_harness => 1,
    tap_harness_args => { verbosity => 0 },
    quiet           => 1,
);
$dist->regen;

ok $mb = $dist->new_from_context,
    'Construct build object with test_file_exts parameter';

$mb->add_to_cleanup('save_out');
# Use uc() so we don't confuse the current test output
$out = uc(stdout_of(
    sub {$mb->dispatch('test', verbose => 1)}
));

unlike $out, qr/^OK 1/m, 'Should not see first test output';
like $out, qr/^ALL TESTS SUCCESSFUL/m, 'Should see test success message';

#--------------------------------------------------------------------------#
# test that a failing test dies
#--------------------------------------------------------------------------#

$dist->change_build_pl(
    module_name     => $dist->name,
    use_tap_harness => 1,
    tap_harness_args => { verbosity => 1 },
    quiet           => 1,
);
$dist->change_file('t/basic.t',<<"---");
use Test::More tests => 1;
use strict;

use $dist->{name};
ok 0;
---
$dist->regen;

ok $mb = $dist->new_from_context,
    'Construct build object after setting tests to fail';
# Use uc() so we don't confuse the current test output
$out = stdout_stderr_of( sub { $dist->run_build('test')} );
ok( $?, "'Build test' had non-zero exit code" );
like( $out, qr{Errors in testing\.  Cannot continue\.},
    "Saw emulated Test::Harness die() message"
);

# vim:ts=4:sw=4:et:sta