Perl6-Pugs/t/builtins/system/crypt.t
use v6-alpha;
use Test;
plan 3;
# Hmm. Tricky since crypt() is implemented via system call and
# will not necessarily be the same on all platforms.
# Note: most crypt() only look at first 8 chars of key
my $pw1 = crypt '12345678', 'XX';
my $pw2 = crypt '12345678', 'XX';
# Not a good test since crypt might be memoizing somewhere but
# gotta start with something.
is $pw1, $pw2, 'basic test of repeatability';
my $pw3 = crypt '12345678', 'XY';
# True test would test all salts but the size of that task
# is why the salt exists to begin with.
isnt $pw1, $pw3, 'different salts give different results';
my $pw4 = crypt '12345679', 'XX';
isnt $pw1, $pw4, 'different key give different results';