Artifact
8bafe1ef3d99ac394d56c8ed41fe7b2c208666f9:
Attachment "test.tcl" to
ticket [3437641fff]
added by
maxjarek
2011-11-15 16:42:06.
set iban "
AD1200012030200359100100
AE070331234567890123456
AL47212110090000000235698741
AT611904300234573201
BA391290079401028494
BE68539007547034
BG80BNBG96611020345678
BH67BMAG00001299123456
CH9300762011623852957
CY17002001280000001200527600
CZ6508000000192000145399
DE89370400440532013000
DK5000400440116243
DO28BAGR00000001212453611324
EE382200221020145685
ES9121000418450200051332
FI2112345600000785
FO6264600001631634
FR1420041010050500013M02606
GB29NWBK60161331926819
GE29NB0000000101904917
GI75NWBK000000007099453
GL8964710001000206
GR1601101250000000012300695
HR1210010051863000160
HU42117730161111101800000000
IE29AIBK93115212345678
IL620108000000099999999
IS140159260076545510730339
IT60X0542811101000000123456
KW81CBKU0000000000001234560101
KZ86125KZT5004100100
LB62099900000001001901229114
LI21088100002324013AA
LT121000011101001000
LU280019400644750000
LV80BANK0000435195001
MC5811222000010123456789030
ME25505000012345678951
MK07250120000058984
MR1300020001010000123456753
MT84MALT011000012345MTLCAST001S
MU17BOMM0101101030300200000MUR
NL91ABNA0417164300
NO9386011117947
PL27114020040000300201355387
PT50000201231234567890154
RO49AAAA1B31007593840000
RS35260005601001611379
SA0380000000608010167519
SE4550000000058398257466
SI56191000000123438
SK3112000000198742637541
SM86U0322509800000000270100
TN5914207207100707129648
TR330006100519786457841326
PL78102030170000270200618694
PL26105014451000002276470461
PL67114020040000310200082366
FR7611008000010004126302470
FR1420041010050500013M02606
GB29NWBK60161331926819
IT60X0542811101000000123456
"
source valtype::iban.tcl
foreach i $iban {
puts "Iban: $i -> [catch {valtype::iban validate $i}]"
}
