View | Details | Raw Unified | Return to bug 25638
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Object.t (-2 / +9 lines)
Lines 27-37 use C4::Circulation; # AddIssue Link Here
27
use C4::Biblio; # AddBiblio
27
use C4::Biblio; # AddBiblio
28
28
29
use Koha::Database;
29
use Koha::Database;
30
31
use Koha::Acquisition::Orders;
30
use Koha::DateUtils qw( dt_from_string );
32
use Koha::DateUtils qw( dt_from_string );
31
use Koha::Libraries;
33
use Koha::Libraries;
32
use Koha::Patrons;
34
use Koha::Patrons;
33
use Koha::ApiKeys;
35
use Koha::ApiKeys;
34
36
37
use JSON;
35
use Scalar::Util qw( isvstring );
38
use Scalar::Util qw( isvstring );
36
use Try::Tiny;
39
use Try::Tiny;
37
40
Lines 164-170 subtest 'discard_changes' => sub { Link Here
164
167
165
subtest 'TO_JSON tests' => sub {
168
subtest 'TO_JSON tests' => sub {
166
169
167
    plan tests => 8;
170
    plan tests => 9;
168
171
169
    $schema->storage->txn_begin;
172
    $schema->storage->txn_begin;
170
173
Lines 210-215 subtest 'TO_JSON tests' => sub { Link Here
210
    like( $updated_on, $rfc3999_regex, "Date-time $updated_on formatted correctly");
213
    like( $updated_on, $rfc3999_regex, "Date-time $updated_on formatted correctly");
211
    like( $lastseen, $rfc3999_regex, "Date-time $updated_on formatted correctly");
214
    like( $lastseen, $rfc3999_regex, "Date-time $updated_on formatted correctly");
212
215
216
    # Test JSON doesn't receive strings
217
    my $order = $builder->build_object({ class => 'Koha::Acquisition::Orders' });
218
    $order = Koha::Acquisition::Orders->find( $order->ordernumber );
219
    is_deeply( $order->TO_JSON, decode_json( encode_json( $order->TO_JSON ) ), 'Orders are similar' );
220
213
    $schema->storage->txn_rollback;
221
    $schema->storage->txn_rollback;
214
};
222
};
215
223
216
- 

Return to bug 25638