test31.in
上传用户:gddssl
上传日期:2007-01-06
资源大小:1003k
文件大小:1k
源码类别:

编辑器/阅读器

开发平台:

DOS

  1. Test for commands that close windows and/or buffers:
  2. :quit
  3. :close
  4. :hide
  5. :only
  6. :sall
  7. :all
  8. :ball
  9. :buf
  10. :edit
  11. STARTTEST
  12. GA 1:$w! Xtest1
  13. $r2:$w! Xtest2
  14. $r3:$w! Xtest3
  15. :n! Xtest1 Xtest2
  16. A 1:set hidden
  17. :" test for working :n when hidden set; write "testtext 2"
  18. :n
  19. :w! test.out
  20. :" test for failing :rew when hidden not set; write "testtext 2 2"
  21. :set nohidden
  22. A 2:rew
  23. :w >>test.out
  24. :" test for working :rew when hidden set; write "testtext 1 1"
  25. :set hidden
  26. :rew
  27. :w >>test.out
  28. :" test for :all keeping a buffer when it's modified; write "testtext 1 1 1"
  29. :set nohidden
  30. A 1:sp
  31. :n Xtest2 Xtest3
  32. :all
  33. :w >>test.out
  34. :" test abandoning changed buffer, should be unloaded even when 'hidden' set
  35. :" write "testtext 2 2" twice
  36. :set hidden
  37. A 1:q!
  38. :w >>test.out
  39. :unhide
  40. :w >>test.out
  41. :" test ":hide" hides anyway when 'hidden' not set; write "testtext 3"
  42. :set nohidden
  43. A 2:hide
  44. :w >>test.out
  45. :" test ":edit" failing in modified buffer when 'hidden' not set
  46. :" write "testtext 3 3"
  47. A 3:e Xtest1
  48. :w >>test.out
  49. :" test ":edit" working in modified buffer when 'hidden' set; write "testtext 1"
  50. :set hidden
  51. :e Xtest1
  52. :w >>test.out
  53. :" test ":close" not hiding when 'hidden' not set in modified buffer;
  54. :" write "testtext 3 3 3"
  55. :sp Xtest3
  56. :set nohidden
  57. A 3:close
  58. :w >>test.out
  59. :" test ":close!" does hide when 'hidden' not set in modified buffer;
  60. :" write "testtext 1"
  61. A 3:close!
  62. :w >>test.out
  63. :!rm Xtest1 Xtest2 Xtest3
  64. :qa!
  65. ENDTEST
  66. testtext