#!/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"); }