#!/usr/bin/perl -w
#
# Test the system - copy linux tree to /Raid/Test
#
#
# Original File
# -------------
#	http://www.Linux-1U.net/Disks/Tests/test.pl
#
# Analyze the results of test.pl
# ------------------------------
#	http://www.Linux-1U.net/Disks/Tests/test.analyze.pl
#
#
#
# 12-Dec-01 amo Clean up 
# 14-May-02 amo Added date stamp and log
# 20-Feb-03 amo Updated w/ system info
# 24-Apr-03 amo Created test.pl post-processor test.analyze.pl
# 05-Sep-03 amo Added linux-2.4.21
# 18-Dec-03 amo Added linux-2.4.23 w/ openwall w/ reiserfs  ( slack-9.1 does not have cmp )
# 04-Jul-04 amo Added linux-2.4.23 w/ openwall w/ reiserfs
#
#
#y ( $Linux ) = "linux-2.4.18";
#y ( $Linux ) = "linux-2.4.19";
#y ( $Linux ) = "linux-2.4.21";
#y ( $Linux ) = "linux-2.4.23";
#
my ( $Linux ) = "linux-2.4.26";
my ( $SRC ) = "/usr/local/src";
my ( $DST ) = "/tmp/test";
my ( $LOG ) = "$DST/log";
#
my ( $DstLinux ) = "$DST/${Linux}";
#
#
my ( $TAR ) = "tar";
my ( $HDPARM ) = "hdparm";
#
my ( $i_cd ) = "cd $SRC";
my ( $i_cf ) = "$TAR cf - $Linux ";
#
my ( $o_cd ) = "cd $DST";
my ( $o_xf ) = "$TAR xvfp - ";
#
my ( $o_rm ) = "rm -rf $DstLinux";
#
my ( $cnt ) = 0;
#
#
if ( ! -d "$SRC" ) {
  printf "ERROR: Missing $SRC..\n";
  exit 1;
}
#
if ( ! -d "$DST" ) {
  printf "WARNING: Creating $DST..\n";
  ` mkdir $DST`;
  exit 1;
}
#
my ( $Date ) = `date`;
chomp ( $Date );
#
#
` echo "#" >> $LOG `;
` echo "# test.pl $Date -- Kernel Compile Tests " >> $LOG `;
` echo "#" >> $LOG `;
#
#
# 20-Feb-03 amo Updated w/ system info
#
` echo " " >> $LOG `;
` echo "cat /proc/cpuinfo" >> $LOG `;
` cat /proc/cpuinfo >> $LOG `;
#
#
` echo " " >> $LOG `;
` echo "cat /proc/meminfo" >> $LOG `;
` cat /proc/meminfo >> $LOG `;
#
#
` echo " " >> $LOG `;
` echo "$HDPARM -iv /dev/hda" >> $LOG `;
` $HDPARM -iv /dev/hda >> $LOG `;
#
#
` echo " " >> $LOG `;
` echo "$HDPARM -tT /dev/hda" >> $LOG `;
` $HDPARM -tT /dev/hda >> $LOG `;
#
#
` echo " " >> $LOG `;
` echo " " >> $LOG `;
#
#
#
# Keep doing something forever
# ----------------------------
#
while ( 1 ) {
  #
  chomp ( $pdate = `date` );
  #
  # copy the source tree over to the testing area
  #
  ` echo "$pdate $cnt" >> $LOG `;
  #
  print "pass=$cnt: $pdate  $o_rm ; ( $i_cd ; $i_cf ) | ( $o_cd ; $o_xf ) \n";
  `$o_rm ; ( $i_cd ; $i_cf ) | ( $o_cd ; $o_xf ) `;
  #
  # compile the kernel for fun
  #
  `cd $DstLinux ; make dep ; make clean ; make bzImage ; cd `;
  #
  ` sync `;
  $cnt += 1;
  #
} # continuous test
#
#
# end of file