lib/Term/ReadLine.t

11 package Term::ReadLine::Mock;
12 our @ISA = 'Term::ReadLine::Stub';
13 sub ReadLine {'Term::ReadLine::Mock'};
23     use_ok('Term::ReadLine');
26 my $t = new Term::ReadLine 'test term::readline';
30 isa_ok($t,          'Term::ReadLine::Mock');
32 for my $method (qw( ReadLine readline addhistory IN OUT MinLine
37 is($t->ReadLine,    'Term::ReadLine::Mock', "\$object->ReadLine");