[Cpan-forum-commit] rev 44 - trunk

[svn at pti.co.il]

Author: gabor
Date: 2005-01-26 00:00:33 +0200 (Wed, 26 Jan 2005)
New Revision: 44

Modified:
   trunk/parse.pl
Log:
print test comments, enable nearly all the characters in the text

Modified: trunk/parse.pl
===================================================================
--- trunk/parse.pl	2005-01-25 21:25:05 UTC (rev 43)
+++ trunk/parse.pl	2005-01-25 22:00:33 UTC (rev 44)
@@ -12,7 +12,7 @@
 my $grammar = q {
 	entry      : chunk(s) eodata                  { $item[1] }
 	chunk      : text | code                      { $item[1] }
-	text       : m{[\w ]+}                        { qq(<div class="text">$item[1]</div>); }
+	text       : m{[\t\n -;=?-~]+}                { qq(<div class="text">$item[1]</div>); }
 	code       : code_open code_text code_close   {$item[2] }
 	code_open  : m{<code>}
 	code_text  : m{[\t\n -~]+(?=</code>)}         { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
@@ -40,10 +40,12 @@
 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">&lt;</div>),
 	'<code> $x < $y </code>'   => q(<div class="code"> $x &lt; $y </div>),
 	'<code><STD></code>'       => q(<div class="code">&lt;STD&gt;</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>),
 
 	'<code>'                   => undef,
@@ -51,27 +53,37 @@
 	'<code extra><STD></code>' => undef,
 );
 use Data::Dumper;
-#print Dumper $parser->entry($text);
+
+
+#%data = (
+#	'apple<code>bob</code>'    => q(<div class="text">apple</div><div class="code">bob</div>),
+	#'apple<code><</code>'      => q(<div class="text">apple</div><div class="code">&lt;</div>),
+#);
 #$::RD_WARN=3;
 #$::RD_TRACE=1;
 
+
 use Test::More "no_plan";
 foreach my $k (keys %data) {
 	my $out = $parser->entry($k);
 	if (defined $data{$k}) {
 		if (defined $out) {
-			is(join("",@$out), $data{$k});
+			is(join("",@$out), $data{$k}, $k);
 		} else {
-			is($out, $data{$k});
+			is($out, $data{$k}, $k);
 		}
 	} else {
-		ok(not defined $out); # expecting undef
+		if (not defined $out) {
+			ok(1, $k);
+		} else {
+			is((join "", @$out), $data{$k}, $k); # expecting undef
+		}
 	}
 }
 	
 my $out = $parser->entry($code);
-ok(defined $out);
-#ok(length(join "", @$out) > length ($code));
+ok(defined($out), "BIG CODE");
+##ok(length(join "", @$out) > length ($code));