← Back to branch summary

~ubuntu-branches/ubuntu/raring/tcl8.5/raring

« back to all changes in this revision

Viewing changes to tests/fCmd.test

  • Committer: Package Import Robot
  • Author(s): Colin Watson
  • Date: 2011-12-20 18:16:54 UTC
  • mfrom: (11.2.3 sid)
  • Revision ID: package-import@ubuntu.com-20111220181654-ucrvquqz66e1dv80
Tags: 8.5.11-1ubuntu1
* Resynchronise with Debian.  Remaining changes:
  - Don't use tcl itself to install things when building, to allow for
    cross-building.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/fCmd.test
750
750
    file rename tf2 tf4
751
751
    list [lsort [glob tf*]] [file writable tf3] [file writable tf4]
752
752
} -result {{tf3 tf4} 1 0}
753
 
test fCmd-9.4 {file rename: comprehensive: dir to new name} -setup {
754
 
    cleanup
755
 
} -constraints {unixOrPc notRoot testchmod notDarwin9 win2000orXP} -body {
 
753
test fCmd-9.4.a {file rename: comprehensive: dir to new name} -setup {
 
754
    cleanup
 
755
} -constraints {testchmod win2000orXP} -body {
 
756
    file mkdir td1 td2
 
757
    testchmod 555 td2
 
758
    file rename td1 td3
 
759
    file rename td2 td4
 
760
    list [lsort [glob td*]] [file writable td3] [file writable td4]
 
761
} -cleanup {
 
762
    cleanup
 
763
} -result {{td3 td4} 1 0}
 
764
test fCmd-9.4.b {file rename: comprehensive: dir to new name} -setup {
 
765
    cleanup
 
766
} -constraints {unix notRoot testchmod notDarwin9} -body {
756
767
    file mkdir td1 td2
757
768
    testchmod 555 td2
758
769
    file rename td1 td3
770
781
    file rename -force tf2 tf2
771
782
    list [contents tf1] [contents tf2] [file writable tf1] [file writable tf2]
772
783
} {tf1 tf2 1 0}
773
 
test fCmd-9.6 {file rename: comprehensive: dir to self} -setup {
774
 
    cleanup
775
 
} -constraints {notRoot unixOrPc testchmod win2000orXP} -body {
 
784
test fCmd-9.6.a {file rename: comprehensive: dir to self} -setup {
 
785
    cleanup
 
786
} -constraints {testchmod win2000orXP} -body {
 
787
    file mkdir td1
 
788
    file mkdir td2
 
789
    testchmod 555 td2
 
790
    file rename -force td1 .
 
791
    file rename -force td2 .
 
792
    list [lsort [glob td*]] [file writable td1] [file writable td2]
 
793
} -result {{td1 td2} 1 0}
 
794
test fCmd-9.6.b {file rename: comprehensive: dir to self} -setup {
 
795
    cleanup
 
796
} -constraints {notRoot unix testchmod} -body {
776
797
    file mkdir td1
777
798
    file mkdir td2
778
799
    testchmod 555 td2
976
997
} {{tf1 tf2 tf3 tf4} tf1 tf2 1 0}
977
998
test fCmd-10.3 {file copy: comprehensive: dir to new name} -setup {
978
999
    cleanup
979
 
} -constraints {notRoot unixOrPc 95or98 testchmod} -body {
 
1000
} -constraints {notRoot unix testchmod} -body {
980
1001
    file mkdir [file join td1 tdx]
981
1002
    file mkdir [file join td2 tdy]
982
1003
    testchmod 555 td2
1077
1098
} -result [subst {{tf1 tf2} {[file join td1 tf3] [file join td1 tf4]} 1 0}]
1078
1099
test fCmd-10.8 {file rename: comprehensive: dir to new name and dir} -setup {
1079
1100
    cleanup
1080
 
} -constraints {notRoot unixOrPc 95or98 testchmod} -body {
 
1101
} -constraints {notRoot unix testchmod} -body {
1081
1102
    file mkdir td1
1082
1103
    file mkdir td2
1083
1104
    file mkdir td3