1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
# -*- perl -*- use lib "t/missing"; use Test::More tests => 2; use_ok( 'Scriptalicious', -progname => "noyaml" ); { local(*STDERR); open STDERR, ">/dev/null"; getconf_f ("t/eg.conf", ( "something|s" => \$foo, ) ); } is($foo, undef, "didn't load config without YAML (and didn't die)");