epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Various new checks on Traces

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-12 12:54:41 +02:00
parent 6ca9007fde
commit 58d61f6ff7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ACU/Trace.pm
View File

@ -107,6 +107,7 @@ sub getIds ($)
package TraceHandler; package TraceHandler;
use Carp;
use constant NO_ID_VALUE => "__#"; use constant NO_ID_VALUE => "__#";
sub new ($$) sub new ($$)
@ -164,6 +165,9 @@ sub start_element
$self->{values} = ""; $self->{values} = "";
} }
elsif ($element->{Name} ne "group" && $element->{Name} ne "name" && $element->{Name} ne "statut" && $element->{Name} ne "status" && $element->{Name} ne "log") {
croak "Not a valid trace XML: unknown tag ".$element->{Name};
}
} }
sub characters sub characters
@ -192,7 +196,7 @@ sub end_element
} }
elsif ($element->{Name} eq "eval") elsif ($element->{Name} eq "eval")
{ {
delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} }); #delete $self->{parsed}{ids}{ $self->{inEval} } if (!$self->{parsed}{ids}{ $self->{inEval} });
$self->{inEval} = ""; $self->{inEval} = "";
} }
elsif ($element->{Name} eq "comment") elsif ($element->{Name} eq "comment")