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