6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2024-12-27 19:29:58 +00:00
Code Issues Projects Releases Wiki Activity

improve coverage counting

Browse Source
This commit is contained in:
mgcaret 2020-01-06 12:30:09 -08:00
parent 9f6f2b441e
commit ea5c795cfd
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
platforms/GoSXB/run-tests.rb
View File

@ -115,6 +115,7 @@ def run_suite(suite, outfile = nil)
outfile.write(outbuf.string) if outfile
prevline = ""
outbuf.string.lines.each do |line|
cs_line = line.gsub(/\\.+$/,'')
case line
when /Exception/, /Def not found/, /Stack u/
STDERR.puts prevline, line
@ -125,16 +126,16 @@ def run_suite(suite, outfile = nil)
errors += 1
end
when /TESTING/i
puts line unless line.start_with?(':')
puts line unless line.start_with?(':') || line.start_with?('\\')
end
if line =~ /\s*:\s+(\S+)/
if cs_line =~ /\s*:\s+(\S+)/
colons[$1.downcase] = true
end
if line =~ /\s*[tT]\{\s+:\s+(\S+)/
if cs_line =~ /\s*[tT]\{\s+:\s+(\S+)/
colons[$1.downcase] = true
end
if line =~ /T\{(.+) \}T/
words = $1.split
if cs_line =~ /T\{\s+(.+)\s+\}T/i
words = $1.split(/\s+/)
words.each do |word|
next if word == '->'
@coverage[word.downcase] += 1 unless colons[word.downcase]