fs_selfservice/fs_passwd_test

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::SelfService qw(passwd);
   5
   6 my $rv = passwd(
   7   'username' => 'ivan',
   8   'old_password' => 'heyhoo',
   9   'new_password' => 'haloo',
  10 );
  11 my $error = $rv->{error};
  12
  13 if ( $error eq 'Incorrect password.' ) {
  14   exit;
  15 } else {
  16   die $error if $error;
  17   die "no error";
  18 }
  19