开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
fileName.test
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：67k
源码类别：

通讯编程

开发平台：

Visual C++

fileName.test：源码内容
  1. # This file tests the filename manipulation routines.
  2. #
  3. # This file contains a collection of tests for one or more of the Tcl
  4. # built-in commands.  Sourcing this file into Tcl runs the tests and
  5. # generates output for errors.  No output means no errors were found.
  6. #
  7. # Copyright (c) 1995-1996 Sun Microsystems, Inc.
  8. # Copyright (c) 1999 by Scriptics Corporation.
  9. #
  10. # See the file "license.terms" for information on usage and redistribution
  11. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12. #
  13. # RCS: @(#) $Id: fileName.test,v 1.30.2.7 2005/06/21 19:07:58 kennykb Exp $
  15. if {[lsearch [namespace children] ::tcltest] == -1} {
  16.     package require tcltest
  17.     namespace import -force ::tcltest::*
  18. }
  20. tcltest::testConstraint testsetplatform [string equal testsetplatform [info commands testsetplatform]]
  21. tcltest::testConstraint testtranslatefilename [string equal testtranslatefilename [info commands testtranslatefilename]]
  23. global env
  24. if {[tcltest::testConstraint testsetplatform]} {
  25.     set platform [testgetplatform]
  26. }
  28. test filename-1.1 {Tcl_GetPathType: unix} {testsetplatform} {
  29.     testsetplatform unix
  30.     file pathtype /
  31. } absolute
  32. test filename-1.2 {Tcl_GetPathType: unix} {testsetplatform} {
  33.     testsetplatform unix
  34.     file pathtype /foo
  35. } absolute
  36. test filename-1.3 {Tcl_GetPathType: unix} {testsetplatform} {
  37.     testsetplatform unix
  38.     file pathtype foo
  39. } relative
  40. test filename-1.4 {Tcl_GetPathType: unix} {testsetplatform} {
  41.     testsetplatform unix
  42.     file pathtype c:/foo
  43. } relative
  44. test filename-1.5 {Tcl_GetPathType: unix} {testsetplatform} {
  45.     testsetplatform unix
  46.     file pathtype ~
  47. } absolute
  48. test filename-1.6 {Tcl_GetPathType: unix} {testsetplatform} {
  49.     testsetplatform unix
  50.     file pathtype ~/foo
  51. } absolute
  52. test filename-1.7 {Tcl_GetPathType: unix} {testsetplatform} {
  53.     testsetplatform unix
  54.     file pathtype ~foo
  55. } absolute
  56. test filename-1.8 {Tcl_GetPathType: unix} {testsetplatform} {
  57.     testsetplatform unix
  58.     file pathtype ./~foo
  59. } relative
  61. test filename-2.1 {Tcl_GetPathType: mac, denerate names} {testsetplatform} {
  62.     testsetplatform mac
  63.     file pathtype /
  64. } relative
  65. test filename-2.2 {Tcl_GetPathType: mac, denerate names} {testsetplatform} {
  66.     testsetplatform mac
  67.     file pathtype /.
  68. } relative
  69. test filename-2.3 {Tcl_GetPathType: mac, denerate names} {testsetplatform} {
  70.     testsetplatform mac
  71.     file pathtype /..
  72. } relative
  73. test filename-2.4 {Tcl_GetPathType: mac, denerate names} {testsetplatform} {
  74.     testsetplatform mac
  75.     file pathtype //.//
  76. } relative
  77. test filename-2.5 {Tcl_GetPathType: mac, denerate names} {testsetplatform} {
  78.     testsetplatform mac
  79.     file pathtype //.//../.
  80. } relative
  81. test filename-2.6 {Tcl_GetPathType: mac, tilde names} {testsetplatform} {
  82.     testsetplatform mac
  83.     file pathtype ~
  84. } absolute
  85. test filename-2.7 {Tcl_GetPathType: mac, tilde names} {testsetplatform} {
  86.     testsetplatform mac
  87.     file pathtype ~:
  88. } absolute
  89. test filename-2.8 {Tcl_GetPathType: mac, tilde names} {testsetplatform} {
  90.     testsetplatform mac
  91.     file pathtype ~:foo
  92. } absolute
  93. test filename-2.9 {Tcl_GetPathType: mac, tilde names} {testsetplatform} {
  94.     testsetplatform mac
  95.     file pathtype ~/
  96. } absolute
  97. test filename-2.10 {Tcl_GetPathType: mac, tilde names} {testsetplatform} {
  98.     testsetplatform mac
  99.     file pathtype ~/foo
  100. } absolute
  101. test filename-2.11 {Tcl_GetPathType: mac, unix-style names} {testsetplatform} {
  102.     testsetplatform mac
  103.     file pathtype /foo
  104. } absolute
  105. test filename-2.12 {Tcl_GetPathType: mac, unix-style names} {testsetplatform} {
  106.     testsetplatform mac
  107.     file pathtype /./foo
  108. } absolute
  109. test filename-2.13 {Tcl_GetPathType: mac, unix-style names} {testsetplatform} {
  110.     testsetplatform mac
  111.     file pathtype /..//./foo
  112. } absolute
  113. test filename-2.14 {Tcl_GetPathType: mac, unix-style names} {testsetplatform} {
  114.     testsetplatform mac
  115.     file pathtype /foo/bar
  116. } absolute
  117. test filename-2.15 {Tcl_GetPathType: mac, unix-style names} {testsetplatform} {
  118.     testsetplatform mac
  119.     file pathtype foo/bar
  120. } relative
  121. test filename-2.16 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  122.     testsetplatform mac
  123.     file pathtype :
  124. } relative
  125. test filename-2.17 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  126.     testsetplatform mac
  127.     file pathtype :foo
  128. } relative
  129. test filename-2.18 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  130.     testsetplatform mac
  131.     file pathtype foo:
  132. } absolute
  133. test filename-2.19 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  134.     testsetplatform mac
  135.     file pathtype foo:bar
  136. } absolute
  137. test filename-2.20 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  138.     testsetplatform mac
  139.     file pathtype :foo:bar
  140. } relative
  141. test filename-2.21 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  142.     testsetplatform mac
  143.     file pathtype ::foo:bar
  144. } relative
  145. test filename-2.22 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  146.     testsetplatform mac
  147.     file pathtype ~foo
  148. } absolute
  149. test filename-2.23 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  150.     testsetplatform mac
  151.     file pathtype :~foo
  152. } relative
  153. test filename-2.24 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  154.     testsetplatform mac
  155.     file pathtype ~foo:
  156. } absolute
  157. test filename-2.25 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  158.     testsetplatform mac
  159.     file pathtype foo/bar:
  160. } absolute
  161. test filename-2.26 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  162.     testsetplatform mac
  163.     file pathtype /foo:
  164. } absolute
  165. test filename-2.27 {Tcl_GetPathType: mac, mac-style names} {testsetplatform} {
  166.     testsetplatform mac
  167.     file pathtype foo
  168. } relative
  170. test filename-3.1 {Tcl_GetPathType: windows} {testsetplatform} {
  171.     testsetplatform windows
  172.     file pathtype /
  173. } volumerelative
  174. test filename-3.2 {Tcl_GetPathType: windows} {testsetplatform} {
  175.     testsetplatform windows
  176.     file pathtype \
  177. } volumerelative
  178. test filename-3.3 {Tcl_GetPathType: windows} {testsetplatform} {
  179.     testsetplatform windows
  180.     file pathtype /foo
  181. } volumerelative
  182. test filename-3.4 {Tcl_GetPathType: windows} {testsetplatform} {
  183.     testsetplatform windows
  184.     file pathtype \foo
  185. } volumerelative
  186. test filename-3.5 {Tcl_GetPathType: windows} {testsetplatform} {
  187.     testsetplatform windows
  188.     file pathtype c:/
  189. } absolute
  190. test filename-3.6 {Tcl_GetPathType: windows} {testsetplatform} {
  191.     testsetplatform windows
  192.     file pathtype c:\
  193. } absolute
  194. test filename-3.7 {Tcl_GetPathType: windows} {testsetplatform} {
  195.     testsetplatform windows
  196.     file pathtype c:/foo
  197. } absolute
  198. test filename-3.8 {Tcl_GetPathType: windows} {testsetplatform} {
  199.     testsetplatform windows
  200.     file pathtype c:\foo
  201. } absolute
  202. test filename-3.9 {Tcl_GetPathType: windows} {testsetplatform} {
  203.     testsetplatform windows
  204.     file pathtype c:
  205. } volumerelative
  206. test filename-3.10 {Tcl_GetPathType: windows} {testsetplatform} {
  207.     testsetplatform windows
  208.     file pathtype c:foo
  209. } volumerelative
  210. test filename-3.11 {Tcl_GetPathType: windows} {testsetplatform} {
  211.     testsetplatform windows
  212.     file pathtype foo
  213. } relative
  214. test filename-3.12 {Tcl_GetPathType: windows} {testsetplatform} {
  215.     testsetplatform windows
  216.     file pathtype //foo/bar
  217. } absolute
  218. test filename-3.13 {Tcl_GetPathType: windows} {testsetplatform} {
  219.     testsetplatform windows
  220.     file pathtype ~foo
  221. } absolute
  222. test filename-3.14 {Tcl_GetPathType: windows} {testsetplatform} {
  223.     testsetplatform windows
  224.     file pathtype ~
  225. } absolute
  226. test filename-3.15 {Tcl_GetPathType: windows} {testsetplatform} {
  227.     testsetplatform windows
  228.     file pathtype ~/foo
  229. } absolute
  230. test filename-3.16 {Tcl_GetPathType: windows} {testsetplatform} {
  231.     testsetplatform windows
  232.     file pathtype ./~foo
  233. } relative
  235. test filename-4.1 {Tcl_SplitPath: unix} {testsetplatform} {
  236.     testsetplatform unix
  237.     file split /
  238. } {/}
  239. test filename-4.2 {Tcl_SplitPath: unix} {testsetplatform} {
  240.     testsetplatform unix
  241.     file split /foo
  242. } {/ foo}
  243. test filename-4.3 {Tcl_SplitPath: unix} {testsetplatform} {
  244.     testsetplatform unix
  245.     file split /foo/bar
  246. } {/ foo bar}
  247. test filename-4.4 {Tcl_SplitPath: unix} {testsetplatform} {
  248.     testsetplatform unix
  249.     file split /foo/bar/baz
  250. } {/ foo bar baz}
  251. test filename-4.5 {Tcl_SplitPath: unix} {testsetplatform} {
  252.     testsetplatform unix
  253.     file split foo/bar
  254. } {foo bar}
  255. test filename-4.6 {Tcl_SplitPath: unix} {testsetplatform} {
  256.     testsetplatform unix
  257.     file split ./foo/bar
  258. } {. foo bar}
  259. test filename-4.7 {Tcl_SplitPath: unix} {testsetplatform} {
  260.     testsetplatform unix
  261.     file split /foo/../././foo/bar
  262. } {/ foo .. . . foo bar}
  263. test filename-4.8 {Tcl_SplitPath: unix} {testsetplatform} {
  264.     testsetplatform unix
  265.     file split ../foo/bar
  266. } {.. foo bar}
  267. test filename-4.9 {Tcl_SplitPath: unix} {testsetplatform} {
  268.     testsetplatform unix
  269.     file split {}
  270. } {}
  271. test filename-4.10 {Tcl_SplitPath: unix} {testsetplatform} {
  272.     testsetplatform unix
  273.     file split .
  274. } {.}
  275. test filename-4.11 {Tcl_SplitPath: unix} {testsetplatform} {
  276.     testsetplatform unix
  277.     file split ../
  278. } {..}
  279. test filename-4.12 {Tcl_SplitPath: unix} {testsetplatform} {
  280.     testsetplatform unix
  281.     file split ../..
  282. } {.. ..}
  283. test filename-4.13 {Tcl_SplitPath: unix} {testsetplatform} {
  284.     testsetplatform unix
  285.     file split //foo
  286. } {/ foo}
  287. test filename-4.14 {Tcl_SplitPath: unix} {testsetplatform} {
  288.     testsetplatform unix
  289.     file split foo//bar
  290. } {foo bar}
  291. test filename-4.15 {Tcl_SplitPath: unix} {testsetplatform} {
  292.     testsetplatform unix
  293.     file split ~foo
  294. } {~foo}
  295. test filename-4.16 {Tcl_SplitPath: unix} {testsetplatform} {
  296.     testsetplatform unix
  297.     file split ~foo/~bar
  298. } {~foo ./~bar}
  299. test filename-4.17 {Tcl_SplitPath: unix} {testsetplatform} {
  300.     testsetplatform unix
  301.     file split ~foo/~bar/~baz
  302. } {~foo ./~bar ./~baz}
  303. test filename-4.18 {Tcl_SplitPath: unix} {testsetplatform} {
  304.     testsetplatform unix
  305.     file split foo/bar~/baz
  306. } {foo bar~ baz}
  308. if {[tcltest::testConstraint testsetplatform]} {
  309.     testsetplatform $platform
  310. }
  312. test filename-4.19 {Tcl_SplitPath} {
  313.     set oldDir [pwd]
  314.     set res [catch {
  315. cd [temporaryDirectory]
  316. file mkdir tildetmp
  317. set nastydir [file join tildetmp ./~tilde]
  318. file mkdir $nastydir
  319. set norm [file normalize $nastydir]
  320. cd tildetmp
  321. cd ./~tilde
  322. glob -nocomplain *
  323. set idx [string first tildetmp $norm]
  324. set norm [string range $norm $idx end]
  325. # fix path away so all platforms are the same
  326. regsub {(.*):$} $norm {1} norm
  327. regsub -all ":" $norm "/" norm
  328. # make sure we can delete the directory we created
  329. cd $oldDir
  330. file delete -force $nastydir
  331. set norm
  332.     } err]
  333.     cd $oldDir
  334.     catch {file delete -force [file join [temporaryDirectory] tildetmp]}
  335.     list $res $err
  336. } {0 tildetmp/~tilde}
  338. test filename-5.1 {Tcl_SplitPath: mac} {testsetplatform} {
  339.     testsetplatform mac
  340.     file split a:b
  341. } {a: b}
  342. test filename-5.2 {Tcl_SplitPath: mac} {testsetplatform} {
  343.     testsetplatform mac
  344.     file split a:b:c
  345. } {a: b c}
  346. test filename-5.3 {Tcl_SplitPath: mac} {testsetplatform} {
  347.     testsetplatform mac
  348.     file split a:b:c:
  349. } {a: b c}
  350. test filename-5.4 {Tcl_SplitPath: mac} {testsetplatform} {
  351.     testsetplatform mac
  352.     file split a:
  353. } {a:}
  354. test filename-5.5 {Tcl_SplitPath: mac} {testsetplatform} {
  355.     testsetplatform mac
  356.     file split a::
  357. } {a: ::}
  358. test filename-5.6 {Tcl_SplitPath: mac} {testsetplatform} {
  359.     testsetplatform mac
  360.     file split a:::
  361. } {a: :: ::}
  362. test filename-5.7 {Tcl_SplitPath: mac} {testsetplatform} {
  363.     testsetplatform mac
  364.     file split :a
  365. } {a}
  366. test filename-5.8 {Tcl_SplitPath: mac} {testsetplatform} {
  367.     testsetplatform mac
  368.     file split :a::
  369. } {a ::}
  370. test filename-5.9 {Tcl_SplitPath: mac} {testsetplatform} {
  371.     testsetplatform mac
  372.     file split :
  373. } {:}
  374. test filename-5.10 {Tcl_SplitPath: mac} {testsetplatform} {
  375.     testsetplatform mac
  376.     file split ::
  377. } {::}
  378. test filename-5.11 {Tcl_SplitPath: mac} {testsetplatform} {
  379.     testsetplatform mac
  380.     file split :::
  381. } {:: ::}
  382. test filename-5.12 {Tcl_SplitPath: mac} {testsetplatform} {
  383.     testsetplatform mac
  384.     file split a:::b
  385. } {a: :: :: b}
  386. test filename-5.13 {Tcl_SplitPath: mac} {testsetplatform} {
  387.     testsetplatform mac
  388.     file split /a:b
  389. } {/a: b}
  390. test filename-5.14 {Tcl_SplitPath: mac} {testsetplatform} {
  391.     testsetplatform mac
  392.     file split ~:
  393. } {~:}
  394. test filename-5.15 {Tcl_SplitPath: mac} {testsetplatform} {
  395.     testsetplatform mac
  396.     file split ~/:
  397. } {~/:}
  398. test filename-5.16 {Tcl_SplitPath: mac} {testsetplatform} {
  399.     testsetplatform mac
  400.     file split ~:foo
  401. } {~: foo}
  402. test filename-5.17 {Tcl_SplitPath: mac} {testsetplatform} {
  403.     testsetplatform mac
  404.     file split ~/foo
  405. } {~: foo}
  406. test filename-5.18 {Tcl_SplitPath: mac} {testsetplatform} {
  407.     testsetplatform mac
  408.     file split ~foo:
  409. } {~foo:}
  410. test filename-5.19 {Tcl_SplitPath: mac} {testsetplatform} {
  411.     testsetplatform mac
  412.     file split a:~foo
  413. } {a: :~foo}
  414. test filename-5.20 {Tcl_SplitPath: mac} {testsetplatform} {
  415.     testsetplatform mac
  416.     file split /
  417. } {:/}
  418. test filename-5.21 {Tcl_SplitPath: mac} {testsetplatform} {
  419.     testsetplatform mac
  420.     file split a:b/c
  421. } {a: :b/c}
  422. test filename-5.22 {Tcl_SplitPath: mac} {testsetplatform} {
  423.     testsetplatform mac
  424.     file split /foo
  425. } {foo:}
  426. test filename-5.23 {Tcl_SplitPath: mac} {testsetplatform} {
  427.     testsetplatform mac
  428.     file split /a/b
  429. } {a: b}
  430. test filename-5.24 {Tcl_SplitPath: mac} {testsetplatform} {
  431.     testsetplatform mac
  432.     file split /a/b/foo
  433. } {a: b foo}
  434. test filename-5.25 {Tcl_SplitPath: mac} {testsetplatform} {
  435.     testsetplatform mac
  436.     file split a/b
  437. } {a b}
  438. test filename-5.26 {Tcl_SplitPath: mac} {testsetplatform} {
  439.     testsetplatform mac
  440.     file split ./foo/bar
  441. } {: foo bar}
  442. test filename-5.27 {Tcl_SplitPath: mac} {testsetplatform} {
  443.     testsetplatform mac
  444.     file split ../foo/bar
  445. } {:: foo bar}
  446. test filename-5.28 {Tcl_SplitPath: mac} {testsetplatform} {
  447.     testsetplatform mac
  448.     file split {}
  449. } {}
  450. test filename-5.29 {Tcl_SplitPath: mac} {testsetplatform} {
  451.     testsetplatform mac
  452.     file split .
  453. } {:}
  454. test filename-5.30 {Tcl_SplitPath: mac} {testsetplatform} {
  455.     testsetplatform mac
  456.     file split ././
  457. } {: :}
  458. test filename-5.31 {Tcl_SplitPath: mac} {testsetplatform} {
  459.     testsetplatform mac
  460.     file split ././.
  461. } {: : :}
  462. test filename-5.32 {Tcl_SplitPath: mac} {testsetplatform} {
  463.     testsetplatform mac
  464.     file split ../
  465. } {::}
  466. test filename-5.33 {Tcl_SplitPath: mac} {testsetplatform} {
  467.     testsetplatform mac
  468.     file split ..
  469. } {::}
  470. test filename-5.34 {Tcl_SplitPath: mac} {testsetplatform} {
  471.     testsetplatform mac
  472.     file split ../..
  473. } {:: ::}
  474. test filename-5.35 {Tcl_SplitPath: mac} {testsetplatform} {
  475.     testsetplatform mac
  476.     file split //foo
  477. } {foo:}
  478. test filename-5.36 {Tcl_SplitPath: mac} {testsetplatform} {
  479.     testsetplatform mac
  480.     file split foo//bar
  481. } {foo bar}
  482. test filename-5.37 {Tcl_SplitPath: mac} {testsetplatform} {
  483.     testsetplatform mac
  484.     file split ~foo
  485. } {~foo:}
  486. test filename-5.38 {Tcl_SplitPath: mac} {testsetplatform} {
  487.     testsetplatform mac
  488.     file split ~
  489. } {~:}
  490. test filename-5.39 {Tcl_SplitPath: mac} {testsetplatform} {
  491.     testsetplatform mac
  492.     file split foo
  493. } {foo}
  494. test filename-5.40 {Tcl_SplitPath: mac} {testsetplatform} {
  495.     testsetplatform mac
  496.     file split ~/
  497. } {~:}
  498. test filename-5.41 {Tcl_SplitPath: mac} {testsetplatform} {
  499.     testsetplatform mac
  500.     file split ~foo/~bar
  501. } {~foo: :~bar}
  502. test filename-5.42 {Tcl_SplitPath: mac} {testsetplatform} {
  503.     testsetplatform mac
  504.     file split ~foo/~bar/~baz
  505. } {~foo: :~bar :~baz}
  506. test filename-5.43 {Tcl_SplitPath: mac} {testsetplatform} {
  507.     testsetplatform mac
  508.     file split foo/bar~/baz
  509. } {foo bar~ baz}
  510. test filename-5.44 {Tcl_SplitPath: mac} {testsetplatform} {
  511.     testsetplatform mac
  512.     file split a/../b
  513. } {a :: b}
  514. test filename-5.45 {Tcl_SplitPath: mac} {testsetplatform} {
  515.     testsetplatform mac
  516.     file split a/../../b
  517. } {a :: :: b}
  518. test filename-5.46 {Tcl_SplitPath: mac} {testsetplatform} {
  519.     testsetplatform mac
  520.     file split a/.././../b
  521. } {a :: : :: b}
  522. test filename-5.47 {Tcl_SplitPath: mac} {testsetplatform} {
  523.     testsetplatform mac
  524.     file split /../bar
  525. } {bar:}
  526. test filename-5.48 {Tcl_SplitPath: mac} {testsetplatform} {
  527.     testsetplatform mac
  528.     file split /./bar
  529. } {bar:}
  530. test filename-5.49 {Tcl_SplitPath: mac} {testsetplatform} {
  531.     testsetplatform mac
  532.     file split //.//.././bar
  533. } {bar:}
  534. test filename-5.50 {Tcl_SplitPath: mac} {testsetplatform} {
  535.     testsetplatform mac
  536.     file split /..
  537. } {:/..}
  538. test filename-5.51 {Tcl_SplitPath: mac} {testsetplatform} {
  539.     testsetplatform mac
  540.     file split //.//.././
  541. } {://.//.././}
  543. test filename-6.1 {Tcl_SplitPath: win} {testsetplatform} {
  544.     testsetplatform win
  545.     file split /
  546. } {/}
  547. test filename-6.2 {Tcl_SplitPath: win} {testsetplatform} {
  548.     testsetplatform win
  549.     file split /foo
  550. } {/ foo}
  551. test filename-6.3 {Tcl_SplitPath: win} {testsetplatform} {
  552.     testsetplatform win
  553.     file split /foo/bar
  554. } {/ foo bar}
  555. test filename-6.4 {Tcl_SplitPath: win} {testsetplatform} {
  556.     testsetplatform win
  557.     file split /foo/bar/baz
  558. } {/ foo bar baz}
  559. test filename-6.5 {Tcl_SplitPath: win} {testsetplatform} {
  560.     testsetplatform win
  561.     file split foo/bar
  562. } {foo bar}
  563. test filename-6.6 {Tcl_SplitPath: win} {testsetplatform} {
  564.     testsetplatform win
  565.     file split ./foo/bar
  566. } {. foo bar}
  567. test filename-6.7 {Tcl_SplitPath: win} {testsetplatform} {
  568.     testsetplatform win
  569.     file split /foo/../././foo/bar
  570. } {/ foo .. . . foo bar}
  571. test filename-6.8 {Tcl_SplitPath: win} {testsetplatform} {
  572.     testsetplatform win
  573.     file split ../foo/bar
  574. } {.. foo bar}
  575. test filename-6.9 {Tcl_SplitPath: win} {testsetplatform} {
  576.     testsetplatform win
  577.     file split {}
  578. } {}
  579. test filename-6.10 {Tcl_SplitPath: win} {testsetplatform} {
  580.     testsetplatform win
  581.     file split .
  582. } {.}
  583. test filename-6.11 {Tcl_SplitPath: win} {testsetplatform} {
  584.     testsetplatform win
  585.     file split ../
  586. } {..}
  587. test filename-6.12 {Tcl_SplitPath: win} {testsetplatform} {
  588.     testsetplatform win
  589.     file split ../..
  590. } {.. ..}
  591. test filename-6.13 {Tcl_SplitPath: win} {testsetplatform} {
  592.     testsetplatform win
  593.     file split //foo
  594. } {/ foo}
  595. test filename-6.14 {Tcl_SplitPath: win} {testsetplatform} {
  596.     testsetplatform win
  597.     file split foo//bar
  598. } {foo bar}
  599. test filename-6.15 {Tcl_SplitPath: win} {testsetplatform} {
  600.     testsetplatform win
  601.     file split /\/foo//bar
  602. } {//foo/bar}
  603. test filename-6.16 {Tcl_SplitPath: win} {testsetplatform} {
  604.     testsetplatform win
  605.     file split /\/foo//bar
  606. } {//foo/bar}
  607. test filename-6.17 {Tcl_SplitPath: win} {testsetplatform} {
  608.     testsetplatform win
  609.     file split /\/foo//bar
  610. } {//foo/bar}
  611. test filename-6.18 {Tcl_SplitPath: win} {testsetplatform} {
  612.     testsetplatform win
  613.     file split \\foo\bar
  614. } {//foo/bar}
  615. test filename-6.19 {Tcl_SplitPath: win} {testsetplatform} {
  616.     testsetplatform win
  617.     file split \\foo\bar/baz
  618. } {//foo/bar baz}
  619. test filename-6.20 {Tcl_SplitPath: win} {testsetplatform} {
  620.     testsetplatform win
  621.     file split c:/foo
  622. } {c:/ foo}
  623. test filename-6.21 {Tcl_SplitPath: win} {testsetplatform} {
  624.     testsetplatform win
  625.     file split c:foo
  626. } {c: foo}
  627. test filename-6.22 {Tcl_SplitPath: win} {testsetplatform} {
  628.     testsetplatform win
  629.     file split c:
  630. } {c:}
  631. test filename-6.23 {Tcl_SplitPath: win} {testsetplatform} {
  632.     testsetplatform win
  633.     file split c:\
  634. } {c:/}
  635. test filename-6.24 {Tcl_SplitPath: win} {testsetplatform} {
  636.     testsetplatform win
  637.     file split c:/
  638. } {c:/}
  639. test filename-6.25 {Tcl_SplitPath: win} {testsetplatform} {
  640.     testsetplatform win
  641.     file split c:/./..
  642. } {c:/ . ..}
  643. test filename-6.26 {Tcl_SplitPath: win} {testsetplatform} {
  644.     testsetplatform win
  645.     file split ~foo
  646. } {~foo}
  647. test filename-6.27 {Tcl_SplitPath: win} {testsetplatform} {
  648.     testsetplatform win
  649.     file split ~foo/~bar
  650. } {~foo ./~bar}
  651. test filename-6.28 {Tcl_SplitPath: win} {testsetplatform} {
  652.     testsetplatform win
  653.     file split ~foo/~bar/~baz
  654. } {~foo ./~bar ./~baz}
  655. test filename-6.29 {Tcl_SplitPath: win} {testsetplatform} {
  656.     testsetplatform win
  657.     file split foo/bar~/baz
  658. } {foo bar~ baz}
  659. test filename-6.30 {Tcl_SplitPath: win} {testsetplatform} {
  660.     testsetplatform win
  661.     file split c:~foo
  662. } {c: ./~foo}
  664. test filename-7.1 {Tcl_JoinPath: unix} {testsetplatform} {
  665.     testsetplatform unix
  666.     file join / a
  667. } {/a}
  668. test filename-7.2 {Tcl_JoinPath: unix} {testsetplatform} {
  669.     testsetplatform unix
  670.     file join a b
  671. } {a/b}
  672. test filename-7.3 {Tcl_JoinPath: unix} {testsetplatform} {
  673.     testsetplatform unix
  674.     file join /a c /b d
  675. } {/b/d}
  676. test filename-7.4 {Tcl_JoinPath: unix} {testsetplatform} {
  677.     testsetplatform unix
  678.     file join /
  679. } {/}
  680. test filename-7.5 {Tcl_JoinPath: unix} {testsetplatform} {
  681.     testsetplatform unix
  682.     file join a
  683. } {a}
  684. test filename-7.6 {Tcl_JoinPath: unix} {testsetplatform} {
  685.     testsetplatform unix
  686.     file join {}
  687. } {}
  688. test filename-7.7 {Tcl_JoinPath: unix} {testsetplatform} {
  689.     testsetplatform unix
  690.     file join /a/ b
  691. } {/a/b}
  692. test filename-7.8 {Tcl_JoinPath: unix} {testsetplatform} {
  693.     testsetplatform unix
  694.     file join /a// b
  695. } {/a/b}
  696. test filename-7.9 {Tcl_JoinPath: unix} {testsetplatform} {
  697.     testsetplatform unix
  698.     file join /a/./../. b
  699. } {/a/./.././b}
  700. test filename-7.10 {Tcl_JoinPath: unix} {testsetplatform} {
  701.     testsetplatform unix
  702.     file join ~ a
  703. } {~/a}
  704. test filename-7.11 {Tcl_JoinPath: unix} {testsetplatform} {
  705.     testsetplatform unix
  706.     file join ~a ~b
  707. } {~b}
  708. test filename-7.12 {Tcl_JoinPath: unix} {testsetplatform} {
  709.     testsetplatform unix
  710.     file join ./~a b
  711. } {./~a/b}
  712. test filename-7.13 {Tcl_JoinPath: unix} {testsetplatform} {
  713.     testsetplatform unix
  714.     file join ./~a ~b
  715. } {~b}
  716. test filename-7.14 {Tcl_JoinPath: unix} {testsetplatform} {
  717.     testsetplatform unix
  718.     file join ./~a ./~b
  719. } {./~a/~b}
  720. test filename-7.15 {Tcl_JoinPath: unix} {testsetplatform} {
  721.     testsetplatform unix
  722.     file join a . b
  723. } {a/./b}
  724. test filename-7.16 {Tcl_JoinPath: unix} {testsetplatform} {
  725.     testsetplatform unix
  726.     file join a . ./~b
  727. } {a/./~b}
  728. test filename-7.17 {Tcl_JoinPath: unix} {testsetplatform} {
  729.     testsetplatform unix
  730.     file join //a b
  731. } {/a/b}
  732. test filename-7.18 {Tcl_JoinPath: unix} {testsetplatform} {
  733.     testsetplatform unix
  734.     file join /// a b
  735. } {/a/b}
  737. test filename-8.1 {Tcl_JoinPath: mac} {testsetplatform} {
  738.     testsetplatform mac
  739.     file join a b
  740. } {:a:b}
  741. test filename-8.2 {Tcl_JoinPath: mac} {testsetplatform} {
  742.     testsetplatform mac
  743.     file join :a b
  744. } {:a:b}
  745. test filename-8.3 {Tcl_JoinPath: mac} {testsetplatform} {
  746.     testsetplatform mac
  747.     file join a b:
  748. } {b:}
  749. test filename-8.4 {Tcl_JoinPath: mac} {testsetplatform} {
  750.     testsetplatform mac
  751.     file join a: :b
  752. } {a:b}
  753. test filename-8.5 {Tcl_JoinPath: mac} {testsetplatform} {
  754.     testsetplatform mac
  755.     file join a: :b:
  756. } {a:b}
  757. test filename-8.6 {Tcl_JoinPath: mac} {testsetplatform} {
  758.     testsetplatform mac
  759.     file join a :: b
  760. } {:a::b}
  761. test filename-8.7 {Tcl_JoinPath: mac} {testsetplatform} {
  762.     testsetplatform mac
  763.     file join a :: :: b
  764. } {:a:::b}
  765. test filename-8.8 {Tcl_JoinPath: mac} {testsetplatform} {
  766.     testsetplatform mac
  767.     file join a ::: b
  768. } {:a:::b}
  769. test filename-8.9 {Tcl_JoinPath: mac} {testsetplatform} {
  770.     testsetplatform mac
  771.     file join a: b:
  772. } {b:}
  773. test filename-8.10 {Tcl_JoinPath: mac} {testsetplatform} {
  774.     testsetplatform mac
  775.     file join /a/b
  776. } {a:b}
  777. test filename-8.11 {Tcl_JoinPath: mac} {testsetplatform} {
  778.     testsetplatform mac
  779.     file join /a/b c/d
  780. } {a:b:c:d}
  781. test filename-8.12 {Tcl_JoinPath: mac} {testsetplatform} {
  782.     testsetplatform mac
  783.     file join /a/b :c:d
  784. } {a:b:c:d}
  785. test filename-8.13 {Tcl_JoinPath: mac} {testsetplatform} {
  786.     testsetplatform mac
  787.     file join ~ foo
  788. } {~:foo}
  789. test filename-8.14 {Tcl_JoinPath: mac} {testsetplatform} {
  790.     testsetplatform mac
  791.     file join :: ::
  792. } {:::}
  793. test filename-8.15 {Tcl_JoinPath: mac} {testsetplatform} {
  794.     testsetplatform mac
  795.     file join a: ::
  796. } {a::}
  797. test filename-8.16 {Tcl_JoinPath: mac} {testsetplatform} {
  798.     testsetplatform mac
  799.     file join a {} b
  800. } {:a:b}
  801. test filename-8.17 {Tcl_JoinPath: mac} {testsetplatform} {
  802.     testsetplatform mac
  803.     file join a::: b
  804. } {a:::b}
  805. test filename-8.18 {Tcl_JoinPath: mac} {testsetplatform} {
  806.     testsetplatform mac
  807.     file join a : : :
  808. } {:a}
  809. test filename-8.19 {Tcl_JoinPath: mac} {testsetplatform} {
  810.     testsetplatform mac
  811.     file join :
  812. } {:}
  813. test filename-8.20 {Tcl_JoinPath: mac} {testsetplatform} {
  814.     testsetplatform mac
  815.     file join : a
  816. } {:a}
  817. test filename-8.21 {Tcl_JoinPath: mac} {testsetplatform} {
  818.     testsetplatform mac
  819.     file join a: :b/c
  820. } {a:b/c}
  821. test filename-8.22 {Tcl_JoinPath: mac} {testsetplatform} {
  822.     testsetplatform mac
  823.     file join :a :b/c
  824. } {:a:b/c}
  826. test filename-9.1 {Tcl_JoinPath: win} {testsetplatform} {
  827.     testsetplatform win
  828.     file join a b
  829. } {a/b}
  830. test filename-9.2 {Tcl_JoinPath: win} {testsetplatform} {
  831.     testsetplatform win
  832.     file join /a b
  833. } {/a/b}
  834. test filename-9.3 {Tcl_JoinPath: win} {testsetplatform} {
  835.     testsetplatform win
  836.     file join /a /b
  837. } {/b}
  838. test filename-9.4 {Tcl_JoinPath: win} {testsetplatform} {
  839.     testsetplatform win
  840.     file join c: foo
  841. } {c:foo}
  842. test filename-9.5 {Tcl_JoinPath: win} {testsetplatform} {
  843.     testsetplatform win
  844.     file join c:/ foo
  845. } {c:/foo}
  846. test filename-9.6 {Tcl_JoinPath: win} {testsetplatform} {
  847.     testsetplatform win
  848.     file join c:\bar foo
  849. } {c:/bar/foo}
  850. test filename-9.7 {Tcl_JoinPath: win} {testsetplatform} {
  851.     testsetplatform win
  852.     file join /foo c:bar
  853. } {c:bar}
  854. test filename-9.8 {Tcl_JoinPath: win} {testsetplatform} {
  855.     testsetplatform win
  856.     file join ///host//share dir
  857. } {//host/share/dir}
  858. test filename-9.9 {Tcl_JoinPath: win} {testsetplatform} {
  859.     testsetplatform win
  860.     file join ~ foo
  861. } {~/foo}
  862. test filename-9.10 {Tcl_JoinPath: win} {testsetplatform} {
  863.     testsetplatform win
  864.     file join ~/~foo
  865. } {~/~foo}
  866. test filename-9.11 {Tcl_JoinPath: win} {testsetplatform} {
  867.     testsetplatform win
  868.     file join ~ ./~foo
  869. } {~/~foo}
  870. test filename-9.12 {Tcl_JoinPath: win} {testsetplatform} {
  871.     testsetplatform win
  872.     file join / ~foo
  873. } {~foo}
  874. test filename-9.13 {Tcl_JoinPath: win} {testsetplatform} {
  875.     testsetplatform win
  876.     file join ./a/ b c
  877. } {./a/b/c}
  878. test filename-9.14 {Tcl_JoinPath: win} {testsetplatform} {
  879.     testsetplatform win
  880.     file join ./~a/ b c
  881. } {./~a/b/c}
  882. test filename-9.15 {Tcl_JoinPath: win} {testsetplatform} {
  883.     testsetplatform win
  884.     file join // host share path
  885. } {/host/share/path}
  886. test filename-9.16 {Tcl_JoinPath: win} {testsetplatform} {
  887.     testsetplatform win
  888.     file join foo . bar
  889. } {foo/./bar}
  890. test filename-9.17 {Tcl_JoinPath: win} {testsetplatform} {
  891.     testsetplatform win
  892.     file join foo .. bar
  893. } {foo/../bar}
  894. test filename-9.18 {Tcl_JoinPath: win} {testsetplatform} {
  895.     testsetplatform win
  896.     file join foo/./bar
  897. } {foo/./bar}
  898. test filename-9.19 {Tcl_JoinPath: win} {testsetplatform} {
  899.     testsetplatform win
  900.     set res {}
  901.     lappend res 
  902.       [file join {C:foobar}] 
  903.       [file join C:/blah {C:foobar}] 
  904.       [file join C:/blah C:/blah {C:foobar}]
  905. } {C:/foo/bar C:/foo/bar C:/foo/bar}
  906. test filename-9.19.1 {Tcl_JoinPath: win} {testsetplatform} {
  907.     testsetplatform win
  908.     set res {}
  909.     lappend res 
  910.       [file join {foobar}] 
  911.       [file join C:/blah {foobar}] 
  912.       [file join C:/blah C:/blah {foobar}]
  913. } {foo/bar C:/blah/foo/bar C:/blah/foo/bar}
  914. test filename-9.19.2 {Tcl_JoinPath: win} {testsetplatform winOnly} {
  915.     testsetplatform win
  916.     set res {}
  917.     lappend res 
  918.       [file join {foobar}] 
  919.       [file join [pwd] {foobar}] 
  920.       [file join [pwd] [pwd] {foobar}]
  921.     string map [list [pwd] pwd] $res
  922. } {foo/bar pwd/foo/bar pwd/foo/bar}
  923. test filename-9.20 {Tcl_JoinPath: unix} {testsetplatform} {
  924.     testsetplatform unix
  925.     set res {}
  926.     lappend res 
  927.       [file join {/foo/bar}] 
  928.       [file join /x {/foo/bar}] 
  929.       [file join /x /x {/foo/bar}]
  930. } {/foo/bar /foo/bar /foo/bar}
  931. test filename-9.21 {Tcl_JoinPath: mac} {testsetplatform} {
  932.     testsetplatform mac
  933.     set res {}
  934.     lappend res 
  935.       [file join {/foo/bar}] 
  936.       [file join drive: {/foo/bar}] 
  937.       [file join drive: drive: {/foo/bar}]
  938. } {foo:bar foo:bar foo:bar}
  939. test filename-9.22 {Tcl_JoinPath: mac} {testsetplatform} {
  940.     testsetplatform mac
  941.     set res {}
  942.     lappend res 
  943.       [file join {foo:bar}] 
  944.       [file join drive: {foo:bar}] 
  945.       [file join drive: drive: {foo:bar}]
  946. } {foo:bar foo:bar foo:bar}
  947. test filename-9.23 {Tcl_JoinPath: win} {testsetplatform} {
  948.     testsetplatform win
  949.     set res {}
  950.     lappend res 
  951.       [file join {foobar}] 
  952.       [file join C:/blah {foobar}] 
  953.       [file join C:/blah C:/blah {foobar}]
  954.     string map [list C:/blah ""] $res
  955. } {foo/bar /foo/bar /foo/bar}
  956. test filename-9.24 {Tcl_JoinPath: unix} {testsetplatform} {
  957.     testsetplatform unix
  958.     set res {}
  959.     lappend res 
  960.       [file join {foo/bar}] 
  961.       [file join /x {foo/bar}] 
  962.       [file join /x /x {foo/bar}]
  963.     string map [list /x ""] $res
  964. } {foo/bar /foo/bar /foo/bar}
  965. test filename-9.25 {Tcl_JoinPath: mac} {testsetplatform} {
  966.     testsetplatform mac
  967.     set res {}
  968.     lappend res 
  969.       [file join {foo/bar}] 
  970.       [file join drive: {foo/bar}] 
  971.       [file join drive: drive: {foo/bar}]
  972.     string map [list drive: ""] $res
  973. } {:foo:bar foo:bar foo:bar}
  974. test filename-9.26 {Tcl_JoinPath: mac} {testsetplatform} {
  975.     testsetplatform mac
  976.     set res {}
  977.     lappend res 
  978.       [file join {:foo:bar}] 
  979.       [file join drive: {:foo:bar}] 
  980.       [file join drive: drive: {:foo:bar}]
  981.     string map [list drive: ""] $res
  982. } {:foo:bar foo:bar foo:bar}
  984. test filename-10.1 {Tcl_TranslateFileName} {testsetplatform} {
  985.     testsetplatform unix
  986.     list [catch {testtranslatefilename foo} msg] $msg
  987. } {0 foo}
  988. test filename-10.2 {Tcl_TranslateFileName} {testsetplatform} {
  989.     testsetplatform windows
  990.     list [catch {testtranslatefilename {c:/foo}} msg] $msg
  991. } {0 {c:foo}}
  992. test filename-10.3 {Tcl_TranslateFileName} {testsetplatform} {
  993.     testsetplatform windows
  994.     list [catch {testtranslatefilename {c:/\foo/}} msg] $msg
  995. } {0 {c:foo}}
  996. test filename-10.4 {Tcl_TranslateFileName} {testsetplatform} {
  997.     testsetplatform mac
  998.     list [catch {testtranslatefilename foo} msg] $msg
  999. } {0 :foo}
  1000. test filename-10.5 {Tcl_TranslateFileName} {testsetplatform} {
  1001.     testsetplatform mac
  1002.     list [catch {testtranslatefilename :~foo} msg] $msg
  1003. } {0 :~foo}
  1004. test filename-10.6 {Tcl_TranslateFileName} {testsetplatform} {
  1005.     global env
  1006.     set temp $env(HOME)
  1007.     set env(HOME) "/home/test"
  1008.     testsetplatform unix
  1009.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1010.     set env(HOME) $temp
  1011.     set result
  1012. } {0 /home/test/foo}
  1013. test filename-10.7 {Tcl_TranslateFileName} {testsetplatform} {
  1014.     global env
  1015.     set temp $env(HOME)
  1016.     unset env(HOME)
  1017.     testsetplatform unix
  1018.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1019.     set env(HOME) $temp
  1020.     set result
  1021. } {1 {couldn't find HOME environment variable to expand path}}
  1022. test filename-10.8 {Tcl_TranslateFileName} {testsetplatform} {
  1023.     global env
  1024.     set temp $env(HOME)
  1025.     set env(HOME) "/home/test"
  1026.     testsetplatform unix
  1027.     set result [list [catch {testtranslatefilename ~} msg] $msg]
  1028.     set env(HOME) $temp
  1029.     set result
  1030. } {0 /home/test}
  1031. test filename-10.9 {Tcl_TranslateFileName} {testsetplatform} {
  1032.     global env
  1033.     set temp $env(HOME)
  1034.     set env(HOME) "/home/test/"
  1035.     testsetplatform unix
  1036.     set result [list [catch {testtranslatefilename ~} msg] $msg]
  1037.     set env(HOME) $temp
  1038.     set result
  1039. } {0 /home/test}
  1040. test filename-10.10 {Tcl_TranslateFileName} {testsetplatform} {
  1041.     global env
  1042.     set temp $env(HOME)
  1043.     set env(HOME) "/home/test/"
  1044.     testsetplatform unix
  1045.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1046.     set env(HOME) $temp
  1047.     set result
  1048. } {0 /home/test/foo}
  1049. test filename-10.11 {Tcl_TranslateFileName} {testsetplatform} {
  1050.     global env
  1051.     set temp $env(HOME)
  1052.     set env(HOME) "Root:"
  1053.     testsetplatform mac
  1054.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1055.     set env(HOME) $temp
  1056.     set result
  1057. } {0 Root:foo}
  1058. test filename-10.12 {Tcl_TranslateFileName} {testsetplatform} {
  1059.     global env
  1060.     set temp $env(HOME)
  1061.     set env(HOME) "Root:home"
  1062.     testsetplatform mac
  1063.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1064.     set env(HOME) $temp
  1065.     set result
  1066. } {0 Root:home:foo}
  1067. test filename-10.13 {Tcl_TranslateFileName} {testsetplatform} {
  1068.     global env
  1069.     set temp $env(HOME)
  1070.     set env(HOME) "Root:home"
  1071.     testsetplatform mac
  1072.     set result [list [catch {testtranslatefilename ~::foo} msg] $msg]
  1073.     set env(HOME) $temp
  1074.     set result
  1075. } {0 Root:home::foo}
  1076. test filename-10.14 {Tcl_TranslateFileName} {testsetplatform} {
  1077.     global env
  1078.     set temp $env(HOME)
  1079.     set env(HOME) "Root:home"
  1080.     testsetplatform mac
  1081.     set result [list [catch {testtranslatefilename ~} msg] $msg]
  1082.     set env(HOME) $temp
  1083.     set result
  1084. } {0 Root:home}
  1085. test filename-10.15 {Tcl_TranslateFileName} {testsetplatform} {
  1086.     global env
  1087.     set temp $env(HOME)
  1088.     set env(HOME) "Root:home:"
  1089.     testsetplatform mac
  1090.     set result [list [catch {testtranslatefilename ~::foo} msg] $msg]
  1091.     set env(HOME) $temp
  1092.     set result
  1093. } {0 Root:home::foo}
  1094. test filename-10.16 {Tcl_TranslateFileName} {testsetplatform} {
  1095.     global env
  1096.     set temp $env(HOME)
  1097.     set env(HOME) "Root:home::"
  1098.     testsetplatform mac
  1099.     set result [list [catch {testtranslatefilename ~::foo} msg] $msg]
  1100.     set env(HOME) $temp
  1101.     set result
  1102. } {0 Root:home:::foo}
  1103. test filename-10.17 {Tcl_TranslateFileName} {testsetplatform} {
  1104.     global env
  1105.     set temp $env(HOME)
  1106.     set env(HOME) "\home\"
  1107.     testsetplatform windows
  1108.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1109.     set env(HOME) $temp
  1110.     set result
  1111. } {0 {homefoo}}
  1112. test filename-10.18 {Tcl_TranslateFileName} {testsetplatform} {
  1113.     global env
  1114.     set temp $env(HOME)
  1115.     set env(HOME) "\home\"
  1116.     testsetplatform windows
  1117.     set result [list [catch {testtranslatefilename ~/foo\bar} msg] $msg]
  1118.     set env(HOME) $temp
  1119.     set result
  1120. } {0 {homefoobar}}
  1121. test filename-10.19 {Tcl_TranslateFileName} {testsetplatform} {
  1122.     global env
  1123.     set temp $env(HOME)
  1124.     set env(HOME) "c:"
  1125.     testsetplatform windows
  1126.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1127.     set env(HOME) $temp
  1128.     set result
  1129. } {0 c:foo}
  1130. test filename-10.20 {Tcl_TranslateFileName} {testtranslatefilename} {
  1131.     list [catch {testtranslatefilename ~blorp/foo} msg] $msg
  1132. } {1 {user "blorp" doesn't exist}}
  1133. test filename-10.21 {Tcl_TranslateFileName} {testsetplatform} {
  1134.     global env
  1135.     set temp $env(HOME)
  1136.     set env(HOME) "c:\"
  1137.     testsetplatform windows
  1138.     set result [list [catch {testtranslatefilename ~/foo} msg] $msg]
  1139.     set env(HOME) $temp
  1140.     set result
  1141. } {0 {c:foo}}
  1142. test filename-10.22 {Tcl_TranslateFileName} {testsetplatform} {
  1143.     testsetplatform windows
  1144.     list [catch {testtranslatefilename foo//bar} msg] $msg
  1145. } {0 {foobar}}
  1147. if {[tcltest::testConstraint testsetplatform]} {
  1148.     testsetplatform $platform
  1149. }
  1151. test filename-10.23 {Tcl_TranslateFileName} {unixOnly nonPortable} {
  1152.     # this test fails if ~ouster is not /home/ouster
  1153.     list [catch {testtranslatefilename ~ouster} msg] $msg
  1154. } {0 /home/ouster}
  1155. test filename-10.24 {Tcl_TranslateFileName} {unixOnly nonPortable} {
  1156.     # this test fails if ~ouster is not /home/ouster
  1157.     list [catch {testtranslatefilename ~ouster/foo} msg] $msg
  1158. } {0 /home/ouster/foo}
  1161. test filename-11.1 {Tcl_GlobCmd} {
  1162.     list [catch {glob} msg] $msg
  1163. } {1 {wrong # args: should be "glob ?switches? name ?name ...?"}}
  1164. test filename-11.2 {Tcl_GlobCmd} {
  1165.     list [catch {glob -gorp} msg] $msg
  1166. } {1 {bad option "-gorp": must be -directory, -join, -nocomplain, -path, -tails, -types, or --}}
  1167. test filename-11.3 {Tcl_GlobCmd} {
  1168.     list [catch {glob -nocomplai} msg] $msg
  1169. } {1 {wrong # args: should be "glob ?switches? name ?name ...?"}}
  1170. test filename-11.4 {Tcl_GlobCmd} {
  1171.     list [catch {glob -nocomplain} msg] $msg
  1172. } {1 {wrong # args: should be "glob ?switches? name ?name ...?"}}
  1173. test filename-11.5 {Tcl_GlobCmd} {
  1174.     list [catch {glob -nocomplain ~xyqrszzz} msg] $msg
  1175. } {0 {}}
  1176. test filename-11.6 {Tcl_GlobCmd} {
  1177.     list [catch {glob ~xyqrszzz} msg] $msg
  1178. } {1 {user "xyqrszzz" doesn't exist}}
  1179. test filename-11.7 {Tcl_GlobCmd} {
  1180.     list [catch {glob -- -nocomplain} msg] $msg
  1181. } {1 {no files matched glob pattern "-nocomplain"}}
  1182. test filename-11.8 {Tcl_GlobCmd} {
  1183.     list [catch {glob -nocomplain -- -nocomplain} msg] $msg
  1184. } {0 {}}
  1185. test filename-11.9 {Tcl_GlobCmd} {testsetplatform} {
  1186.     testsetplatform unix
  1187.     list [catch {glob ~\xyqrszzz/bar} msg] $msg
  1188. } {1 {user "xyqrszzz" doesn't exist}}
  1189. test filename-11.10 {Tcl_GlobCmd} {testsetplatform} {
  1190.     testsetplatform unix
  1191.     list [catch {glob -nocomplain ~\xyqrszzz/bar} msg] $msg
  1192. } {0 {}}
  1193. test filename-11.11 {Tcl_GlobCmd} {testsetplatform} {
  1194.     testsetplatform unix
  1195.     list [catch {glob ~xyqrszzz\/\bar} msg] $msg
  1196. } {1 {user "xyqrszzz" doesn't exist}}
  1197. test filename-11.12 {Tcl_GlobCmd} {testsetplatform} {
  1198.     testsetplatform unix
  1199.     set home $env(HOME)
  1200.     unset env(HOME)
  1201.     set x [list [catch {glob ~/*} msg] $msg]
  1202.     set env(HOME) $home
  1203.     set x
  1204. } {1 {couldn't find HOME environment variable to expand path}}
  1206. if {[tcltest::testConstraint testsetplatform]} {
  1207.     testsetplatform $platform
  1208. }
  1210. test filename-11.13 {Tcl_GlobCmd} {
  1211.     list [catch {file join [lindex [glob ~] 0]} msg] $msg
  1212. } [list 0 [file join $env(HOME)]]
  1214. set oldpwd [pwd]
  1215. set oldhome $env(HOME)
  1216. cd [temporaryDirectory]
  1217. set env(HOME) [pwd]
  1218. file delete -force globTest
  1219. file mkdir globTest/a1/b1
  1220. file mkdir globTest/a1/b2
  1221. file mkdir globTest/a2/b3
  1222. file mkdir globTest/a3
  1223. close [open globTest/x1.c w]
  1224. close [open globTest/y1.c w]
  1225. close [open globTest/z1.c w]
  1226. close [open "globTest/weird name.c" w]
  1227. close [open globTest/a1/b1/x2.c w]
  1228. close [open globTest/a1/b2/y2.c w]
  1230. catch {close [open globTest/.1 w]}
  1231. catch {close [open globTest/x,z1.c w]}
  1233. test filename-11.14 {Tcl_GlobCmd} {
  1234.     list [catch {glob ~/globTest} msg] $msg
  1235. } [list 0 [list [file join $env(HOME) globTest]]]
  1236. test filename-11.15 {Tcl_GlobCmd} {
  1237.     list [catch {glob ~\/globTest} msg] $msg
  1238. } [list 0 [list [file join $env(HOME) globTest]]]
  1239. test filename-11.16 {Tcl_GlobCmd} {
  1240.     list [catch {glob globTest} msg] $msg
  1241. } {0 globTest}
  1243. set globname "globTest"
  1244. set horribleglobname "glob[{Test"
  1246. test filename-11.17 {Tcl_GlobCmd} {unixOnly} {
  1247.     list [catch {lsort [glob -directory $globname *]} msg] $msg
  1248. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1249. [file join $globname a3]
  1250. [file join $globname "weird name.c"]
  1251. [file join $globname x,z1.c]
  1252. [file join $globname x1.c]
  1253. [file join $globname y1.c] [file join $globname z1.c]]]]
  1254. test filename-11.17.1 {Tcl_GlobCmd} {pcOnly macOnly} {
  1255.     list [catch {lsort [glob -directory $globname *]} msg] $msg
  1256. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1257.         [file join $globname .1]
  1258. [file join $globname a3]
  1259. [file join $globname "weird name.c"]
  1260. [file join $globname x,z1.c]
  1261. [file join $globname x1.c]
  1262. [file join $globname y1.c] [file join $globname z1.c]]]]
  1263. if {[string equal $tcl_platform(platform) "windows"]} {
  1264.     if {[string index $tcl_platform(osVersion) 0] >= 5 
  1265.       && ([lindex [file system [temporaryDirectory]] 1] == "NTFS")} {
  1266. tcltest::testConstraint linkDirectory 1
  1267.     } else {
  1268. tcltest::testConstraint linkDirectory 0
  1269.     }
  1270. } else {
  1271.     tcltest::testConstraint linkDirectory 1
  1272. }
  1273. if {[string equal $tcl_platform(platform) "windows"]} {
  1274.     tcltest::testConstraint symbolicLinkFile 0
  1275. } else {
  1276.     tcltest::testConstraint symbolicLinkFile 1
  1277. }
  1278. test filename-11.17.2 {Tcl_GlobCmd} {notRoot linkDirectory} {
  1279.     set dir [pwd]
  1280.     set ret "error in test"
  1281.     if {[catch {
  1282. cd $globname
  1283. file link -symbolic link a1
  1284. cd $dir
  1285. set ret [list [catch {
  1286.     lsort [glob -directory $globname -join * b1]
  1287. } msg] $msg]
  1288.     }]} {
  1289. cd $dir
  1290.     }
  1291.     file delete [file join $globname link]
  1292.     set ret
  1293. } [list 0 [lsort [list [file join $globname a1 b1] 
  1294.   [file join $globname link b1]]]]
  1295. # Simpler version of the above test to illustrate a given bug.
  1296. test filename-11.17.3 {Tcl_GlobCmd} {notRoot linkDirectory} {
  1297.     set dir [pwd]
  1298.     set ret "error in test"
  1299.     if {[catch {
  1300. cd $globname
  1301. file link -symbolic link a1
  1302. cd $dir
  1303. set ret [list [catch {
  1304.     lsort [glob -directory $globname -type d *]
  1305. } msg] $msg]
  1306.     }]} {
  1307. cd $dir
  1308.     }
  1309.     file delete [file join $globname link]
  1310.     set ret
  1311. } [list 0 [lsort [list [file join $globname a1] 
  1312.   [file join $globname a2] 
  1313.   [file join $globname a3] 
  1314.   [file join $globname link]]]]
  1315. # Make sure the bugfix isn't too simple.  We don't want
  1316. # to break 'glob -type l'.
  1317. test filename-11.17.4 {Tcl_GlobCmd} {notRoot linkDirectory} {
  1318.     set dir [pwd]
  1319.     set ret "error in test"
  1320.     if {[catch {
  1321. cd $globname
  1322. file link -symbolic link a1
  1323. cd $dir
  1324. set ret [list [catch {
  1325.     lsort [glob -directory $globname -type l *]
  1326. } msg] $msg]
  1327.     }]} {
  1328. cd $dir
  1329.     }
  1330.     file delete [file join $globname link]
  1331.     set ret
  1332. } [list 0 [list [file join $globname link]]]
  1333. test filename-11.17.5 {Tcl_GlobCmd} {
  1334.     list [catch {lsort [glob -directory $globname -tails *.c]} msg] $msg
  1335. } [list 0 [lsort [list "weird name.c" x,z1.c x1.c y1.c z1.c]]]
  1336. test filename-11.17.6 {Tcl_GlobCmd} {
  1337.     list [catch {lsort [glob -directory $globname -tails *.c *.c]} msg] $msg
  1338. } [list 0 [lsort [concat [list "weird name.c" x,z1.c x1.c y1.c z1.c] 
  1339.   [list "weird name.c" x,z1.c x1.c y1.c z1.c]]]]
  1340. test filename-11.17.7 {Tcl_GlobCmd: broken link and glob -l} {linkDirectory} {
  1341.     set dir [pwd]
  1342.     set ret "error in test"
  1343.     if {[catch {
  1344. cd $globname
  1345. file mkdir nonexistent
  1346. file link -symbolic link nonexistent
  1347. file delete nonexistent
  1348. cd $dir
  1349. set ret [list [catch {
  1350.     lsort [glob -nocomplain -directory $globname -type l *]
  1351. } msg] $msg]
  1352.     }]} {
  1353. cd $dir
  1354.     }
  1355.     file delete [file join $globname link]
  1356.     set ret
  1357. } [list 0 [list [file join $globname link]]]
  1358. test filename-11.17.8 {Tcl_GlobCmd: broken link and glob -l} {symbolicLinkFile} {
  1359.     set dir [pwd]
  1360.     set ret "error in test"
  1361.     if {[catch {
  1362. cd $globname
  1363. close [open "nonexistent" w]
  1364. file link -symbolic link nonexistent
  1365. file delete nonexistent
  1366. cd $dir
  1367. set ret [list [catch {
  1368.     lsort [glob -nocomplain -directory $globname -type l *]
  1369. } msg] $msg]
  1370.     }]} {
  1371. cd $dir
  1372.     }
  1373.     file delete [file join $globname link]
  1374.     set ret
  1375. } [list 0 [list [file join $globname link]]]
  1376. test filename-11.18 {Tcl_GlobCmd} {unixOnly} {
  1377.     list [catch {lsort [glob -path $globname/ *]} msg] $msg
  1378. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1379. [file join $globname a3]
  1380. [file join $globname "weird name.c"]
  1381. [file join $globname x,z1.c]
  1382. [file join $globname x1.c]
  1383. [file join $globname y1.c] [file join $globname z1.c]]]]
  1384. test filename-11.18.1 {Tcl_GlobCmd} {pcOnly macOnly} {
  1385.     list [catch {lsort [glob -path $globname/ *]} msg] $msg
  1386. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1387.         [file join $globname .1]
  1388. [file join $globname a3]
  1389. [file join $globname "weird name.c"]
  1390. [file join $globname x,z1.c]
  1391. [file join $globname x1.c]
  1392. [file join $globname y1.c] [file join $globname z1.c]]]]
  1393. test filename-11.19 {Tcl_GlobCmd} {unixOnly} {
  1394.     list [catch {lsort [glob -join -path 
  1395.     [string range $globname 0 5] * *]} msg] $msg
  1396. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1397. [file join $globname a3]
  1398. [file join $globname "weird name.c"]
  1399. [file join $globname x,z1.c]
  1400. [file join $globname x1.c]
  1401. [file join $globname y1.c] [file join $globname z1.c]]]]
  1402. test filename-11.19.1 {Tcl_GlobCmd} {pcOnly macOnly} {
  1403.     list [catch {lsort [glob -join -path 
  1404.     [string range $globname 0 5] * *]} msg] $msg
  1405. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1406.         [file join $globname .1]
  1407. [file join $globname a3]
  1408. [file join $globname "weird name.c"]
  1409. [file join $globname x,z1.c]
  1410. [file join $globname x1.c]
  1411. [file join $globname y1.c] [file join $globname z1.c]]]]
  1412. test filename-11.20 {Tcl_GlobCmd} {
  1413.     list [catch {lsort [glob -type d -dir $globname *]} msg] $msg
  1414. } [list 0 [lsort [list [file join $globname a1]
  1415. [file join $globname a2]
  1416. [file join $globname a3]]]]
  1417. test filename-11.21 {Tcl_GlobCmd} {
  1418.     list [catch {lsort [glob -type d -path $globname *]} msg] $msg
  1419. } [list 0 [lsort [list $globname]]]
  1421. test filename-11.21.1 {Tcl_GlobCmd} {
  1422.     close [open {[tcl].testremains} w]
  1423.     set res [list [catch {lsort [glob -path {[tcl]} *]} msg] $msg]
  1424.     file delete -force {[tcl].testremains}
  1425.     set res
  1426. } [list 0 {{[tcl].testremains}}]
  1428. # Get rid of file/dir if it exists, since it will have
  1429. # been left behind by a previous failed run.
  1430. if {[file exists $horribleglobname]} {
  1431.     file delete -force $horribleglobname
  1432. }
  1433. file rename globTest $horribleglobname
  1434. set globname $horribleglobname
  1436. test filename-11.22 {Tcl_GlobCmd} {unixOnly} {
  1437.     list [catch {lsort [glob -dir $globname *]} msg] $msg
  1438. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1439. [file join $globname a3]
  1440. [file join $globname "weird name.c"]
  1441. [file join $globname x,z1.c]
  1442. [file join $globname x1.c]
  1443. [file join $globname y1.c] [file join $globname z1.c]]]]
  1444. test filename-11.22.1 {Tcl_GlobCmd} {pcOnly macOnly} {
  1445.     list [catch {lsort [glob -dir $globname *]} msg] $msg
  1446. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1447.         [file join $globname .1]
  1448. [file join $globname a3]
  1449. [file join $globname "weird name.c"]
  1450. [file join $globname x,z1.c]
  1451. [file join $globname x1.c]
  1452. [file join $globname y1.c] [file join $globname z1.c]]]]
  1453. test filename-11.23 {Tcl_GlobCmd} {unixOnly} {
  1454.     list [catch {lsort [glob -path $globname/ *]} msg] $msg
  1455. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1456. [file join $globname a3]
  1457. [file join $globname "weird name.c"]
  1458. [file join $globname x,z1.c]
  1459. [file join $globname x1.c]
  1460. [file join $globname y1.c] [file join $globname z1.c]]]]
  1461. test filename-11.23.1 {Tcl_GlobCmd} {pcOnly macOnly} {
  1462.     list [catch {lsort [glob -path $globname/ *]} msg] $msg
  1463. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1464.         [file join $globname .1]
  1465. [file join $globname a3]
  1466. [file join $globname "weird name.c"]
  1467. [file join $globname x,z1.c]
  1468. [file join $globname x1.c]
  1469. [file join $globname y1.c] [file join $globname z1.c]]]]
  1470. test filename-11.24 {Tcl_GlobCmd} {unixOnly} {
  1471.     list [catch {lsort [glob -join -path 
  1472.     [string range $globname 0 5] * *]} msg] $msg
  1473. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1474. [file join $globname a3]
  1475. [file join $globname "weird name.c"]
  1476. [file join $globname x,z1.c]
  1477. [file join $globname x1.c]
  1478. [file join $globname y1.c] [file join $globname z1.c]]]]
  1479. test filename-11.24.1 {Tcl_GlobCmd} {pcOnly macOnly} {
  1480.     list [catch {lsort [glob -join -path 
  1481.     [string range $globname 0 5] * *]} msg] $msg
  1482. } [list 0 [lsort [list [file join $globname a1] [file join $globname a2]
  1483.         [file join $globname .1]
  1484. [file join $globname a3]
  1485. [file join $globname "weird name.c"]
  1486. [file join $globname x,z1.c]
  1487. [file join $globname x1.c]
  1488. [file join $globname y1.c] [file join $globname z1.c]]]]
  1489. test filename-11.25 {Tcl_GlobCmd} {
  1490.     list [catch {lsort [glob -type d -dir $globname *]} msg] $msg
  1491. } [list 0 [lsort [list [file join $globname a1]
  1492. [file join $globname a2]
  1493. [file join $globname a3]]]]
  1494. test filename-11.25.1 {Tcl_GlobCmd} {
  1495.     list [catch {lsort [glob -type {d r} -dir $globname *]} msg] $msg
  1496. } [list 0 [lsort [list [file join $globname a1]
  1497.   [file join $globname a2]
  1498.   [file join $globname a3]]]]
  1499. test filename-11.25.2 {Tcl_GlobCmd} {
  1500.     list [catch {lsort [glob -type {d r w} -dir $globname *]} msg] $msg
  1501. } [list 0 [lsort [list [file join $globname a1]
  1502.   [file join $globname a2]
  1503.   [file join $globname a3]]]]
  1504. test filename-11.26 {Tcl_GlobCmd} {
  1505.     list [catch {glob -type d -path $globname *} msg] $msg
  1506. } [list 0 [list $globname]]
  1507. test filename-11.27 {Tcl_GlobCmd} {
  1508.     list [catch {glob -types abcde *} msg] $msg
  1509. } {1 {bad argument to "-types": abcde}}
  1510. test filename-11.28 {Tcl_GlobCmd} {
  1511.     list [catch {glob -types z *} msg] $msg
  1512. } {1 {bad argument to "-types": z}}
  1513. test filename-11.29 {Tcl_GlobCmd} {
  1514.     list [catch {glob -types {abcd efgh} *} msg] $msg
  1515. } {1 {only one MacOS type or creator argument to "-types" allowed}}
  1516. test filename-11.30 {Tcl_GlobCmd} {
  1517.     list [catch {glob -types {{macintosh type TEXT} 
  1518.     {macintosh creator ALFA} efgh} *} msg] $msg
  1519. } {1 {only one MacOS type or creator argument to "-types" allowed}}
  1520. test filename-11.31 {Tcl_GlobCmd} {
  1521.     list [catch {glob -types} msg] $msg
  1522. } {1 {missing argument to "-types"}}
  1523. test filename-11.32 {Tcl_GlobCmd} {
  1524.     list [catch {glob -path hello -dir hello *} msg] $msg
  1525. } {1 {"-directory" cannot be used with "-path"}}
  1526. test filename-11.33 {Tcl_GlobCmd} {
  1527.     list [catch {glob -path} msg] $msg
  1528. } {1 {missing argument to "-path"}}
  1529. test filename-11.34 {Tcl_GlobCmd} {
  1530.     list [catch {glob -direct} msg] $msg
  1531. } {1 {missing argument to "-directory"}}
  1532. test filename-11.35 {Tcl_GlobCmd} {
  1533.     list [catch {glob -paths *} msg] $msg
  1534. } {1 {bad option "-paths": must be -directory, -join, -nocomplain, -path, -tails, -types, or --}}
  1535. # Test '-tails' flag to glob.
  1536. test filename-11.36 {Tcl_GlobCmd} {
  1537.     list [catch {glob -tails *} msg] $msg
  1538. } {1 {"-tails" must be used with either "-directory" or "-path"}}
  1539. test filename-11.37 {Tcl_GlobCmd} {
  1540.     list [catch {glob -type d -tails -path $globname *} msg] $msg
  1541. } [list 0 [list $globname]]
  1542. test filename-11.38 {Tcl_GlobCmd} {
  1543.     list [catch {glob -tails -path $globname *} msg] $msg
  1544. } [list 0 [list $globname]]
  1545. test filename-11.39 {Tcl_GlobCmd} {
  1546.     list [catch {glob -tails -join -path $globname *} msg] $msg
  1547. } [list 0 [list $globname]]
  1548. test filename-11.40 {Tcl_GlobCmd} {
  1549.     expr {[glob -dir [pwd] -tails *] == [glob *]}
  1550. } {1}
  1551. test filename-11.41 {Tcl_GlobCmd} {
  1552.     expr {[glob -dir [pwd] -tails *] != [glob -dir [pwd] *]}
  1553. } {1}
  1554. test filename-11.42 {Tcl_GlobCmd} {
  1555.     set res [list]
  1556.     foreach f [glob -dir [pwd] *] {
  1557. lappend res [file tail $f]
  1558.     }
  1559.     expr {$res == [glob *]}
  1560. } {1}
  1561. test filename-11.43 {Tcl_GlobCmd} {
  1562.     list [catch {glob -t *} msg] $msg
  1563. } {1 {ambiguous option "-t": must be -directory, -join, -nocomplain, -path, -tails, -types, or --}}
  1564. test filename-11.44 {Tcl_GlobCmd} {
  1565.     list [catch {glob -tails -path hello -directory hello *} msg] $msg
  1566. } {1 {"-directory" cannot be used with "-path"}}
  1567. test filename-11.45 {Tcl_GlobCmd on root volume} {
  1568.     set res1 ""
  1569.     set res2 ""
  1570.     catch {
  1571. set res1 [glob -dir [lindex [file volumes] 0] -tails *]
  1572.     }
  1573.     catch {
  1574. set tmpd [pwd]
  1575. cd [lindex [file volumes] 0]
  1576. set res2 [glob *]
  1577. cd $tmpd
  1578.     }
  1579.     expr {$res1 == $res2}
  1580. } {1}
  1581. test filename-11.46 {Tcl_GlobCmd} {
  1582.     list [catch {glob -types abcde -dir foo *} msg] $msg
  1583. } {1 {bad argument to "-types": abcde}}
  1584. test filename-11.47 {Tcl_GlobCmd} {
  1585.     list [catch {glob -types abcde -path foo *} msg] $msg
  1586. } {1 {bad argument to "-types": abcde}}
  1587. test filename-11.48 {Tcl_GlobCmd} {
  1588.     list [catch {glob -types abcde -dir foo -join * *} msg] $msg
  1589. } {1 {bad argument to "-types": abcde}}
  1590. test filename-11.49 {Tcl_GlobCmd} {
  1591.     list [catch {glob -types abcde -path foo -join * *} msg] $msg
  1592. } {1 {bad argument to "-types": abcde}}
  1594. file rename $horribleglobname globTest
  1595. set globname globTest
  1596. unset horribleglobname
  1598. test filename-12.1 {simple globbing} {unixOrPc} {
  1599.     list [catch {glob {}} msg] $msg
  1600. } {0 .}
  1601. test filename-12.1.1 {simple globbing} {unixOrPc} {
  1602.     list [catch {glob -types f {}} msg] $msg
  1603. } {1 {no files matched glob pattern ""}}
  1604. test filename-12.1.2 {simple globbing} {unixOrPc} {
  1605.     list [catch {glob -types d {}} msg] $msg
  1606. } {0 .}
  1607. test filename-12.1.3 {simple globbing} {unixOnly} {
  1608.     list [catch {glob -types hidden {}} msg] $msg
  1609. } {0 .}
  1610. test filename-12.1.4 {simple globbing} {pcOnly} {
  1611.     list [catch {glob -types hidden {}} msg] $msg
  1612. } {1 {no files matched glob pattern ""}}
  1613. test filename-12.1.5 {simple globbing} {pcOnly} {
  1614.     list [catch {glob -types hidden c:/} msg] $msg
  1615. } {1 {no files matched glob pattern "c:/"}}
  1616. test filename-12.1.6 {simple globbing} {pcOnly} {
  1617.     list [catch {glob c:/} msg] $msg
  1618. } {0 c:/}
  1619. test filename-12.2 {simple globbing} {macOnly} {
  1620.     list [catch {glob {}} msg] $msg
  1621. } {0 :}
  1622. test filename-12.2.1 {simple globbing} {macOnly} {
  1623.     list [catch {glob -types f {}} msg] $msg
  1624. } {1 {no files matched glob pattern ""}}
  1625. test filename-12.2.2 {simple globbing} {macOnly} {
  1626.     list [catch {glob -types d {}} msg] $msg
  1627. } {0 :}
  1628. test filename-12.2.3 {simple globbing} {macOnly} {
  1629.     list [catch {glob -types hidden {}} msg] $msg
  1630. } {1 {no files matched glob pattern ""}}
  1631. test filename-12.3 {simple globbing} {
  1632.     list [catch {glob -nocomplain {a1,a2}} msg] $msg
  1633. } {0 {}}
  1635. if {$tcl_platform(platform) == "macintosh"} {
  1636.     set globPreResult :globTest:
  1637. } else {
  1638.     set globPreResult globTest/
  1639. }
  1640. set x1 x1.c
  1641. set y1 y1.c
  1642. test filename-12.4 {simple globbing} {unixOrPc} {
  1643.     lsort [glob globTest/x1.c globTest/y1.c globTest/foo]
  1644. } "$globPreResult$x1 $globPreResult$y1"
  1645. test filename-12.5 {simple globbing} {
  1646.     list [catch {glob globTest\/x1.c} msg] $msg
  1647. } "0 $globPreResult$x1"
  1648. test filename-12.6 {simple globbing} {
  1649.     list [catch {glob globTest\/\x1.c} msg] $msg
  1650. } "0 $globPreResult$x1"
  1651. test filename-12.7 {globbing at filesystem root} {unixOnly} {
  1652.     set res1 [glob -nocomplain /*]
  1653.     set res2 [glob -path / *]
  1654.     set equal [string equal $res1 $res2]
  1655.     if {!$equal} {
  1656. lappend equal "not equal" $res1 $res2
  1657.     }
  1658.     set equal
  1659. } {1}
  1660. test filename-12.8 {globbing at filesystem root} {unixOnly} {
  1661.     set dir [lindex [glob -type d /*] 0]
  1662.     set first [string range $dir 0 1]
  1663.     set res1 [glob -nocomplain ${first}*]
  1664.     set res2 [glob -path $first *]
  1665.     set equal [string equal $res1 $res2]
  1666.     if {!$equal} {
  1667. lappend equal "not equal" $res1 $res2
  1668.     }
  1669.     set equal
  1670. } {1}
  1671. test filename-12.9 {globbing at filesystem root} {winOnly} {
  1672.     # Can't grab just anything from 'file volumes' because we need a dir
  1673.     # that has subdirs - assume that C:/ exists across Windows machines.
  1674.     set dir [lindex [glob -type d C:/*] 0]
  1675.     set first [string range $dir 0 3]
  1676.     set res1 [glob -nocomplain ${first}*]
  1677.     set res2 [glob -path $first *]
  1678.     set equal [string equal $res1 $res2]
  1679.     if {!$equal} {
  1680. lappend equal "not equal" $res1 $res2
  1681.     }
  1682.     set equal
  1683. } {1}
  1685. test filename-13.1 {globbing with brace substitution} {
  1686.     list [catch {glob globTest/{}} msg] $msg
  1687. } "0 $globPreResult"
  1688. test filename-13.2 {globbing with brace substitution} {
  1689.     list [catch {glob globTest/{} msg] $msg
  1690. } {1 {unmatched open-brace in file name}}
  1691. test filename-13.3 {globbing with brace substitution} {
  1692.     list [catch {glob globTest/{\}} msg] $msg
  1693. } {1 {unmatched open-brace in file name}}
  1694. test filename-13.4 {globbing with brace substitution} {
  1695.     list [catch {glob globTest/{\} msg] $msg
  1696. } {1 {unmatched open-brace in file name}}
  1697. test filename-13.5 {globbing with brace substitution} {
  1698.     list [catch {glob globTest/}} msg] $msg
  1699. } {1 {unmatched close-brace in file name}}
  1700. test filename-13.6 {globbing with brace substitution} {
  1701.     list [catch {glob globTest/{}x1.c} msg] $msg
  1702. } "0 $globPreResult$x1"
  1703. test filename-13.7 {globbing with brace substitution} {
  1704.     list [catch {glob globTest/{x}1.c} msg] $msg
  1705. } "0 $globPreResult$x1"
  1706. test filename-13.8 {globbing with brace substitution} {
  1707.     list [catch {glob globTest/{x{}}1.c} msg] $msg
  1708. } "0 $globPreResult$x1"
  1709. test filename-13.9 {globbing with brace substitution} {
  1710.     list [lsort [catch {glob globTest/{x,y}1.c} msg]] $msg
  1711. } [list 0 [list $globPreResult$x1 $globPreResult$y1]]
  1712. test filename-13.10 {globbing with brace substitution} {
  1713.     list [lsort [catch {glob globTest/{x,,y}1.c} msg]] $msg
  1714. } [list 0 [list $globPreResult$x1 $globPreResult$y1]]
  1715. test filename-13.11 {globbing with brace substitution} {unixOrPc} {
  1716.     list [lsort [catch {glob globTest/{x,x\,z,z}1.c} msg]] $msg
  1717. } {0 {globTest/x1.c globTest/x,z1.c globTest/z1.c}}
  1718. test filename-13.12 {globbing with brace substitution} {macOnly} {
  1719.     list [lsort [catch {glob globTest/{x,x\,z,z}1.c} msg]] $msg
  1720. } {0 {:globTest:x1.c :globTest:x,z1.c :globTest:z1.c}}
  1721. test filename-13.13 {globbing with brace substitution} {
  1722.     lsort [glob globTest/{a,b,x,y}1.c]
  1723. } [list $globPreResult$x1 $globPreResult$y1]
  1724. test filename-13.14 {globbing with brace substitution} {unixOrPc} {
  1725.     lsort [glob {globTest/{x1,y2,weird name}.c}]
  1726. } {{globTest/weird name.c} globTest/x1.c}
  1727. test filename-13.15 {globbing with brace substitution} {macOnly} {
  1728.     lsort [glob {globTest/{x1,y2,weird name}.c}]
  1729. } {{:globTest:weird name.c} :globTest:x1.c}
  1730. test filename-13.16 {globbing with brace substitution} {unixOrPc} {
  1731.     lsort [glob globTest/{x1.c,a1/*}]
  1732. } {globTest/a1/b1 globTest/a1/b2 globTest/x1.c}
  1733. test filename-13.17 {globbing with brace substitution} {macOnly} {
  1734.     lsort [glob globTest/{x1.c,a1/*}]
  1735. } {:globTest:a1:b1 :globTest:a1:b2 :globTest:x1.c}
  1736. test filename-13.18 {globbing with brace substitution} {unixOrPc} {
  1737.     lsort [glob globTest/{x1.c,{a},a1/*}]
  1738. } {globTest/a1/b1 globTest/a1/b2 globTest/x1.c}
  1739. test filename-13.19 {globbing with brace substitution} {macOnly} {
  1740.     lsort [glob globTest/{x1.c,{a},a1/*}]
  1741. } {:globTest:a1:b1 :globTest:a1:b2 :globTest:x1.c}
  1742. test filename-13.20 {globbing with brace substitution} {unixOrPc} {
  1743.     lsort [glob globTest/{a,x}1/*/{x,y}*]
  1744. } {globTest/a1/b1/x2.c globTest/a1/b2/y2.c}
  1745. test filename-13.21 {globbing with brace substitution} {macOnly} {
  1746.     lsort [glob globTest/{a,x}1/*/{x,y}*]
  1747. } {:globTest:a1:b1:x2.c :globTest:a1:b2:y2.c}
  1748. test filename-13.22 {globbing with brace substitution} {
  1749.     list [catch {glob globTest/{a,x}1/*/{} msg] $msg
  1750. } {1 {unmatched open-brace in file name}}
  1752. test filename-14.1 {asterisks, question marks, and brackets} {unixOrPc} {
  1753.     lsort [glob glo*/*.c]
  1754. } {{globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
  1755. test filename-14.2 {asterisks, question marks, and brackets} {macOnly} {
  1756.     lsort [glob glo*/*.c]
  1757. } {{:globTest:weird name.c} :globTest:x,z1.c :globTest:x1.c :globTest:y1.c :globTest:z1.c}
  1758. test filename-14.3 {asterisks, question marks, and brackets} {unixOrPc} {
  1759.     lsort [glob globTest/?1.c]
  1760. } {globTest/x1.c globTest/y1.c globTest/z1.c}
  1761. test filename-14.4 {asterisks, question marks, and brackets} {macOnly} {
  1762.     lsort [glob globTest/?1.c]
  1763. } {:globTest:x1.c :globTest:y1.c :globTest:z1.c}
  1765. # The current directory could be anywhere; do this to stop spurious matches
  1766. file mkdir globTestContext
  1767. file rename globTest [file join globTestContext globTest]
  1768. set savepwd [pwd]
  1769. cd globTestContext
  1771. test filename-14.5 {asterisks, question marks, and brackets} {unixOrPc} {
  1772.     lsort [glob */*/*/*.c]
  1773. } {globTest/a1/b1/x2.c globTest/a1/b2/y2.c}
  1774. test filename-14.6 {asterisks, question marks, and brackets} {macOnly} {
  1775.     lsort [glob */*/*/*.c]
  1776. } {:globTest:a1:b1:x2.c :globTest:a1:b2:y2.c}
  1778. # Reset to where we were
  1779. cd $savepwd
  1780. file rename [file join globTestContext globTest] globTest
  1781. file delete globTestContext
  1783. test filename-14.7 {asterisks, question marks, and brackets} {unixOnly} {
  1784.     lsort [glob globTest/*]
  1785. } {globTest/a1 globTest/a2 globTest/a3 {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
  1786. test filename-14.7.1 {asterisks, question marks, and brackets} {pcOnly} {
  1787.     lsort [glob globTest/*]
  1788. } {globTest/.1 globTest/a1 globTest/a2 globTest/a3 {globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}
  1789. test filename-14.8 {asterisks, question marks, and brackets} {macOnly} {
  1790.     lsort [glob globTest/*]
  1791. } {:globTest:.1 :globTest:a1 :globTest:a2 :globTest:a3 {:globTest:weird name.c} :globTest:x,z1.c :globTest:x1.c :globTest:y1.c :globTest:z1.c}
  1792. test filename-14.9 {asterisks, question marks, and brackets} {unixOrPc} {
  1793.     lsort [glob globTest/.*]
  1794. } {globTest/. globTest/.. globTest/.1}
  1795. test filename-14.10 {asterisks, question marks, and brackets} {macOnly} {
  1796.     lsort [glob globTest/.*]
  1797. } {:globTest:.1}
  1798. test filename-14.11 {asterisks, question marks, and brackets} {unixOrPc} {
  1799.     lsort [glob globTest/*/*]
  1800. } {globTest/a1/b1 globTest/a1/b2 globTest/a2/b3}
  1801. test filename-14.12 {asterisks, question marks, and brackets} {macOnly} {
  1802.     lsort [glob globTest/*/*]
  1803. } {:globTest:a1:b1 :globTest:a1:b2 :globTest:a2:b3}
  1804. test filename-14.13 {asterisks, question marks, and brackets} {unixOrPc} {
  1805.     lsort [glob {globTest/[xyab]1.*}]
  1806. } {globTest/x1.c globTest/y1.c}
  1807. test filename-14.14 {asterisks, question marks, and brackets} {macOnly} {
  1808.     lsort [glob {globTest/[xyab]1.*}]
  1809. } {:globTest:x1.c :globTest:y1.c}
  1810. test filename-14.15 {asterisks, question marks, and brackets} {unixOrPc} {
  1811.     lsort [glob globTest/*/]
  1812. } {globTest/a1/ globTest/a2/ globTest/a3/}
  1813. test filename-14.16 {asterisks, question marks, and brackets} {macOnly} {
  1814.     lsort [glob globTest/*/]
  1815. } {:globTest:a1: :globTest:a2: :globTest:a3:}
  1816. test filename-14.17 {asterisks, question marks, and brackets} {
  1817.     global env
  1818.     set temp $env(HOME)
  1819.     set env(HOME) [file join $env(HOME) globTest]
  1820.     set result [list [catch {glob ~/z*} msg] $msg]
  1821.     set env(HOME) $temp
  1822.     set result
  1823. } [list 0 [list [file join $env(HOME) globTest z1.c]]]
  1824. test filename-14.18 {asterisks, question marks, and brackets} {unixOrPc} {
  1825.     list [catch {lsort [glob globTest/*.c goo/*]} msg] $msg
  1826. } {0 {{globTest/weird name.c} globTest/x,z1.c globTest/x1.c globTest/y1.c globTest/z1.c}}
  1827. test filename-14.19 {asterisks, question marks, and brackets} {macOnly} {
  1828.     list [catch {lsort [glob globTest/*.c goo/*]} msg] $msg
  1829. } {0 {{:globTest:weird name.c} :globTest:x,z1.c :globTest:x1.c :globTest:y1.c :globTest:z1.c}}
  1830. test filename-14.20 {asterisks, question marks, and brackets} {
  1831.     list [catch {glob -nocomplain goo/*} msg] $msg
  1832. } {0 {}}
  1833. test filename-14.21 {asterisks, question marks, and brackets} {
  1834.     list [catch {glob globTest/*/gorp} msg] $msg
  1835. } {1 {no files matched glob pattern "globTest/*/gorp"}}
  1836. test filename-14.22 {asterisks, question marks, and brackets} {
  1837.     list [catch {glob goo/* x*z foo?q} msg] $msg
  1838. } {1 {no files matched glob patterns "goo/* x*z foo?q"}}
  1839. test filename-14.23 {slash globbing} {unixOrPc} {
  1840.     glob /
  1841. } /
  1842. test filename-14.24 {slash globbing} {pcOnly} {
  1843.     glob {\}
  1844. } /
  1845. test filename-14.25 {type specific globbing} {unixOnly} {
  1846.     list [catch {lsort [glob -dir globTest -types f *]} msg] $msg
  1847. } [list 0 [lsort [list 
  1848. [file join $globname "weird name.c"]
  1849. [file join $globname x,z1.c]
  1850. [file join $globname x1.c]
  1851. [file join $globname y1.c] [file join $globname z1.c]]]]
  1852. test filename-14.25.1 {type specific globbing} {pcOnly macOnly} {
  1853.     list [catch {lsort [glob -dir globTest -types f *]} msg] $msg
  1854. } [list 0 [lsort [list 
  1855.         [file join $globname .1]
  1856. [file join $globname "weird name.c"]
  1857. [file join $globname x,z1.c]
  1858. [file join $globname x1.c]
  1859. [file join $globname y1.c] [file join $globname z1.c]]]]
  1860. test filename-14.26 {type specific globbing} {
  1861.     list [catch {glob -nocomplain -dir globTest -types {readonly} *} msg] $msg
  1862. } [list 0 {}]
  1864. unset globname
  1866. # The following tests are only valid for Unix systems.
  1867. # On some systems, like AFS, "000" protection doesn't prevent
  1868. # access by owner, so the following test is not portable.
  1870. catch {file attributes globTest/a1 -permissions 0000}
  1871. test filename-15.1 {unix specific globbing} {unixOnly nonPortable} {
  1872.     string tolower [list [catch {glob globTest/a1/*} msg]  $msg $errorCode]
  1873. } {1 {couldn't read directory "globtest/a1": permission denied} {posix eacces {permission denied}}}
  1874. test filename-15.2 {unix specific no complain: no errors} {unixOnly nonPortable} {
  1875.     glob -nocomplain globTest/a1/*
  1876. } {}
  1877. test filename-15.3 {unix specific no complain: no errors, good result} 
  1878. {unixOnly nonPortable} {
  1879.     # test fails because if an error occur , the interp's result
  1880.     # is reset...
  1881.     glob -nocomplain globTest/a2 globTest/a1/* globTest/a3
  1882. } {globTest/a2 globTest/a3}
  1884. catch {file attributes globTest/a1 -permissions 0755}
  1885. test filename-15.4 {unix specific no complain: no errors, good result} 
  1886. {unixOnly nonPortable} {
  1887.     # test fails because if an error occurs, the interp's result
  1888.     # is reset... or you don't run at scriptics where the
  1889.     # outser and welch users exists
  1890.     glob -nocomplain ~ouster ~foo ~welch
  1891. } {/home/ouster /home/welch}
  1892. test filename-15.4.1 {no complain: no errors, good result} {
  1893.     # test used to fail because if an error occurs, the interp's result
  1894.     # is reset... 
  1895.     string equal [glob -nocomplain ~wontexist ~blah ~] 
  1896.       [glob -nocomplain ~ ~blah ~wontexist]
  1897. } {1}
  1898. test filename-15.5 {unix specific globbing} {unixOnly nonPortable} {
  1899.     glob ~ouster/.csh*
  1900. } "/home/ouster/.cshrc"
  1901. catch {close [open globTest/odd\[]*?{}name w]}
  1902. test filename-15.6 {unix specific globbing} {unixOnly} {
  1903.     global env
  1904.     set temp $env(HOME)
  1905.     set env(HOME) $env(HOME)/globTest/odd\[]*?{}name
  1906.     set result [list [catch {glob ~} msg] $msg]
  1907.     set env(HOME) $temp
  1908.     set result
  1909. } [list 0 [list [lindex [glob ~] 0]/globTest/odd\[]*?{}name]]
  1910. catch {file delete -force globTest/odd\[]*?{}name}
  1912. # The following tests are only valid for Windows systems.
  1913. set oldDir [pwd]
  1914. if {$::tcltest::testConstraints(pcOnly)} {
  1915.     cd c:/
  1916.     file delete -force globTest
  1917.     file mkdir globTest
  1918.     close [open globTest/x1.BAT w]
  1919.     close [open globTest/y1.Bat w]
  1920.     close [open globTest/z1.bat w]
  1921. }
  1923. test filename-16.1 {windows specific globbing} {pcOnly} {
  1924.     lsort [glob globTest/*.bat]
  1925. } {globTest/x1.BAT globTest/y1.Bat globTest/z1.bat}
  1926. test filename-16.2 {windows specific globbing} {pcOnly} {
  1927.     glob c:
  1928. } c:
  1929. test filename-16.3 {windows specific globbing} {pcOnly} {
  1930.     glob c:\\
  1931. } c:/
  1932. test filename-16.4 {windows specific globbing} {pcOnly} {
  1933.     glob c:/
  1934. } c:/
  1935. test filename-16.5 {windows specific globbing} {pcOnly} {
  1936.     glob c:*bTest
  1937. } c:globTest
  1938. test filename-16.6 {windows specific globbing} {pcOnly} {
  1939.     glob c:\\*bTest
  1940. } c:/globTest
  1941. test filename-16.7 {windows specific globbing} {pcOnly} {
  1942.     glob c:/*bTest
  1943. } c:/globTest
  1944. test filename-16.8 {windows specific globbing} {pcOnly} {
  1945.     lsort [glob c:globTest/*.bat]
  1946. } {c:globTest/x1.BAT c:globTest/y1.Bat c:globTest/z1.bat}
  1947. test filename-16.9 {windows specific globbing} {pcOnly} {
  1948.     lsort [glob c:/globTest/*.bat]
  1949. } {c:/globTest/x1.BAT c:/globTest/y1.Bat c:/globTest/z1.bat}
  1950. test filename-16.10 {windows specific globbing} {pcOnly} {
  1951.     lsort [glob c:globTest\\*.bat]
  1952. } {c:globTest/x1.BAT c:globTest/y1.Bat c:globTest/z1.bat}
  1953. test filename-16.11 {windows specific globbing} {pcOnly} {
  1954.     lsort [glob c:\\globTest\\*.bat]
  1955. } {c:/globTest/x1.BAT c:/globTest/y1.Bat c:/globTest/z1.bat}
  1957. # some tests require a shared C drive
  1959. if {[catch {cd //[info hostname]/c}]} {
  1960.     set ::tcltest::testConstraints(sharedCdrive) 0
  1961. } else {
  1962.     set ::tcltest::testConstraints(sharedCdrive) 1
  1963. }
  1965. test filename-16.12 {windows specific globbing} {pcOnly sharedCdrive} {
  1966.     cd //[info hostname]/c
  1967.     glob //[info hostname]/c/*Test
  1968. } //[info hostname]/c/globTest
  1969. test filename-16.13 {windows specific globbing} {pcOnly sharedCdrive} {
  1970.     cd //[info hostname]/c
  1971.     glob "\\\\[info hostname]\\c\\*Test"
  1972. } //[info hostname]/c/globTest
  1973. test filename-16.14 {windows specific globbing} {pcOnly} {
  1974.     cd [lindex [glob -types d -dir C:/ *] 0]
  1975.     expr {[lsearch -exact [glob {{.,*}*}] ".."] != -1}
  1976. } {1}
  1977. test filename-16.15 {windows specific globbing} {pcOnly} {
  1978.     cd [lindex [glob -types d -dir C:/ *] 0]
  1979.     glob ..
  1980. } {..}
  1981. test filename-16.16 {windows specific globbing} {pcOnly} {
  1982.     file tail [lindex [glob "[lindex [glob -types d -dir C:/ *] 0]/.."] 0]
  1983. } {..}
  1985. test filename-17.1 {windows specific special files} {testsetplatform} {
  1986.     testsetplatform win
  1987.     list [file pathtype com1] [file pathtype con] [file pathtype lpt3] 
  1988.       [file pathtype prn] [file pathtype nul] [file pathtype aux] 
  1989.       [file pathtype foo]
  1990. } {absolute absolute absolute absolute absolute absolute relative}
  1992. test filename-17.2 {windows specific glob with executable} {winOnly} {
  1993.     makeDirectory execglob
  1994.     makeFile contents execglob/abc.exe
  1995.     makeFile contents execglob/abc.notexecutable
  1996.     set res [glob -nocomplain -dir [temporaryDirectory]/execglob 
  1997.       -tails -types x *]
  1998.     removeFile execglob/abc.exe
  1999.     removeFile execglob/abc.notexecutable
  2000.     removeDirectory execglob
  2001.     set res
  2002. } {abc.exe}
  2004. test fileName-18.1 {windows - split ADS name correctly} {winOnly} {
  2005.     # bug 1194458
  2006.     set x [file split c:/c:d]
  2007.     set y [eval [linsert $x 0 file join]]
  2008.     list $x $y
  2009. } {{c:/ ./c:d} c:/c:d}
  2011. # cleanup
  2012. catch {file delete -force C:/globTest}
  2013. cd [temporaryDirectory]
  2014. file delete -force globTest
  2015. cd $oldpwd
  2016. set env(HOME) $oldhome
  2017. if {[tcltest::testConstraint testsetplatform]} {
  2018.     testsetplatform $platform
  2019.     catch {unset platform}
  2020. }
  2021. catch {unset oldhome temp result globPreResult}
  2022. ::tcltest::cleanupTests
  2023. return