parent
e66dd1e130
commit
810ea4ad4e
@ -1,72 +0,0 @@
|
||||
From 8115d074e974e815a20a0e426a5ffb0b43a1a4c9 Mon Sep 17 00:00:00 2001
|
||||
From: Adam Williamson <awilliam@redhat.com>
|
||||
Date: Tue, 15 Aug 2017 10:48:43 -0700
|
||||
Subject: [PATCH] Slower default typing speed
|
||||
|
||||
Suddenly Fedora tests are failing all over the place with typing
|
||||
errors. I have no idea why, but slowing down typing will, I
|
||||
hope!, work around the problem for now.
|
||||
---
|
||||
t/03-testapi.t | 12 ++++++------
|
||||
testapi.pm | 2 +-
|
||||
2 files changed, 7 insertions(+), 7 deletions(-)
|
||||
|
||||
diff --git a/t/03-testapi.t b/t/03-testapi.t
|
||||
index 1cc75de..7dc5d82 100755
|
||||
--- a/t/03-testapi.t
|
||||
+++ b/t/03-testapi.t
|
||||
@@ -76,7 +76,7 @@ sub fake_wait_screen_change(&@) {
|
||||
$mod2->mock(wait_screen_change => \&fake_wait_screen_change);
|
||||
|
||||
type_string 'hallo';
|
||||
-is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 250, text => 'hallo'}]);
|
||||
+is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 150, text => 'hallo'}]);
|
||||
$cmds = [];
|
||||
|
||||
type_string 'hallo', 4;
|
||||
@@ -84,7 +84,7 @@ is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 4, text => 'hal
|
||||
$cmds = [];
|
||||
|
||||
type_string 'hallo', secret => 1;
|
||||
-is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 250, text => 'hallo'}]);
|
||||
+is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 150, text => 'hallo'}]);
|
||||
$cmds = [];
|
||||
|
||||
type_string 'hallo', secret => 1, max_interval => 10;
|
||||
@@ -92,16 +92,16 @@ is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 10, text => 'ha
|
||||
$cmds = [];
|
||||
|
||||
type_string 'hallo', wait_screen_change => 3;
|
||||
-is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 250, text => 'hal'}, {cmd => 'backend_type_string', max_interval => 250, text => 'lo'},]);
|
||||
+is_deeply($cmds, [{cmd => 'backend_type_string', max_interval => 150, text => 'hal'}, {cmd => 'backend_type_string', max_interval => 150, text => 'lo'},]);
|
||||
$cmds = [];
|
||||
|
||||
type_string 'hallo', wait_screen_change => 2;
|
||||
is_deeply(
|
||||
$cmds,
|
||||
[
|
||||
- {cmd => 'backend_type_string', max_interval => 250, text => 'ha'},
|
||||
- {cmd => 'backend_type_string', max_interval => 250, text => 'll'},
|
||||
- {cmd => 'backend_type_string', max_interval => 250, text => 'o'},
|
||||
+ {cmd => 'backend_type_string', max_interval => 150, text => 'ha'},
|
||||
+ {cmd => 'backend_type_string', max_interval => 150, text => 'll'},
|
||||
+ {cmd => 'backend_type_string', max_interval => 150, text => 'o'},
|
||||
]);
|
||||
$cmds = [];
|
||||
|
||||
diff --git a/testapi.pm b/testapi.pm
|
||||
index eabc411..2616e16 100755
|
||||
--- a/testapi.pm
|
||||
+++ b/testapi.pm
|
||||
@@ -1121,7 +1121,7 @@ sub type_string {
|
||||
return;
|
||||
}
|
||||
|
||||
- my $max_interval = $args{max_interval} // 250;
|
||||
+ my $max_interval = $args{max_interval} // 150;
|
||||
my $wait = $args{wait_screen_change} // 0;
|
||||
bmwqemu::log_call(string => $log, max_interval => $max_interval, wait_screen_changes => $wait);
|
||||
if ($wait) {
|
||||
--
|
||||
2.14.1
|
||||
|
Loading…
Reference in new issue