|
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 |
- |
|
|