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

(-)a/OldBehavior.t (-1 / +87 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Test::More;
3
use Test::Warn;
4
use Data::Dumper qw(Dumper);
5
6
use Koha::Database;
7
use t::lib::TestBuilder;
8
9
my $schema  = Koha::Database->new->schema;
10
$schema->storage->txn_begin;
11
my $builder = t::lib::TestBuilder->new();
12
13
# Goal 1
14
my $borrower =  $builder->build({ source => 'Borrower' });
15
my $userperm = $builder->build({
16
        source => 'UserPermission',
17
        value => {
18
            borrowernumber => $borrower->{borrowernumber},
19
            module_bit => { flag => 'my_flag' },
20
            code => 'does_not_exist',
21
        },
22
    });
23
isnt( $userperm->{code}, 'does_not_exist',
24
    "code $userperm->{code} was inserted" );
25
eval { $builder->build({
26
        source => 'UserPermission',
27
        value => {
28
            borrowernumber => $borrower->{borrowernumber},
29
            module_bit => 10,
30
            code => { code => 'new code' },
31
        },
32
    }); };
33
is( $@ =~ /You have an error in your SQL syntax/, 1, 'Stumbled over hash');
34
35
#Goal 2
36
eval { $builder->build({
37
        source => 'UserPermission',
38
        value => {
39
            borrowernumber => $borrower->{borrowernumber},
40
            module_bit => 99,
41
            code => 'new_super_tool',
42
        },
43
    }); };
44
is( $@ =~ /Cannot add or update a child row/, 1, 'Stumbled over FK');
45
46
#Goal 3
47
if( !$builder->schema->resultset('Branch')->find('CPL') ) {
48
    $builder->schema->resultset('Branch')->create({
49
        branchcode => 'CPL', branchname => 'My branch',
50
    });
51
}
52
my $branch = $builder->build({
53
        source => 'Branch',
54
        value  => { branchcode => 'CPL' },
55
});
56
is( $branch && $branch->{branchname} ne 'My branch', 1,
57
    "Branch name changed" );
58
59
#Goal 4
60
my $patron = $builder->build({
61
        source => 'Borrower',
62
        value  => { borrowernumber => '123456789' },
63
});
64
is( $patron->{borrowernumber}, 123456789, 'auto incr not respected' );
65
66
#Goal 5
67
if( !$builder->schema->resultset('Branch')->find('MPL') ) {
68
    $builder->schema->resultset('Branch')->create({
69
        branchcode => 'MPL', branchname => 'My branch',
70
    });
71
}
72
my $item = $builder->build({
73
        source => 'Item',
74
        value  => { homebranch => { branchcode => 'MPL' } },
75
});
76
my $newname = $builder->schema->resultset('Branch')->find('MPL')->branchname;
77
isnt( $newname, 'My branch', "Branch name changed to $newname" );
78
79
#Goal 6
80
my $reserve = $builder->build({
81
        source => 'Reserve',
82
        value => { itemnumber => undef },
83
    });
84
isnt( $reserve->{itemnumber}, undef,
85
    "Itemnumber $reserve->{itemnumber} is not undef" );
86
87
done_testing();

Return to bug 16155