diff options
| -rw-r--r-- | t/023-numeric-printing.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/023-numeric-printing.t b/t/023-numeric-printing.t new file mode 100644 index 0000000..c966b83 --- /dev/null +++ b/t/023-numeric-printing.t @@ -0,0 +1,28 @@ +#!perl -T +use strict; +use warnings; +use Test::More; +use Language::TECO; + +my %tests = ( + "15=" => "15\n", + "15==" => "17\n", + "15:=" => "15", + "15:==" => "17", + "-15=" => "-15\n", + "-15==" => "37777777761\n", + "-15:=" => "-15", + "-15:==" => "37777777761", + "b=" => "0", +); +plan tests => 3 + keys %tests; + +my $buftext = "this is\nan initial buffer"; +my $te = Language::TECO->new($buftext); +for my $test (keys %tests) { + is($te->execute($test), $tests{$test}, "\"$test\""); +} +is($te->execute(".="), 0, "current position"); +$te->execute("5j"); +is($te->execute(".="), 5, "current position"); +is($te->execute("z="), 25, "end of buffer"); |