mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2026-08-06 12:58:16 -07:00
56bd759df1
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
75 lines
2.0 KiB
Diff
75 lines
2.0 KiB
Diff
--- 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]->[$_], $@);
|
|
}
|