From 9cc6673b2783877b11c3cf3051801fd46dfeb196 Mon Sep 17 00:00:00 2001
From: Andrew Schwartzmeyer <andschwa@microsoft.com>
Date: Thu, 28 Jul 2016 21:57:10 -0700
Subject: [PATCH] Add regression tests for custom key bindings

Also tests capitalized key bindings, hence the need to compare case
sensitively.
---
 .../Modules/PSReadLine/PSReadLine.Tests.ps1         | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/test/powershell/Modules/PSReadLine/PSReadLine.Tests.ps1 b/test/powershell/Modules/PSReadLine/PSReadLine.Tests.ps1
index aa0842b8ad..d882c79e53 100644
--- a/test/powershell/Modules/PSReadLine/PSReadLine.Tests.ps1
+++ b/test/powershell/Modules/PSReadLine/PSReadLine.Tests.ps1
@@ -20,7 +20,7 @@ Describe "PSReadLine" -tags "CI" {
 
     It "Should use Windows Bindings on Windows" -skip:(-not $IsWindows) {
         (Get-PSReadLineOption).EditMode | Should Be Windows
-        (Get-PSReadlineKeyHandler | where { $_.Key -eq "Ctrl+A" }).Function | Should Be SelectAll
+        (Get-PSReadlineKeyHandler | where { $_.Key -eq "Ctrl+a" }).Function | Should Be SelectAll
     }
 
     It "Should set the edit mode" {
@@ -31,6 +31,17 @@ Describe "PSReadLine" -tags "CI" {
         (Get-PSReadlineKeyHandler | where { $_.Key -eq "Ctrl+A" }).Function | Should Be BeginningOfLine
     }
 
+    It "Should allow custom bindings for plain keys" {
+        Set-PSReadlineKeyHandler -Key '"' -Function SelfInsert
+        (Get-PSReadLineKeyHandler | where { $_.Key -eq '"' }).Function | Should Be SelfInsert
+    }
+
+    It "Should report Capitalized bindings correctly" {
+        Set-PSReadlineOption -EditMode Emacs
+        (Get-PSReadLineKeyHandler | where { $_.Key -ceq "Alt+b" }).Function | Should Be BackwardWord
+        (Get-PSReadLineKeyHandler | where { $_.Key -ceq "Alt+B" }).Function | Should Be SelectBackwardWord
+    }
+
     AfterAll {
         Remove-Module PSReadLine