blob: adc0ac96d07c91bdbd7344a0ec49b47799a216a3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 5;
use Language::TECO;
my $te = Language::TECO->new;
isa_ok($te, 'Language::TECO');
is($te->buffer, '', "initial buffer contents");
is($te->pointer, 0, "initial buffer position");
my $buftext = "this is\nan initial buffer";
my $buf_te = Language::TECO->new($buftext);
is($buf_te->buffer, $buftext, "initial buffer contents when set");
is($buf_te->pointer, 0, "initial buffer position when contents were set");
|
