Lines 1865-1871
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
1865 |
}; |
1865 |
}; |
1866 |
|
1866 |
|
1867 |
subtest '->store' => sub { |
1867 |
subtest '->store' => sub { |
1868 |
plan tests => 7; |
1868 |
plan tests => 8; |
1869 |
my $schema = Koha::Database->new->schema; |
1869 |
my $schema = Koha::Database->new->schema; |
1870 |
$schema->storage->txn_begin; |
1870 |
$schema->storage->txn_begin; |
1871 |
|
1871 |
|
Lines 1921-1926
subtest '->store' => sub {
Link Here
|
1921 |
is($logs->count, 0, '->store should not have generated a log for updated_on') or diag 'Log generated:'.Dumper($logs->unblessed); |
1921 |
is($logs->count, 0, '->store should not have generated a log for updated_on') or diag 'Log generated:'.Dumper($logs->unblessed); |
1922 |
$schema->storage->txn_rollback; |
1922 |
$schema->storage->txn_rollback; |
1923 |
}; |
1923 |
}; |
|
|
1924 |
|
1925 |
subtest 'create user usage' => sub { |
1926 |
plan tests => 1; |
1927 |
$schema->storage->txn_begin; |
1928 |
|
1929 |
my $library = $builder->build_object( { class => 'Koha::Libraries' } ); |
1930 |
my $patron_category = $builder->build_object( |
1931 |
{ |
1932 |
class => 'Koha::Patron::Categories', |
1933 |
value => { category_type => 'P', enrolmentfee => 0 } |
1934 |
} |
1935 |
); |
1936 |
my %data = ( |
1937 |
cardnumber => "123456789", |
1938 |
firstname => "Tômàsító", |
1939 |
surname => "Ñoné", |
1940 |
password => 'Funk3y', |
1941 |
categorycode => $patron_category->categorycode, |
1942 |
branchcode => $library->branchcode, |
1943 |
); |
1944 |
|
1945 |
# Enable notifying patrons of password changes for these tests |
1946 |
t::lib::Mocks::mock_preference( 'NotifyPasswordChange', 1 ); |
1947 |
my $new_patron = Koha::Patron->new( \%data )->store(); |
1948 |
my $queued_notices = Koha::Notice::Messages->search( |
1949 |
{ borrowernumber => $new_patron->borrowernumber } |
1950 |
); |
1951 |
is( |
1952 |
$queued_notices->count, 0, |
1953 |
"No notice queued when NotifyPasswordChange enabled and this is a new patron" |
1954 |
); |
1955 |
|
1956 |
$schema->storage->txn_rollback; |
1957 |
}; |
1924 |
}; |
1958 |
}; |
1925 |
|
1959 |
|
1926 |
subtest '->set_password' => sub { |
1960 |
subtest '->set_password' => sub { |
1927 |
- |
|
|