Artifact
2acf128e57ceae56846c272a43ac18176f3e9bcb:
Attachment "msgcat.test.diff" to
ticket [3544988fff]
added by
oehhar
2012-09-05 19:26:12.
0000: 2d 2d 2d 20 43 3a 2f 74 65 73 74 2f 74 63 6c 38 --- C:/test/tcl8
0010: 2e 36 62 32 2f 74 65 73 74 73 2f 6d 73 67 63 61 .6b2/tests/msgca
0020: 74 2e 74 65 73 74 2d 6f 72 69 09 4d 6f 6e 20 41 t.test-ori.Mon A
0030: 75 67 20 32 37 20 31 37 3a 32 34 3a 35 34 20 32 ug 27 17:24:54 2
0040: 30 31 32 0d 0a 2b 2b 2b 20 43 3a 2f 74 65 73 74 012..+++ C:/test
0050: 2f 74 63 6c 38 2e 36 62 32 2f 74 65 73 74 73 2f /tcl8.6b2/tests/
0060: 6d 73 67 63 61 74 2e 74 65 73 74 09 57 65 64 20 msgcat.test.Wed
0070: 53 65 70 20 30 35 20 31 34 3a 32 34 3a 32 39 20 Sep 05 14:24:29
0080: 32 30 31 32 0d 0a 40 40 20 2d 31 37 2c 38 20 2b 2012..@@ -17,8 +
0090: 31 37 2c 38 20 40 40 0d 0a 20 20 20 20 20 70 75 17,8 @@.. pu
00a0: 74 73 20 73 74 64 65 72 72 20 22 53 6b 69 70 70 ts stderr "Skipp
00b0: 69 6e 67 20 74 65 73 74 73 20 69 6e 20 5b 69 6e ing tests in [in
00c0: 66 6f 20 73 63 72 69 70 74 5d 2e 20 20 74 63 6c fo script]. tcl
00d0: 74 65 73 74 20 32 20 72 65 71 75 69 72 65 64 2e test 2 required.
00e0: 22 0d 0a 20 20 20 20 20 72 65 74 75 72 6e 0d 0a ".. return..
00f0: 20 7d 0d 0a 2d 69 66 20 7b 5b 63 61 74 63 68 20 }..-if {[catch
0100: 7b 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 {package require
0110: 20 6d 73 67 63 61 74 20 31 2e 34 2e 35 7d 5d 7d msgcat 1.4.5}]}
0120: 20 7b 0d 0a 2d 20 20 20 20 70 75 74 73 20 73 74 {..- puts st
0130: 64 65 72 72 20 22 53 6b 69 70 70 69 6e 67 20 74 derr "Skipping t
0140: 65 73 74 73 20 69 6e 20 5b 69 6e 66 6f 20 73 63 ests in [info sc
0150: 72 69 70 74 5d 2e 20 20 4e 6f 20 6d 73 67 63 61 ript]. No msgca
0160: 74 20 31 2e 34 2e 35 20 66 6f 75 6e 64 20 74 6f t 1.4.5 found to
0170: 20 74 65 73 74 2e 22 0d 0a 2b 69 66 20 7b 5b 63 test."..+if {[c
0180: 61 74 63 68 20 7b 70 61 63 6b 61 67 65 20 72 65 atch {package re
0190: 71 75 69 72 65 20 6d 73 67 63 61 74 20 31 2e 35 quire msgcat 1.5
01a0: 2e 30 7d 5d 7d 20 7b 0d 0a 2b 20 20 20 20 70 75 .0}]} {..+ pu
01b0: 74 73 20 73 74 64 65 72 72 20 22 53 6b 69 70 70 ts stderr "Skipp
01c0: 69 6e 67 20 74 65 73 74 73 20 69 6e 20 5b 69 6e ing tests in [in
01d0: 66 6f 20 73 63 72 69 70 74 5d 2e 20 20 4e 6f 20 fo script]. No
01e0: 6d 73 67 63 61 74 20 31 2e 35 2e 30 20 66 6f 75 msgcat 1.5.0 fou
01f0: 6e 64 20 74 6f 20 74 65 73 74 2e 22 0d 0a 20 20 nd to test."..
0200: 20 20 20 72 65 74 75 72 6e 0d 0a 20 7d 0d 0a 20 return.. }..
0210: 0d 0a 40 40 20 2d 36 31 31 2c 37 20 2b 36 31 31 ..@@ -611,7 +611
0220: 2c 34 38 20 40 40 0d 0a 20 09 6d 63 20 22 74 68 ,48 @@.. .mc "th
0230: 69 73 20 69 73 20 61 20 25 73 22 20 22 67 6f 6f is is a %s" "goo
0240: 64 20 74 65 73 74 22 0d 0a 20 20 20 20 20 7d 20 d test".. }
0250: 2d 72 65 73 75 6c 74 20 22 74 68 69 73 20 69 73 -result "this is
0260: 20 61 20 67 6f 6f 64 20 74 65 73 74 22 0d 0a 20 a good test"..
0270: 0d 0a 2b 20 20 20 20 23 20 54 65 73 74 73 20 6d ..+ # Tests m
0280: 73 67 63 61 74 2d 38 2e 2a 3a 20 5b 6d 63 66 6c sgcat-8.*: [mcfl
0290: 73 65 74 5d 0d 0a 2b 0d 0a 2b 20 20 20 20 73 65 set]..+..+ se
02a0: 74 20 6d 73 67 64 69 72 31 20 5b 6d 61 6b 65 44 t msgdir1 [makeD
02b0: 69 72 65 63 74 6f 72 79 20 6d 73 67 64 69 72 31 irectory msgdir1
02c0: 5d 0d 0a 2b 20 20 20 20 6d 61 6b 65 46 69 6c 65 ]..+ makeFile
02d0: 20 7b 3a 3a 6d 73 67 63 61 74 3a 3a 6d 63 66 6c {::msgcat::mcfl
02e0: 73 65 74 20 6b 31 20 76 31 7d 20 6c 31 2e 6d 73 set k1 v1} l1.ms
02f0: 67 20 24 6d 73 67 64 69 72 31 0d 0a 2b 0d 0a 2b g $msgdir1..+..+
0300: 09 74 65 73 74 20 6d 73 67 63 61 74 2d 38 2e 31 .test msgcat-8.1
0310: 20 7b 6d 63 66 6c 73 65 74 7d 20 2d 73 65 74 75 {mcflset} -setu
0320: 70 20 7b 0d 0a 2b 09 20 20 20 20 76 61 72 69 61 p {..+. varia
0330: 62 6c 65 20 6c 6f 63 61 6c 65 20 5b 6d 63 6c 6f ble locale [mclo
0340: 63 61 6c 65 5d 0d 0a 2b 09 20 20 20 20 6d 63 6c cale]..+. mcl
0350: 6f 63 61 6c 65 20 6c 31 0d 0a 2b 09 20 20 20 20 ocale l1..+.
0360: 6d 63 6c 6f 61 64 20 24 6d 73 67 64 69 72 31 0d mcload $msgdir1.
0370: 0a 2b 09 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d .+.} -cleanup {.
0380: 0a 2b 09 20 20 20 20 6d 63 6c 6f 63 61 6c 65 20 .+. mclocale
0390: 24 6c 6f 63 61 6c 65 0d 0a 2b 09 7d 20 2d 62 6f $locale..+.} -bo
03a0: 64 79 20 7b 0d 0a 2b 09 20 20 20 20 6d 63 20 6b dy {..+. mc k
03b0: 31 0d 0a 2b 09 7d 20 2d 72 65 73 75 6c 74 20 76 1..+.} -result v
03c0: 31 0d 0a 2b 0d 0a 2b 20 20 20 20 72 65 6d 6f 76 1..+..+ remov
03d0: 65 46 69 6c 65 20 6c 31 2e 6d 73 67 20 24 6d 73 eFile l1.msg $ms
03e0: 67 64 69 72 31 0d 0a 2b 20 20 20 20 72 65 6d 6f gdir1..+ remo
03f0: 76 65 44 69 72 65 63 74 6f 72 79 20 6d 73 67 64 veDirectory msgd
0400: 69 72 31 0d 0a 2b 0d 0a 2b 20 20 20 20 73 65 74 ir1..+..+ set
0410: 20 6d 73 67 64 69 72 32 20 5b 6d 61 6b 65 44 69 msgdir2 [makeDi
0420: 72 65 63 74 6f 72 79 20 6d 73 67 64 69 72 32 5d rectory msgdir2]
0430: 0d 0a 2b 20 20 20 20 73 65 74 20 6d 73 67 64 69 ..+ set msgdi
0440: 72 33 20 5b 6d 61 6b 65 44 69 72 65 63 74 6f 72 r3 [makeDirector
0450: 79 20 6d 73 67 64 69 72 33 5d 0d 0a 2b 20 20 20 y msgdir3]..+
0460: 20 6d 61 6b 65 46 69 6c 65 20 22 3a 3a 6d 73 67 makeFile "::msg
0470: 63 61 74 3a 3a 6d 63 66 6c 73 65 74 20 6b 32 20 cat::mcflset k2
0480: 76 32 20 3b 20 3a 3a 6d 73 67 63 61 74 3a 3a 6d v2 ; ::msgcat::m
0490: 63 6c 6f 61 64 20 5b 6c 69 73 74 20 24 6d 73 67 cload [list $msg
04a0: 64 69 72 33 5d 22 5c 0d 0a 2b 09 20 20 20 20 6c dir3]"\..+. l
04b0: 32 2e 6d 73 67 20 24 6d 73 67 64 69 72 32 0d 0a 2.msg $msgdir2..
04c0: 2b 20 20 20 20 6d 61 6b 65 46 69 6c 65 20 7b 3a + makeFile {:
04d0: 3a 6d 73 67 63 61 74 3a 3a 6d 63 66 6c 73 65 74 :msgcat::mcflset
04e0: 20 6b 33 20 76 33 7d 20 6c 32 2e 6d 73 67 20 24 k3 v3} l2.msg $
04f0: 6d 73 67 64 69 72 33 0d 0a 2b 0d 0a 2b 09 23 20 msgdir3..+..+.#
0500: 63 68 61 69 6e 65 64 20 6d 63 6c 6f 61 64 0d 0a chained mcload..
0510: 2b 09 74 65 73 74 20 6d 73 67 63 61 74 2d 38 2e +.test msgcat-8.
0520: 32 20 7b 6d 63 66 6c 73 65 74 7d 20 2d 73 65 74 2 {mcflset} -set
0530: 75 70 20 7b 0d 0a 2b 09 20 20 20 20 76 61 72 69 up {..+. vari
0540: 61 62 6c 65 20 6c 6f 63 61 6c 65 20 5b 6d 63 6c able locale [mcl
0550: 6f 63 61 6c 65 5d 0d 0a 2b 09 20 20 20 20 6d 63 ocale]..+. mc
0560: 6c 6f 63 61 6c 65 20 6c 32 0d 0a 2b 09 20 20 20 locale l2..+.
0570: 20 6d 63 6c 6f 61 64 20 24 6d 73 67 64 69 72 32 mcload $msgdir2
0580: 0d 0a 2b 09 7d 20 2d 63 6c 65 61 6e 75 70 20 7b ..+.} -cleanup {
0590: 0d 0a 2b 09 20 20 20 20 6d 63 6c 6f 63 61 6c 65 ..+. mclocale
05a0: 20 24 6c 6f 63 61 6c 65 0d 0a 2b 09 7d 20 2d 62 $locale..+.} -b
05b0: 6f 64 79 20 7b 0d 0a 2b 09 20 20 20 20 72 65 74 ody {..+. ret
05c0: 75 72 6e 20 5b 6d 63 20 6b 32 5d 5b 6d 63 20 6b urn [mc k2][mc k
05d0: 33 5d 0d 0a 2b 09 7d 20 2d 72 65 73 75 6c 74 20 3]..+.} -result
05e0: 76 32 76 33 0d 0a 2b 0d 0a 2b 20 20 20 20 23 72 v2v3..+..+ #r
05f0: 65 6d 6f 76 65 46 69 6c 65 20 6c 32 2e 6d 73 67 emoveFile l2.msg
0600: 20 24 6d 73 67 64 69 72 32 0d 0a 2b 20 20 20 20 $msgdir2..+
0610: 23 72 65 6d 6f 76 65 44 69 72 65 63 74 6f 72 79 #removeDirectory
0620: 20 6d 73 67 64 69 72 32 0d 0a 2b 20 20 20 20 72 msgdir2..+ r
0630: 65 6d 6f 76 65 46 69 6c 65 20 6c 33 2e 6d 73 67 emoveFile l3.msg
0640: 20 24 6d 73 67 64 69 72 33 0d 0a 2b 20 20 20 20 $msgdir3..+
0650: 72 65 6d 6f 76 65 44 69 72 65 63 74 6f 72 79 20 removeDirectory
0660: 6d 73 67 64 69 72 33 0d 0a 2b 0d 0a 20 20 20 20 msgdir3..+..
0670: 20 63 6c 65 61 6e 75 70 54 65 73 74 73 0d 0a 2b cleanupTests..+
0680: 0d 0a 20 7d 0d 0a 20 6e 61 6d 65 73 70 61 63 65 .. }.. namespace
0690: 20 64 65 6c 65 74 65 20 3a 3a 6d 73 67 63 61 74 delete ::msgcat
06a0: 3a 3a 74 65 73 74 0d 0a 20 72 65 74 75 72 6e 0d ::test.. return.
06b0: 0a .
