t/op.crypt

   1 #!./perl
   2
   3 # $Header: op.crypt,v 1.0 87/12/18 13:13:17 root Exp $
   4
   5 print "1..2\n";
   6
   7 # this evaluates entirely at compile time!
   8 if (crypt('uh','oh') eq 'ohPnjpYtoi1NU') {print "ok 1\n";} else {print "not ok 1\n";}
   9
  10 # this doesn't.
  11 $uh = 'uh';
  12 if (crypt($uh,'oh') eq 'ohPnjpYtoi1NU') {print "ok 2\n";} else {print "not ok 2\n";}