#!/usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Test::More;
use Brownie::Session;

my $bs = Brownie::Session->new(driver => 'Mechanize', app_host => 'http://www.google.com');
$bs->visit('/webhp');

like $bs->title => qr/Google/;

$bs->fill_in('q' => "Brownie\n"); # enable auto-search
sleep 3;

like $bs->title => qr/Brownie/i;

done_testing;