use Test::More;
use strict; use warnings FATAL => 'all';

use App::bmkpasswd -all;

sub get_stderr (&) {
  my $c = shift;

  local *STDERR;
  my $stderr;

  open STDERR, '>', \$stderr or die $!;
  my $res = $c->(@_);
  close STDERR or die $!;

  wantarray ? ($stderr, $res) : $stderr
}


like get_stderr { passwdcmp('foo', 'bar') },
  qr/invalid hash/,
  'invalid hash warns';


done_testing;