new

modules/simple-rules-test.pl

@@ -0,0 +1,70 @@
+use CGI;
+use Getopt::Std;
+
+use vars qw($FS $FreeLinkPattern $UrlProtocols $UrlChars $EndChars
+$UrlPattern $q);
+
+$FS = "\x1e";
+$FreeLinkPattern = "([-,.()' _0-9A-Za-z\x80-\xff]+)";
+$UrlProtocols = 'http|https|ftp|afs|news|nntp|mid|cid|mailto|wais|prospero|telnet|gopher|irc';
+$UrlChars = '[-a-zA-Z0-9/@=+$_~*.,;:?!\'"()&#%]'; # see RFC 2396
+$EndChars = '[-a-zA-Z0-9/@=+$_~*]'; # no punctuation at the end of the url.
+$UrlPattern = "((?:$UrlProtocols):$UrlChars+$EndChars)";
+$q = new CGI;
+
+getopts('v');
+do "simple-rules.pl";
+
+open(STDOUT,'> /dev/null') unless $opt_v;
+
+$| = 1;
+
+my $count = 0;
+my $total = 0;
+
+sub test {
+  my ($input, $output) = @_;
+  my @result = NewSimpleRulesApplyRules($input, 1);
+  my $result = shift(@result);
+  print " - @result\n" if $opt_v;
+  if ($output ne $result) {
+    $input .= "\n" unless substr($input,-1,1) eq "\n";
+    warn "$input -> $result\n != $output\n";
+  } else {
+    $count++;
+  }
+  $total++;
+}
+
+sub GetPageOrEditLink {
+  return "link<" . shift() . ">";
+}
+
+test("test", "<p>test</p>");
+test("foo\n\nbar", "<p>foo</p><p>bar</p>");
+test("test\n====\n", "<h2>test</h2>");
+test("test\n----\n", "<h3>test</h3>");
+test("foo\nbar\n\ntest\n----\n\nfoo\nbar\n", "<p>foo\nbar</p><h3>test</h3><p>foo\nbar</p>");
+test("* foo\n* bar\n* baz\n", "<ul><li>foo</li><li>bar</li><li>baz</li></ul>");
+test("1. foo\n2. bar\n3. baz\n", "<ol><li>foo</li><li>bar</li><li>baz</li></ol>");
+test("~test~ foo", "<p><em>test</em> foo</p>");
+test("**test foo**", "<p><strong>test foo</strong></p>");
+test("//test foo//", "<p><em>test foo</em></p>");
+test("__test foo__", "<p><u>test foo</u></p>");
+test("*test* foo", "<p><b>test</b> foo</p>");
+test("/test/ foo", "<p><i>test</i> foo</p>");
+test("_test_ foo", "<p><u>test</u> foo</p>");
+test("http://www.oddmuse.org/",
+     "<p><a href=\"http://www.oddmuse.org/\">http://www.oddmuse.org/</a></p>");
+print "---> Expect link<foo> on next line:\n" if $opt_v;
+test("[[foo]]", "[[foo]]"); # dirty block!
+print "---> Expect <p>this is link<foo>.</p> on next line:\n" if $opt_v;
+test("this is [[foo]].", "<p>this is ${FS}[[foo]]${FS}.</p>"); # dirty block!
+print "---> Expect <p>link<foo> and link<bar></p> on next line:\n" if $opt_v;
+test("[[foo]] and [[bar]]", "<p>${FS}[[foo]]${FS} and ${FS}[[bar]]${FS}</p>"); # dirty block!
+test("/test/ _test_ *test*", "<p><i>test</i> <u>test</u> <b>test</b></p>");
+test("[[foo]] /test/ _test_ *test*",
+     "<p>${FS}[[foo]]${FS} <i>test</i> <u>test</u> <b>test</b></p>");
+test("* some [[foo]]\n* [[bar]] and [[baz]]\n",
+     "<ul><li>some ${FS}[[foo]]${FS}</li><li>${FS}[[bar]]${FS} and ${FS}[[baz]]${FS}</li></ul>");
+warn "$count/$total passed.\n";