File: 005_random_passphrase.t

package info (click to toggle)
libdancer2-plugin-passphrase-perl 3.4.1-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 168 kB
  • sloc: perl: 190; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 484 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use Test::More tests => 3;

use strict;
use warnings;

use Dancer2;
use Dancer2::Plugin::Passphrase;

my $with_defaults   = passphrase->generate_random;
my $extra_length    = passphrase->generate_random({ length => 32 });
my $scouse_password = passphrase->generate_random({ charset => ['a'], length => 3 });


ok($with_defaults,             "Basic password generation");
ok(length $extra_length eq 32, "Custom password length");
ok($scouse_password eq 'aaa',  "Custom chracter set");