[Cpan-forum-commit] rev 29 - trunk/t

[svn at pti.co.il]

Author: gabor
Date: 2005-01-22 01:25:05 +0200 (Sat, 22 Jan 2005)
New Revision: 29

Modified:
   trunk/t/010-markup.t
Log:
more markup test

Modified: trunk/t/010-markup.t
===================================================================
--- trunk/t/010-markup.t	2005-01-21 20:00:47 UTC (rev 28)
+++ trunk/t/010-markup.t	2005-01-21 23:25:05 UTC (rev 29)
@@ -14,21 +14,34 @@
 	'apple'                    => qr(\s*<div class="text">apple</div>\s*),
 	'apple<code><</code>'      => qr(\s*<div class="text">apple</div>\s*<div class="code">&lt;</div>\s*),
 	'apple<code><code></code>' => qr(\s*<div class="text">apple</div>\s*<div class="code">&lt;code&gt;</div>\s*),
-	'1234567890' x 7           => qr(),
+	'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">&lt;STD&gt;</div>),
 );
 
 my %fails = (
 	'apple<B>'             => qr(^ERR no_less_sign$),
+	'apple<b>'             => qr(^ERR no_less_sign$),
 	'apple< sd'            => qr(^ERR no_less_sign$),
 	'apple<'               => qr(^ERR no_less_sign$),
+	'apple<x'              => qr(^ERR no_less_sign$),
+	'<code >xyz</code>'    => qr(^ERR no_less_sign$),
+#	'1234567890' x 7 . "x" => qr(^ERR line_too_long$),
 	'apple<code>sd'        => qr(^ERR open_code_without_closing$),
-#	'1234567890' x 7 . "x" => qr(^ERR line_too_long$),
+	"<code>"               => qr(^ERR open_code_without_closing$),
+	"Hello<code>"          => qr(^ERR open_code_without_closing$),
 );
 
+my %data = (
+#	"<code extra><STD></code>" => 
+);
 
+
 foreach my $c (sort keys %cases) {
 	lives_ok {f($c)} 'Expected to live';
-#	like (f($c), $cases{$c});
+	like (f($c), $cases{$c});
 }
 
 foreach my $c (sort keys %fails) {