CPAN::Groonga

was: 0';
      };
      end;
    },
    "run.exit_is(22)",
  );

  is(
    intercept { $run->exit_isnt(0) },
    array {
      event Ok => sub {
        call pass => F();
        call name => "command

=> '  actual exit value was: 0';
      };
      end;
    },
    "run.exit_isnt(0)",
  );

  is(
    intercept { $run->exit_isnt(22) },
    array {
      event Ok => sub {
        call pass => T();
   

     call name => "command exited with value not 22";
      };
      end;
    },
    "run.exit_isnt(22)",
  );

  is(
    intercept { $run->out_like(qr{is some out}) },
    array {
      event Ok => s

nt',
  );

  isnt(
    Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
    Alien::Build::Plugin::ABC::XYZ2->new->instance_id,
    'zero args different class is different',
  );

  isnt(
    Alien::

  );

  isnt(
    Alien::Build::Plugin::ABC::XYZ1->new( foo => 1, bar => 2)->instance_id,
    Alien::Build::Plugin::ABC::XYZ1->new->instance_id,
    'args vs no args different',
  );

  isnt(
    Ali

:ABC::XYZ1->new( bar => 2, foo => [1,2,3])->instance_id,
    'same args is same (array)',
  );

  isnt(
    Alien::Build::Plugin::ABC::XYZ1->new( foo => [1,3,2], bar => 2)->instance_id,
    Alien::Bui

$file = eval {
        $build->fetch("$base/bogus.html");
      };
      ($file, $@);
    };

    isnt $error, '', 'throws error';
    note "error is: $error";

  };

};

#subtest 'fetch from ftp' => 

e_note {
#      eval {
#        $build->fetch("$base/bogus/")
#      };
#      $@;
#    };
#
#    isnt $error, '', 'throws error';
#    note "error = $error";
#
#  };
#
#  subtest 'get file' => sub {

te {
#      eval {
#        $build->fetch("$base/bogus.txt");
#      };
#      $@;
#    };
#
#    isnt $error, '', 'throws error';
#    note "error is : $error";
#
#  };
#
#  subtest 'get directory li

 );

  eval { $intr->interpolate("-%{foomake3}-") };
  isnt( $@, '', "error!");
  note $@;

  eval { $intr->interpolate("-%{foomake4}-") };
  isnt( $@, '', "error!");
  note $@;

  $intr->add_helper( 

  subtest 'not new enough' => sub {

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

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

.t file
    note scalar capture_merged { Devel::Hide->import(qw( PkgConfig::LibPkgConf )) };

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

 

;

  $plugin->init($meta);

  my $configure = $meta->interpolator->interpolate('%{configure}');
  isnt $configure, '', "\%{configure} = $configure";
  like $configure, qr{configure};
  like $configure

;

  $plugin->init($meta);

  my $configure = $meta->interpolator->interpolate('%{configure}');
  isnt $configure, '', "\%{configure} = $configure";
  like $configure, qr{configure$};

};

subtest 'ou

$file = eval {
        $build->fetch("$base/bogus.html");
      };
      ($file, $@);
    };

    isnt $error, '', 'throws error';
    note "error is: $error";

  };

};

subtest 'headers' => sub {
  

Temp qw( tempdir );

subtest 'dump' => sub {

  my $dump = _dump { a => 1, b => 2 }, [ 1..2 ];

  isnt $dump, '';

  note $dump;

};

subtest 'mirror' => sub {

  if($^O eq 'MSWin32' && ! which 'diff'

ienfile;
      my $foo = 'bar';
      @{ "${foo}::${foo}" } = ();
    };
  };
  my $error = $@;
  isnt $error, '', 'throws error';
  note "error = $error";

};

subtest 'warnings alienfile' => sub {

'any' => 'Foo::Bar::Baz1' => '2.00');
    eval { $build->load_requires };
    my $error = $@;
    isnt $error, '';
    note "error=$error";
  };
};

subtest 'hook' => sub {

  my $build = alienfile fi