test to ensure logS really does force scalar

diff --git a/t/log.t b/t/log.t
index 329576f..df3cd17 100644 (file)
--- a/t/log.t
+++ b/t/log.t
@@ -127,4 +127,5 @@ PASSTHROUGH: {
    is( $var_logger3->var, 'ffiSMBoC: foo', 'logS_fatal works with input');
    is( $val, 'foo', 'logS_fatal passes data through correctly');
 
+   ok(!eval "logS_error { 'frew' } 'bar', 'baz'; 1", 'logS_$level dies from too many args');
 }