test = QUnit.test module = QUnit.module doc = -> document.cloneNode true div = -> document.createElement \div makeArray = -> [].slice.call it qsa = ( context, q ) -> makeArray( context.querySelectorAll q ) convert-html = ( html ) -> html .toLowerCase! .replace( /[\x20\t\f\s]{2,}/g, '' ) .replace( /[\r\n]/g, '' ) .replace( /="([^"]+)"/g, \=$1 ) html-equal = ( a, b, log ) -> a = convert-html a b = convert-html b equal a, b, log module \Basics test 'Default rendering routine', !-> # Chinese before = 'A辭Q

' d = doc! d.documentElement.innerHTML = before Han d.body, d.documentElement .render! html-equal d.body.innerHTML, '

' equal d.title, \A辭Q equal d.documentElement.classList.contains(\han-js-rendered), true # Japanese before = 'AノQ

' d = doc! d.documentElement.innerHTML = before Han d.body, d.documentElement .render! html-equal d.body.innerHTML, '

' equal d.title, \AノQ equal d.documentElement.classList.contains(\han-js-rendered), true module \Normalisation test 'Adjacent decoration lines', !-> d = div! d.innerHTML = \abcd Han d .renderDecoLine! html-equal d.innerHTML, 'abcd' d.innerHTML = \測試測試 Han d .renderDecoLine! html-equal d.innerHTML, '測試測試' d.innerHTML = '註記元素甲增訂元素甲註記元素乙一般文字節點增訂元素乙註記元素丙增訂元素丙一般文字節點；訛訊元素甲刪訂元素甲訛訊元素乙一般文字節點刪訂元素乙訛訊元素乙刪訂元素丙。' Han d .renderDecoLine! html-equal d.innerHTML, '註記元素甲增訂元素甲註記元素乙一般文字節點增訂元素乙註記元素丙增訂元素丙一般文字節點；訛訊元素甲刪訂元素甲訛訊元素乙一般文字節點刪訂元素乙訛訊元素乙刪訂元素丙。' d.innerHTML = '註記元素丁訛訊元素丁增訂元素丁刪訂元素丁。' Han d .renderDecoLine! html-equal d.innerHTML, '註記元素丁訛訊元素丁增訂元素丁刪訂元素丁。' test 'Emphasis marks' !-> support = Han.support.textemphasis d = div! # Basic d.innerHTML = '測試abc' Han d .renderEm! if support html-equal d.innerHTML, '測試abc' else html-equal d.innerHTML, '測試abc' # Skip punctuation d.innerHTML = '「測『試』」，test ‘this!’。' Han d .renderEm! if support html-equal d.innerHTML, '「測『試』」，test ‘this!’。' else html-equal d.innerHTML, '「測『試』」，test ‘this!’。' # All CJK-related blocks d.innerHTML = '𫞵𫞦𠁻𠁶〇⼌⿕⺃⻍⻰⻳⿸⿷⿳' Han d .renderEm! if support html-equal d.innerHTML, '𫞵𫞦𠁻𠁶〇⼌⿕⺃⻍⻰⻳⿸⿷⿳' else html-equal d.innerHTML, '𫞵𫞦𠁻𠁶〇⼌⿕⺃⻍⻰⻳⿸⿷⿳' # All western letters d.innerHTML = '¡Hola! Ὅμηρος Свети' Han d .renderEm! if support html-equal d.innerHTML, '¡hola! ὅμηρος свети' else html-equal d.innerHTML, '¡hola! ὅμηρος свети' test 'Interlinear annotations (Ruby)', !-> support = Han.support.ruby support-zhuyin = Han.support['ruby-interchar'] support-ruby-display = Han.support['ruby-display'] d = div! # Basic d.innerHTML = '字zi' Han d .renderRuby! if support html-equal d.innerHTML, '字zi' else html-equal d.innerHTML, '字zi' # Zhuyin d.innerHTML = ''' 事ㄕˋ情ㄑㄧㄥˊ 看ㄎㄢˋ 冷ㄌㄥˇ暖ㄋㄨㄢˇ ''' Han d .renderRuby! qsa d, \h-ru .forEach !-> it.removeAttribute \form it.removeAttribute \zhuyin it.removeAttribute \diao it.removeAttribute \length if support-zhuyin html-equal d.innerHTML, '事ㄕˋ情ㄑㄧㄥˊ看ㄎㄢˋ冷ㄌㄥˇ暖ㄋㄨㄢˇ' else html-equal d.innerHTML, '事ㄕˋ情ㄑㄧㄥˊ看ㄎㄢˋ冷ㄌㄥˇ暖ㄋㄨㄢˇ' # Complex ruby d.innerHTML = '''

