|
@@ -752,6 +752,15 @@ sub __read_config {
|
|
|
return $test_case;
|
|
|
}
|
|
|
|
|
|
+sub get_test_case {
|
|
|
+ print "What test case would you like to run?\n";
|
|
|
+ print " (build, install or boot)\n";
|
|
|
+ print " Other tests are available but require editing the config file\n";
|
|
|
+ my $ans = <STDIN>;
|
|
|
+ chomp $ans;
|
|
|
+ $default{"TEST_TYPE"} = $ans;
|
|
|
+}
|
|
|
+
|
|
|
sub read_config {
|
|
|
my ($config) = @_;
|
|
|
|
|
@@ -766,10 +775,7 @@ sub read_config {
|
|
|
# was a test specified?
|
|
|
if (!$test_case) {
|
|
|
print "No test case specified.\n";
|
|
|
- print "What test case would you like to run?\n";
|
|
|
- my $ans = <STDIN>;
|
|
|
- chomp $ans;
|
|
|
- $default{"TEST_TYPE"} = $ans;
|
|
|
+ get_test_case;
|
|
|
}
|
|
|
|
|
|
# set any defaults
|
|
@@ -3070,6 +3076,7 @@ if ($#ARGV == 0) {
|
|
|
}
|
|
|
|
|
|
if (! -f $ktest_config) {
|
|
|
+ get_test_case;
|
|
|
open(OUT, ">$ktest_config") or die "Can not create $ktest_config";
|
|
|
print OUT << "EOF"
|
|
|
# Generated by ktest.pl
|
|
@@ -3088,6 +3095,7 @@ THIS_DIR := $variable{"PWD"}
|
|
|
# Define each test with TEST_START
|
|
|
# The config options below it will override the defaults
|
|
|
TEST_START
|
|
|
+TEST_TYPE = $default{"TEST_TYPE"}
|
|
|
|
|
|
DEFAULTS
|
|
|
EOF
|