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

diff --git a/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/next.t b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/next.t
new file mode 100644 (file)
index 0000000..4ffb560
--- /dev/null
+++ b/deb-src/libtest-base-perl/libtest-base-perl-0.54/t/next.t
@@ -0,0 +1,21 @@
+use Test::Base tests => 10;
+
+for (1..2) {
+    is next_block->foo, 'This is foo';
+    is next_block->bar, 'This is bar';
+
+    while (my $block = next_block) {
+        pass;
+    }
+}
+
+__DATA__
+=== One
+--- foo chomp
+This is foo
+=== Two
+--- bar chomp
+This is bar
+=== Three
+=== Four
+=== Five