CPAN::Groonga

use 5.008004;
use Test2::V0 -no_srand => 1;
use Alien::Build::Plugin::PkgConfig::Negotiate;
use Capture::Tiny qw( capture_merged );
use Config;
use File::Which ();

delete $ENV{ALIEN_BUILD_PKG_CONFIG};

subtest 'LibPkgConf' => sub {

  subtest 'installed' => sub {

    local $INC{'PkgConfig/LibPkgConf.pm'} = __FILE__;

    subtest 'new enough' => sub {

      local $PkgConfig::LibPkgConf::VERSION = '0.99';

      is(
        Alien::Build::Plugin::PkgConfig::Negotiate->pick,
        'PkgConfig::LibPkgConf',
      );
    };

    subtest 'not new enough' => sub {

      local $PkgConfig::LibPkgConf::VERSION = '0.01';

      isnt(
        Alien::Build::Plugin::PkgConfig::Negotiate->pick,
        'PkgConfig::LibPkgConf',
      );

    };
  };

  subtest 'not installed' => sub {

    skip_all 'subtest requires Devel::Hide' unless eval { require Devel::Hide };
    # side-effect of this test, PkgConfig::LibPkgConf
    # cannot be loaded for the rest of this .t file
    note scalar capture_merged { Devel::Hide->import(qw( PkgConfig::LibPkgConf )) };

    isnt(
      Alien::Build::Plugin::PkgConfig::Negotiate->pick,
      'PkgConfig::LibPkgConf',
    );

  };

};

my $make_pkgconfig_libpkgconf_unavailable = mock 'Alien::Build::Plugin::PkgConfig::LibPkgConf' => (
  override => [
    available => sub { 0 },
  ],
);

subtest 'CommandLine' => sub {

  local $INC{'PkgConfig.pm'} = __FILE__;
  local $PkgConfig::VERSION = '0.14026';

  my %which;

  my $mock = mock 'File::Which' => (
    override => [
      which => sub {
        my($prog) = @_;
        if(defined $prog)
        {
          if($which{$prog})
          {
            note "which: $prog => $which{$prog}";
            return $which{$prog};
          }
          else
          {
            note "which: $prog N/A";
          }
        }
        else
        {
          note "which: undef";
        }
      },
    ],
  );

  my $mock2 = mock 'Alien::Build::Plugin::PkgConfig::Negotiate';

  if($^O =~ /^(solaris|MSWin32)$/) {
    $mock2->override(
      _perl_config => sub {
        my($key) = @_;
        if($key eq 'osname')
        { return 'linux' }
        else
        { return $Config{$key} }
      },
    );
  }

  subtest 'no command line' => sub {

    %which = ();

    is(
      Alien::Build::Plugin::PkgConfig::Negotiate->pick,
      'PkgConfig::PP',
    );

  };

  subtest 'pkg-config' => sub {

    %which = ( 'pkg-config' => '/usr/bin/pkg-config' );

    is(
      Alien::Build::Plugin::PkgConfig::Negotiate->pick,
      'PkgConfig::CommandLine',
    );

  };

  subtest 'pkgconf' => sub {

    %which = ( 'pkgconf' => '/usr/bin/pkgconf' );

    is(
      Alien::Build::Plugin::PkgConfig::Negotiate->pick,
      'PkgConfig::CommandLine',
    );

  };

  subtest 'PKG_CONFIG' => sub {

    local $ENV{PKG_CONFIG} = 'foo-pkg-config';
    %which = ( 'foo-pkg-config' => '/usr/bin/foo-pkg-config' );

    is(
      Alien::Build::Plugin::PkgConfig::Negotiate->pick,
      'PkgConfig::CommandLine',
    );

  };

  subtest 'PP' => sub {

    subtest '64 bit solaris' => sub {

      %which = ( 'pkg-config' => '/usr/bin/pkg-config' );

      # From the old AB::MB days we prefer PkgConfig.pm
      # for 64 bit solaris over the command line pkg-config

      my $mock2 = mock 'Alien::Build::Plugin::PkgConfig::Negotiate' => (
        override => [
          _perl_config => sub {
            my($key) = @_;
            if($key eq 'ptrsize')
            { return 8 }
            elsif($key eq 'osname')
            { return 'solaris' }
            else
            { return $Config{$key} }
          },
        ],
      );

      is(
        Alien::Build::Plugin::PkgConfig::Negotiate->pick,
        'PkgConfig::PP',
      );

    };


    subtest 'Windows' => sub {

      %which = ( 'pkg-config' => '/usr/bin/pkg-config' );

      # From the old AB::MB days we prefer PkgConfig.pm
      # for 64 bit solaris over the command line pkg-config

      my $mock2 = mock 'Alien::Build::Plugin::PkgConfig::Negotiate' => (
        override => [
          _perl_config => sub {
            my($key) = @_;
            if($key eq 'osname')
            { return 'MSWin32' }
            else
            { return $Config{$key} }
          },
        ],
      );

      is(
        Alien::Build::Plugin::PkgConfig::Negotiate->pick,
        'PkgConfig::PP',
      );

    };

    subtest 'PP is fallback' => sub {

      %which = ();

      is(
        Alien::Build::Plugin::PkgConfig::Negotiate->pick,
        'PkgConfig::PP',
      );

    };

  };

};

done_testing;