diff options
| author | volth <volth@webmaster.ms> | 2017-01-05 23:18:49 +0000 |
|---|---|---|
| committer | Graham Christensen <graham@grahamc.com> | 2017-01-08 09:17:05 -0500 |
| commit | 50ec3fe1ac93d6059f67396fc7954c17084a1b20 (patch) | |
| tree | 57d74165de3455d14ed8758fcbfb7927c485c90f /nixos/lib | |
| parent | 07e425b9b9ffde9243e0230e5946978145cf3edb (diff) | |
| download | nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.tar nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.tar.gz nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.tar.bz2 nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.tar.lz nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.tar.xz nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.tar.zst nixlib-50ec3fe1ac93d6059f67396fc7954c17084a1b20.zip | |
test-driver: support punctuation in sendChars
Diffstat (limited to 'nixos/lib')
| -rw-r--r-- | nixos/lib/test-driver/Machine.pm | 30 |
1 files changed, 28 insertions, 2 deletions
diff --git a/nixos/lib/test-driver/Machine.pm b/nixos/lib/test-driver/Machine.pm index 274b16164db3..14c39e859bc1 100644 --- a/nixos/lib/test-driver/Machine.pm +++ b/nixos/lib/test-driver/Machine.pm @@ -611,11 +611,37 @@ sub copyFileFromHost { } +my %charToKey = ( + '!' => "shift-0x02", + '@' => "shift-0x03", + '#' => "shift-0x04", + '$' => "shift-0x05", + '%' => "shift-0x06", + '^' => "shift-0x07", + '&' => "shift-0x08", + '*' => "shift-0x09", + '(' => "shift-0x0A", + ')' => "shift-0x0B", + '-' => "0x0C", '_' => "shift-0x0C", + '=' => "0x0D", '+' => "shift-0x0D", + '[' => "0x1A", '{' => "shift-0x1A", + ']' => "0x1B", '}' => "shift-0x1B", + ';' => "0x27", ':' => "shift-0x27", + '\'' => "0x28", '"' => "shift-0x28", + '`' => "0x29", '~' => "shift-0x29", + '\\' => "0x2B", '|' => "shift-0x2B", + ',' => "0x33", '<' => "shift-0x33", + '.' => "0x34", '>' => "shift-0x34", + '/' => "0x35", '?' => "shift-0x35", + ' ' => "spc", + "\n" => "ret", +); + + sub sendKeys { my ($self, @keys) = @_; foreach my $key (@keys) { - $key = "spc" if $key eq " "; - $key = "ret" if $key eq "\n"; + $key = $charToKey{$key} if exists $charToKey{$key}; $self->sendMonitorCommand("sendkey $key"); } } |