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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 15;
use Test::Builder::Tester;
use Test::WWW::Mechanize;
my $ua_args;
sub Test::WWW::Mechanize::success { return 1; }
sub Test::WWW::Mechanize::head {
my $self = shift;
my $url = shift;
die 'Odd number of args sent in' if @_ % 2 != 0;
$ua_args = {@_};
return 1;
}
my $mech = Test::WWW::Mechanize->new();
isa_ok( $mech, 'Test::WWW::Mechanize' );
my $url = 'dummy://url';
$mech->head_ok( $url );
ok( eq_hash( {}, $ua_args ), 'passing URL only' );
$mech->head_ok( $url, 'Description' );
ok( eq_hash( {}, $ua_args ), 'Passing description' );
$mech->head_ok( $url, undef, 'Description' );
ok( eq_hash( {}, $ua_args ), 'Passing undef for hash' );
my $wanted = { foo=>1, bar=>2, baz=>3 };
$mech->head_ok( $url, [ %{$wanted} ] );
ok( eq_hash( $wanted, $ua_args ), 'Passing anonymous list for hash' );
$mech->head_ok( $url, [ %{$wanted} ], 'Description' );
ok( eq_hash( $wanted, $ua_args ), 'Passing anonymous list for hash' );
$mech->head_ok( $url, { %{$wanted} } );
ok( eq_hash( $wanted, $ua_args ), 'Passing anonymous array for hash' );
$mech->head_ok( $url, { %{$wanted} }, 'Description' );
ok( eq_hash( $wanted, $ua_args ), 'Passing anonymous array for hash' );
done_testing ();
|
