blob: b6bd883f3bf5ccda392c031114c521752f61327c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 2;
use Language::TECO;
my $buftext = "this is\nan initial buffer";
my $te = Language::TECO->new($buftext);
is($te->execute("5j.="), "5\n", "move + print position");
is($te->execute("iblah\e0t"), "this blah", "insert + print part of the buffer");
|
