[Cpan-forum-commit] rev 51 - in trunk: . t
svn at pti.co.il
svn at pti.co.il
Tue Feb 1 22:45:44 IST 2005
Author: gabor
Date: 2005-02-01 22:45:44 +0200 (Tue, 01 Feb 2005)
New Revision: 51
Modified:
trunk/parse.pl
trunk/t/010-markup.t
Log:
include more tests in the markup test cases
Modified: trunk/parse.pl
===================================================================
--- trunk/parse.pl 2005-02-01 20:30:12 UTC (rev 50)
+++ trunk/parse.pl 2005-02-01 20:45:44 UTC (rev 51)
@@ -10,43 +10,6 @@
my $markup = CPAN::Forum::Markup->new();
my $parser = $markup->parser;
-my $code = q(
-#!/usr/bin/perl
-
-open my $fh, ">>", "filename";
-while (<$fh>) {
- print $x . 'sss';
- xxl
-}
-
-);
-$code = "<code>$code</code>";
-
-
-
-my %data = (
- 'Hello world' => q(<div class="text">Hello world</div>),
- ' World' => q(<div class="text"> World</div>),
- 'apple<code>bob</code>' => q(<div class="text">apple</div><div class="code">bob</div>),
- '<code>program</code>' => q(<div class="code">program</div>),
- 'apple<code><</code>' => q(<div class="text">apple</div><div class="code"><</div>),
- '<code> $x < $y </code>' => q(<div class="code"> $x < $y </div>),
- '<code><STD></code>' => q(<div class="code"><STD></div>),
- 'some; strange $%^& text' => q(<div class="text">some; strange $%^& text</div>),
- '<b>bold</b> more text' => q(<div class="text"><b>bold</b> more text</div>),
- 'a<b>c</b><code>x</code>d' => q(<div class="text">a<b>c</b></div><div class="code">x</div><div class="text">d</div>),
- 'a<b>c</b><code>x</code>d<code>y</code>' => q(<div class="text">a<b>c</b></div><div class="code">x</div><div class="text">d</div><div class="code">y</div>),
- 'a<i>c</i><code>x</code>d<code>y</code>' => q(<div class="text">a<i>c</i></div><div class="code">x</div><div class="text">d</div><div class="code">y</div>),
- 'a<b>c</b>d<i>x</i>f' => q(<div class="text">a<b>c</b>d<i>x</i>f</div>),
-
- '<code>' => undef,
- 'Hello<code>' => undef,
- '<code extra><STD></code>' => undef,
- 'a<b>c</i>' => undef,
- 'a<b>c' => undef,
- 'a<i>c' => undef,
- 'apple<' => undef,
-);
use Data::Dumper;
@@ -76,9 +39,6 @@
}
}
-my $out = $parser->entry($code);
-ok(defined($out), "BIG CODE");
-##ok(length(join "", @$out) > length ($code));
Modified: trunk/t/010-markup.t
===================================================================
--- trunk/t/010-markup.t 2005-02-01 20:30:12 UTC (rev 50)
+++ trunk/t/010-markup.t 2005-02-01 20:45:44 UTC (rev 51)
@@ -11,14 +11,30 @@
my $markup = CPAN::Forum::Markup->new();
my %cases = (
- 'apple' => qr(\s*<div class="text">apple</div>\s*),
- 'apple<code><</code>' => qr(\s*<div class="text">apple</div>\s*<div class="code"><</div>\s*),
- 'apple<code><code></code>' => qr(\s*<div class="text">apple</div>\s*<div class="code"><code></div>\s*),
- '1234567890' x 7 => qr(1234567890),
- '1234567890' x 100 => qr(1234567890),
- "Hello world" => qr(<div class="text">Hello world</div>),
- "<code>program</code>" => qr(<div class="code">program</div>),
- "<code><STD></code>" => qr(<div class="code"><STD></div>),
+ 'apple' => q(<div class="text">apple</div>),
+ 'apple<code><</code>' => q(<div class="text">apple</div><div class="code"><</div>),
+ 'apple<code><code></code>' => q(<div class="text">apple</div><div class="code"><code></div>),
+ '1234567890' x 7 => q(<div class="text">) . '1234567890' x 7 . q(</div>),
+ '1234567890' x 100 => q(<div class="text">) . '1234567890' x 100 . q(</div>),
+ 'Hello world' => q(<div class="text">Hello world</div>),
+ '<code>program</code>' => q(<div class="code">program</div>),
+ '<code><STD></code>' => q(<div class="code"><STD></div>),
+
+ 'Hello world' => q(<div class="text">Hello world</div>),
+ ' World' => q(<div class="text"> World</div>),
+ 'apple<code>bob</code>' => q(<div class="text">apple</div><div class="code">bob</div>),
+ '<code>program</code>' => q(<div class="code">program</div>),
+ 'apple<code><</code>' => q(<div class="text">apple</div><div class="code"><</div>),
+ '<code> $x < $y </code>' => q(<div class="code"> $x < $y </div>),
+ '<code><STD></code>' => q(<div class="code"><STD></div>),
+ 'some; strange $%^& text' => q(<div class="text">some; strange $%^& text</div>),
+ '<b>bold</b> more text' => q(<div class="text"><b>bold</b> more text</div>),
+ 'a<b>c</b><code>x</code>d' => q(<div class="text">a<b>c</b></div><div class="code">x</div><div class="text">d</div>),
+ 'a<b>c</b><code>x</code>d<code>y</code>' => q(<div class="text">a<b>c</b></div><div class="code">x</div><div class="text">d</div><div class="code">y</div>),
+ 'a<i>c</i><code>x</code>d<code>y</code>' => q(<div class="text">a<i>c</i></div><div class="code">x</div><div class="text">d</div><div class="code">y</div>),
+ 'a<b>c</b>d<i>x</i>f' => q(<div class="text">a<b>c</b>d<i>x</i>f</div>),
+
+
);
my %fails = (
@@ -32,16 +48,19 @@
'apple<code>sd' => qr(^ERR open_code_without_closing$),
"<code>" => qr(^ERR open_code_without_closing$),
"Hello<code>" => qr(^ERR open_code_without_closing$),
+ '<code>' => undef,
+ 'Hello<code>' => undef,
+ '<code extra><STD></code>' => undef,
+ 'a<b>c</i>' => undef,
+ 'a<b>c' => undef,
+ 'a<i>c' => undef,
+ 'apple<' => undef,
);
-my %data = (
-# "<code extra><STD></code>" =>
-);
-
foreach my $c (sort keys %cases) {
lives_ok {f($c)} 'Expected to live';
- like (f($c), $cases{$c});
+ is(f($c), $cases{$c});
}
foreach my $c (sort keys %fails) {
@@ -51,6 +70,26 @@
}
+my $code = q(
+#!/usr/bin/perl
+
+open my $fh, ">>", "filename";
+while (<$fh>) {
+ print $x . 'sss';
+ xxl
+}
+
+);
+$code = "<code>$code</code>";
+
+my $out = $markup->posting_process($code);
+ok(defined($out), "BIG CODE");
+ok(length($out) > length ($code));
+
+
+
+
+
sub f {
$markup->posting_process(@_);
}
More information about the Cpan-forum-commit
mailing list