File: 00-FF-Value.t

package info (click to toggle)
libwww-mechanize-formfiller-perl 0.11-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 292 kB
  • ctags: 46
  • sloc: perl: 1,504; sh: 6; makefile: 2
file content (18 lines) | stat: -rwxr-xr-x 426 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use strict;
use Test::More tests => 5;

use_ok("WWW::Mechanize::FormFiller::Value");

# Check the API :
my $v = WWW::Mechanize::FormFiller::Value->new("foo");

# Now check our published API :
my $meth;
for $meth (qw(name value)) {
  can_ok($v,$meth);
};

# name is a read-only property :
is( $v->name, "foo", "The name was set correctly" );
$v->name("bar");
is( $v->name, "bar", "The name can be changed" );