← Back to branch summary

~ubuntu-branches/ubuntu/saucy/libhtml-fillinform-perl/saucy-proposed

« back to all changes in this revision

Viewing changes to t/10_escape.t

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2008-03-01 22:28:37 UTC
  • mfrom: (3.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20080301222837-2o991644nb992eqj
Tags: 2.00-2
http://bugs.debian.org/467951
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
  field (source stanza); Homepage field (source stanza). Removed: XS-
  Vcs-Svn fields.
* debian/rules:
  - delete /usr/lib/perl5 only if it exists (closes: #467951)
  - remove CFLAGS
* debian/watch: use dist-based URL.
* Set Standards-Version to 3.7.3 (no changes).
* Set debhelper compatibility level to 6.
* debian/copyright: change upstream source URL, convert to new format.
* Add /me to Uploaders.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/10_escape.t
1
1
# -*- Mode: Perl; -*-
2
2
 
 
3
use Test::More 'no_plan';
3
4
use strict;
4
5
 
5
 
print "1..1\n";
6
6
use HTML::FillInForm;
7
7
 
8
8
my $html =<<"__HTML__";
29
29
 
30
30
my %fdat = ();
31
31
 
32
 
my $fif = HTML::FillInForm->new;
33
 
my $output = $fif->fill(scalarref => \$html,
34
 
                        fdat => \%fdat);
 
32
my $output = HTML::FillInForm->fill( \$html, \%fdat);
35
33
 
36
34
# FIF changes order of HTML attributes, so split strings and sort
37
35
my $strings_output = join("\n", sort split(/[\s><]+/, lc($output)));
38
36
my $strings_html = join("\n", sort split(/[\s><]+/, lc($html)));
39
37
 
40
 
unless ($strings_output eq $strings_html){
41
 
        print "not ";
42
 
}
43
 
print "ok 1";
 
38
is($strings_output,$strings_html);
44
39