Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...

[pkg-perl] / deb-src / libtest-base-perl / libtest-base-perl-0.54 / t / parentheses.t

diff --git a/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/parentheses.t b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/parentheses.t
new file mode 100644 (file)
index 0000000..b62e968
--- /dev/null
+++ b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/parentheses.t
@@ -0,0 +1,34 @@
+use Test::Base tests => 17;
+
+sub some_text { 'This is some text' };
+
+my $b = first_block;
+is $b->foo, $b->bar, $b->name;
+is $b->foo, some_text();
+
+run {
+    my $b = shift;
+    ok defined $b->foo;
+    is @{[$b->foo]}, 1;
+    ok length $b->foo;
+};
+
+__DATA__
+
+=== Parens clarify section
+--- (foo) some_text
+--- (bar) some_text
+
+===
+--- (foo: some text
+
+===
+--- foo)
+some text
+
+=== 
+--- (foo): some text
+
+=== 
+--- (foo) split join: some text
+