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

(-)a/t/db_dependent/Koha/Biblio.t (+54 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
#
3
# Copyright 2014 Catalyst IT
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it under the
8
# terms of the GNU General Public License as published by the Free Software
9
# Foundation; either version 3 of the License, or (at your option) any later
10
# version.
11
#
12
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
22
use Test::More tests => 17;
23
use Data::Dumper;
24
use Koha::Database;
25
26
BEGIN {
27
    use_ok('Koha::Biblio');
28
}
29
30
my $database = Koha::Database->new();
31
my $schema   = $database->schema();
32
$schema->txn_begin;
33
34
# Make a MARC::Record
35
36
# Make a Koha::Biblio from it
37
38
# Verify that the fields saved correctly
39
40
# Delete all biblios currently in the DB (for testing)
41
42
# Save our biblio to the database (will need to implement this)
43
44
# Fetch it
45
46
# Verify that the fields are correct
47
48
# Get an iterator
49
50
# Verify that the biblio it returns is correct
51
52
my $biblios = Koha::ItemTypes->new();
53
54
$schema->txn_rollback;
(-)a/t/db_dependent/Koha/ItemTypes.pm (-22 / +36 lines)
Lines 17-65 Link Here
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
# XXX This doesn't work because I need to figure out how to do transactions
21
# in a test-case with DBIx::Class
22
23
use Modern::Perl;
20
use Modern::Perl;
24
21
25
use Test::More tests => 8;
22
use Test::More tests => 17;
26
use Data::Dumper;
23
use Data::Dumper;
24
use Koha::Database;
27
25
28
BEGIN {
26
BEGIN {
29
    use_ok('Koha::ItemTypes');
27
    use_ok('Koha::ItemTypes');
30
}
28
}
31
29
32
my $dbh = C4::Context->dbh;
30
my $database = Koha::Database->new();
33
31
my $schema   = $database->schema();
34
# Start transaction
32
$schema->txn_begin;
35
$dbh->{AutoCommit} = 0;
36
$dbh->{RaiseError} = 1;
37
38
my $prep = $dbh->prepare('INSERT INTO itemtypes (itemtype, description, rentalcharge, imageurl, summary, checkinmsg, checkinmsgtype) VALUES (?,?,?,?,?,?,?)');
39
$prep->execute('type1', 'description', 'rentalcharge', 'imageurl', 'summary', 'checkinmsg', 'checkinmsgtype');
40
$prep->execute('type2', 'description', 'rentalcharge', 'imageurl', 'summary', 'checkinmsg', 'checkinmsgtype');
41
33
34
$schema->resultset('Itemtype')->create(
35
    {
36
        itemtype       => 'type1',
37
        description    => 'description',
38
        rentalcharge   => '0.00',
39
        imageurl       => 'imageurl',
40
        summary        => 'summary',
41
        checkinmsg     => 'checkinmsg',
42
        checkinmsgtype => 'checkinmsgtype',
43
    }
44
);
45
$schema->resultset('Itemtype')->create(
46
    {
47
        itemtype       => 'type2',
48
        description    => 'description',
49
        rentalcharge   => '0.00',
50
        imageurl       => 'imageurl',
51
        summary        => 'summary',
52
        checkinmsg     => 'checkinmsg',
53
        checkinmsgtype => 'checkinmsgtype',
54
    }
55
);
42
my $itypes = Koha::ItemTypes->new();
56
my $itypes = Koha::ItemTypes->new();
43
57
44
my @types = $itypes->get_itemtype('type1', 'type2');
58
my @types = $itypes->get_itemtype( 'type1', 'type2' );
45
59
46
die Dumper(\@types);
47
my $type = $types[0];
60
my $type = $types[0];
48
ok(defined($type), 'first result');
61
ok( defined($type), 'first result' );
49
is( $type->code,           'type1',           'itemtype/code' );
62
is( $type->code,           'type1',          'itemtype/code' );
50
is( $type->description,    'description',    'description' );
63
is( $type->description,    'description',    'description' );
51
is( $type->rentalcharge,   'rentalcharge',   'rentalcharge' );
64
is( $type->rentalcharge,   '0.0000',             'rentalcharge' );
52
is( $type->imageurl,       'imageurl',       'imageurl' );
65
is( $type->imageurl,       'imageurl',       'imageurl' );
53
is( $type->summary,        'summary',        'summary' );
66
is( $type->summary,        'summary',        'summary' );
54
is( $type->checkinmsg,     'checkinmsg',     'checkinmsg' );
67
is( $type->checkinmsg,     'checkinmsg',     'checkinmsg' );
55
is( $type->checkinmsgtype, 'checkinmsgtype', 'checkinmsgtype' );
68
is( $type->checkinmsgtype, 'checkinmsgtype', 'checkinmsgtype' );
56
69
57
$type = $types[1];
70
$type = $types[1];
58
ok(defined($type), 'second result');
71
ok( defined($type), 'second result' );
59
is( $type->code,           'type2',           'itemtype/code' );
72
is( $type->code,           'type2',          'itemtype/code' );
60
is( $type->description,    'description',    'description' );
73
is( $type->description,    'description',    'description' );
61
is( $type->rentalcharge,   'rentalcharge',   'rentalcharge' );
74
is( $type->rentalcharge,   '0.0000',             'rentalcharge' );
62
is( $type->imageurl,       'imageurl',       'imageurl' );
75
is( $type->imageurl,       'imageurl',       'imageurl' );
63
is( $type->summary,        'summary',        'summary' );
76
is( $type->summary,        'summary',        'summary' );
64
is( $type->checkinmsg,     'checkinmsg',     'checkinmsg' );
77
is( $type->checkinmsg,     'checkinmsg',     'checkinmsg' );
65
is( $type->checkinmsgtype, 'checkinmsgtype', 'checkinmsgtype' );
78
is( $type->checkinmsgtype, 'checkinmsgtype', 'checkinmsgtype' );
66
- 
79
80
$schema->txn_rollback;

Return to bug 12478