1 source [file dirname [info script]]/testing.tcl
5 test join-1.1 "One name" {
9 test join-1.2 "One name with trailing slash" {
13 test join-1.3 "One name with leading slash" {
17 test join-1.4 "One name with leading and trailing slash" {
21 test join-1.5 "Two names" {
25 test join-1.6 "Two names with dir trailing slash" {
29 test join-1.7 "Two names with dir leading slash" {
33 test join-1.8 "Two names with dir leading and trailing slash" {
37 test join-1.9 "Two names with file trailing slash" {
41 test join-1.10 "Two names with file leading slash" {
45 test join-1.11 "Two names with file leading and trailing slash" {
49 test join-1.12 "Two names with double slashes" {
53 test join-1.13 "Join to root" {
57 test join-1.14 "Join to root" {
58 set dir [file join / .]
59 # Either / or /. is OK here
63 test join-1.15 "Join to root" {
67 test join-1.16 "Join to root" {
71 test join-2.1 "Dir is empty string" {
75 test join-2.2 "File is empty string" {
79 test join-2.3 "Path too long" jim {
80 set components [string repeat {abcdefghi } 500]
81 list [catch [concat file join $components] msg] $msg