use strict;
use warnings;
use Test::More tests => 3;

package WWW::Wikipedia;

use HTTP::Response;

sub get {
    return HTTP::Response->new( 500 );
}

package main;

use WWW::Wikipedia;

# test default language
my $wiki = WWW::Wikipedia->new();
isa_ok( $wiki, 'WWW::Wikipedia' );

my $entry = $wiki->search( 'perl' );
is( $entry, undef, 'search() returns undef' );
like( $wiki->error, qr/^uhoh, WWW::Wikipedia unable to contact/, 'error()' );