diff options
| author |   Robin H. Johnson <robbat2@gentoo.org> | 2015-08-08 13:49:04 -0700 |
|---|---|---|
| committer | Robin H. Johnson <robbat2@gentoo.org> | 2015-08-08 17:38:18 -0700 |
| commit | 56bd759df1d0c750a065b8c845e93d5dfa6b549d (patch) | |
| tree | 3f91093cdb475e565ae857f1c5a7fd339e2d781e /dev-perl/HTML-TableContentParser/files | |
| download | gentoo-56bd759df1d0c750a065b8c845e93d5dfa6b549d.tar.gz gentoo-56bd759df1d0c750a065b8c845e93d5dfa6b549d.tar.bz2 gentoo-56bd759df1d0c750a065b8c845e93d5dfa6b549d.zip | |
proj/gentoo: Initial commit
This commit represents a new era for Gentoo:
Storing the gentoo-x86 tree in Git, as converted from CVS.
This commit is the start of the NEW history.
Any historical data is intended to be grafted onto this point.
Creation process:
1. Take final CVS checkout snapshot
2. Remove ALL ChangeLog* files
3. Transform all Manifests to thin
4. Remove empty Manifests
5. Convert all stale $Header$/$Id$ CVS keywords to non-expanded Git $Id$
5.1. Do not touch files with -kb/-ko keyword flags.
Signed-off-by: Robin H. Johnson <robbat2@gentoo.org>
X-Thanks: Alec Warner <antarus@gentoo.org> - did the GSoC 2006 migration tests
X-Thanks: Robin H. Johnson <robbat2@gentoo.org> - infra guy, herding this project
X-Thanks: Nguyen Thai Ngoc Duy <pclouds@gentoo.org> - Former Gentoo developer, wrote Git features for the migration
X-Thanks: Brian Harring <ferringb@gentoo.org> - wrote much python to improve cvs2svn
X-Thanks: Rich Freeman <rich0@gentoo.org> - validation scripts
X-Thanks: Patrick Lauer <patrick@gentoo.org> - Gentoo dev, running new 2014 work in migration
X-Thanks: Michał Górny <mgorny@gentoo.org> - scripts, QA, nagging
X-Thanks: All of other Gentoo developers - many ideas and lots of paint on the bikeshed
Diffstat (limited to 'dev-perl/HTML-TableContentParser/files')
| -rw-r--r-- | dev-perl/HTML-TableContentParser/files/0.13-test.patch | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/dev-perl/HTML-TableContentParser/files/0.13-test.patch b/dev-perl/HTML-TableContentParser/files/0.13-test.patch new file mode 100644 index 000000000000..79916acc1e1c --- /dev/null +++ b/dev-perl/HTML-TableContentParser/files/0.13-test.patch @@ -0,0 +1,74 @@ +--- t/1.t ++++ t/1.t +@@ -2,6 +2,8 @@ + + + use Test; ++use strict; ++use warnings; + + BEGIN { plan tests => 34 } + +@@ -20,7 +22,7 @@ + + ## Test object creation + +-$obj = HTML::TableContentParser->new(); ++my $obj = HTML::TableContentParser->new(); + ok(defined $obj, 1, $@); + + +@@ -29,14 +31,14 @@ + ## the correct values to the callback. + + +-$table_caption = 'This is a caption'; +-$table_content1 = 'This is table cell content 1'; +-$table_content2 = 'This is table cell content 2'; +-$table_content3 = '<a href="SomeLink">This is table cell content 3, a link</a>'; +-$table_content4 = 'Some more text wrapping <a href="SomeLink">This is table cell content 4</a> a link.'; +-$header_text = 'Header text'; ++my $table_caption = 'This is a caption'; ++my $table_content1 = 'This is table cell content 1'; ++my $table_content2 = 'This is table cell content 2'; ++my $table_content3 = '<a href="SomeLink">This is table cell content 3, a link</a>'; ++my $table_content4 = 'Some more text wrapping <a href="SomeLink">This is table cell content 4</a> a link.'; ++my $header_text = 'Header text'; + +-$html = qq{ ++my $html = qq{ + <html> + <head> + </head> +@@ -59,7 +61,7 @@ + + + $HTML::TableContentParser::DEBUG = 0; +-$tables = $obj->parse($html); ++my $tables = $obj->parse($html); + ok($tables->[0]->{caption}->{data}, $table_caption, $@); + ok($tables->[0]->{rows}->[0]->{cells}->[0]->{data}, $table_content1, $@); + ok($tables->[0]->{rows}->[1]->{cells}->[0]->{data}, $table_content2, $@); +@@ -124,16 +126,17 @@ + ok(@$tables, 2, @_); + + ## and three headers for each table +-for $t (0..$#{@$tables}) { +- for (0..$#hdrs) { +- ok($tables->[$t]->{headers}->[$_]->{data}, $hdrs[$_], $@); ++for my $t (0..(@$tables-1)) { ++ for (0..2) { ++ # ok($t, $t); ++ ok($tables->[$t]->{headers}->[$_]->{data}, $hdrs[$_], $@); + } + } + + + ## and three rows of three cells each, for each table.. (18 total). +-for $t (0..$#{@$tables}) { +- for $r (0..$#rows) { ++for my $t (0..1) { ++ for my $r (0..$#rows) { + for (0..2) { + ok($tables->[$t]->{rows}->[$r]->{cells}->[$_]->{data}, $rows[$r]->[$_], $@); + } |