From 87b6ff984766ad5d0bd4a78f53e48d43d24eac55 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 23 Jul 2011 10:17:58 +0200 Subject: Add generate_password test --- t/29-app-raps2.t | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/29-app-raps2.t b/t/29-app-raps2.t index ab9a294..c90e40c 100644 --- a/t/29-app-raps2.t +++ b/t/29-app-raps2.t @@ -3,25 +3,32 @@ use strict; use warnings; use 5.010; -use Test::More tests => 11; +use Test::More tests => 12; $ENV{XDG_CONFIG_HOME} = 't/config'; $ENV{XDG_DATA_HOME} = 't/data'; use_ok('App::Raps2'); -my $r2 = App::Raps2->new( master_password => 'sekrit', no_cli => 1 ); +my $r2 = App::Raps2->new( + master_password => 'sekrit', + no_cli => 1, + pwgen_cmd => 'echo 123 456', +); isa_ok( $r2, 'App::Raps2' ); ok( -e 't/config/raps2/password', 'config file created' ); is_deeply( $r2->file_to_hash('t/in/hash'), - { key => 'value', otherkey => 'othervalue' }, + { + key => 'value', + otherkey => 'othervalue' + }, 'file_to_hash works', ); -is ($r2->ui, undef, 'no_cli works (no UI object created)'); +is( $r2->ui, undef, 'no_cli works (no UI object created)' ); $r2->pw_save( password => 'foopass', @@ -53,6 +60,8 @@ is( $r2->pw_load( file => 't/data/raps2/test2' )->{password}, is( $r2->pw_load( file => 't/data/raps2/test2' )->{extra}, 'mextra', 'Extra for test2 loaded ok' ); +is ( $r2->generate_password(), '123', 'generate_password + pwgen_cmd ok' ); + unlink('t/data/raps2/test1'); unlink('t/data/raps2/test2'); unlink('t/config/raps2/password'); -- cgit v1.2.3