Tcl Library Source Code

Changes On Branch rc-test-snit-fixes
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch rc-test-snit-fixes Excluding Merge-Ins

This is equivalent to a diff from 1dc169f990 to 49bd682f8b

2015-04-14
20:51
snit - Merge test fix to release. check-in: adf870419e user: aku tags: tcllib-1-17-rc
20:44
struct::pool - Merge fix to release. Bump version to 1.2.3. check-in: a4e99fce81 user: aku tags: tcllib-1-17-rc
20:33
Fix (handle) 8.5/8.6 output variance in the snit2 tests. Retest. Closed-Leaf check-in: 49bd682f8b user: andreask tags: rc-test-snit-fixes
20:26
Fix (handle) 8.5/8.6 output variance in the struct::set tests. Retest. Closed-Leaf check-in: e42c6f286b user: andreask tags: rc-test-struct-set-fixes
20:06
Fix (handle) 8.5/8.6 output variance in the uevent tests. Retest. Closed-Leaf check-in: bb02043cd1 user: andreask tags: rc-test-uevent-fixes
19:50
Fix (handle) 8.5/8.6 output variance in the clock tests. Retest. Closed-Leaf check-in: 80acadb004 user: andreask tags: rc-test-clock-fixes
19:10
Ticket [624f2300ab]. Fix struct::pool Tcl 8.4 compat. Retest. check-in: 7774dcaf1d user: andreask tags: rc-test-fixes
06:56
Updated README check-in: 1dc169f990 user: aku tags: tcllib-1-17-rc
06:36
Updated README check-in: 39f14ee444 user: aku tags: tcllib-1-17-rc

Changes to modules/snit/snit.test.

765
766
767
768
769
770
771
772

















773
774
775
776
777
778
779
780
781
782
783

784
785
786

787
788
789
790
791
792
793
765
766
767
768
769
770
771

772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798

799
800
801

802
803
804
805
806
807
808
809







-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+










-
+


-
+







    dog foo bar
} -constraints {
    snit1
} -returnCodes {
    error
} -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}

test dtypemethod-1.6a {delegating unknown typemethod to existing typecomponent with error} -body {
test dtypemethod-1.6a.0 {delegating unknown typemethod to existing typecomponent with error} -body {
    type dog {
        delegate typemethod * to stringhandler

        typeconstructor {
            set stringhandler string
        }
    }

    dog foo bar
} -constraints {
    snit2 tcl8.5minus
} -returnCodes {
    error
} -result {unknown or ambiguous subcommand "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}

test dtypemethod-1.6a.1 {delegating unknown typemethod to existing typecomponent with error} -body {
    type dog {
        delegate typemethod * to stringhandler

        typeconstructor {
            set stringhandler string
        }
    }

    dog foo bar
} -constraints {
    snit2
    snit2 tcl8.6plus
} -returnCodes {
    error
} -result {unknown or ambiguous subcommand "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}
} -result {unknown or ambiguous subcommand "foo": must be bytelength, cat, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}

test dtypemethod-1.7 {can't delegate local typemethod: order 1} -body {
    type dog {
        typemethod foo {} {}
        delegate typemethod foo to bar
    }
} -returnCodes {
3318
3319
3320
3321
3322
3323
3324
3325




















3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337

3338
3339
3340
3341
3342

3343
3344
3345
3346
3347
3348
3349
3334
3335
3336
3337
3338
3339
3340

3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371

3372
3373
3374
3375
3376

3377
3378
3379
3380
3381
3382
3383
3384







-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+











-
+




-
+







    snit1
} -returnCodes {
    error
} -cleanup {
    dog destroy
} -result {bad option "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart}

test dmethod-1.6a {delegating unknown method to existing component with error} -body {
test dmethod-1.6a.0 {delegating unknown method to existing component with error} -body {
    type dog {
        constructor {args} {
            set stringhandler string
        }

        delegate method * to stringhandler
    }

    dog create spot
    spot foo bar
} -constraints {
    snit2 tcl8.5minus
} -returnCodes {
    error
} -cleanup {
    dog destroy
} -result {unknown or ambiguous subcommand "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}

test dmethod-1.6a.1 {delegating unknown method to existing component with error} -body {
    type dog {
        constructor {args} {
            set stringhandler string
        }

        delegate method * to stringhandler
    }

    dog create spot
    spot foo bar
} -constraints {
    snit2
    snit2 tcl8.6plus
} -returnCodes {
    error
} -cleanup {
    dog destroy
} -result {unknown or ambiguous subcommand "foo": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}
} -result {unknown or ambiguous subcommand "foo": must be bytelength, cat, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}

test dmethod-1.7 {can't delegate local method: order 1} -body {
    type cat {
        method foo {} {}
        delegate method foo to hull
    }
} -returnCodes {