1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use warnings;
use strict;
use Test::More tests => 11;
use lib 't/local';
use LocalServer;
BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
use_ok( 'WWW::Mechanize' );
}
my $server = LocalServer->spawn;
isa_ok( $server, 'LocalServer' );
my $mech = WWW::Mechanize->new;
isa_ok( $mech, 'WWW::Mechanize', 'Created object' );
is(scalar @{$mech->{page_stack}}, 0, "Page stack starts empty");
ok( $mech->get($server->url)->is_success, "Got start page" );
is(scalar @{$mech->{page_stack}}, 0, "Page stack starts empty");
$mech->_push_page_stack();
is(scalar @{$mech->{page_stack}}, 1, "Pushed item onto page stack");
$mech->_push_page_stack();
is(scalar @{$mech->{page_stack}}, 2, "Pushed item onto page stack");
$mech->_pop_page_stack();
is(scalar @{$mech->{page_stack}}, 1, "Popped item from page stack");
$mech->_pop_page_stack();
is(scalar @{$mech->{page_stack}}, 0, "Popped item from page stack");
$mech->_pop_page_stack();
is(scalar @{$mech->{page_stack}}, 0, "Can't pop beyond end of page stack");
|
