CPAN::Groonga

0); 1 };

ok !eval{ assert_sv_rok("foo"); 1 };

ok !eval{ assert_sv_rok(3.14); 1 };

ok eval{ assert_sv_rok({}); 1 };

ok !eval{ assert_sv_rok(*ok); 1 };


isnt $s, '', 'output something to stderr';

ndef) };
like $@, qr/\b failed \b/xms;;

eval{ assert_sv_is_object({}) };
like $@, qr/\b failed \b/xms;;

eval{ assert_sv_is_object(bless {}) };
is $@, '';

isnt $s, '', 'output something to stderr';

 };
like $@, qr/\b failed \b/xms;;

eval{ assert_sv_is_gv(sub{}) };
like $@, qr/\b failed \b/xms;;

eval{ assert_sv_is_gv(*ok) };
is $@, '';

isnt $s, '', 'output something to stderr';

done_testing;