From 03390cfb5f8e761c2fc700c16d070ad8a94e33f3 Mon Sep 17 00:00:00 2001
From: Israel Chauca Fuentes <israel@chauca.net>
Date: Thu, 13 May 2010 15:44:04 -0500
Subject: [PATCH] Small changes to Tests.vim.

---
 autoload/delimitMateTests.vim | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/autoload/delimitMateTests.vim b/autoload/delimitMateTests.vim
index 35d9a2a..23e5a54 100644
--- a/autoload/delimitMateTests.vim
+++ b/autoload/delimitMateTests.vim
@@ -47,9 +47,9 @@ function! delimitMateTests#Main(known) " {{{
 			let i += 1
 		endwhile
 		if result == 0
-			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "'] = 'Passed: ' . text . ' == ' . join(a:output, '<cr>')"
+			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "'] = 'Passed: ' . a:input . ' => ' . text . ' == ' . join(a:output, '<cr>')"
 		else
-			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "'] = 'Failed: ' . text . ' != ' . join(a:output, '<cr>')"
+			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "'] = 'Failed: ' . a:input . ' => ' . text . ' != ' . join(a:output, '<cr>')"
 			let b:errors += 1
 		endif
 	endfunction " }}}
@@ -72,9 +72,9 @@ function! delimitMateTests#Main(known) " {{{
 			let i += 1
 		endwhile
 		if result == 0
-			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "_R'] = 'Passed: ' . text . ' == ' . join(a:output, '<cr>')"
+			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "_R'] = 'Passed: \".\" => ' . text . ' == ' . join(a:output, '<cr>')"
 		else
-			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "_R'] = 'Failed: ' . text . ' != ' . join(a:output, '<cr>')"
+			exec "let b:test_results['" . substitute(a:name, "[^a-zA-Z0-9_]", "_", "g") . "_R'] = 'Failed: \".\" => ' . text . ' != ' . join(a:output, '<cr>')"
 			let b:errors += 1
 		endif
 	endfunction " }}}
@@ -191,8 +191,8 @@ function! delimitMateTests#Main(known) " {{{
 	call Type("Backspace inside space expansion", "(\<Space>\<BS>", ['(|)'], ['expand_space:1'])
 	call RepeatLast("Backspace inside space expansion", ['(|)(|)'])
 
-	" <Right-arrow> shouldn't insert any text
-	call Type("<Right-arrow> shouldn't insert any text", "(hello\<Right>\<Space>there\<Right>\<Right>", ['(hello) there|'], [])
+	" <Right-arrow> inserts text
+	call Type("<Right-arrow> inserts text", "(he\<Right>\<Space>th\<Right>\<Right>", ['(he) th|'], [])
 	call RepeatLast("Backspace inside space expansion", ['(|)(|)'])
 
 	" Backspace inside CR expansion