[Cpan-forum-commit] rev 210 - trunk/t/markup

[svn at pti.co.il]

Author: gabor
Date: 2006-08-30 12:35:58 +0300 (Wed, 30 Aug 2006)
New Revision: 210

Modified:
   trunk/t/markup/010-markup.t
Log:
count the markup tests


Modified: trunk/t/markup/010-markup.t
===================================================================
--- trunk/t/markup/010-markup.t	2006-08-30 09:24:55 UTC (rev 209)
+++ trunk/t/markup/010-markup.t	2006-08-30 09:35:58 UTC (rev 210)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More "no_plan";
+use Test::More;
 use Test::Exception;
 
 
@@ -14,12 +14,7 @@
 my $long_new = "x234567890" x 6 . "\n" . "+" . "qwertyuiop" x 4;
 my $long2 = "x234567890" x 10 . "abcdef" x 20;
 my $long2_new = "x234567890" x 6 . "\n" . "+" . "1234567890" x 4 . "\n" . "+" . "abcdef" x 13 . "\n" . "+" . "abcdef" x 7;
-is(CPAN::Forum::Markup::split_rows("some text", 60), "some text");
-#is(CPAN::Forum::Markup::split_rows($long, 61), $long_new);
-#is(CPAN::Forum::Markup::split_rows($long2, 61), $long2_new);
 
-my $markup = CPAN::Forum::Markup->new();
-
 my $TEXT = '<div class="text">';
 my $END  = '</div>';
 my $CODE = '<div class="code">';
@@ -91,6 +86,15 @@
 );
 
 
+plan tests => 1 + (2 * keys %cases) + (1 * keys %fails) + (2 * 3);
+
+is(CPAN::Forum::Markup::split_rows("some text", 60), "some text");
+#is(CPAN::Forum::Markup::split_rows($long, 61), $long_new);
+#is(CPAN::Forum::Markup::split_rows($long2, 61), $long2_new);
+
+my $markup = CPAN::Forum::Markup->new();
+
+
 foreach my $c (sort keys %cases) {
 	lives_ok {f($c)} 'Expected to live';
 	is(f($c), $cases{$c}, $c);