File: alien_build_rc.t

package info (click to toggle)
libalien-build-perl 2.84-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,116 kB
  • sloc: perl: 10,350; ansic: 134; sh: 66; makefile: 2
file content (29 lines) | stat: -rw-r--r-- 449 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
use 5.008004;
use Test2::V0 -no_srand => 1;
use Test::Alien::Build;

subtest 'preload code ref' => sub {

  my $meta1;
  my $meta2;

  no warnings 'once';

  local @Alien::Build::rc::PRELOAD = (sub {
    ($meta1) = @_;
  });

  local @Alien::Build::rc::POSTLOAD = (sub {
    ($meta2) = @_;
  });

  my $build = alienfile_ok q{
    use alienfile;
  };

  isa_ok $meta1, 'Alien::Build::Meta';
  isa_ok $meta2, 'Alien::Build::Meta';

};

done_testing;