view release on metacpan or  search on metacpan

t/03-interactive.t  view on Meta::CPAN

}

BEGIN { plan tests => 2 }

use strict;
use Crypt::SKey qw(key compute);
ok(1);

{
  warn "\nTesting interactive mode: enter 'pwd' (without quotes) at the prompt:\n";
  local @ARGV = (50, 'fo099804');
  my $got = key;
  my $expect = 'HESS SWIM RAYS DING MOAT FAWN';
  ok($got, $expect, $got);
}