16fb12b70Safresh1use strict; 26fb12b70Safresh1use warnings; 36fb12b70Safresh1use lib 't/lib/'; 4*b8851fccSafresh1use Test::More 0.88; 5*b8851fccSafresh1use SubtestCompat; 66fb12b70Safresh1use TestUtils; 76fb12b70Safresh1use TestBridge; 86fb12b70Safresh1 96fb12b70Safresh1use CPAN::Meta::YAML (); 106fb12b70Safresh1 116fb12b70Safresh1#--------------------------------------------------------------------------# 126fb12b70Safresh1# Generally, write_string can be tested with .tml files in t/tml-local/* 136fb12b70Safresh1# 146fb12b70Safresh1# This file is for error tests or conditions that can't be easily tested 156fb12b70Safresh1# via .tml 166fb12b70Safresh1#--------------------------------------------------------------------------# 176fb12b70Safresh1 186fb12b70Safresh1subtest 'write_string as class method' => sub { 196fb12b70Safresh1 my $got = eval { CPAN::Meta::YAML->write_string }; 206fb12b70Safresh1 is( $@, '', "write_string lives" ); 216fb12b70Safresh1 is( $got, '', "returns empty string" ); 226fb12b70Safresh1}; 236fb12b70Safresh1 246fb12b70Safresh1done_testing; 25