aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSteven Rostedt <srostedt@redhat.com>2011-11-23 13:41:18 -0500
committerSteven Rostedt <rostedt@goodmis.org>2011-12-22 21:59:13 -0500
commitc4261d0f62ccbb42184d13b43807b36b100e8fb5 (patch)
tree6145b4628ce7093982a0027767989d6e92488d7a
parentdad98754924735d4dfcbd49b68c00957e999c0ef (diff)
ktest: Ask for type of test when creating a new config
When no argument is supplied to ktest, or the config applied does not exist and a new config is being created, instead of just using the default test type, give the user an option to pick the test type of either 'build, install, or boot'. Other options may be added later but then those would require more questions as they require more fields. But that's for another release of ktest to add that feature. Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
-rwxr-xr-xtools/testing/ktest/ktest.pl16
1 files changed, 12 insertions, 4 deletions
diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl
index 2ffb67c3c49d..f50b44fa8a03 100755
--- a/tools/testing/ktest/ktest.pl
+++ b/tools/testing/ktest/ktest.pl
@@ -752,6 +752,15 @@ sub __read_config {
752 return $test_case; 752 return $test_case;
753} 753}
754 754
755sub get_test_case {
756 print "What test case would you like to run?\n";
757 print " (build, install or boot)\n";
758 print " Other tests are available but require editing the config file\n";
759 my $ans = <STDIN>;
760 chomp $ans;
761 $default{"TEST_TYPE"} = $ans;
762}
763
755sub read_config { 764sub read_config {
756 my ($config) = @_; 765 my ($config) = @_;
757 766
@@ -766,10 +775,7 @@ sub read_config {
766 # was a test specified? 775 # was a test specified?
767 if (!$test_case) { 776 if (!$test_case) {
768 print "No test case specified.\n"; 777 print "No test case specified.\n";
769 print "What test case would you like to run?\n"; 778 get_test_case;
770 my $ans = <STDIN>;
771 chomp $ans;
772 $default{"TEST_TYPE"} = $ans;
773 } 779 }
774 780
775 # set any defaults 781 # set any defaults
@@ -3070,6 +3076,7 @@ if ($#ARGV == 0) {
3070} 3076}
3071 3077
3072if (! -f $ktest_config) { 3078if (! -f $ktest_config) {
3079 get_test_case;
3073 open(OUT, ">$ktest_config") or die "Can not create $ktest_config"; 3080 open(OUT, ">$ktest_config") or die "Can not create $ktest_config";
3074 print OUT << "EOF" 3081 print OUT << "EOF"
3075# Generated by ktest.pl 3082# Generated by ktest.pl
@@ -3088,6 +3095,7 @@ THIS_DIR := $variable{"PWD"}
3088# Define each test with TEST_START 3095# Define each test with TEST_START
3089# The config options below it will override the defaults 3096# The config options below it will override the defaults
3090TEST_START 3097TEST_START
3098TEST_TYPE = $default{"TEST_TYPE"}
3091 3099
3092DEFAULTS 3100DEFAULTS
3093EOF 3101EOF