xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-30 09:36:41 +00:00
Code Issues Releases Wiki Activity

Merge pull request #3784 from hu-weihua/snsetup

Browse Source 
Add debug information for isntallation failed case in automation
This commit is contained in:
xuweibj 2017-08-28 14:03:40 +08:00 committed by GitHub
commit 6b9c78e5ef
2 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
xCAT-test/autotest/testcase/installation/customize_sleep_for_sn
View File

@ -1,13 +1,18 @@
#!/usr/bin/env perl
use File::Basename;
my $program_name = basename($0);
my $os = $ARGV[0];
my $arch = $ARGV[1];
my $log = "/tmp/pre_deploy_sn.log";
#my $log = "/tmp/pre_deploy_sn.log";
print ">>>Enter $program_name\n";
my $orgclusterconffile = "/opt/xcat/share/xcat/tools/autotest/default.conf";
my $snnodename = `cat $orgclusterconffile |grep -E '^SN\s*='|awk -F'=' '{print \$2}'`;
chomp($snnodename);
`echo "SN=$snnodename" >> $log`;
#`echo "SN=$snnodename" >> $log`;
print "The target SN = $snnodename\n";
sleep 300;
my $timecnt = 0;
@ -18,11 +23,13 @@ while ($timecnt < 120) {
if ($os =~ /rhel/i && $arch =~ /^ppc64$/i) {
my $booting = system("lsdef -l $snnodename|grep status|grep booting > /dev/null 2>&1");
system("xdsh $snnodename \"echo 1\"") if ($booting == 0);
`echo "send signal to $snnodename for the $timecnt times" >> $log`;
print "send signal to $snnodename for the $timecnt times\n";
#`echo "send signal to $snnodename for the $timecnt times" >> $log`;
}
sleep 30;
$timecnt++;
}
print ">>>Leave $program_name\n";
exit 0;

15
xCAT-test/autotest/testcase/installation/pre_deploy_sn
View File

@ -4,15 +4,22 @@ $ENV{TERM} = "xterm-256color";
my $os = $ARGV[0];
my $arch = $ARGV[1];
my $log = "/tmp/pre_deploy_sn.log";
sub runcmd {
my $cmd = shift;
`$cmd >> $log 2>&1`;
if ($?) {
#print "run $cmd ....[error]\n";
my $case_start_time = timelocal(localtime());
my $case_start_time_str = scalar(localtime());
print ">>>To run: $cmd [$case_start_time_str]\n";
my @output = `$cmd 2>&1`;
chomp(@output);
print "$_\n" foreach (@output);
if ($?) {
print ">>>To run $cmd ....[error]\n";
exit 1;
}else{
print ">>>To run: $cmd ....[ok]\n";
}
}