diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 18:05:56 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-24 18:05:56 -0500 |
commit | 0571887725b20bd9e0c354df172fa7b4292871a2 (patch) | |
tree | 11bba4099c39ed10ce99eb6287c0d07f62548970 /t | |
parent | a6355c532f69b038ceb3214c329696d2a04e5c11 (diff) | |
download | language-teco-0571887725b20bd9e0c354df172fa7b4292871a2.tar.gz language-teco-0571887725b20bd9e0c354df172fa7b4292871a2.zip |
fix some test errors
Diffstat (limited to 't')
-rw-r--r-- | t/023-numeric-printing.t | 8 |
1 files 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"); |