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

编辑器/阅读器

开发平台:

DOS

  1. Test for a lot of variations of the 'fileformats' option
  2. STARTTEST
  3. :" first write three test files, one in each format
  4. :set fileformat=unix
  5. :set fileformats=
  6. :/^unix/;/eof/-1w! XXUnix
  7. :/^dos/;/eof/-1w! XXDos
  8. :set bin noeol
  9. :$w! XXMac
  10. :set nobin eol
  11. :bdel XXUnix XXDos XXMac
  12. :" create mixed format files
  13. :!cat XXUnix XXDos >XXUxDs
  14. :!cat XXUnix XXMac >XXUxMac
  15. :!cat XXDos XXMac >XXDosMac
  16. :!cat XXUnix XXDos XXMac >XXUxDsMc
  17. :"
  18. :" try reading and writing with 'fileformats' empty
  19. :set fileformat=unix
  20. :e! XXUnix
  21. :w! test.out
  22. :e! XXDos
  23. :w! XXtt
  24. :!cat XXtt >>test.out
  25. :e! XXMac
  26. :w! XXtt
  27. :!cat XXtt >>test.out
  28. :bdel XXUnix XXDos XXMac
  29. :set fileformat=dos
  30. :e! XXUnix
  31. :w! XXtt
  32. :!cat XXtt >>test.out
  33. :e! XXDos
  34. :w! XXtt
  35. :!cat XXtt >>test.out
  36. :e! XXMac
  37. :w! XXtt
  38. :!cat XXtt >>test.out
  39. :bdel XXUnix XXDos XXMac
  40. :set fileformat=mac
  41. :e! XXUnix
  42. :w! XXtt
  43. :!cat XXtt >>test.out
  44. :e! XXDos
  45. :w! XXtt
  46. :!cat XXtt >>test.out
  47. :e! XXMac
  48. :w! XXtt
  49. :!cat XXtt >>test.out
  50. :bdel XXUnix XXDos XXMac
  51. :"
  52. :" try reading and writing with 'fileformats' set to one format
  53. :set fileformats=unix
  54. :e! XXUxDsMc
  55. :w! XXtt
  56. :!cat XXtt >>test.out
  57. :bdel XXUxDsMc
  58. :set fileformats=dos
  59. :e! XXUxDsMc
  60. :w! XXtt
  61. :!cat XXtt >>test.out
  62. :bdel XXUxDsMc
  63. :set fileformats=mac
  64. :e! XXUxDsMc
  65. :w! XXtt
  66. :!cat XXtt >>test.out
  67. :bdel XXUxDsMc
  68. :"
  69. :" try reading and writing with 'fileformats' set to two formats
  70. :set fileformats=unix,dos
  71. :e! XXUxDsMc
  72. :w! XXtt
  73. :!cat XXtt >>test.out
  74. :bdel XXUxDsMc
  75. :e! XXUxMac
  76. :w! XXtt
  77. :!cat XXtt >>test.out
  78. :bdel XXUxMac
  79. :e! XXDosMac
  80. :w! XXtt
  81. :!cat XXtt >>test.out
  82. :bdel XXDosMac
  83. :set fileformats=unix,mac
  84. :e! XXUxDs
  85. :w! XXtt
  86. :!cat XXtt >>test.out
  87. :bdel XXUxDs
  88. :e! XXUxDsMc
  89. :w! XXtt
  90. :!cat XXtt >>test.out
  91. :bdel XXUxDsMc
  92. :e! XXDosMac
  93. :w! XXtt
  94. :!cat XXtt >>test.out
  95. :bdel XXDosMac
  96. :set fileformats=dos,mac
  97. :e! XXUxDs
  98. :w! XXtt
  99. :!cat XXtt >>test.out
  100. :bdel XXUxDs
  101. :e! XXUxMac
  102. :w! XXtt
  103. :!cat XXtt >>test.out
  104. :bdel XXUxMac
  105. :e! XXUxDsMc
  106. :w! XXtt
  107. :!cat XXtt >>test.out
  108. :bdel XXUxDsMc
  109. :"
  110. :" try reading and writing with 'fileformats' set to three formats
  111. :set fileformats=unix,dos,mac
  112. :e! XXUxDsMc
  113. :w! XXtt
  114. :!cat XXtt >>test.out
  115. :bdel XXUxDsMc
  116. :set fileformats=mac,dos,unix
  117. :e! XXUxDsMc
  118. :w! XXtt
  119. :!cat XXtt >>test.out
  120. :bdel XXUxDsMc
  121. :" try with 'binary' set
  122. :set fileformats=mac,unix,dos
  123. :set binary
  124. :e! XXUxDsMc
  125. :w! XXtt
  126. :!cat XXtt >>test.out
  127. :bdel XXUxDsMc
  128. :set fileformats=mac
  129. :e! XXUxDsMc
  130. :w! XXtt
  131. :!cat XXtt >>test.out
  132. :bdel XXUxDsMc
  133. :set fileformats=dos
  134. :e! XXUxDsMc
  135. :w! XXtt
  136. :!cat XXtt >>test.out
  137. :" add a newline at the end
  138. :!cat XXUnix >>test.out
  139. :!rm -f XXtt XXUnix XXDos XXMac XXUxDs XXUxMac XXDosMac XXUxDsMc
  140. :qa!
  141. ENDTEST
  142. unix
  143. unix
  144. eof
  145. dos
  146. dos
  147. eof
  148. mac mac