X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2Ffs_passwd_test;h=4f8b8a888ea8e819ecfd0b2bda28ef1cadf54562;hp=77782e651c0018823fd80906cc02be6661c2d690;hb=8bf0686b09cde9eb2aa453420e3a7bcc4ada9f88;hpb=b58821fcd50e52ae726834ef3863b85ed293379f diff --git a/fs_selfservice/fs_passwd_test b/fs_selfservice/fs_passwd_test index 77782e651..4f8b8a888 100755 --- a/fs_selfservice/fs_passwd_test +++ b/fs_selfservice/fs_passwd_test @@ -3,12 +3,17 @@ use strict; use FS::SelfService qw(passwd); -my $error = passwd( +my $rv = passwd( 'username' => 'ivan', 'old_password' => 'heyhoo', 'new_password' => 'haloo', ); +my $error = $rv->{error}; -die $error if $error; +if ( $error eq 'Incorrect password.' ) { + exit; +} else { + die $error if $error; + die "no error"; +} -print "password changed sucessfully\n";