#!/usr/bin/perl -w
use strict;

use Test::More tests => 2;
use WWW::Mechanize::Link;

BEGIN {
  # Choose a nonannoying HTML displayer:
  $ENV{PERL_HTML_DISPLAY_CLASS} = 'HTML::Display::Dump';
  # Disable all ReadLine functionality
  $ENV{PERL_RL} = 0;
  use_ok('WWW::Mechanize::Shell');
};


my $s = WWW::Mechanize::Shell->new( 'test', rcfile => undef, warnings => undef );

# Now test
{ no warnings 'redefine';
	local *WWW::Mechanize::find_all_links = sub {
			return (WWW::Mechanize::Link->new("","foo","",""),WWW::Mechanize::Link->new("","bar","","")) };
	my @comps = $s->comp_open("fo","fo",0);
	is_deeply(\@comps,["foo"],"Completion works");
};