From 593b8eb91481ed821a9f94eeffe3012f2753c4de Mon Sep 17 00:00:00 2001
From: "timeless%mozdev.org" <timeless%mozdev.org>
Date: Sun, 10 Sep 2006 09:58:23 +0000
Subject: [PATCH] Adding plain old documentation (pod) tests.

My plan is for tests of features to be put into multiple languages to make
sure that reasonable things happen for each language (to test for bleeding
between cross reference behavior).
---
 .../lxr/tests/syntax-highlighting/pod.cpp     | 33 +++++++++++++++++++
 webtools/lxr/tests/syntax-highlighting/pod.pl | 33 +++++++++++++++++++
 2 files changed, 66 insertions(+)
 create mode 100644 webtools/lxr/tests/syntax-highlighting/pod.cpp
 create mode 100644 webtools/lxr/tests/syntax-highlighting/pod.pl

diff --git a/webtools/lxr/tests/syntax-highlighting/pod.cpp b/webtools/lxr/tests/syntax-highlighting/pod.cpp
new file mode 100644
index 00000000000..a210a222440
--- /dev/null
+++ b/webtools/lxr/tests/syntax-highlighting/pod.cpp
@@ -0,0 +1,33 @@
+///bin/cc
+
+printf("this is not a comment");
+
+// this is a comment
+
+printf("this is not a comment");
+
+ /*pod
+print "this block is a compiler error";
+ *cut*/
+/*pod
+This is POD
+ cut*/
+
+printf("this is not a comment");
+
+// this is a comment
+
+printf("this is not a comment");
+
+/*pod
+This is POD
+#comment
+cut*/
+
+print "this is not a comment";
+
+/*pod
+This is silly
+*^=cut/
+
+printf("this is pod!");
diff --git a/webtools/lxr/tests/syntax-highlighting/pod.pl b/webtools/lxr/tests/syntax-highlighting/pod.pl
new file mode 100644
index 00000000000..bee47aa9f64
--- /dev/null
+++ b/webtools/lxr/tests/syntax-highlighting/pod.pl
@@ -0,0 +1,33 @@
+#!/bin/perl
+
+print "this is not a comment";
+
+# this is a comment
+
+print "this is not a comment";
+
+ =pod
+print "this block is a compiler error";
+ =cut
+=pod
+This is POD
+=cut
+
+print "this is not a comment";
+
+# this is a comment
+
+print "this is not a comment";
+
+=pod
+This is POD
+#comment
+=cut
+
+print "this is not a comment";
+
+=pod
+This is silly
+^=cut
+
+print "this is pod!";