Generate a TAP file for the unit tests

1 files changed, 73 insertions, 0 deletions

diff --git a/meson2tap b/meson2tap
new file mode 100755
index 0000000..9f72610
--- /dev/null
+++ b/meson2tap
@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+require 'yaml'
+
+def indent(para, depth)
+	pfix = " "*depth
+	return para.lines.map{|line|pfix+line}.join
+end
+
+def bail(reason)
+	abort("Bail out! #{reason}")
+end
+
+puts "TAP version 13"
+section = nil
+yblock = nil
+plan = nil
+head = ""
+STDIN.each_line do |line|
+	if section.nil?
+		case line.chomp
+		when /^--- (.*) ---$/
+			section = $1
+			yblock[section] = ""
+		when /^\s*$/
+		# ignore
+		when /^\s*([0-9]+)\/([0-9]+) (.*\S)\s+(OK|FAIL|SKIP)\s+(\S* \S*) (.*)$/
+			n = $1
+			m = $2
+			if plan.nil?
+				puts "1..#{m}"
+				plan = m
+				print head
+			elsif m != plan
+				bail("m:#{m} != plan:#{plan}")
+			end
+			name = $3
+			result = $4
+			duration = $5
+			comment = $6
+			case result
+			when "OK"
+				puts "ok #{n} #{name}"
+			when "FAIL"
+				puts "not ok #{n} #{name}"
+			when "SKIP"
+				puts "ok #{n} #{name} # SKIP"
+			else
+				bail("unparsable line: #{line}")
+			end
+			yblock = {}
+			yblock['_duration'] = duration
+			yblock['_exitstatus'] = comment
+		else
+			if plan.nil?
+				head += "# #{line}"
+			else
+				print "# #{line}"
+			end
+		end
+	else
+		case line.chomp
+		when "-------"
+			puts indent(YAML::dump(yblock), 4)
+			yblock = nil
+			section = nil
+		when /^--- (.*) ---$/
+			section = $1
+			yblock[section] = ""
+		else
+			yblock[section] += line
+		end
+	end
+end