1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2005-2008 Jean Privat <jean@pryen.org>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 import more_collections
19 fun test_list
(l
: Sequence[Int], n
: Int)
21 for i
in [0..n
[ do l
.push i
22 print
"{l.length} {l.first} {l.last}"
23 for i
in [0..n
[ do l
.unshift
-i-1
24 print
"{l.length} {l.first} {l.last}"
25 for i
in [0..n
[ do l
.unshift l
.pop
26 print
"{l.length} {l.first} {l.last}"
27 for i
in [0..n
[ do l
.push l
.shift
28 print
"{l.length} {l.first} {l.last}"
29 for i
in [0..n
[ do l
[i
] = l
[n
+i
]
30 print
"{l.length} {l.first} {l.last}"
31 for i
in [0..n
] do l
.insert
(i
*10, i
*2)
32 print
"{l.length} {l.first} {l.last}"
37 if args
.not_empty
then nb
= args
.first
.to_i
39 test_list
(new Array[Int], nb
)
40 test_list
(new List[Int], nb
)
41 test_list
(new UnrolledList[Int], nb
)
42 test_list
(new CircularArray[Int], nb
)