summaryrefslogtreecommitdiff
path: root/t/22-visibility.t
diff options
context:
space:
mode:
Diffstat (limited to 't/22-visibility.t')
-rw-r--r--t/22-visibility.t33
1 files changed, 12 insertions, 21 deletions
diff --git a/t/22-visibility.t b/t/22-visibility.t
index 6e3fd38..6e827c5 100644
--- a/t/22-visibility.t
+++ b/t/22-visibility.t
@@ -11,7 +11,6 @@ use Mojo::Base -strict;
use Test::More;
use Test::Mojo;
-use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);
use DateTime;
use Travel::Status::DE::IRIS::Result;
@@ -41,14 +40,6 @@ $t->app->start( 'database', 'migrate' );
my $u = $t->app->users;
-sub hash_password {
- my ($password) = @_;
- my @salt_bytes = map { int( rand(255) ) + 1 } ( 1 .. 16 );
- my $salt = en_base64( pack( 'C[16]', @salt_bytes ) );
-
- return bcrypt( substr( $password, 0, 10000 ), '$2a$12$' . $salt );
-}
-
sub login {
my %opt = @_;
my $csrf_token
@@ -202,24 +193,24 @@ sub test_visibility {
}
my $uid1 = $u->add(
- name => 'test1',
- email => 'test1@example.org',
- token => 'abcd',
- password_hash => hash_password('password1'),
+ name => 'test1',
+ email => 'test1@example.org',
+ token => 'abcd',
+ password => 'password1',
);
my $uid2 = $u->add(
- name => 'test2',
- email => 'test2@example.org',
- token => 'efgh',
- password_hash => hash_password('password2'),
+ name => 'test2',
+ email => 'test2@example.org',
+ token => 'efgh',
+ password => 'password2',
);
my $uid3 = $u->add(
- name => 'test3',
- email => 'test3@example.org',
- token => 'ijkl',
- password_hash => hash_password('password3'),
+ name => 'test3',
+ email => 'test3@example.org',
+ token => 'ijkl',
+ password => 'password3',
);
$u->verify_registration_token(