view release on metacpan or  search on metacpan

t/expect.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use Test::Expect;
use Test::More tests => 6;

expect_run(
  command => "perl -Ilib scripts/lc.pl",
  prompt  => "> ",
  quit    => ".",
);

expect_send("t","Sent pattern of 't'");
expect_send("t","Sent a 't'");
expect_send("u","Sent a 'u'");
expect_send("?","Asked for current matches");
expect_like(qr/Matches: 1/,"Expecting one match");