[LTP] [PATCH 04/05] Add Script which will be at the heart of this infrastructure

Subrata Modak
2009-08-11T17:31:06Z

At the heart of this infrastructure is this Script, which will actually:
1) Change the temporary command file generated by runltp,
2) Create a new temporary command file which will have the following entries
against each one entry in the command file:
i) Same TAG COMMAND_LINE entry,
ii) Entry to call the script to insert faults,
iii) Entry to run as many loops as specified by the user,
iv) Entry to call the script to restore kernel to default state,

It is capable of creating new entries in the temporary command file with the
following tags and command lines:
TAG_NAME=tag1, COMMANDLINE="test1",
TAG_NAME=tag1_loop1, COMMANDLINE="insert_fault_in_kernel; test1",
TAG_NAME=tag1_loop2, COMMANDLINE="test1",
...
TAG_NAME=tag1_loopn, COMMANDLINE="test1; restore_default_kernel",

Signed-off-by: Subrata Modak <subrata@linux.vnet.ibm.com>
---

diff -uprN ltp-full-20090731.orig/tools/create_kernel_faults_in_loops_and_probability.pl ltp-full-20090731/tools/create_kernel_faults_in_loops_and_probability.pl
--- ltp-full-20090731.orig/tools/create_kernel_faults_in_loops_and_probability.pl 1970-01-01 05:30:00.000000000 +0530
+++ ltp-full-20090731/tools/create_kernel_faults_in_loops_and_probability.pl 2009-08-11 20:23:54.000000000 +0530
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+################################################################################
+## ##
+## Copyright (c) International Business Machines Corp., 2009 ##
+## ##
+## This program is free software; you can redistribute it and/or modify ##
+## it under the terms of the GNU General Public License as published by ##
+## the Free Software Foundation; either version 2 of the License, or ##
+## (at your option) any later version. ##
+## ##
+## This program is distributed in the hope that it will be useful, but ##
+## WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY ##
+## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ##
+## for more details. ##
+## ##
+## You should have received a copy of the GNU General Public License ##
+## along with this program; if not, write to the Free Software ##
+## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ##
+## ##
+################################################################################
+# ##
+# File : create_kernel_faults_in_loops_and_probability.pl ##
+# ##
+# Usage: create_kernel_faults_in_loops_and_probability.pl\ ##
+# <LTP_COMMAND_FILE> <NO_OF_LOOPS_EACH_TEST_WILL_RUN>\ ##
+# <PROBABILITY_OF_FAULT_INJECTION> ##
+# ##
+# Description: This is a simple perl script which will take ltp command file ##
+# as input and then create a final command file while will have ##
+# the following entries for each test tag: ##
+# 1) <tag_name_loop1> <test_binary_name> ##
+# 2) <tag_name_loop2> <insert_kernel_faults.sh test_binary_name>##
+# 3) tag entried from loop3 to loop(n-1) ##
+# 4) <tag_name_loopn> <restore_kernel_faults_default.sh test_binary_name>##
+# ##
+# Author: Subrata Modak <subrata@linux.vnet.ibm.com> ##
+# ##
+# History: Aug 11 2009 - Created - Subrata Modak. ##
+################################################################################
+
+my $command_file = shift (@ARGV) || syntax();
+my $loops = shift (@ARGV) || syntax();
+my $failure_probability = shift (@ARGV) || syntax();
+
+sub syntax() {
+ print "syntax: create_fault_in_loops_and_probability.pl\
+ <LTP_COMMAND_FILE> <NO_OF_LOOPS_EACH_TEST_WILL_RUN>\
+ <PROBABILITY_OF_FAULT_INJECTION>\n";
+ exit (1);
+}
+#$ENV{TEST_START_TIME})
+
+
+open (FILE, $command_file) || die "Cannot open file: $command_file\n";
+while ($line = <FILE>) {
+ if ($line =~ /^#/) {
+ print "$line";
+ next;
+ }
+ if ($line =~ /^\n$/) {
+ next;
+ }
+ chomp $line;
+ print "$line\n"; #Print one instance for stable execution
+ @tag_and_actual_command = split(/\ /, $line);
+
+ #The remaining loops should be running under fault injection
+ for ($counter=1; $counter<=$loops; $counter++) {
+ my $token_counter = 0;
+ foreach my $token (@tag_and_actual_command) {
+ if ($token_counter == 0 ) {
+ #Time to append the actual command tag with the loop no.
+ print $token . "_loop_" . $counter . " ";
+ $token_counter++;
+ next;
+ }
+ if ($token_counter == 1 && $counter == 1) {
+ #Time to include the fault injection script in the first loop
+ print "\$LTPROOT/tools/insert_kernel_faults.sh " . $failure_probability . "; " . $token;
+ $token_counter++;
+ next;
+ }
+ print " " . $token . " ";
+ }
+ if ($counter == $loops) {
+ #Time to withdraw the faults once the last loop has been executed
+ #Until all faults has been successfully restored to default values...
+ #Keep restoring them
+ print "; " . "\$LTPROOT/tools/restore_kernel_faults_default.sh; RC=\$?; while [ \$RC -ne 0 ]; do \$LTPROOT/tools/restore_kernel_faults_default.sh; RC=\$?; done\n"
+ } else {
+ print "\n"
+ }
+ }
+
+}
+close (FILE);
+

---