Lines 40-46
my $builder = t::lib::TestBuilder->new;
Link Here
|
40 |
|
40 |
|
41 |
subtest 'new() tests' => sub { |
41 |
subtest 'new() tests' => sub { |
42 |
|
42 |
|
43 |
plan tests => 3; |
43 |
plan tests => 4; |
44 |
|
44 |
|
45 |
$schema->storage->txn_begin; |
45 |
$schema->storage->txn_begin; |
46 |
|
46 |
|
Lines 77-82
subtest 'new() tests' => sub {
Link Here
|
77 |
'Exception carries the right message' |
77 |
'Exception carries the right message' |
78 |
); |
78 |
); |
79 |
|
79 |
|
|
|
80 |
# Create new pending modification, let verification_token be generated |
81 |
# automatically |
82 |
Koha::Patron::Modification->new( |
83 |
{ |
84 |
surname => 'Koha-Suomi', |
85 |
firstname => 'Suha-Koomi', |
86 |
} |
87 |
)->store(); |
88 |
$borrower = Koha::Patron::Modifications->find( |
89 |
{ surname => 'Koha-Suomi' } ); |
90 |
ok(length($borrower->verification_token) > 0, 'Verification token generated.'); |
91 |
|
80 |
$schema->storage->txn_rollback; |
92 |
$schema->storage->txn_rollback; |
81 |
}; |
93 |
}; |
82 |
|
94 |
|
83 |
- |
|
|