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

my %tests = (
    0 => ["", "", "", "this is\n", "this is\nan initial buffer"],
    3 => ["thi", "thi", "thi", "s is\n", "s is\nan initial buffer"],
    7 => ["this is", "this is", "this is", "\n", "\nan initial buffer"],
    8 => ["this is\n", "this is\n", "", "an initial buffer", "an initial buffer"],
   10 => ["this is\nan", "this is\nan", "an", " initial buffer", " initial buffer"],
   25 => ["this is\nan initial buffer", "this is\nan initial buffer", "an initial buffer", "", ""],
);
plan tests => 6 + map { @{ $tests{$_} } } keys %tests;

my $buftext = "this is\nan initial buffer";
my $te = Language::TECO->new($buftext);
for my $pos (keys %tests) {
    $te->execute("${pos}j");
    for my $arg (-2..2) {
        is($te->execute("${arg}t"), $tests{$pos}[$arg + 2],
           "\"${arg}t\" at position $pos");
    }
}
is($te->execute("ht"), "this is\nan initial buffer",
   "ht prints the whole buffer");
is($te->execute("1,5t"), "his ", "1,5t works");
is($te->execute("-5,6t"), "this i", "printing a range off the beginning");
is($te->execute("20,30t"), "uffer", "printing a range off the end");
is($te->execute("-5,30t"), "this is\nan initial buffer", "printing off both ends");
is($te->execute("5,1t"), "his ", "backwards range");