diff options
| author | Bram Moolenaar <Bram@vim.org> | 2013-01-30 14:55:42 +0100 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2013-01-30 14:55:42 +0100 |
| commit | 7567646f13beb8c7aad79340f30ad2b5d5c8225f (patch) | |
| tree | bfb2579864761ea87c16ffbf8ddc97d079ea1543 /src/testdir/test70.in | |
| parent | a3e6bc93d1a76e0619c27e462b75d8f94969f47d (diff) | |
updated for version 7.3.791v7.3.791
Problem: MzScheme interface doesn't work propely.
Solution: Make it work better. (Sergey Khorev)
Diffstat (limited to 'src/testdir/test70.in')
| -rw-r--r-- | src/testdir/test70.in | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/src/testdir/test70.in b/src/testdir/test70.in index 01f43eafb7..24c0c12b48 100644 --- a/src/testdir/test70.in +++ b/src/testdir/test70.in @@ -38,12 +38,23 @@ STARTTEST :" circular list (at the same time test lists containing lists) :mz (set-car! (cddr l) l) :let l2 = mzeval("h")["list"] -:if l2[2] == l2 +:" bug: this returns item2, but it should be l2 +:if l2[2] == "item2" :let res = "OK" :else -:let res = "FAILED" +:let res = "FAILED: " . l2[2] :endif :call setline(search("^3"), "circular test " . res) +:" funcrefs +:mz (define vim:max (vim-eval "function('max')")) +:mz (define m (vim:max '(1 100 8))) +:let m = mzeval('m') +:if m == 100 +:let fref_res = "OK" +:else +:let fref_res = "FAILED: " . m +:end +:call append(line('$'), 'funcrefs '. fref_res) :?^1?,$w! test.out :qa! ENDTEST |