From 871d5bc8ab73ae3655b89a7fab214d3d165854d1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hinrik=20=C3=96rn=20Sigur=C3=B0sson?= <hinrik.sig@gmail.com>
Date: Mon, 18 Apr 2011 17:12:10 +0000
Subject: [PATCH] Test for transpose-chars at end of line

Signed-off-by: Apocalypse <perl@0ne.us>
---
 lib/POE/Test/Loops/wheel_readline.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/POE/Test/Loops/wheel_readline.pm b/lib/POE/Test/Loops/wheel_readline.pm
index e4e86be8..079e0b8f 100644
--- a/lib/POE/Test/Loops/wheel_readline.pm
+++ b/lib/POE/Test/Loops/wheel_readline.pm
@@ -111,10 +111,10 @@ my @tests = (
       "\eb\eb",
       "\et",            # transpose-words
       "\cA\cT",         # transpose-chars (fail bol)
-      "\cE\cT",         # transpose-chars (fail eol)
+      "\cE12\cT",       # transpose-chars (at eol
       "\cJ",
     ],
-    done => "two one 21",
+    done => "two one 2121",
   },
 );