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

use Test::Base;

plan eval { require YAML; 1 }
  ? (tests => 1 * blocks)
  : skip_all => 'Requires YAML';

my ($block) = blocks;

eval { XXX($block->text) };

my $error = "$@";
$error =~ s/\\/\//g;

is $error, $block->xxx, $block->name;

__DATA__
=== XXX Test
--- text eval
+{ foo => 'bar' }
--- xxx
---
foo: bar
...
  at t/xxx.t line 9