mediawiki-extensions-AbuseF.../tests/arrays.t
Alexandre Emsenhuber 56e6f0a262 svn:eol-style native
2009-04-09 20:45:31 +00:00

12 lines
334 B
Perl

array1 := [ 'a', 'b', 'c', ];
array2 := [];
array2[] := 'd';
array2[] := 'g';
array2[] := 'f';
array2[1] := 'e';
array3 := array1 + array2;
array4 := [ [ 1, 2, 3 ], [ 4, 5, 6 ] ];
(string(array3) == "a\nb\nc\nd\ne\nf" & !('b' in array2) & array1 contains 'c' & [ false, !(1;0), null ][1] & length(array3) == 6 &
array4[1][1] == 5 )