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

(-)a/t/db_dependent/ClassSources.t (-1 / +13 lines)
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
- 

Return to bug 37870