Changeset 22870 for t

Timestamp:

11/04/08 17:59:25 (2 months ago)

Author:

moritz

Message:

[t/spec] tests for @() context forcers, patch courtesy by rindolf++
(plus precedence corrections)

Files:

• t/spec/S03-operators/context-forcers.t (modified) (2 diffs)

t/spec/S03-operators/context-forcers.t

@@ -3 +3 @@
 use Test;
 
-plan 81;
+plan 87;
 
 { # L<S03/"Changes to Perl 5 operators"/imposes boolean context/>
@@ -179 +179 @@
     is(int($c), 1, 'float numbers forced into integer context are 0');
 }
+
+{
+    my $x = [0, 100, 280, 33, 400, 5665];
+
+    is (@($x)[1], 100, '@$x works');
+
+    is (@($x)[3]+50, 83, '@$x works inside a larger expression');
+
+    my $y = [601, 700, 888];
+
+    my @total = (@$x, @$y);
+
+    is (@total[0], 0, "total[0] is 0");
+    is (@total[1], 100, "total[1] is 100");
+    is (@total[6], 601, "total[1] is 100");
+    is (@total[8], 888, "total[1] is 100");
+}
+