File: new.t

package info (click to toggle)
libtest-www-mechanize-perl 1.42-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 308 kB
  • ctags: 63
  • sloc: perl: 1,838; makefile: 6
file content (33 lines) | stat: -rw-r--r-- 846 bytes parent folder | download | duplicates (5)
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
#!perl -T

use warnings;
use strict;

use Test::More tests => 2;

use Test::WWW::Mechanize ();

subtest 'basic new' => sub {
    my $mech = Test::WWW::Mechanize->new;
    isa_ok( $mech, 'Test::WWW::Mechanize' );
};

# Stolen from WWW::Mechanize's t/new.t.
# If this works, then subclassing works OK.

subtest 'constructor parms' => sub {
    my $alias = 'Windows IE 6';
    my $mech  = Test::WWW::Mechanize->new( agent => $alias );

    isa_ok( $mech, 'Test::WWW::Mechanize' );
    can_ok( $mech, 'request' );
    is( $mech->agent, $alias, q{Aliases don't get translated in the constructor} );

    $mech->agent_alias( $alias );
    like( $mech->agent, qr/^Mozilla.+compatible.+Windows/, 'Alias sets the agent' );

    $mech->agent( 'ratso/bongo v.43' );
    is( $mech->agent, 'ratso/bongo v.43', 'Can still set the agent' );
};

done_testing();