File: alien_build_plugin_extract_file.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 (58 lines) | stat: -rw-r--r-- 984 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
use 5.008004;
use Test2::V0 -no_srand => 1;
use Test::Alien::Build;
use Alien::Build::Plugin::Extract::File;
use Path::Tiny qw( path );
use Capture::Tiny qw( capture_merged );

subtest 'handles' => sub {

  is(
    Alien::Build::Plugin::Extract::File->handles('f'),
    T(),
  );

  is(
    Alien::Build::Plugin::Extract::File->handles('tar'),
    F(),
  );

};

subtest 'available' => sub {

  is(
    Alien::Build::Plugin::Extract::File->available('f'),
    T(),
  );

  is(
    Alien::Build::Plugin::Extract::File->available('tar'),
    F(),
  );

};

subtest 'basic' => sub {

  local $Alien::Build::VERSION = $Alien::Build::VERSION || '2.70';

  my $build = alienfile_ok q{
    use alienfile;
    use Path::Tiny qw( path );
    plugin 'Test::Mock' => (
      probe => 'share',
      download => {
        "frooble.exe" => 'a faux exe',
      },
    );
    plugin 'Extract::File';
  };

  alien_install_type_is 'share';
  alien_download_ok;
  alien_extract_ok;

};

done_testing;