辛亥革命發生在1911-10-10， 年月日 清宣統三年 那天革命先烈們一同推翻了帝制。

''' Han d .renderRuby! d.querySelector \h-ruby .removeAttribute \doubleline qsa d, \h-ru .forEach !-> it.removeAttribute \annotation it.removeAttribute \order it.removeAttribute \span html-equal d.innerHTML, '

辛亥革命發生在1911-年10-月10，日清宣統三年那天革命先烈們一同推翻了帝制。

' d.innerHTML = '''

「紐約市」 NiǔyuēShì New York City 『紐約市』 New York City NiǔyuēShì ‘紐約市’ New York City niǔyuēshì „紐約市‟ niǔyuēshì New York City ⸘紐約市‽ New York City 世界之都 。

三十六個牙齒， 捉對兒廝打！ san1shih2liu4ko0ya2ch\'ih3cho1tuirh4ssu1ta3 sānshíliùgeyáchǐzhuōduìrsīdǎ ''' Han d .renderRuby! qsa d, \h-ruby .forEach !-> it.removeAttribute \doubleline qsa d, \h-ru .forEach !-> it.removeAttribute \annotation it.removeAttribute \order it.removeAttribute \span html-equal d.innerHTML, '''

「紐約niǔyuē市shìnew york city」『紐約niǔyuē市shìnew york city』‘紐niǔ約yuē市shìnew york city’„紐niǔ約yuē市shìnew york city‟⸘紐約市new york city世界之都‽。

三san1sān十shih2shí六liu4liù個ko0ge牙ya2yá齒ch'ih3chǐ，捉cho1zhuō對兒tuirh4duìr廝ssu1sī打ta3dǎ！

''' # Triaxial ruby d.innerHTML = '''

一 人 煩 惱 一 樣。 ㄐㄧㆵ͘ ㄌㄤˊ ㄏㄨㄢˊ ㄌㄜˋ ㄐㄧㆵ͘ ㄧㆫ˫ Tsi̍t lâng hoân‑ló chi̍t iūⁿ Tsi̍t lâng huân-ló tsi̍t iūnn

''' Han d .renderRuby! ruby = d.querySelector \h-ruby ruby.removeAttribute \rightangle ruby.removeAttribute \doubleline qsa d, \h-ru .forEach !-> it.removeAttribute \annotation it.removeAttribute \order it.removeAttribute \span it.removeAttribute \form it.removeAttribute \zhuyin it.removeAttribute \diao it.removeAttribute \length html-equal d.innerHTML, '''

一ㄐㄧㆵ͘tsi̍ttsi̍t人ㄌㄤˊlânglâng煩ㄏㄨㄢˊ惱ㄌㄜˋhoân‑lóhuân-ló一ㄐㄧㆵ͘chi̍ttsi̍t樣ㄧㆫ˫iūⁿiūnn。

