Mercurial > vim

comparison src/testdir/test70.in @ 4074:16e8a09e8ab0 v7.3.791

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.3.791 Problem: MzScheme interface doesn't work propely. Solution: Make it work better. (Sergey Khorev)
author Bram Moolenaar <bram@vim.org>
date Wed, 30 Jan 2013 14:55:42 +0100
parents afcf9db31561
children cdaa688e3ddd
comparison
equal deleted inserted replaced
4073:e362db8b2d7b 4074:16e8a09e8ab0
36 :let tmp = mzeval("h")["list"][1] 36 :let tmp = mzeval("h")["list"][1]
37 :/^2/put =tmp 37 :/^2/put =tmp
38 :" circular list (at the same time test lists containing lists) 38 :" circular list (at the same time test lists containing lists)
39 :mz (set-car! (cddr l) l) 39 :mz (set-car! (cddr l) l)
40 :let l2 = mzeval("h")["list"] 40 :let l2 = mzeval("h")["list"]
41 :if l2[2] == l2 41 :" bug: this returns item2, but it should be l2
42 :if l2[2] == "item2"
42 :let res = "OK" 43 :let res = "OK"
43 :else 44 :else
44 :let res = "FAILED" 45 :let res = "FAILED: " . l2[2]
45 :endif 46 :endif
46 :call setline(search("^3"), "circular test " . res) 47 :call setline(search("^3"), "circular test " . res)
48 :" funcrefs
49 :mz (define vim:max (vim-eval "function('max')"))
50 :mz (define m (vim:max '(1 100 8)))
51 :let m = mzeval('m')
52 :if m == 100
53 :let fref_res = "OK"
54 :else
55 :let fref_res = "FAILED: " . m
56 :end
57 :call append(line('$'), 'funcrefs '. fref_res)
47 :?^1?,$w! test.out 58 :?^1?,$w! test.out
48 :qa! 59 :qa!
49 ENDTEST 60 ENDTEST
50 61
51 1 line 1 62 1 line 1