Add tests for Perl

test/fixtures/api_data.js

@@ -513,6 +513,46 @@ define({ api: [
     ],
     "filename": "test/fixtures/example/language.js"
   },
+  {
+    "type": "get",
+    "url": "/language/perl",
+    "title": "Perl",
+    "name": "GetLanguagePerl",
+    "group": "Language",
+    "version": "0.4.0",
+    "description": "Test for Perl Comment-Syntax.",
+    "filename": "test/fixtures/example/language.pm"
+  },
+  {
+    "type": "get",
+    "url": "/language/perl/indented1",
+    "title": "Perl indented 1",
+    "name": "GetLanguagePerlIndented1",
+    "group": "Language",
+    "version": "0.4.0",
+    "examples": [
+      {
+        "title": "Test for indented comment.",
+        "content": "This is example line 2.\nThis is example line 3.\n\tLine 4 indented (with tab at beginning).\nLine 5 indented.\nThis is example line 6.\n"
+      }
+    ],
+    "filename": "test/fixtures/example/language.pm"
+  },
+  {
+    "type": "get",
+    "url": "/language/perl/indented2",
+    "title": "Perl indented 2",
+    "name": "GetLanguagePerlIndented2",
+    "group": "Language",
+    "version": "0.4.0",
+    "examples": [
+      {
+        "title": "Test for indented comment.",
+        "content": "This is example line 2.\nThis is example line 3.\n    Line 4 indented (with tab at beginning).\n   Line 5 indented.\nThis is example line 6.\n"
+      }
+    ],
+    "filename": "test/fixtures/example/language.pm"
+  },
   {
     "type": "get",
     "url": "/language/python",

test/fixtures/api_data.json

@@ -513,6 +513,46 @@
     ],
     "filename": "test/fixtures/example/language.js"
   },
+  {
+    "type": "get",
+    "url": "/language/perl",
+    "title": "Perl",
+    "name": "GetLanguagePerl",
+    "group": "Language",
+    "version": "0.4.0",
+    "description": "Test for Perl Comment-Syntax.",
+    "filename": "test/fixtures/example/language.pm"
+  },
+  {
+    "type": "get",
+    "url": "/language/perl/indented1",
+    "title": "Perl indented 1",
+    "name": "GetLanguagePerlIndented1",
+    "group": "Language",
+    "version": "0.4.0",
+    "examples": [
+      {
+        "title": "Test for indented comment.",
+        "content": "This is example line 2.\nThis is example line 3.\n\tLine 4 indented (with tab at beginning).\nLine 5 indented.\nThis is example line 6.\n"
+      }
+    ],
+    "filename": "test/fixtures/example/language.pm"
+  },
+  {
+    "type": "get",
+    "url": "/language/perl/indented2",
+    "title": "Perl indented 2",
+    "name": "GetLanguagePerlIndented2",
+    "group": "Language",
+    "version": "0.4.0",
+    "examples": [
+      {
+        "title": "Test for indented comment.",
+        "content": "This is example line 2.\nThis is example line 3.\n    Line 4 indented (with tab at beginning).\n   Line 5 indented.\nThis is example line 6.\n"
+      }
+    ],
+    "filename": "test/fixtures/example/language.pm"
+  },
   {
     "type": "get",
     "url": "/language/python",

test/fixtures/example/language.pm

@@ -0,0 +1,35 @@
+# Test for programming language: Perl
+
+#**
+# @api {get} /language/perl Perl
+# @apiName GetLanguagePerl
+# @apiGroup Language
+# @apiVersion 0.4.0
+# @apiDescription Test for Perl Comment-Syntax.
+#**
+
+#**
+# @api {get} /language/perl/indented1 Perl indented 1
+# @apiName GetLanguagePerlIndented1
+# @apiGroup Language
+# @apiVersion 0.4.0
+# @apiExample Test for indented comment.
+# This is example line 2.
+# This is example line 3.
+#		Line 4 indented (with tab at beginning).
+#	Line 5 indented.
+# This is example line 6.
+#**
+
+#**
+@api {get} /language/perl/indented2 Perl indented 2
+@apiName GetLanguagePerlIndented2
+@apiGroup Language
+@apiVersion 0.4.0
+@apiExample Test for indented comment.
+This is example line 2.
+This is example line 3.
+	    Line 4 indented (with tab at beginning).
+    Line 5 indented.
+This is example line 6.
+#**