blob: cc8c7b95d9201144856d9020ad800313f142ac28 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 4;
use Test::Exception;
use Language::TECO;
my $buftext = "this is\nan initial buffer";
my $te = Language::TECO->new($buftext);
throws_ok { $te->execute("100j") } qr/Pointer off page/,
'moving the pointer off the end of the buffer';
throws_ok { $te->execute("-10j") } qr/Pointer off page/,
'moving the pointer off the end of the buffer';
|
