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