40-custom_trl.t

use strict;
use warnings;

BEGIN { $ENV{PERL_RL} = 'Stub'; }
BEGIN { $^W = 0 } # common::sense does funny things, we don't need to hear about it.

package Term::ReadLine::Test;

use parent 'Term::ReadLine';
sub new
{
    my $class = shift;
    my $obj = $class->SUPER::new(@_);
    bless $obj, $class;
}

package main;

use Test::More;
BEGIN {
    plan skip_all => "AnyEvent is not installed" unless eval "use AnyEvent; 1";
}
plan tests => 1;

use Term::ReadLine 1.09;
use Term::ReadLine::Event;

my $term = Term::ReadLine::Test->new('foo');
$term = Term::ReadLine::Event->with_AnyEvent($term);
isa_ok($term->trl() => 'Term::ReadLine::Test');