Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libwww-perl / libwww-perl-5.813 / t / html / form-maxlength.t

diff --git a/dev/i386/libwww-perl/libwww-perl-5.813/t/html/form-maxlength.t b/dev/i386/libwww-perl/libwww-perl-5.813/t/html/form-maxlength.t
new file mode 100644 (file)
index 0000000..41d4e21
--- /dev/null
+++ b/dev/i386/libwww-perl/libwww-perl-5.813/t/html/form-maxlength.t
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use lib '.';
+use Test::More tests => 16;
+use HTML::Form;
+
+my $html = do { local $/ = undef; <DATA> };
+my $form = HTML::Form->parse($html, 'foo.html' );
+isa_ok($form, 'HTML::Form');
+my $input = $form->find_input('passwd');
+isa_ok($input, 'HTML::Form::TextInput');
+
+sub set_value {
+  my $input = shift;
+  my $value = shift;
+  my $len = length($value);
+  my $old = $input->value;
+  is( $input->value($value), $old, "set value length=$len" );
+  is( $input->value, $value, "got value length=$len" );
+}
+
+{
+  my @warnings;
+  local $SIG{__WARN__} = sub { push @warnings, @_; };
+  is( $input->{maxlength}, 8, 'got maxlength: 8' );
+
+  $^W = 0;
+
+  set_value( $input, '1234' );
+  is( @warnings, 0, "No warnings so far" );
+
+  set_value( $input, '1234567890' );
+  is( @warnings, 0, "No warnings so far" );
+
+  $^W = 1;
+
+  set_value( $input, '1234' );
+  is( @warnings, 0, "No warnings so far" );
+
+  set_value( $input, '1234567890' );
+  is( @warnings, 1, "Got warning" );
+  like( $warnings[0], qr/^Input 'passwd' has maxlength '8' at /, "Got warning message" );
+}
+
+__DATA__
+
+<form method="post" action="?" enctype="application/x-www-form-urlencoded" name="login">
+<div style="display:none"><input type="hidden" name="node_id" value="109"></div>
+<input type="hidden" name="op" value="login" />
+<input type="hidden" name="lastnode_id" value="109" />
+<table border="0"><tr><td><font size="2">
+Login:</font></td><td>
+<input type="text" name="user"  size=10 maxlength=34 />
+</td></tr><tr><td><font size="2">
+Password</font></td><td>
+<input type="password" name="passwd"  size=10 MAXLENGTH=8 />
+
+</td></tr></table><font size="2">
+<input type="checkbox" name="expires" value="+10y" />remember me
+<input type="submit" name="login" value="Login" />
+</font><br />
+<a href="?node=What%27s%20my%20password%3F">password reminder</a>
+<br />
+<a href="?node_id=101">Create A New User</a>
+</form>
+