stray closing /TABLE in the no-ticket case
[freeside.git] / 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