1#!/usr/bin/perl -w 2use strict; 3 4use Test::More tests => 2; 5use WWW::Mechanize::Link; 6 7BEGIN { 8 # Choose a nonannoying HTML displayer: 9 $ENV{PERL_HTML_DISPLAY_CLASS} = 'HTML::Display::Dump'; 10 # Disable all ReadLine functionality 11 $ENV{PERL_RL} = 0; 12 use_ok('WWW::Mechanize::Shell'); 13}; 14 15 16my $s = WWW::Mechanize::Shell->new( 'test', rcfile => undef, warnings => undef ); 17 18# Now test 19{ no warnings 'redefine'; 20 local *WWW::Mechanize::find_all_links = sub { 21 return (WWW::Mechanize::Link->new("","foo","",""),WWW::Mechanize::Link->new("","bar","","")) }; 22 my @comps = $s->comp_open("fo","fo",0); 23 is_deeply(\@comps,["foo"],"Completion works"); 24}; 25 26 27