Test for transpose-chars at end of line

Signed-off-by: Apocalypse <perl@0ne.us>
rcaputo · Apr 18, 2011 · 871d5bc · 871d5bc
1 parent d3e2add
commit 871d5bc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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",
   },
 );