Update Module::Build to 0.35
[perl.git] / lib / Module / Build / t / test_file_exts.t
1 #!/usr/bin/perl -w
2
3 use strict;
4 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
5 use MBTest tests => 5;
6 use DistGen;
7
8 use_ok 'Module::Build';
9 ensure_blib('Module::Build');
10
11 my $tmp = MBTest->tmpdir;
12 my $dist = DistGen->new( dir => $tmp );
13
14 $dist->add_file('t/mytest.s', <<'---' );
15 #!perl
16 use Test::More tests => 2;
17 ok(1, 'first mytest.s');
18 ok(1, 'second mytest.s');
19 ---
20
21 $dist->regen;
22 $dist->chdir_in;
23
24 #########################
25
26 # So make sure that the test gets run with the alternate extension.
27 ok my $mb = Module::Build->new(
28     module_name    => $dist->name,
29     test_file_exts => ['.s'],
30     quiet          => 1,
31 ), 'Construct build object with test_file_exts parameter';
32
33 $mb->add_to_cleanup('save_out');
34 # Use uc() so we don't confuse the current test output
35 my $out = uc(stdout_of(
36     sub {$mb->dispatch('test', verbose => 1)}
37 ));
38
39 like $out, qr/^OK 1 - FIRST MYTEST[.]S/m, 'Should see first test output';
40 like $out, qr/^OK 2 - SECOND MYTEST[.]S/m, 'Should see second test output';
41
42 # Cleanup.
43 $dist->remove;
44
45 # vim:ts=4:sw=4:et:sta