File: 01_password.t

package info (click to toggle)
libcrypt-mysql-perl 0.04-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 76 kB
  • ctags: 8
  • sloc: makefile: 53; perl: 20
file content (7 lines) | stat: -rw-r--r-- 205 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
 
use strict;
use Test::More tests => 2;

use Crypt::MySQL ();

is(Crypt::MySQL::password("foobar"), "4655c05b05f11fab");
is(Crypt::MySQL::password41("foobar"), "*9B500343BC52E2911172EB52AE5CF4847604C6E5");