# -*- perl -*-
use strict;
use warnings;
use Test::More tests => 2;
use Scriptalicious;
$ENV{PERL5LIB} = join ":", "lib", split ":", ($ENV{PERL5LIB} || "");
SKIP: {
eval 'use YAML';
if ( $@ ) {
skip "YAML not installed",1;
}
my $output = capture($^X, "t/dump.pl");
is($output, "Hello: world", "YAML anydump");
}
$ENV{PERL5LIB} = join ":", "t/missing", split ":", ($ENV{PERL5LIB} || "");
delete $ENV{PERL5OPT};
my $output = capture($^X, "t/dump.pl");
is($output, q{$x = {
'Hello' => 'world'
};}, "Data::Dumper anydump");