t/dump-synopsis.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

use strict;
use warnings;

use Test::More tests => 1;

my $success = 0;
my $err;
{
    local $@;
    eval {
        require YAML::Dumper;
        my $hash   = {};
        my $dumper = YAML::Dumper->new();
        my $string = $dumper->dump($hash);
        $success = 1;
    };
    $err = $@;
}
is( $success, 1, "Basic YAML::Dumper usage worked as expected" )
  or diag( explain($err) );