File: 02_export.t

package info (click to toggle)
libcrypt-mysql-perl 0.04-4
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 120 kB
  • sloc: perl: 20; makefile: 2
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");