''' module 'Advanced typesetting features' test 'Hanzi-Western script mixed spacing (HWS)' -> d = div! # Basic d.innerHTML = '測試test測試123測試' Han d .renderHWS! html-equal d.innerHTML, '測試test測試123測試' # issue 79 (https://github.com/ethantw/Han/issues/79) d.innerHTML = '中文加上 some code，中文加上 some code 放在中間，some code 加上中文，一般的 English。' Han d .renderHWS! html-equal d.innerHTML, '中文加上 some code，中文加上 some code 放在中間，some code 加上中文，一般的 English。' d.innerHTML = '中文加上some code，中文加上some code放在中間，some code加上中文，一般的English。' Han d .renderHWS! html-equal d.innerHTML, '中文加上some code，中文加上some code放在中間，some code加上中文，一般的English。' # Strict mode d.innerHTML = '測試 test 測試 123 測試測試 test測試。' Han d .renderHWS true html-equal d.innerHTML, '測試test測試123測試測試 test測試。' # With Biaodian d.innerHTML = '測試，test測試123。' Han d .renderHWS! html-equal d.innerHTML, '測試，test測試123。' # Greek letters d.innerHTML = '測試α測試β測試' Han d .renderHWS! html-equal d.innerHTML, '測試α測試β測試' # Cyrillic letters d.innerHTML = 'я測試у測試ь測試в' Han d .renderHWS! html-equal d.innerHTML, 'я測試у測試ь測試в' # All CJK-related blocks d.innerHTML = 'A㐀a㘻a䶵a𠀀a𫠝a〇a⿸a⻍a⻰aのa' Han d .renderHWS! html-equal d.innerHTML, 'a㐀a㘻a䶵a𠀀a𫠝a〇a⿸a⻍a⻰aのa' # Combining characters d.innerHTML = '天然ê上好。荷Ὅ̴̊̌ηρος̃馬。貓К҉о҈ш҉к҈а҈咪。' Han d .renderHWS! html-equal d.innerHTML, '天然ê上好。荷ὅ̴̊̌ηρος̃馬。貓к҉о҈ш҉к҈а҈咪。' # Cross-boundary d.innerHTML = '去Europe旅行。' Han d .renderHWS! html-equal d.innerHTML, '去europe旅行。' # With comments or `` d.innerHTML = '去Europe旅行。' Han d .renderHWS! html-equal d.innerHTML, '去europe旅行。' # Edge cases d.innerHTML = '測試¿測試?測試¡測試!為‘什’麼;為“什”麼?' Han d .renderHWS! html-equal d.innerHTML, '測試¿測試?測試¡測試!為‘什’麼;為“什”麼?' d.innerHTML = '單\'引\'號和雙"引"號和單\'引\'號和雙"引"號.' Han d .renderHWS! html-equal d.innerHTML, '單\'引\'號和雙"引"號和單\'引\'號和雙"引"號.' d.innerHTML = '\'單x引x號\'"雙x引x號".' Han d .renderHWS! html-equal d.innerHTML, '\'單x引x號\'"雙x引x號".' d.innerHTML = '單\'引\'號和雙"引"號和單\'引\'號和雙"引"號.' Han d .renderHWS! html-equal d.innerHTML, '單\'引\'號和雙"引"號和單\'引\'號和雙"引"號.' test 'Biaodian jiya' -> d = div! d.innerHTML = '「字『字』？」字「字『字』」字？' Han d .renderJiya! /* qsa d, \h-char .forEach -> it.removeAttribute \unicode */ html-equal d.innerHTML, '「字『字』？」字「字『字』」字？' d.innerHTML = '字、「字」字，（字）字……「字」。' Han d .renderJiya! /* qsa d, \h-char .forEach -> it.removeAttribute \unicode */ html-equal d.innerHTML, '字、「字」字，（字）字……「字」。' d.innerHTML = '《書名》〈篇名〉（內容）' Han d .renderJiya! /* qsa d, \h-char .forEach -> it.removeAttribute \unicode */ html-equal d.innerHTML, '《書名》〈篇名〉（內容）' test 'Hanging Biaodian' !-> d = div! d.innerHTML = '點、點，點。點．' Han d .renderHanging! html-equal d.innerHTML, '點、點，點。點．' d.innerHTML = '「標點。」' Han d .renderHanging! html-equal d.innerHTML, '「標點。」' d.innerHTML = '標點……。' Han d .renderHanging! html-equal d.innerHTML, '標點……。' d.innerHTML = '「標點」。' Han d .renderHanging! html-equal d.innerHTML, '「標點」。' test 'Jiya and Hanging' !-> d = div! d.innerHTML = '「標」、「『標』」，《標》、〈標〉。' Han d .renderHanging! .renderJiya! html-equal d.innerHTML, '「標」、「『標』」，《標》、〈標〉。' d.innerHTML = '《書名》、「文字」、『重點』。' Han d .renderHanging! .renderJiya! html-equal d.innerHTML, '《書名》、「「文字」、『重點』。' d.innerHTML = '《書名》、「強調」、『重點』。' Han d .renderHanging! .renderJiya! .renderElem! support = Han.support.textemphasis if support html-equal d.innerHTML, '《書名》、「「「強調」、『『『重點』。' else html-equal d.innerHTML, '《書名》、「「「強調」、『『『重點』。'