use strict;
use warnings;
-plan tests => 127;
+plan tests => 128;
# The behaviour of the feature pragma should be tested by lib/switch.t
# using the tests in t/lib/switch/*. This file tests the behaviour of
is($ok, 'y', "Optimized-away comparison");
}
+{
+ my $ok;
+ given(23) {
+ when (scalar 24) { $ok = 'n'; continue }
+ default { $ok = 'y' }
+ }
+ is($ok,'y','scalar()');
+}
+
# File tests
# (How to be both thorough and portable? Pinch a few ideas
# from t/op/filetest.t. We err on the side of portability for