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

(-)a/t/db_dependent/AudioAlerts.t (-20 / +19 lines)
Lines 32-40 $dbh->{RaiseError} = 1; Link Here
32
32
33
map { $_->delete() } Koha::AudioAlerts->search();
33
map { $_->delete() } Koha::AudioAlerts->search();
34
34
35
# Check the basics
35
## Check the basics
36
diag("Creating 3 audio alerts named a, b and c");
36
# Creating 3 audio alerts named a, b and c
37
38
my $a = Koha::AudioAlert->new( { selector => 'A', sound => 'test.wav' } )->store();
37
my $a = Koha::AudioAlert->new( { selector => 'A', sound => 'test.wav' } )->store();
39
is( $a->precedence, 1, "First alert has a precedence of 1" );
38
is( $a->precedence, 1, "First alert has a precedence of 1" );
40
39
Lines 44-56 is( $b->precedence, 2, "Second alert has a precedence of 2" ); Link Here
44
my $c = Koha::AudioAlert->new( { selector => 'C', sound => 'test.ogg' } )->store();
43
my $c = Koha::AudioAlert->new( { selector => 'C', sound => 'test.ogg' } )->store();
45
is( $c->precedence, 3, "Third alert has a precedence of 3" );
44
is( $c->precedence, 3, "Third alert has a precedence of 3" );
46
45
47
# Check precedence getting methods
46
## Check precedence getting methods
48
diag('Testing get_last_precedence and get_next_precedence');
47
# Testing get_last_precedence and get_next_precedence
48
49
is( Koha::AudioAlerts->get_last_precedence(), 3, "Last prececence should be 3" );
49
is( Koha::AudioAlerts->get_last_precedence(), 3, "Last prececence should be 3" );
50
is( Koha::AudioAlerts->get_next_precedence(), 4, "Next prececence should be 4" );
50
is( Koha::AudioAlerts->get_next_precedence(), 4, "Next prececence should be 4" );
51
51
52
# Check edge cases
52
## Check edge cases
53
diag('Testing edge cases for moving ( up from 1, down from the last precedence )');
53
# Testing edge cases for moving ( up from 1, down from the last precedence )
54
54
55
$a->move('up');
55
$a->move('up');
56
is( $a->precedence, 1, "First alert still has a precedence of 1" );
56
is( $a->precedence, 1, "First alert still has a precedence of 1" );
Lines 58-65 is( $a->precedence, 1, "First alert still has a precedence of 1" ); Link Here
58
$c->move('down');
58
$c->move('down');
59
is( $c->precedence, 3, "Third alert still has a precedence of 3" );
59
is( $c->precedence, 3, "Third alert still has a precedence of 3" );
60
60
61
# Check moving
61
## Check moving
62
diag("Moving A down by one");
62
# Moving A down by one
63
$a->move('down');
63
$a->move('down');
64
$a = Koha::AudioAlerts->find( $a->id );
64
$a = Koha::AudioAlerts->find( $a->id );
65
$b = Koha::AudioAlerts->find( $b->id );
65
$b = Koha::AudioAlerts->find( $b->id );
Lines 68-74 is( $a->precedence, 2, "Alert A has a precedence of 2" ); Link Here
68
is( $b->precedence, 1, "Alert B has a precedence of 1" );
68
is( $b->precedence, 1, "Alert B has a precedence of 1" );
69
is( $c->precedence, 3, "Alert C has a precedence of 3" );
69
is( $c->precedence, 3, "Alert C has a precedence of 3" );
70
70
71
diag("Moving A up by one, should restore original order");
71
# Moving A up by one, should restore original order
72
$a->move('up');
72
$a->move('up');
73
$a = Koha::AudioAlerts->find( $a->id );
73
$a = Koha::AudioAlerts->find( $a->id );
74
$b = Koha::AudioAlerts->find( $b->id );
74
$b = Koha::AudioAlerts->find( $b->id );
Lines 77-83 is( $a->precedence, 1, "Alert A has a precedence of 1" ); Link Here
77
is( $b->precedence, 2, "Alert B has a precedence of 2" );
77
is( $b->precedence, 2, "Alert B has a precedence of 2" );
78
is( $c->precedence, 3, "Alert C has a precedence of 3" );
78
is( $c->precedence, 3, "Alert C has a precedence of 3" );
79
79
80
diag("Moving A to the bottom");
80
# Moving A to the bottom
81
$a->move('bottom');
81
$a->move('bottom');
82
$a = Koha::AudioAlerts->find( $a->id );
82
$a = Koha::AudioAlerts->find( $a->id );
83
$b = Koha::AudioAlerts->find( $b->id );
83
$b = Koha::AudioAlerts->find( $b->id );
Lines 86-92 is( $a->precedence, 3, "Alert A has a precedence of 3" ); Link Here
86
is( $b->precedence, 1, "Alert B has a precedence of 1" );
86
is( $b->precedence, 1, "Alert B has a precedence of 1" );
87
is( $c->precedence, 2, "Alert C has a precedence of 2" );
87
is( $c->precedence, 2, "Alert C has a precedence of 2" );
88
88
89
diag("Moving A to the top, should restore original order");
89
# Moving A to the top, should restore original order
90
$a->move('top');
90
$a->move('top');
91
$a = Koha::AudioAlerts->find( $a->id );
91
$a = Koha::AudioAlerts->find( $a->id );
92
$b = Koha::AudioAlerts->find( $b->id );
92
$b = Koha::AudioAlerts->find( $b->id );
Lines 95-105 is( $a->precedence, 1, "Alert A has a precedence of 1" ); Link Here
95
is( $b->precedence, 2, "Alert B has a precedence of 2" );
95
is( $b->precedence, 2, "Alert B has a precedence of 2" );
96
is( $c->precedence, 3, "Alert C has a precedence of 3" );
96
is( $c->precedence, 3, "Alert C has a precedence of 3" );
97
97
98
# Test searching, should be ordered by precedence by default
98
## Test searching, should be ordered by precedence by default
99
diag("Test searching, default search should be ordered by precedence");
99
# Test searching, default search should be ordered by precedence
100
$a->move('bottom');
100
$a->move('bottom');
101
diag("Changed precedence order from database insert order");
101
# Changed precedence order from database insert order
102
diag("Insert order was a, b, c. Precedence order is now b, c, a.");
102
# Insert order was a, b, c. Precedence order is now b, c, a.
103
( $b, $c, $a ) = Koha::AudioAlerts->search();
103
( $b, $c, $a ) = Koha::AudioAlerts->search();
104
104
105
is( $b->selector,   'B', 'First sound is indeed B' );
105
is( $b->selector,   'B', 'First sound is indeed B' );
Lines 111-118 is( $c->precedence, 2, "Alert C has a precedence of 2" ); Link Here
111
is( $a->selector,   'A', 'Third sound is indeed A' );
111
is( $a->selector,   'A', 'Third sound is indeed A' );
112
is( $a->precedence, 3,   "Alert A has a precedence of 3" );
112
is( $a->precedence, 3,   "Alert A has a precedence of 3" );
113
113
114
# Test fix precedences, should remove gaps in precedences
114
## Test fix precedences, should remove gaps in precedences
115
diag("Testing precedence fixing. Should remove gaps from precedence list.");
115
# Testing precedence fixing. Should remove gaps from precedence list.
116
$a->precedence( 0 )->store();
116
$a->precedence( 0 )->store();
117
$b->precedence( 50 )->store();
117
$b->precedence( 50 )->store();
118
$c->precedence( 100 )->store();
118
$c->precedence( 100 )->store();
Lines 120-126 is( $a->precedence, 0, "Alert A has a precedence of 0" ); Link Here
120
is( $b->precedence, 50, "Alert B has a precedence of 50" );
120
is( $b->precedence, 50, "Alert B has a precedence of 50" );
121
is( $c->precedence, 100, "Alert C has a precedence of 100" );
121
is( $c->precedence, 100, "Alert C has a precedence of 100" );
122
122
123
diag("Running fix_precedences()");
123
# Running fix_precedences()
124
Koha::AudioAlerts->fix_precedences();
124
Koha::AudioAlerts->fix_precedences();
125
$a = Koha::AudioAlerts->find( $a->id );
125
$a = Koha::AudioAlerts->find( $a->id );
126
$b = Koha::AudioAlerts->find( $b->id );
126
$b = Koha::AudioAlerts->find( $b->id );
127
- 

Return to bug 11431