t/100-errors.t


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

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Language::TECO;

my @test_cmds = qw/j c d/;
plan tests => @test_cmds * 6;

my $buftext = "this is\nan initial buffer";
my $te = Language::TECO->new($buftext);
$te->execute("5j");
for my $cmd (@test_cmds) {
    throws_ok { $te->execute("100$cmd") } qr/Pointer off page/,
              "moving the pointer off the end of the buffer ($cmd)";
    is($te->pointer, 5,
       "pointer position after moving off the buffer end ($cmd)");
    is($te->buffer, $buftext,
       "buffer contents after moving off the buffer end ($cmd)");
    throws_ok { $te->execute("-100$cmd") } qr/Pointer off page/,
              "moving the pointer off the beginning of the buffer ($cmd)";
    is($te->pointer, 5,
       "pointer position after moving off the buffer beginning ($cmd)");
    is($te->buffer, $buftext,
       "buffer contents after moving off the buffer beginning ($cmd)");
}