File: 02_export.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-- 198 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
use strict;
use Test::More tests => 2;

use Crypt::MySQL qw(password password41);

is(password("barbaz"), "5256847878f9978f");
is(password41("barbaz"), "*096C6A6F0E3B0A35BFF7794D732F2269D6BBE164");