1*898184e3Ssthen#!./perl -w 2*898184e3Ssthenuse strict; 3*898184e3Ssthen 4*898184e3Ssthenpackage Term::ReadLine::Mock; 5*898184e3Ssthenour @ISA = 'Term::ReadLine::Stub'; 6*898184e3Ssthensub ReadLine {'Term::ReadLine::Mock'}; 7*898184e3Ssthensub readline { "a line" } 8*898184e3Ssthensub new { bless {} } 9*898184e3Ssthen 10*898184e3Ssthenpackage main; 11*898184e3Ssthen 12*898184e3Ssthenuse Test::More tests => 15; 13*898184e3Ssthen 14*898184e3SsthenBEGIN { 15*898184e3Ssthen $ENV{PERL_RL} = 'Mock'; # test against our instrumented class 16*898184e3Ssthen use_ok('Term::ReadLine'); 17*898184e3Ssthen} 18*898184e3Ssthen 19*898184e3Ssthenmy $t = new Term::ReadLine 'test term::readline'; 20*898184e3Ssthen 21*898184e3Ssthenok($t, "made something"); 22*898184e3Ssthen 23*898184e3Ssthenisa_ok($t, 'Term::ReadLine::Mock'); 24*898184e3Ssthen 25*898184e3Ssthenfor my $method (qw( ReadLine readline addhistory IN OUT MinLine 26*898184e3Ssthen findConsole Attribs Features new ) ) { 27*898184e3Ssthen can_ok($t, $method); 28*898184e3Ssthen} 29*898184e3Ssthen 30*898184e3Ssthenis($t->ReadLine, 'Term::ReadLine::Mock', "\$object->ReadLine"); 31*898184e3Ssthenis($t->readline, 'a line', "\$object->readline"); 32*898184e3Ssthen 33