| … | |
… | |
| 797 | my $context = $self->{context} = $self->{context}->copy; |
797 | my $context = $self->{context} = $self->{context}->copy; |
| 798 | Parser::Context->current(undef,$context); |
798 | Parser::Context->current(undef,$context); |
| 799 | $context->{_variables}->{pattern} = $context->{_variables}->{namePattern} = |
799 | $context->{_variables}->{pattern} = $context->{_variables}->{namePattern} = |
| 800 | 'C0|' . $context->{_variables}->{pattern}; |
800 | 'C0|' . $context->{_variables}->{pattern}; |
| 801 | $context->update; $context->variables->add('C0' => 'Parameter'); |
801 | $context->update; $context->variables->add('C0' => 'Parameter'); |
| 802 | $cmp->ans_hash(correct_value => Value::Formula->new('C0')+$self); |
802 | my $f = Value::Formula->new('C0')+$self; |
|
|
803 | for ('limits','test_points','test_values','num_points','granularity','resolution') |
|
|
804 | {$f->{$_} = $self->{$_} if defined($self->{$_})} |
|
|
805 | $cmp->ans_hash(correct_value => $f); |
| 803 | Parser::Context->current(undef,$current); |
806 | Parser::Context->current(undef,$current); |
| 804 | } |
807 | } |
| 805 | return $cmp; |
808 | return $cmp; |
| 806 | } |
809 | } |
| 807 | |
810 | |