1#!./perl -w 2use strict; 3 4BEGIN { 5 if ( $ENV{PERL_CORE} ) { 6 chdir 't' if -d 't'; 7 @INC = '../lib'; 8 } 9} 10 11package Term::ReadLine::Mock; 12our @ISA = 'Term::ReadLine::Stub'; 13sub ReadLine {'Term::ReadLine::Mock'}; 14sub readline { "a line" } 15sub new { bless {} } 16 17package main; 18 19use Test::More tests => 15; 20 21BEGIN { 22 $ENV{PERL_RL} = 'Mock'; # test against our instrumented class 23 use_ok('Term::ReadLine'); 24} 25 26my $t = new Term::ReadLine 'test term::readline'; 27 28ok($t, "made something"); 29 30isa_ok($t, 'Term::ReadLine::Mock'); 31 32for my $method (qw( ReadLine readline addhistory IN OUT MinLine 33 findConsole Attribs Features new ) ) { 34 can_ok($t, $method); 35} 36 37is($t->ReadLine, 'Term::ReadLine::Mock', "\$object->ReadLine"); 38is($t->readline, 'a line', "\$object->readline"); 39 40