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 / trim.t

diff --git a/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/trim.t b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/trim.t
new file mode 100644 (file)
index 0000000..71bd405
--- /dev/null
+++ b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/trim.t
@@ -0,0 +1,38 @@
+use Test::Base tests => 4;
+
+my ($block1, $block2) = blocks;
+
+is $block1->foo, "line 1\nline 2\n";
+is $block1->bar, "line1\nline2\n";
+is $block2->foo, "aaa\n\nbbb\n";
+is $block2->bar, "\nxxxx\n\nyyyy\n\n";
+
+
+__END__
+
+=== One
+
+--- foo
+line 1
+line 2
+
+--- bar
+
+line1
+line2
+
+=== Two
+
+--- bar -trim
+
+xxxx
+
+yyyy
+
+--- foo
+
+aaa
+
+bbb
+
+