a perl script to convert cunit output to teamcity service messages

cunitTeamcityServiceMessage.pl

#!/usr/bin/perl

$suite_re = qr/Suite:\s(\w+)/;
$test_re = qr/\s*Test:\s(.+)\s\.\.\.\s(\w+)/;
$endTest_re = qr/--Run\sSummary/;

my $current_suite = "";
my $current_test = "";

@userinput = <STDIN>;
foreach (@userinput) {
	if (/$suite_re/) {
		if(!$current_suite eq "") {
			print "##teamcity[testSuiteFinished name='$current_suite']\n";
			print;
		}
		$current_suite = $1;
		print "##teamcity[testSuiteStarted name='$current_suite']\n";
		print;
	}
	elsif (/$endTest_re/) {
		if ($current_test ne "") {
			print "##teamcity[testFinished name='$current_test']\n";
		}
		if (!$current_suite eq "") {
			print "##teamcity[testSuiteFinished name='$current_suite']\n";
			print;
		}
	}
	elsif (/$test_re/) {
		if ($current_test ne "") {
			print "##teamcity[testFinished name='$current_test']\n";
		}
		$current_test = $1;
		print "##teamcity[testStarted name='$current_test' captureStandardOutput='true' ]\n";
		print;
		if ( !($2 eq "passed")) {
			print "##teamcity[testFailed name='$current_test' message='$2']\n";
		}
	}
	else {
        	print;
	}
}