|
Lines 36-41
subtest 'GetClassSources' => sub {
Link Here
|
| 36 |
|
36 |
|
| 37 |
plan tests => 5; |
37 |
plan tests => 5; |
| 38 |
|
38 |
|
|
|
39 |
$schema->storage->txn_begin; |
| 40 |
|
| 39 |
my $class_rule = $builder->build( |
41 |
my $class_rule = $builder->build( |
| 40 |
{ |
42 |
{ |
| 41 |
source => 'ClassSortRule', |
43 |
source => 'ClassSortRule', |
|
Lines 82-93
subtest 'GetClassSources' => sub {
Link Here
|
| 82 |
is( $class_sources_cached->{$source_code}, undef, "New value now present after cache cleared" ); |
84 |
is( $class_sources_cached->{$source_code}, undef, "New value now present after cache cleared" ); |
| 83 |
$class_sources_cached = GetClassSources(); |
85 |
$class_sources_cached = GetClassSources(); |
| 84 |
is_deeply( $class_sources, $class_sources_cached, "New cached version does match the updated fresh version" ); |
86 |
is_deeply( $class_sources, $class_sources_cached, "New cached version does match the updated fresh version" ); |
|
|
87 |
|
| 88 |
$schema->storage->txn_rollback; |
| 89 |
|
| 85 |
}; |
90 |
}; |
| 86 |
|
91 |
|
| 87 |
subtest 'GetClassSource' => sub { |
92 |
subtest 'GetClassSource' => sub { |
| 88 |
|
93 |
|
| 89 |
plan tests => 4; |
94 |
plan tests => 4; |
| 90 |
|
95 |
|
|
|
96 |
$schema->storage->txn_begin; |
| 97 |
|
| 91 |
my $class_rule = $builder->build( |
98 |
my $class_rule = $builder->build( |
| 92 |
{ |
99 |
{ |
| 93 |
source => 'ClassSortRule', |
100 |
source => 'ClassSortRule', |
|
Lines 123-134
subtest 'GetClassSource' => sub {
Link Here
|
| 123 |
$class_source_cache = GetClassSource($source_code); |
130 |
$class_source_cache = GetClassSource($source_code); |
| 124 |
is( $class_source_cache->{description}, $class_source_db->{description}, "Now both get the correct value" ); |
131 |
is( $class_source_cache->{description}, $class_source_db->{description}, "Now both get the correct value" ); |
| 125 |
|
132 |
|
|
|
133 |
$schema->storage->txn_rollback; |
| 134 |
|
| 126 |
}; |
135 |
}; |
| 127 |
|
136 |
|
| 128 |
subtest 'GetClassSortRule' => sub { |
137 |
subtest 'GetClassSortRule' => sub { |
| 129 |
|
138 |
|
| 130 |
plan tests => 4; |
139 |
plan tests => 4; |
| 131 |
|
140 |
|
|
|
141 |
$schema->storage->txn_begin; |
| 142 |
|
| 132 |
my $class_rule_1 = $builder->build( |
143 |
my $class_rule_1 = $builder->build( |
| 133 |
{ |
144 |
{ |
| 134 |
source => 'ClassSortRule', |
145 |
source => 'ClassSortRule', |
|
Lines 153-156
subtest 'GetClassSortRule' => sub {
Link Here
|
| 153 |
$class_sort_rule_cache = GetClassSortRule($sort_rule); |
164 |
$class_sort_rule_cache = GetClassSortRule($sort_rule); |
| 154 |
is_deeply( $class_sort_rule_cache, $class_sort_rule_db, "Now both get the correct value" ); |
165 |
is_deeply( $class_sort_rule_cache, $class_sort_rule_db, "Now both get the correct value" ); |
| 155 |
|
166 |
|
|
|
167 |
$schema->storage->txn_rollback; |
| 168 |
|
| 156 |
}; |
169 |
}; |
| 157 |
- |
|
|