File: dump-synopsis.t

package info (click to toggle)
libyaml-perl 1.31-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 672 kB
  • sloc: perl: 2,294; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 388 bytes parent folder | download | duplicates (6) 
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) );