Testfile for multiline brackets

sartak · Sep 15, 2007 · 6bb26a9 · 6bb26a9
1 parent 8704252
commit 6bb26a9
Showing 1 changed file with 47 additions and 0 deletions.
diff --git a/t/012-multiline-bracket.t b/t/012-multiline-bracket.t
@@ -0,0 +1,47 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More tests => 1;
+
+my $out = Moonfall::MultilineBracket->filter(<<'INPUT');
+#site_container {
+    width: [
+        $widths[1]
+    ];
+    min-width: [
+
+
+
+$widths[0]];
+    }
+
+#top_container {
+    width: [
+        $widths[
+            $widths[
+                3
+            ]
+        ]
+    ];
+    }
+INPUT
+
+is($out, <<"EXPECTED", "multiline brackets work");
+#site_container {
+    width: 200px;
+    min-width: 100px;
+    }
+
+#top_container {
+    width: 300px;
+    }
+EXPECTED
+
+BEGIN
+{
+    package Moonfall::MultilineBracket;
+    use CSS::Moonfall;
+
+    our @widths = (100, 200, 300, 2);
+}
+