tests for package declaration highlighting.

includes 5.14-style package blocks.
rkitover · May 19, 2011 · 5ef2e96 · 5ef2e96
1 parent 1572090
commit 5ef2e96
Show file tree

Hide file tree

Showing 2 changed files with 50 additions and 0 deletions.
diff --git a/t_source/perl/package.t b/t_source/perl/package.t
@@ -0,0 +1,19 @@
+package Testing::Only;
+
+my $variable;
+
+
+package Testing::WithVersion 1.2;
+
+package My::Class {
+    our $task = "testing";
+}
+
+package My::OtherClass 1.0 {
+    sub activate {
+        say "activated";
+    }
+}
+
+package main;
+# back where we started.
diff --git a/t_source/perl/package.t.html b/t_source/perl/package.t.html
@@ -0,0 +1,31 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html>
+ <head>
+  <title>[untitled]</title>
+  <link rel="stylesheet" type="text/css" href="../../t/vim_syntax.css" />
+ </head>
+ <body>
+
+<pre><span class="synStatement">package</span><span class="synType"> Testing::Only</span>;
+
+<span class="synStatement">my</span> <span class="synIdentifier">$variable</span>;
+
+
+<span class="synStatement">package</span><span class="synType"> Testing::WithVersion</span> <span class="synFloat">1.2</span>;
+
+<span class="synStatement">package</span><span class="synType"> My::Class</span> {
+    <span class="synStatement">our</span> <span class="synIdentifier">$task</span> = <span class="synString">&quot;testing&quot;</span>;
+}
+
+<span class="synStatement">package</span><span class="synType"> My::OtherClass</span> <span class="synFloat">1.0</span> {
+    <span class="synKeyword">sub </span><span class="synFunction">activate </span>{
+        <span class="synStatement">say</span> <span class="synString">&quot;activated&quot;</span>;
+    }
+}
+
+<span class="synStatement">package</span><span class="synType"> main</span>;
+<span class="synComment"># back where we started.</span>
+</pre>
+
+ </body>
+</html>