[Compbench-devel] CompBenchmarks++/CBM-PI/t 04-Config.pl,NONE,1.1

[Frederic T. <xf...@us...>]

Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32078

Added Files:
	04-Config.pl 
Log Message:
First import.

--- NEW FILE: 04-Config.pl ---
#!/usr/bin/perl -w -I ..
use strict;
use CBM;

push(@INC, "lib");
require "libtest.pl";

use Test::Simple tests => 7;

my $sys;
our $top_srcdir;

sub test_config {
  my $X = CBM::Config->new("$top_srcdir/reference/compbenchmarks-config-0.xml");
  my $v = $X->getStatus("gzip-1c");

  ok($v == 0, "gzip-1c status is 0 ($v)");

  my $x = <<EOF
<libcompbenchmarks version="0.5.0">
 <benchmarks>
  <benchmark id="gzip-1c" status="0"/>
 </benchmarks>
</libcompbenchmarks>
EOF
;
  chomp($x);
  ok($x eq $X->str());

  $X->setStatus("gzip-1c", 1);
$x = <<EOF
<libcompbenchmarks version="0.5.0">
 <benchmarks>
  <benchmark id="gzip-1c" status="1"/>
 </benchmarks>
</libcompbenchmarks>
EOF
;
  chomp($x);
  ok($x eq $X->str());

  $v = $X->getStatus("gzip-1c");
  ok($v == 1, "gzip-1c status is 1 ($v)");

  ok($X->getStatus("test") == 0);
  $X->setStatus("test", 2);
  ok($X->getStatus("test") == 2);

  $x = <<EOF
<libcompbenchmarks version="0.5.0">
 <benchmarks>
  <benchmark id="gzip-1c" status="1"/>
  <benchmark id="test" status="2"/>
 </benchmarks>
</libcompbenchmarks>
EOF
;
  chomp($x);
  ok($x eq $X->str());

}

$sys = CBM::Init();

test_config();

$sys->done();