perl --version | paste -s -d ';' -
echo
-echo
-echo -e "\033[4mCURRENT 'git' CONFIGURATION:\033[0m"
-git config -l
+if [ -e .git ]; then
+ echo
+ echo -e "\033[4mCURRENT 'git' CONFIGURATION:\033[0m"
+ git config -l
+fi
echo
echo
echo
+if [ -e .git ]; then
echo
echo -e "\033[4mCURRENT GIT/SOURCE STATUS:\033[0m"
-git show
+ git show
+fi
+
system ( "./getlog.sh > ./testlog.txt" );
my $platform = `echo \$NE10PLATFORM`;
my $syslog = `cat ./testlog.txt`;
-my $testlog; # this will keep the sammary text that will be stored in the database
+my $testlog; # this will keep the summary text that will be stored in the database
my $ACCEPTABLE_WARNS = 10; # note: this is defined in unit_test_common.h
# try and run perf on the successfully built units
}
}
- # print out a summary of this run
- print ( $testlog );
+# print out a summary of this run
+if (length @failed == 0) {
+ print "** No Build Failures";
+} else {
+ for my $fail (@failed) {
+ print "$fail failed to build";
+ }
+}
+if (length @warn == 0) {
+ print "** No Test Failures"
+ for my $warned (@warn) {
+ print "$warned failed test";
+ }
+}
+#print ( $testlog );