Mercurial > vim
comparison src/testdir/test_flatten.vim @ 20766:821925509d8c v8.2.0935
patch 8.2.0935: flattening a list with existing code is slow
Commit: https://github.com/vim/vim/commit/077a1e670ad69ef4cefc22103ca6635bd269e764
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon Jun 8 20:50:43 2020 +0200
patch 8.2.0935: flattening a list with existing code is slow
Problem: Flattening a list with existing code is slow.
Solution: Add flatten(). (Mopp, closes https://github.com/vim/vim/issues/3676)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Mon, 08 Jun 2020 21:00:04 +0200 |
parents | |
children | 08940efa6b4e |
comparison
equal
deleted
inserted
replaced
20765:ca776ec54a6c | 20766:821925509d8c |
---|---|
1 " Test for flatting list. | |
2 func Test_flatten() | |
3 call assert_fails('call flatten(1)', 'E686:') | |
4 call assert_fails('call flatten({})', 'E686:') | |
5 call assert_fails('call flatten("string")', 'E686:') | |
6 call assert_fails('call flatten([], [])', 'E745:') | |
7 call assert_fails('call flatten([], -1)', 'E900: maxdepth') | |
8 | |
9 call assert_equal([], flatten([])) | |
10 call assert_equal([], flatten([[]])) | |
11 call assert_equal([], flatten([[[]]])) | |
12 | |
13 call assert_equal([1, 2, 3], flatten([1, 2, 3])) | |
14 call assert_equal([1, 2, 3], flatten([[1], 2, 3])) | |
15 call assert_equal([1, 2, 3], flatten([1, [2], 3])) | |
16 call assert_equal([1, 2, 3], flatten([1, 2, [3]])) | |
17 call assert_equal([1, 2, 3], flatten([[1], [2], 3])) | |
18 call assert_equal([1, 2, 3], flatten([1, [2], [3]])) | |
19 call assert_equal([1, 2, 3], flatten([[1], 2, [3]])) | |
20 call assert_equal([1, 2, 3], flatten([[1], [2], [3]])) | |
21 | |
22 call assert_equal([1, 2, 3], flatten([[1, 2, 3], []])) | |
23 call assert_equal([1, 2, 3], flatten([[], [1, 2, 3]])) | |
24 call assert_equal([1, 2, 3], flatten([[1, 2], [], [3]])) | |
25 call assert_equal([1, 2, 3], flatten([[], [1, 2, 3], []])) | |
26 call assert_equal([1, 2, 3, 4], flatten(range(1, 4))) | |
27 | |
28 " example in the help | |
29 call assert_equal([1, 2, 3, 4, 5], flatten([1, [2, [3, 4]], 5])) | |
30 call assert_equal([1, 2, [3, 4], 5], flatten([1, [2, [3, 4]], 5], 1)) | |
31 | |
32 call assert_equal([0, [1], 2, [3], 4], flatten([[0, [1]], 2, [[3], 4]], 1)) | |
33 call assert_equal([1, 2, 3], flatten([[[[1]]], [2], [3]], 3)) | |
34 call assert_equal([[1], [2], [3]], flatten([[[1], [2], [3]]], 1)) | |
35 call assert_equal([[1]], flatten([[1]], 0)) | |
36 | |
37 " Make it flatten if the given maxdepth is larger than actual depth. | |
38 call assert_equal([1, 2, 3], flatten([[1, 2, 3]], 1)) | |
39 call assert_equal([1, 2, 3], flatten([[1, 2, 3]], 2)) | |
40 | |
41 let l:list = [[1], [2], [3]] | |
42 call assert_equal([1, 2, 3], flatten(l:list)) | |
43 call assert_equal([1, 2, 3], l:list) | |
44 | |
45 " Tests for checking reference counter works well. | |
46 let l:x = {'foo': 'bar'} | |
47 call assert_equal([1, 2, l:x, 3], flatten([1, [2, l:x], 3])) | |
48 call test_garbagecollect_now() | |
49 call assert_equal('bar', l:x.foo) | |
50 | |
51 let l:list = [[1], [2], [3]] | |
52 call assert_equal([1, 2, 3], flatten(l:list)) | |
53 call test_garbagecollect_now() | |
54 call assert_equal([1, 2, 3], l:list) | |
55 | |
56 " Tests for checking circular reference list can be flatten. | |
57 let l:x = [1] | |
58 let l:y = [x] | |
59 let l:z = flatten(l:y) | |
60 call assert_equal([1], l:z) | |
61 call test_garbagecollect_now() | |
62 let l:x[0] = 2 | |
63 call assert_equal([2], l:x) | |
64 call assert_equal([1], l:z) " NOTE: primitive types are copied. | |
65 call assert_equal([1], l:y) | |
66 | |
67 let l:x = [2] | |
68 let l:y = [1, [l:x], 3] " [1, [[2]], 3] | |
69 let l:z = flatten(l:y, 1) | |
70 call assert_equal([1, [2], 3], l:z) | |
71 let l:x[0] = 9 | |
72 call assert_equal([1, [9], 3], l:z) " Reference to l:x is kept. | |
73 call assert_equal([1, [9], 3], l:y) | |
74 | |
75 let l:x = [1] | |
76 let l:y = [2] | |
77 call add(x, y) " l:x = [1, [2]] | |
78 call add(y, x) " l:y = [2, [1, [...]]] | |
79 call assert_equal([1, 2, 1, 2], flatten(l:x, 2)) | |
80 call assert_equal([2, l:x], l:y) | |
81 endfunc |