Ready for 7.10.29 development.
This commit is contained in:
Colin Kuskie
commit
c806f99b7b
4236 changed files with 1217679 additions and 0 deletions
113
t/HTML/splitSeparator.t
Normal file
113
t/HTML/splitSeparator.t
Normal file
|
|
@ -0,0 +1,113 @@
|
|||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#-------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
use FindBin;
|
||||
use strict;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
|
||||
use WebGUI::Test;
|
||||
use WebGUI::HTML;
|
||||
use WebGUI::Session;
|
||||
|
||||
use Test::More;
|
||||
use Test::Deep;
|
||||
use Data::Dumper;
|
||||
|
||||
my $session = WebGUI::Test->session;
|
||||
|
||||
my @testArray = (
|
||||
{
|
||||
inputText => q!section_1!,
|
||||
output => [ qw/section_1/ ],
|
||||
comment => 'bare text, no macro',
|
||||
},
|
||||
{
|
||||
inputText => q!section_1^-;section_2!,
|
||||
output => [ qw/section_1 section_2/ ],
|
||||
comment => 'bare text, 2 sections',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1</p><p>^-;</p><p>section_2</p>!,
|
||||
output => [ qw{<p>section_1</p> <p>section_2</p>} ],
|
||||
comment => 'paragraph text, 2 sections, macro in separate paragraph',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1</p><p> ^-;</p><p>section_2</p>!,
|
||||
output => [ qw{<p>section_1</p> <p>section_2</p>} ],
|
||||
comment => 'paragraph text, 2 sections, macro in separate paragraph with whitespace',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1</p><p> ^-;</p><p>section_2</p><p>^-;</p><p>section_3</p>!,
|
||||
output => [ qw{<p>section_1</p> <p>section_2</p> <p>section_3</p>} ],
|
||||
comment => 'paragraph text, 3 sections, macros in separate paragraphs with whitespace',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1^-;section_2</p>!,
|
||||
output => [ qw{<p>section_1</p> <p>section_2</p>} ],
|
||||
comment => 'paragraph text, 2 sections, macro inside tags',
|
||||
},
|
||||
{
|
||||
inputText => q!<p><b>section_1^-;section_2</b>trailer</p>!,
|
||||
output => [ qw{<p><b>section_1</b></p> <p><b>section_2</b>trailer</p>} ],
|
||||
comment => 'paragraph text, 2 sections, macro inside 2 nested tags',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1^-;<br />section_2</p>!,
|
||||
output => [ '<p>section_1</p>', '<p><br />section_2</p>' ],
|
||||
comment => 'paragraph text, 2 sections, macro inside tags, with br self-close',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1^-;<br>section_2</p>!,
|
||||
output => [ '<p>section_1</p>', '<p><br>section_2</p>' ],
|
||||
comment => 'paragraph text, 2 sections, macro inside tags, with br unclosed',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>section_1<br>trailer_1^-;section_2</p>!,
|
||||
output => [ '<p>section_1<br>trailer_1</p>', '<p>section_2</p>' ],
|
||||
comment => 'paragraph text, 2 sections, macro inside tags, with br unclosed in first section',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>Very^-;long^-;paragraph</p>!,
|
||||
output => [ '<p>Very</p>', '<p>long</p>', '<p>paragraph</p>' ],
|
||||
comment => 'paragraph text, 3 sections, macros inside tags',
|
||||
},
|
||||
{
|
||||
inputText => q!<p><b>Very^-;long</b>^-;paragraph</p>!,
|
||||
output => [ '<p><b>Very</b></p>', '<p><b>long</b></p>', '<p>paragraph</p>' ],
|
||||
comment => 'paragraph text, 3 sections, macros inside tags, nesting first two tags',
|
||||
},
|
||||
{
|
||||
inputText => q!<p><b>Very^-;long^-;paragraph</b></p>!,
|
||||
output => [ '<p><b>Very</b></p>', '<p><b>long</b></p>', '<p><b>paragraph</b></p>' ],
|
||||
comment => 'paragraph text, 3 sections, macros inside tags, nesting all 3 sections',
|
||||
},
|
||||
{
|
||||
inputText => q!<p><b>Very^-;long^-;</b>paragraph</p>!,
|
||||
output => [ '<p><b>Very</b></p>', '<p><b>long</b></p>', '<p><b></b>paragraph</p>' ],
|
||||
comment => 'paragraph text, 3 sections, macros inside tags, bridge right after macro',
|
||||
},
|
||||
);
|
||||
|
||||
my $numTests = scalar @testArray;
|
||||
|
||||
plan tests => $numTests;
|
||||
|
||||
foreach my $testSet (@testArray) {
|
||||
my @output = WebGUI::HTML::splitSeparator($testSet->{inputText});
|
||||
my $ok = cmp_deeply(
|
||||
\@output,
|
||||
$testSet->{output},
|
||||
$testSet->{comment}
|
||||
);
|
||||
if (!$ok) {
|
||||
diag explain \@output;
|
||||
}
|
||||
}
|
||||
|
||||
148
t/HTML/splitTag.t
Normal file
148
t/HTML/splitTag.t
Normal file
|
|
@ -0,0 +1,148 @@
|
|||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#-------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
use FindBin;
|
||||
use strict;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
|
||||
use WebGUI::Test;
|
||||
use WebGUI::HTML;
|
||||
use WebGUI::Session;
|
||||
|
||||
use Test::More; # increment this value for each test you create
|
||||
|
||||
my $session = WebGUI::Test->session;
|
||||
|
||||
# the style param below refers to how the callis made. the function has two optional params
|
||||
# by testing with each style we can test the default for thsee params.
|
||||
# also array/scalar return type are tested.
|
||||
|
||||
# call type = 1: all three params; return array
|
||||
# call type = 2: only tag and text; return scalar
|
||||
# call type = 3: only text and count; return array
|
||||
# call type = 4: only the text; return scalar
|
||||
|
||||
my @testArray = (
|
||||
{
|
||||
inputText => q!<p>First Paragraph</p> <p>Second Paragraph</p>!,
|
||||
output => q!First Paragraph!,
|
||||
style => 1,
|
||||
tag => 'p',
|
||||
count => 1,
|
||||
comment => 'get one paragraph, no defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>First Paragraph</p> <p>Second Paragraph</p>!,
|
||||
output => q!First Paragraph!,
|
||||
style => 4,
|
||||
tag => 'p',
|
||||
count => 1,
|
||||
comment => 'get one paragraph, all defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>First Paragraph</p> <p>Second Paragraph</p>!,
|
||||
output => q!First Paragraph;Second Paragraph!,
|
||||
style => 1,
|
||||
tag => 'p',
|
||||
count => -1,
|
||||
comment => 'get all paragraphs, no defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>First Paragraph</p> <p>Second Paragraph</p>!,
|
||||
output => q!First Paragraph;Second Paragraph!,
|
||||
style => 3,
|
||||
tag => 'p',
|
||||
count => -1,
|
||||
comment => 'get all paragraphs, default tag',
|
||||
},
|
||||
{
|
||||
inputText => q!<p> </p><p>First nonblank Paragraph</p> <p>Second Paragraph</p>!,
|
||||
output => q!First nonblank Paragraph!,
|
||||
style => 4,
|
||||
tag => 'p',
|
||||
count => -1,
|
||||
comment => 'get nonblank paragraph, all defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<p> </p><p>First nonblank Paragraph</p> <p>Second Paragraph</p>!,
|
||||
output => q!First nonblank Paragraph!,
|
||||
style => 4,
|
||||
tag => 'p',
|
||||
count => -1,
|
||||
comment => 'first nonblank(nbsp) paragraph, all defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<li>First List Item</li> <li>Second List Item</li> <li>Third List Item</li>!,
|
||||
output => q!First List Item;Second List Item;Third List Item!,
|
||||
style => 1,
|
||||
tag => 'li',
|
||||
count => -1,
|
||||
comment => 'get all list items, no defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<li>First List Item</li> <li>Second List Item</li> <li>Third List Item</li>!,
|
||||
output => q!First List Item;Second List Item!,
|
||||
style => 1,
|
||||
tag => 'li',
|
||||
count => 2,
|
||||
comment => 'get first 2 list items, no defaults',
|
||||
},
|
||||
{
|
||||
inputText => q!<tr><td>First Item</td> <td>Second Item</td></tr>!,
|
||||
output => q!First Item Second Item!,
|
||||
style => 1,
|
||||
tag => 'tr',
|
||||
count => -1,
|
||||
comment => 'get table row ignore table data',
|
||||
},
|
||||
{
|
||||
inputText => q!<tr><td>First Item</td> <td>Second Item</td></tr>!,
|
||||
output => q!First Item;Second Item!,
|
||||
style => 1,
|
||||
tag => 'td',
|
||||
count => -1,
|
||||
comment => 'get table data ignore table row',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>less than < greater than ></p>!,
|
||||
output => q!less than < greater than >!,
|
||||
style => 1,
|
||||
tag => 'p',
|
||||
count => -1,
|
||||
comment => 'Entities get decoded',
|
||||
},
|
||||
{
|
||||
inputText => q!<p>Brandheiße Neuigkeiten rund um's Klettern für euch aus der Region </p>!,
|
||||
output => q!Brandheiße Neuigkeiten rund um's Klettern für euch aus der Region!,
|
||||
style => 1,
|
||||
tag => 'p',
|
||||
count => -1,
|
||||
comment => 'Get a paragraph tag with long characters',
|
||||
},
|
||||
);
|
||||
|
||||
my $numTests = scalar @testArray;
|
||||
|
||||
plan tests => $numTests;
|
||||
|
||||
my $output;
|
||||
foreach my $testSet (@testArray) {
|
||||
if( $testSet->{style} == 1 ) {
|
||||
$output = join ';',WebGUI::HTML::splitTag($testSet->{tag},$testSet->{inputText}, $testSet->{count});
|
||||
} elsif( $testSet->{style} == 2 ) {
|
||||
$output = WebGUI::HTML::splitTag($testSet->{tag},$testSet->{inputText});
|
||||
} elsif( $testSet->{style} == 3 ) {
|
||||
$output = join ';', WebGUI::HTML::splitTag($testSet->{inputText}, $testSet->{count});
|
||||
} elsif( $testSet->{style} == 4 ) {
|
||||
$output = WebGUI::HTML::splitTag($testSet->{inputText});
|
||||
}
|
||||
is($output, $testSet->{output}, $testSet->{comment});
|
||||
}
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue