gecko/tools/release/t/test.pl
2007-04-17 15:49:31 -07:00

36 lines
735 B
Perl
Executable File

#!/usr/bin/perl -w
use strict;
use Bootstrap::Step;
use Bootstrap::Config;
use t::Bootstrap::Step::Dummy;
use MozBuild::Util;
my $config = new Bootstrap::Config();
unless ($config->Exists(sysvar => 'buildDir')) {
print "FAIL: buildDir should exist\n";
}
unless ($config->Get(sysvar => 'buildDir')) {
print "FAIL: buildDir should be retrievable\n";
}
my $sysname = $config->SystemInfo(var => 'sysname');
unless ($sysname) {
print "FAIL: sysname should exist\n";
}
my $step = t::Bootstrap::Step::Dummy->new();
$step->Execute();
$step->Verify();
$step->Push();
$step->Announce();
eval {
$config->Bump(
configFile => 't/tinder-config.pl',
);
};
if ($@) {
print("FAIL: should not have died, all matches\n");
}