← Back to branch summary

~peter-pearse/ubuntu/natty/tcl8.5/prop001

« back to all changes in this revision

Viewing changes to tests/winFCmd.test

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-11-22 14:23:53 UTC
  • mfrom: (10.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20091122142353-a0awlv6cays5y50f
Tags: 8.5.8-2
Fixed building on MIPS architectures. The upstream changes in 8.5.8
include changing FPU settings which isn't possible in Debian GNU/Linux
(and isn't required also).

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/winFCmd.test
10
10
# See the file "license.terms" for information on usage and redistribution
11
11
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12
12
#
13
 
# RCS: @(#) $Id: winFCmd.test,v 1.42 2007/02/20 15:36:47 patthoyts Exp $
 
13
# RCS: @(#) $Id: winFCmd.test,v 1.42.4.1 2009/11/11 23:46:09 patthoyts Exp $
14
14
#
15
15
 
16
16
if {[lsearch [namespace children] ::tcltest] == -1} {
546
546
    cleanup
547
547
    file mkdir td1
548
548
    testchmod 000 td1
549
 
    testfile rmdir td1
550
 
    file exists td1
 
549
    catch {
 
550
        testfile rmdir td1
 
551
        file exists td1
 
552
    } r
 
553
    catch {
 
554
        testchmod 777 td1
 
555
        cleanup
 
556
    }
 
557
    set r
551
558
} {0}
552
559
test winFCmd-6.2 {TclpRemoveDirectory: errno: EEXIST} {win testfile} {
553
560
    cleanup
586
593
    cleanup
587
594
    file mkdir td1
588
595
    testchmod 000 td1
589
 
    testfile rmdir td1
590
 
    file exists td1
 
596
    catch {
 
597
        testfile rmdir td1
 
598
        file exists td1
 
599
    } r
 
600
    catch {
 
601
        testchmod 777 td1
 
602
        cleanup
 
603
    }
 
604
    set r
591
605
} {0}
592
606
test winFCmd-6.10 {TclpRemoveDirectory: attr == -1} {win 95 testfile} {
593
607
    cleanup
612
626
    cleanup
613
627
    file mkdir td1
614
628
    testchmod 000 td1
615
 
    testfile rmdir td1
616
 
    file exists td1
 
629
    catch {
 
630
        testfile rmdir td1
 
631
        file exists td1
 
632
    } r
 
633
    catch {
 
634
        testchmod 777 td1
 
635
        cleanup
 
636
    }
 
637
    set r
617
638
} {0}
618
639
test winFCmd-6.14 {TclpRemoveDirectory: check if empty dir} {win 95 testfile} {
619
640
    cleanup
700
721
    file mkdir td1
701
722
    createfile td1/tf1 tf1
702
723
    testchmod 000 td1
703
 
    testfile cpdir td1 td2
704
 
    list [file exists td2] [file writable td2]
 
724
    catch {
 
725
        testfile cpdir td1 td2
 
726
        list [file exists td2] [file writable td2]
 
727
    } r
 
728
    catch {
 
729
        testchmod 777 td1
 
730
        cleanup
 
731
    }
 
732
    set r
705
733
} {1 1}
706
734
test winFCmd-7.12 {TraverseWinTree: call TraversalDelete: DOTREE_PRED} {win testfile} {
707
735
    cleanup
756
784
    file mkdir td1
757
785
    createfile td1/tf1 tf1
758
786
    testchmod 000 td1
759
 
    testfile cpdir td1 td2
760
 
    list [file exists td2] [file writable td2]
 
787
    catch {
 
788
        testfile cpdir td1 td2
 
789
        list [file exists td2] [file writable td2]
 
790
    } r
 
791
    catch {
 
792
        testchmod 777 td1
 
793
        cleanup
 
794
    }
 
795
    set r
761
796
} {1 1}
762
797
test winFCmd-7.20 {TraverseWinTree: call TraversalDelete: DOTREE_POSTD} \
763
798
        {win testfile} {
781
816
    cleanup
782
817
    file mkdir td1/td2
783
818
    testchmod 000 td1
784
 
    testfile cpdir td1 td2
785
 
    list [file writable td1] [file writable td1/td2]
 
819
    catch {
 
820
        testfile cpdir td1 td2
 
821
        list [file writable td1] [file writable td1/td2]
 
822
    } r
 
823
    catch {
 
824
        testchmod 777 td1
 
825
        cleanup
 
826
    }
 
827
    set r
786
828
} {0 1}
787
829
test winFCmd-8.3 {TraversalCopy: DOTREE_POSTD} {win testfile} {
788
830
    cleanup
808
850
    cleanup
809
851
    file mkdir td1/td2
810
852
    testchmod 000 td1
811
 
    testfile rmdir -force td1
812
 
    file exists td1
 
853
    catch {
 
854
        testfile rmdir -force td1
 
855
        file exists td1
 
856
    } r
 
857
    catch {
 
858
        testchmod 777 td1
 
859
        cleanup
 
860
    }
 
861
    set r
813
862
} {0}
814
863
test winFCmd-9.4 {TraversalDelete: DOTREE_POSTD} {win testfile} {
815
864
    cleanup