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