use Test::NoWarnings;
use Test::Warn;

warning_like ( sub { $obj->get_member_id_by_name('smith'); }, qr /than/, 'warns when more than one name returned' );