test we actually shifted sparse array

TimToady · TimToady · commit 7a2ad38067bc · 2015-11-21T16:11:22.000-08:00
diff --git a/S32-array/shift.t b/S32-array/shift.t
@@ -9,7 +9,7 @@ Shift tests
 
 =end description
 
-plan 32;
+plan 33;
 
 {
 
@@ -97,6 +97,7 @@ plan 32;
     my @a = 1,2;
     @a[0]:delete;
     ok @a.shift === Nil, "shifting sparse array results in Nil, not failure";
+    is @a.elems, 1, "and it actually shifted the array";
 }
 
 # vim: syn=perl6

Original file line number	Diff line number	Diff line change
`@@ -9,7 +9,7 @@ Shift tests`
`9`	`9`
`10`	`10`	`=end description`
`11`	`11`
`12`		`-plan 32;`
	`12`	`+plan 33;`
`13`	`13`
`14`	`14`	`{`
`15`	`15`
`@@ -97,6 +97,7 @@ plan 32;`
`97`	`97`	`my @a = 1,2;`
`98`	`98`	`@a[0]:delete;`
`99`	`99`	`ok @a.shift === Nil, "shifting sparse array results in Nil, not failure";`
	`100`	`+ is @a.elems, 1, "and it actually shifted the array";`
`100`	`101`	`}`
`101`	`102`
`102`	`103`	`# vim: syn=perl6`