t/op/wantarray.t

p4raw-id: //depot/perl@555

1 files changed, 16 insertions, 0 deletions

diff --git a/t/op/wantarray.t b/t/op/wantarray.t
new file mode 100755
index 0000000000..0a47b6d3ba
--- /dev/null
+++ b/t/op/wantarray.t
@@ -0,0 +1,16 @@
+#!./perl
+
+print "1..3\n";
+sub context {
+  my ( $cona, $testnum ) = @_;
+  my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
+  unless ( $cona eq $conb ) {
+	print "# Context $conb should be $cona\nnot ";
+  }
+  print "ok $testnum\n";
+}
+
+context('V',1);
+$a = context('S',2);
+@a = context('A',3);
+1;