1N/A#----------------------------------------------------------------------- 1N/A# This is an array of tests specs. Each spec is [TEST, OK_TO_DIE] 1N/A# Each TEST is eval'd as an expression. 1N/A# If it evaluates to FALSE, then "not ok N" is printed for the test, 1N/A# otherwise "ok N". If the eval dies, then the OK_TO_DIE flag is checked. 1N/A# If it is true (1), the test is treated as passing, otherwise it failed. 1N/A#----------------------------------------------------------------------- 1N/A #================================================ 1N/A # TESTS FOR code2script 1N/A #================================================ 1N/A #---- selection of examples which should all result in undef ----------- 1N/A ['!defined code2script()', 0], # no argument 1N/A ['!defined code2script(undef)', 0], # undef argument 1N/A ['!defined code2script("aa")', 0], # illegal code 1N/A ['!defined code2script("aa", LOCALE_CODE_ALPHA_2)', 0], # illegal code 1N/A ['!defined code2script("aa", LOCALE_CODE_ALPHA_3)', 0], # illegal code 1N/A ['!defined code2script("aa", LOCALE_CODE_NUMERIC)', 0], # illegal code 1N/A #---- some successful examples ----------------------------------------- 1N/A ['code2script("BO") eq "Tibetan"', 0], 1N/A ['code2script("Bo") eq "Tibetan"', 0], 1N/A ['code2script("bo") eq "Tibetan"', 0], 1N/A ['code2script("bo", LOCALE_CODE_ALPHA_2) eq "Tibetan"', 0], 1N/A ['code2script("bod", LOCALE_CODE_ALPHA_3) eq "Tibetan"', 0], 1N/A ['code2script("330", LOCALE_CODE_NUMERIC) eq "Tibetan"', 0], 1N/A ['code2script("yi", LOCALE_CODE_ALPHA_2) eq "Yi"', 0], # last in DATA 1N/A ['code2script("Yii", LOCALE_CODE_ALPHA_3) eq "Yi"', 0], 1N/A ['code2script("460", LOCALE_CODE_NUMERIC) eq "Yi"', 0], 1N/A ['code2script("am") eq "Aramaic"', 0], # first in DATA segment 1N/A #================================================ 1N/A # TESTS FOR script2code 1N/A #================================================ 1N/A #---- selection of examples which should all result in undef ----------- 1N/A ['!defined code2script("BO", LOCALE_CODE_ALPHA_3)', 0], 1N/A ['!defined code2script("BO", LOCALE_CODE_NUMERIC)', 0], 1N/A ['!defined script2code()', 0], # no argument 1N/A ['!defined script2code(undef)', 0], # undef argument 1N/A ['!defined script2code("Banana")', 0], # illegal script name 1N/A #---- some successful examples ----------------------------------------- 1N/A ['script2code("meroitic") eq "me"', 0], 1N/A ['script2code("burmese") eq "my"', 0], 1N/A ['script2code("Pahlavi") eq "ph"', 0], 1N/A ['script2code("Vai", LOCALE_CODE_ALPHA_3) eq "vai"', 0], 1N/A ['script2code("Tamil", LOCALE_CODE_NUMERIC) eq "346"', 0], 1N/A ['script2code("Latin") eq "la"', 0], 1N/A ['script2code("Latin", LOCALE_CODE_ALPHA_3) eq "lat"', 0], 1N/A #================================================ 1N/A # TESTS FOR script_code2code 1N/A #================================================ 1N/A #---- selection of examples which should all result in undef ----------- 1N/A ['!defined script_code2code("bo", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_3)', 0], 1N/A ['!defined script_code2code("aa", LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3)', 0], 1N/A ['!defined script_code2code("aa", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_3)', 0], 1N/A ['!defined script_code2code("aa", LOCALE_CODE_ALPHA_2)', 1], 1N/A ['!defined script_code2code()', 1], # no argument 1N/A ['!defined script_code2code(undef)', 1], # undef argument 1N/A #---- some successful examples ----------------------------------------- 1N/A ['script_code2code("BO", LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3) eq "bod"', 0], 1N/A ['script_code2code("bod", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_2) eq "bo"', 0], 1N/A ['script_code2code("Phx", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_2) eq "ph"', 0], 1N/A ['script_code2code("295", LOCALE_CODE_NUMERIC, LOCALE_CODE_ALPHA_3) eq "pqd"', 0], 1N/A ['script_code2code(170, LOCALE_CODE_NUMERIC, LOCALE_CODE_ALPHA_3) eq "tna"', 0], 1N/A ['script_code2code("rr", LOCALE_CODE_ALPHA_2, LOCALE_CODE_NUMERIC) eq "620"', 0],