From 0571887725b20bd9e0c354df172fa7b4292871a2 Mon Sep 17 00:00:00 2001 From: jluehrs2 Date: Sat, 24 May 2008 18:05:56 -0500 Subject: fix some test errors --- t/023-numeric-printing.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/023-numeric-printing.t b/t/023-numeric-printing.t index c966b83..3b7310c 100644 --- a/t/023-numeric-printing.t +++ b/t/023-numeric-printing.t @@ -13,7 +13,7 @@ my %tests = ( "-15==" => "37777777761\n", "-15:=" => "-15", "-15:==" => "37777777761", - "b=" => "0", + "b=" => "0\n", ); plan tests => 3 + keys %tests; @@ -22,7 +22,7 @@ my $te = Language::TECO->new($buftext); for my $test (keys %tests) { is($te->execute($test), $tests{$test}, "\"$test\""); } -is($te->execute(".="), 0, "current position"); +is($te->execute(".:="), 0, "current position"); $te->execute("5j"); -is($te->execute(".="), 5, "current position"); -is($te->execute("z="), 25, "end of buffer"); +is($te->execute(".:="), 5, "current position"); +is($te->execute("z:="), 25, "end of buffer"); -- cgit v1.2.3