ok eq_array(\@foo, ['warn','friend']), 'Dwarn passes lists through correctly';
my $bar = Dwarn 'robot',2,3;
- is $warned_string,qq{"robot"\n}, 'Dwarn warns scalars correctly';
+ is $warned_string,qq{"robot"\n2\n3\n}, 'Dwarn warns scalars correctly';
is $bar, 'robot', 'Dwarn passes scalars through correctly';
}
}
}
+DDIE: {
+ eval {
+ DdieS [ 'k', 'bar' ];
+ };
+ is $@, qq{[\n "k",\n "bar"\n]\n}, 'DwarnD dies output correctly';
+}
+