1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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\n",
);
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");
|