#!/usr/bin/perl
use Test::Metadata;
use Test::Parser::KernelBuild;
my $parser = new Test::Parser::KernelBuild;
my $input = ($#ARGV < 0)? \*STDIN : $ARGV[0];
$parser->parse($input);
my $metadata = new Test::Metadata;
$metadata->add_build($parser);
my $platform = `uname -sm`;
chomp $platform;
$metadata->properties({
description => "Kernel build test",
summary => "Kernel build test",
license => "GPL",
product => "Linux kernel",
version => "2.6.x",
release => "2.6.x",
url => "http://www.kernel.org",
root => "http://developer.osdl.org/dev/nfsv4/results/80",
platform => $platform,
});
print $metadata->to_xml();
syntax highlighted by Code2HTML, v. 0.9.1