X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F10-branches.t;h=b70d7265de086886379b404b83fad2d61cae1df5;hp=90dc25b8659f27fb8f6317025e6ff3af52f676db;hb=7c2181827882c125de98ccbe16402f5b277a3f44;hpb=4efab5582d1ec3acd99a2ffb898bed58d5f2420b diff --git a/t/10-branches.t b/t/10-branches.t index 90dc25b..b70d726 100644 --- a/t/10-branches.t +++ b/t/10-branches.t @@ -1,7 +1,6 @@ -use Test::More tests => 9; -use Config::Any; +use Test::More tests => 10; -ok( !Config::Any->load_stems(), "load_stems expects args" ); +use_ok( 'Config::Any' ); { my @warnings; @@ -21,10 +20,17 @@ ok( !Config::Any->load_stems(), "load_stems expects args" ); "load_files expects files" ); + Config::Any->load_stems( ); + like( + shift @warnings, + qr/^No stems specified!/, + "load_stems expects args" + ); + Config::Any->load_stems( {} ); like( shift @warnings, - qr/^no stems specified/, + qr/^No stems specified!/, "load_stems expects stems" ); }