nadesiko3 3.2.27

package/test/common/plugin_system_test.js

@@ -0,0 +1,451 @@
+const assert = require('assert')
+const NakoCompiler = require('../../src/nako3')
+
+describe('plugin_system_test', () => {
+  const nako = new NakoCompiler()
+  // nako.logger.addListener('trace', ({ browserConsole }) => { console.log(...browserConsole) })
+  const cmp = (code, res) => {
+    nako.logger.debug('code=' + code)
+    assert.strictEqual(nako.run(code).log, res)
+  }
+  const cmpex = (code, exinfo) => {
+    nako.logger.debug('code=' + code)
+    assert.throws(() => { nako.run(code) }, exinfo)
+  }
+
+  // --- test ---
+  it('ナデシコエンジンを表示', () => {
+    cmp('ナデシコエンジンを表示', 'nadesi.com/v3')
+  })
+  it('四則演算', () => {
+    cmp('1に2を足して3を掛けて表示', '9')
+    cmp('10を2で割って表示', '5')
+    cmp('10を2で割った余り;それを表示', '0')
+    cmp('10の2倍;それを表示', '20')
+    cmp('V=3;もし(Vが1から5の範囲内)ならば「OK」と表示;違えば「NG」と表示。', 'OK')
+    cmp('V=30;もし(Vが1から5の範囲内)ならば「IN」と表示;違えば「OUT」と表示。', 'OUT')
+    cmp('もし、1が2と等しく無いならば「OK」を表示。', 'OK')
+    cmp('もし、1が2と不一致ならば「OK」を表示。', 'OK')
+    cmp('もし、[1,2]が[1,1]と不一致ならば「OK」を表示。', 'OK')
+  })
+  it('JS実行', () => {
+    cmp('「3+6」をJS実行して表示', '9')
+    cmp('「Math.floor(3.5)」をJS実行して表示', '3')
+  })
+  it('型変換', () => {
+    cmp('「3.14」を文字列変換して表示', '3.14')
+    cmp('「0xFF」を整数変換して表示', '255')
+  })
+  it('変数型確認', () => {
+    cmp('30の変数型確認して表示。', 'number')
+  })
+  it('SIN/COS/TAN', () => {
+    cmp('SIN(1)を表示。', '' + Math.sin(1))
+    cmp('COS(1)を表示。', '' + Math.cos(1))
+    cmp('TAN(1)を表示。', '' + Math.tan(1))
+  })
+  it('RGB', () => {
+    cmp('RGB(255,255,0)を表示。', '#ffff00')
+  })
+  it('LOGN', () => {
+    cmp('LOGN(10,10)を表示。', '' + (Math.LOG10E * Math.log(10)))
+    cmp('LOGN(2,10)を表示。', '' + (Math.LOG2E * Math.log(10)))
+  })
+  it('文字挿入', () => {
+    cmp('「12345」の2に「**」を文字挿入して表示', '1**2345')
+    cmp('「12345」の1に「**」を文字挿入して表示', '**12345')
+    cmp('「12345」の6に「**」を文字挿入して表示', '12345**')
+    cmp('「12345」の0に「**」を文字挿入して表示', '**12345')
+  })
+  it('出現回数', () => {
+    cmp('「aabbccaabbcc」で「aa」の出現回数。表示', '2')
+    cmp('「aa**bb**cc」で「**」の出現回数。表示', '2')
+    cmp('「aa.+bb.+cc」で「.+」の出現回数。表示', '2')
+  })
+  it('シングル文字列', () => {
+    cmp('\'abcd\'を表示。', 'abcd')
+  })
+  it('文字抜き出す', () => {
+    cmp('MID(\'abcdef\',1,2)を表示', 'ab')
+    cmp('「abcdef」の1から2を文字抜き出しを表示', 'ab')
+    cmp('MID(\'abcdefg\',3,2)を表示', 'cd')
+    cmp('「abcdefg」の3から2を文字抜き出しを表示', 'cd')
+    cmp('MID(\'abcd\',4,2)を表示', 'd')
+    cmp('「abcd」の4から2を文字抜き出しを表示', 'd')
+  })
+  it('RIGHT', () => {
+    cmp('RIGHT(\'abcdef\',2)を表示', 'ef')
+    cmp('「abcde」の3だけ文字右部分。それを表示', 'cde')
+  })
+  it('LEFT', () => {
+    cmp('LEFT(\'abcd\',2)を表示', 'ab')
+    cmp('「abcde」の3だけ文字左部分。それを表示', 'abc')
+  })
+  it('切り取る', () => {
+    cmp('「abc,def,ghi」から「,」まで切り取る。それを表示。', 'abc')
+    cmp('「a,b,c」から「*」まで切り取る。それを表示。', 'a,b,c')
+  })
+  it('文字削除', () => {
+    cmp('「abcd」の1から2だけ文字削除。それを表示。', 'cd')
+    cmp('「abcd」の2から2だけ文字削除。それを表示。', 'ad')
+    cmp('A=「ab」;「abcd」の1から(Aの文字数)だけ文字削除。それを表示。', 'cd')
+  })
+  it('置換', () => {
+    cmp('「a,b,c」の「,」を「-」に置換して表示。', 'a-b-c')
+    cmp('「e,f,g」の「,」を「-」へ単置換して表示。', 'e-f,g')
+  })
+  it('空白除去', () => {
+    cmp('「  aaa   」の空白除去して表示。', 'aaa')
+  })
+  it('正規表現置換', () => {
+    cmp('「aa,bb,cc」の「[a-z]+」を「x」で正規表現置換して表示。', 'x,x,x')
+    cmp('「aa,bb,cc」の「/[a-z]+/」を「x」で正規表現置換して表示。', 'x,bb,cc')
+    cmp('「aa,bb,cc」の「/[a-z]+/g」を「x」で正規表現置換して表示。', 'x,x,x')
+  })
+  it('正規表現マッチ - /.../を省略', () => {
+    // パターンを省略するとグローバルマッチ
+    cmp('「aa,bb,cc」を「[a-z]+」で正規表現マッチ。JSONエンコード。表示。', '["aa","bb","cc"]')
+    // グループを指定しても、結果は無視
+    cmp('「aa,bb,cc」を「([a-z]+)」で正規表現マッチ。JSONエンコード。表示。', '["aa","bb","cc"]')
+  })
+  it('正規表現マッチ - /.../あり グルーピングなし', () => {
+    cmp('「12-34-56」を「/[0-9]+\\-/」で正規表現マッチ。JSONエンコード。表示。', '"12-"')
+  })
+  it('正規表現マッチ - /.../あり グルーピングあり', () => {
+    // グループ(..)を指定した場合
+    cmp('「12-34-56」を「/([0-9]+)\\-/」で正規表現マッチ。JSONエンコード。表示。抽出文字列をJSONエンコードして表示。', '"12-"\n["12"]')
+  })
+  it('正規表現マッチ2', () => {
+    cmp('「AA,BB,CC」を「/^[a-z]+/i」で正規表現マッチ。表示。', 'AA')
+  })
+  it('正規表現区切る', () => {
+    cmp('「aa,bb,cc」を「/\\,/g」で正規表現区切る。JSONエンコード。表示。', '["aa","bb","cc"]')
+  })
+  it('通貨形式', () => {
+    cmp('12345を通貨形式。表示。', '12,345')
+    cmp('1000を通貨形式。表示。', '1,000')
+  })
+  it('ゼロ埋め', () => {
+    cmp('10を3でゼロ埋め。表示。', '010')
+    cmp('123を5でゼロ埋め。表示。', '00123')
+    cmp('12345を3でゼロ埋め。表示。', '12345')
+  })
+  it('空白埋め', () => {
+    cmp('10を3で空白埋め。表示。', ' 10')
+    cmp('「10」を3で空白埋め。表示。', ' 10')
+    cmp('「010」を4で空白埋め。表示。', ' 010')
+    cmp('「123」を5で空白埋め。表示。', '  123')
+    cmp('「12345」を3で空白埋め。表示。', '12345')
+  })
+  it('配列要素数', () => {
+    cmp('A=[0,1,2,3];Aの配列要素数。表示。', '4')
+    cmp('A={"a":1,"b":2,"c":3};Aの配列要素数。表示。', '3')
+  })
+  it('配列一括挿入', () => {
+    cmp('A=[1,1,1];Aの1に[0,0]を配列一括挿入。JSONエンコード。表示。', '[1,0,0,1,1]')
+  })
+  it('配列ソート', () => {
+    cmp('A=[\'ccc\',\'bb\',\'aaa\'];Aを配列ソート。Aを「:」で配列結合。表示。', 'aaa:bb:ccc')
+  })
+  it('配列数値ソート', () => {
+    cmp('A=[\'a\',1,3,2];Aを配列数値ソート。Aを「:」で配列結合。表示。', 'a:1:2:3')
+    cmp('A=[\'30\',\'222\',\'55\'];Aを配列数値ソート。Aを「:」で配列結合。表示。', '30:55:222')
+  })
+  it('配列カスタムソート', () => {
+    cmp('●HOGE(aをbで)\n(b-a)を戻す\nここまで\n' +
+      'A=[1,5,3];Aを「HOGE」で配列カスタムソート。Aを「:」で配列結合。表示。', '5:3:1')
+  })
+  it('配列逆順', () => {
+    cmp('A=[1,2,3];Aを配列逆順。Aを「:」で配列結合。表示。', '3:2:1')
+  })
+  it('配列切取/配列削除', () => {
+    cmp('A=[0,1,2,3];Aの2を配列切り取る。C=それ。Aを「:」で配列結合。表示。Cを表示', '0:1:3\n2')
+    cmp('A=[0,1,2,3];Aから2を配列削除。C=それ。Aを「:」で配列結合。表示。Cを表示', '0:1:3\n2')
+    cmp('A=[[1,2],[3,4],[5,6]];' +
+      'Aから2を配列削除して「:」で配列結合して表示。' +
+      'Aの要素数を表示。', '5:6\n2')
+    cmp('A=[[1,2],[3,4],[5,6]];' +
+      'Aから0を配列削除;' +
+      'A[0]を「:」で配列結合して表示。', '3:4')
+  })
+  it('配列削除で辞書型変数を指定', () => {
+    cmp('A={"aaa":1,"bbb":2};' +
+      'Aから"aaa"を配列削除;' +
+      'AをJSONエンコードして表示。', '{"bbb":2}')
+  })
+  it('配列複製', () => {
+    cmp('A=[1,2,3];B=Aを配列複製。B[0]=100。Bを「:」で配列結合。表示。', '100:2:3')
+    cmp('A=[1,2,3];B=Aを配列複製。B[0]=100。Aを「:」で配列結合。表示。', '1:2:3')
+  })
+  it('配列足す', () => {
+    cmp('A=[1,2,3];B=[4,5,6];AにBを配列足してJSONエンコードして表示。', '[1,2,3,4,5,6]')
+    cmp('A=[1,2,3];B=[4,5,6];AにBを配列足してCに代入。AをJSONエンコードして表示', '[1,2,3]') // A自体は変更しない
+  })
+  it('配列最大値', () => {
+    cmp('[2,1,3]の配列最大値を表示', '3')
+  })
+  it('配列最小値', () => {
+    cmp('[2,1,3]の配列最小値を表示', '1')
+  })
+  it('配列合計', () => {
+    cmp('[1,2,3]の配列合計を表示', '6')
+    cmp('[10,100]の配列合計を表示', '110')
+    cmp('["a","b","c"]の配列合計を表示', '0')
+    cmp('[10,100,"c"]の配列合計を表示', '110')
+  })
+  it('表ソート', () => {
+    cmp('A=[[4,4,"b"],[2,2,"a"],[5,5,"c"]];Aの2を表ソート。AをJSONエンコードして表示。', '[[2,2,"a"],[4,4,"b"],[5,5,"c"]]')
+    cmp('A=[[1,"12",4],[2,"1",2],[3,"2",5]];Aの1を表ソート。AをJSONエンコードして表示。', '[[2,"1",2],[1,"12",4],[3,"2",5]]')
+    cmp('A=[{n:"b"},{n:"a"},{n:"c"}];Aの"n"を表ソート。AをJSONエンコードして表示。', '[{"n":"a"},{"n":"b"},{"n":"c"}]')
+  })
+  it('表数値ソート', () => {
+    cmp('A=[[4,4,4],[2,2,2],[5,5,5]];Aの1を表数値ソート。AをJSONエンコードして表示。', '[[2,2,2],[4,4,4],[5,5,5]]')
+    cmp('A=[[1,4,4],[2,2,2],[3,5,5]];Aの1を表数値ソート。AをJSONエンコードして表示。', '[[2,2,2],[1,4,4],[3,5,5]]')
+    cmp('A=[{n:11},{n:9},{n:13}];Aの"n"を表数値ソート。AをJSONエンコードして表示。', '[{"n":9},{"n":11},{"n":13}]')
+  })
+  it('表ピックアップ', () => {
+    cmp('A=[["赤",1],["青",2],["緑",3]];Aの0から「赤」を表ピックアップしてJSONエンコードして表示。', '[["赤",1]]')
+    cmp('A=[{n:"赤猫"},{n:"青犬"},{n:"白兎"},{n:"青魚"}];Aの"n"から「青」を表ピックアップしてJSONエンコードして表示。', '[{"n":"青犬"},{"n":"青魚"}]')
+    cmp('A=[["赤猫",1],["青雉",2],["緑猫",3],["赤字",4]];Aの0から「赤」を表ピックアップしてJSONエンコードして表示。', '[["赤猫",1],["赤字",4]]')
+  })
+  it('表完全一致ピックアップ', () => {
+    cmp('A=[["赤猫",1],["青雉",2],["緑猫",3],["赤字",4]];Aの0から「赤」を表完全一致ピックアップしてJSONエンコードして表示。', '[]')
+    cmp('A=[["赤猫",1],["青雉",2],["緑猫",3],["赤字",4]];Aの0から「赤猫」を表完全一致ピックアップしてJSONエンコードして表示。', '[["赤猫",1]]')
+    cmp('A=[{n:"赤猫"},{n:"青犬"},{n:"白兎"},{n:"青魚"}];Aの"n"から「青」を表完全一致ピックアップしてJSONエンコードして表示。', '[]')
+  })
+  it('表検索', () => {
+    cmp('A=[["赤",1],["青",2],["緑",3]];Aの0で0から「青」を表検索して表示。', '1')
+    cmp('A=[["赤",1],["青",2],["緑",3]];Aの0で0から「紫」を表検索して表示。', '-1')
+  })
+  it('表列数', () => {
+    cmp('A=[["赤",1],["青",2],["緑",3,3]];Aの表列数を表示。', '3')
+    cmp('A=["a","b"];Aの表列数を表示。', '1')
+  })
+  it('表行列交換', () => {
+    cmp('A=[["赤",1],["青",2],["緑",3]];Aを表行列交換してJSONエンコードして表示。', '[["赤","青","緑"],[1,2,3]]')
+    cmp('A=[[1,2,3],[4,5,6]];Aを表行列交換してJSONエンコードして表示。', '[[1,4],[2,5],[3,6]]')
+    cmp('A=[[1,2,3,4],[4,5,6]];Aを表行列交換してJSONエンコードして表示。', '[[1,4],[2,5],[3,6],[4,""]]')
+  })
+  it('表右回転', () => {
+    cmp('A=[[1,2,3],[4,5,6]];Aを表右回転してJSONエンコードして表示。', '[[4,1],[5,2],[6,3]]')
+  })
+  it('表重複削除', () => {
+    cmp('A=[[1,2,3],[1,1,1],[4,5,6]];Aの0を表重複削除してJSONエンコードして表示。', '[[1,2,3],[4,5,6]]')
+  })
+  it('表列取得', () => {
+    cmp('A=[[1,2,3],[4,5,6]];Aの1を表列取得してJSONエンコードして表示。', '[2,5]')
+  })
+  it('表列挿入', () => {
+    cmp('A=[[1,2,3],[4,5,6]];Aの0へ[9,9]を表列挿入してJSONエンコードして表示。', '[[9,1,2,3],[9,4,5,6]]')
+    cmp('A=[[1,2,3],[4,5,6]];Aの1へ[9,9]を表列挿入してJSONエンコードして表示。', '[[1,9,2,3],[4,9,5,6]]')
+  })
+  it('表列削除', () => {
+    cmp('A=[[1,2,3],[4,5,6]];Aの1を表列削除してJSONエンコードして表示。', '[[1,3],[4,6]]')
+  })
+  it('表列合計', () => {
+    cmp('A=[[1,2,3],[4,5,6]];Aの1を表列合計して表示。', '7')
+  })
+  it('表曖昧検索', () => {
+    cmp('A=[[1,"佐藤"],[2,"加藤"]];Aの0から1で「佐」を表曖昧検索して表示。', '0')
+  })
+  it('表正規表現ピックアップ', () => {
+    cmp('A=[[1,"佐藤"],[2,"加藤"]];Aの1から「佐」を表正規表現ピックアップしてJSONエンコードして表示。', '[[1,"佐藤"]]')
+    cmp('A=[[1,"佐藤"],[2,"加藤"]];Aの1から「.+藤」を表正規表現ピックアップしてJSONエンコードして表示。', '[[1,"佐藤"],[2,"加藤"]]')
+  })
+  it('文字種変換', () => {
+    cmp('「abc」を大文字変換して表示', 'ABC')
+    cmp('「ABC」を小文字変換して表示', 'abc')
+    cmp('「アイウ」を平仮名変換して表示', 'あいう')
+    cmp('「あいう」をカタカナ変換して表示', 'アイウ')
+  })
+  it('空配列', () => {
+    cmp('A=空配列;A@0=10;A@1=20;A@2=30;A@1を表示。', '20')
+  })
+  it('空ハッシュ', () => {
+    cmp('A=空ハッシュ;A[「あ」]=10;A[「い」]=20;A[「う」]=30;A[「い」]を表示。', '20')
+  })
+  it('空オブジェクト', () => {
+    cmp('A=空オブジェクト;A[「あ」]=10;A[「い」]=20;A[「う」]=30;A[「い」]を表示。', '20')
+  })
+  it('四捨五入', () => {
+    cmp('3.14を四捨五入して表示。', '3')
+    cmp('3.6を四捨五入して表示。', '4')
+    cmp('3.5を四捨五入して表示。', '4')
+    cmp('3.15を1で小数点四捨五入して表示。', '3.2')
+    cmp('3.14を1で小数点四捨五入して表示。', '3.1')
+  })
+  it('切り上げ・切り捨て', () => {
+    cmp('3.14を切り上げして表示。', '4')
+    cmp('3.8を切り上げして表示。', '4')
+    cmp('3.1を切り捨てして表示。', '3')
+    cmp('3.8を切り捨てして表示。', '3')
+    cmp('0.31を1で小数点切り上げして表示。', '0.4')
+    cmp('0.38を1で小数点切り下げして表示。', '0.3')
+  })
+  it('カタカナか判定', () => {
+    cmp('「アイウエオ」がカタカナか判定して表示。', 'true')
+    cmp('「あいうえお」がカタカナか判定して表示。', 'false')
+  })
+  it('数字か判定', () => {
+    cmp('「12345」が数字か判定して表示。', 'true')
+    cmp('「あいうえお」が数字か判定して表示。', 'false')
+  })
+  it('数列か判定', () => {
+    cmp('「12345」が数列か判定して表示。', 'true')
+    cmp('「あいうえお」が数列か判定して表示。', 'false')
+  })
+  it('XOR', () => {
+    cmp('XOR(0xFF, 0xF)を表示。', '240')
+  })
+  it('進数変換', () => {
+    cmp('255を16進数変換して大文字変換して表示。', 'FF')
+  })
+  it('CHR-サロゲートペアを考慮', () => {
+    cmp('CHR(12354)を表示。', 'あ')
+    cmp('CHR(0x5200)を表示。', '刀')
+    cmp('CHR(0x29E3D)を表示。', '𩸽')
+    cmp('CHR(0x2A6CF)を表示。', '𪛏')
+  })
+  it('ASC-サロゲートペアを考慮', () => {
+    cmp('ASC("あ")を表示。', '12354')
+    cmp('HEX(ASC("𩸽"))を表示。', '29e3d')
+  })
+  it('文字数-サロゲートペアを考慮', () => {
+    cmp('文字数("𩸽のひらき")を表示。', '5')
+  })
+  it('文字列分解-サロゲートペアを考慮', () => {
+    cmp('JSONエンコード(文字列分解("𩸽のひらき"))を表示。', '["𩸽","の","ひ","ら","き"]')
+  })
+  it('プラグイン一覧取得', () => {
+    cmp('プラグイン一覧取得して「:」で配列結合して表示', 'PluginSystem:PluginMath:PluginPromise:PluginAssert')
+  })
+  it('配列切り取り', () => {
+    cmp('A=[0,1,2,3,4,5];Aの0を配列切り取り;表示', '0')
+    cmp('A=[0,1,2,3,4,5];Aの1を配列切り取り;Aを「:」で配列結合して表示', '0:2:3:4:5')
+  })
+  it('ハッシュ', () => {
+    cmp('A={"a":0,"b":1,"c":2};Aのハッシュキー列挙して配列ソートして「:」で配列結合して表示', 'a:b:c')
+    cmp('A={"a":0,"b":1,"c":2};Aの要素数を表示', '3')
+    cmp('A={"a":0,"b":1,"c":2};Aから「b」をハッシュキー削除して要素数を表示', '2')
+    cmp('A={"a":0,"b":1,"c":2};Aのハッシュ内容列挙して配列ソートして「:」で配列結合して表示', '0:1:2')
+    cmp('A={"a":0,"b":1,"c":2};Aに"c"がハッシュキー存在。もし、そうならば「OK」と表示。違えば、「NG」と表示。', 'OK')
+    cmp('A={"a":0,"b":1,"c":2};Aに"d"がハッシュキー存在。もし、そうならば「NG」と表示。違えば、「OK」と表示。', 'OK')
+  })
+  it('辞書型変数 #950', () => {
+    cmp('A={"a":0,"b":1,"c":2};Aの辞書キー列挙して配列ソートして「:」で配列結合して表示', 'a:b:c')
+    cmp('A={"a":0,"b":1};Aの要素数を表示', '2')
+    cmp('A={"a":0,"b":1,"c":2};Aから「b」を辞書キー削除して要素数を表示', '2')
+    cmp('A={"a":0,"b":1,"c":2};Aに"c"が辞書キー存在。もし、そうならば「OK」と表示。違えば、「NG」と表示。', 'OK')
+  })
+  it('空辞書の定義間違い #1060', () => {
+    cmp('A=空辞書。A["aaa"]=30;A["bbb"]=50;Aの辞書キー列挙して配列ソートして「:」で配列結合して表示', 'aaa:bbb')
+  })
+  it('ビット演算', () => {
+    cmp('OR(0xF0,0xF)を表示', '255')
+    cmp('AND(0xF7,0xF)を表示', '7')
+    cmp('XOR(1,1)を表示', '0')
+    cmp('XOR(0,1)を表示', '1')
+    cmp('NOT(0xFF)を表示', '-256')
+  })
+  it('論理演算', () => {
+    cmp('論理OR(1,0)を表示', '1')
+    cmp('論理AND(1,0)を表示', '0')
+    cmp('論理NOT(1)を表示', '0')
+  })
+  it('英数記号全角半角変換', () => {
+    cmp('「＃！」を英数記号半角変換して表示', '#!')
+    cmp('「#!」を英数記号全角変換して表示', '＃！')
+    cmp('「abc123#」を英数記号全角変換して表示', 'ａｂｃ１２３＃')
+    cmp('「ａｂｃ１２３＃」を英数記号半角変換して表示', 'abc123#')
+    cmp('「abc123」を英数全角変換して表示', 'ａｂｃ１２３')
+    cmp('「ａｂｃ１２３」を英数半角変換して表示', 'abc123')
+  })
+  it('カタカナ全角半角変換', () => {
+    cmp('「アガペ123」をカタカナ半角変換して表示', 'ｱｶﾞﾍﾟ123')
+    cmp('「ｱｶﾞﾍﾟ123」をカタカナ全角変換して表示', 'アガペ123')
+    cmp('「アガペ#!１２３」を半角変換して表示', 'ｱｶﾞﾍﾟ#!123')
+    cmp('「ｱｶﾞﾍﾟ#!123」を全角変換して表示', 'アガペ＃！１２３')
+    cmp('「チャイナマンゴー」をカタカナ半角変換して表示', 'ﾁｬｲﾅﾏﾝｺﾞｰ')
+    cmp('「ﾁｬｲﾅﾏﾝｺﾞｰ」をカタカナ全角変換して表示', 'チャイナマンゴー')
+  })
+  it('JS関数実行', () => {
+    cmp('"Math.floor"を[3.14]でJS関数実行して表示', '3')
+    cmp('"Math.floor"を3.14でJS関数実行して表示', '3')
+    cmp('F="Math.floor"でJS実行;Fを[3.14]でJS関数実行して表示', '3')
+  })
+  it('文字列検索', () => {
+    cmp('「しんぶんし」で1から「ん」を文字検索して表示', '2')
+    cmp('「しんぶんし」で3から「ん」を文字検索して表示', '4')
+    cmp('「しんぶんし」で5から「ん」を文字検索して表示', '0')
+  })
+  it('TYPEOF', () => {
+    cmp('TYPEOF(「あ」)を表示', 'string')
+    cmp('TYPEOF(0)を表示', 'number')
+    cmp('もし、NAN判定(INT(「あ」))ならば、「ok」と表示。違えば、「ng」と表示', 'ok')
+  })
+  it('URLエンコード', () => {
+    cmp('「埼玉県さいたま市」をURLエンコードして表示', '%E5%9F%BC%E7%8E%89%E7%9C%8C%E3%81%95%E3%81%84%E3%81%9F%E3%81%BE%E5%B8%82')
+  })
+  it('URLデコード', () => {
+    cmp('「%E5%9F%BC%E7%8E%89%E7%9C%8C%E3%81%95%E3%81%84%E3%81%9F%E3%81%BE%E5%B8%82」をURLデコードして表示', '埼玉県さいたま市')
+  })
+  it('URLパラメータ解析', () => {
+    cmp('「http://hoge.com/」のURLパラメータ解析してJSONエンコードして表示', '{}')
+    cmp('「https://nadesi.com/?a=3&b=5」のURLパラメータ解析;それ["a"]を表示;それ["b"]を表示。', '3\n5')
+  })
+  it('助詞省略形のコマンド', () => {
+    cmp('3が1以上。もし、そうなら「OK」と表示。', 'OK')
+    cmp('1が3以上。もし、そうなら「NG」と表示。もし、そうでなければ「OK」と表示。', 'OK')
+  })
+  it('HYPOTの問題 #603', () => {
+    cmp('HYPOT(1,1)を表示。', '1.4142135623730951')
+    cmp('HYPOT(10,5)を表示。', '11.180339887498949')
+  })
+  it('ナデシコする', () => {
+    cmp('「1+2を表示する。」をナデシコする。', '3')
+    cmp('Aは3;「1+Aを表示する。」をナデシコする。', '4')
+    cmp('Bは2;「BはB+3。Bを表示する。」をナデシコする。Bを表示する。', '5\n5')
+    cmp('●Cとは\n5を戻す\nここまで\n「1+C()を表示する。」をナデシコする。C()を表示する。', '6\n5')
+    cmp('「Dは4;Dを表示する。」をナデシコする。3+Dを表示する。', '4\n7')
+    cmp('Eは5;「Eは3;Eを表示する。」をナデシコする。5+Eを表示する。', '3\n8')
+    cmpex('「●Fとは\n2を戻す\nここまで\nF()を表示する。」をナデシコする。7+F()を表示する。', { name: 'Error', message: /関数『F』が見当たりません。/ })
+    cmp('Bは2;Bを表示する。;「BはB+3。Bを表示する。」をナデシコする。Bを表示する。', '5\n5')
+    cmp('Bは2;Bを表示する。;「BはB+3。Bを表示する。」をナデシコ続ける。Bを表示する。', '2\n5\n5')
+    cmp(`1と2を足す\n「それを表示」をナデシコする`, '3')
+  })
+  it('敬語 #728', () => {
+    cmp('32を表示してください', '32')
+    cmp('1に2を足して3を掛けて表示してください。', '9')
+    cmp('1に2を足して3を掛けて表示してください。お願いします。', '9')
+    cmp('拝啓、「abc」の「a」を「*」に置換してください。お願いします。礼節レベル取得して表示', '2')
+  })
+  it('一致 #831', () => {
+    cmp('1と1が一致。もしそうなら"1"を表示。違えば"0"を表示。', '1')
+    cmp('[1,2,3]と[1,2,3]が一致。もしそうなら"1"を表示。違えば"0"を表示。', '1')
+    cmp('[1,2,3]と[2,3]が一致。もしそうなら"NG"を表示。違えば"OK"を表示。', 'OK')
+    cmp('["a",2,3]と["a",2,3]が一致。もしそうなら"OK"を表示。違えば"NG"を表示。', 'OK')
+  })
+  it('「ナデシコ」が空白行を出力してしまう問題の修正', () => {
+    let lineCount = 0
+    nako.logger.addListener('stdout', (data) => { lineCount++ })
+    nako.run('「a=1+2」をナデシコ')
+    assert.strictEqual(lineCount, 0)
+  })
+  it('JSメソッド実行 #854', () => {
+    let globalScope
+    let globalName
+    if (typeof window === 'object' && typeof window.navigator === 'object') {
+      globalScope = window
+      globalName = 'window'
+    } else {
+      globalScope = global
+      globalName = 'global'
+    }
+    globalScope.jstest = () => { return 777 }
+    cmp('「'+globalName+'」の「jstest」を[]でJSメソッド実行して表示。', '777')
+    globalScope.jstest_x2 = (a) => { return a * 2 }
+    cmp('「'+globalName+'」の「jstest_x2」を30でJSメソッド実行して表示。', '60')
+    globalScope.jstest_mul = (a, b) => { return a * b }
+    cmp('「'+globalName+'」の「jstest_mul」を[30,30]でJSメソッド実行して表示。', '900')
+  })
+})

package/test/common/prepare_test.js

@@ -0,0 +1,93 @@
+const assert = require('assert')
+const NakoPrepare = require('../../src/nako_prepare')
+
+describe('prepare', () => {
+  const p = new NakoPrepare()
+
+  const convert = (code) => {
+    // 変換してからソースマップを除く
+    return p.convert(code).map((v) => v.text).join('')
+  }
+
+  // --- test ---
+  it('simple', () => {
+    const a = convert('abc')
+    assert.strictEqual(a, 'abc')
+    const b = convert('SRSR')
+    assert.strictEqual(b, 'SRSR')
+  })
+  it('simple-multibytes', () => {
+    const a_ = '単語'
+    const a = convert(a_)
+    assert.strictEqual(a, a_)
+    const b_ = '牛乳|美貌|麦油|破棄'
+    const b = convert(b_)
+    assert.strictEqual(b, b_)
+    const c_ = 'A=50 #hogehoge\nAを表示'
+    const c = convert(c_)
+    assert.strictEqual(c, c_)
+  })
+  it('convert num flag', () => {
+    const a = convert('１２３')
+    assert.strictEqual(a, '123')
+    const b = convert('あｂｃ')
+    assert.strictEqual(b, 'あbc')
+  })
+  it('str', () => {
+    const a = convert('１２３「１２３」')
+    assert.strictEqual(a, '123「１２３」')
+    const b = convert('１２３『１２３』１２３')
+    assert.strictEqual(b, '123『１２３』123')
+    const c = convert('１２３“あいう”')
+    assert.strictEqual(c, '123“あいう”')
+    const d = convert('１２３“１２３”１２３')
+    assert.strictEqual(d, '123“１２３”123')
+  })
+  it('str2', () => {
+    const a = convert('１２３"１２３"１２３')
+    assert.strictEqual(a, '123"１２３"123')
+    const b = convert('１２３\'１２３\'１２３')
+    assert.strictEqual(b, '123\'１２３\'123')
+  })
+  it('str3 - 全角を半角自動変換', () => {
+    const d = convert('１２３"１２３"１２３')
+    assert.strictEqual(d, '123"１２３"123')
+    const c = convert('１２３\'１２３\'１２３')
+    assert.strictEqual(c, '123\'１２３\'123')
+  })
+  it('str4 - 絵文字文字列 - 全角を半角自動変換', () => {
+    const a = convert('１２３🌴１２３🌴１２３')
+    assert.strictEqual(a, '123🌴１２３🌴123')
+    const b = convert('１２３🌿１２３🌿１２３')
+    assert.strictEqual(b, '123🌿１２３🌿123')
+  })
+  it('CR+LF1', () => {
+    const a = convert('123\r\n456\r789')
+    assert.strictEqual(a, '123\n456\n789')
+    const b = convert('123_ \r\n456 \n789')
+    assert.strictEqual(b, '123_ \n456 \n789')
+  })
+  it('CR+LF2', () => {    const a = convert('A= 1 + _ \r\n1 + 2  \nAを表示')
+    assert.strictEqual(a, 'A= 1 + _ \n1 + 2  \nAを表示')
+  })
+  it('Multibyte Flag to Singlebyte Flag', () => {
+    const a = convert('！＄１２３４５＃')
+    assert.strictEqual(a, '!$12345#\n')
+  })
+  it('convertTable', () => {
+    const a = convert('123※456')
+    assert.strictEqual(a, '123#456\n') // #はコメント扱い
+    const b = convert('123、456。') // 読点はカンマに変換 (#276)あらため(#877)
+    assert.strictEqual(b, '123,456;')
+  })
+  it('「，．」を「、。」として扱う(#735)', () => {
+    const a = convert('３．１４')
+    assert.strictEqual(a, '3.14')
+    const b = convert('，')
+    assert.strictEqual(b, ',')
+  })
+  it('複数行コメント内にある文字列記号でエラーになる問題(#731)', () => {
+    const a = convert('/* " */')
+    assert.strictEqual(a, '/* " */')
+  })
+})

package/test/common/re_test.js

@@ -0,0 +1,20 @@
+const assert = require('assert')
+const NakoCompiler = require('../../src/nako3')
+
+describe('re_test', () => {
+  const nako = new NakoCompiler()
+  // nako.logger.addListener('trace', ({ browserConsole }) => { console.log(...browserConsole) })
+  const cmp = (code, res) => {
+    nako.logger.debug('code=' + code)
+    assert.strictEqual(nako.run(code).log, res)
+  }
+  // --- test ---
+  it('正規表現マッチ - 基本', () => {
+    cmp('『abc123abc456』を『/[0-9]+/』で正規表現マッチして表示', '123')
+    cmp('『aaa:bbb:ccc』を『/[a-z]+/g』で正規表現マッチ;それ@1を表示', 'bbb')
+  })
+  it('正規表現マッチ - 抽出文字列', () => {
+    cmp('『abc123abc456』を『/([0-9]+)([a-z]+)/』で正規表現マッチ;抽出文字列[1]を表示', 'abc')
+    cmp('『// hoge』を『/\/\/\\s*(.+)/』で正規表現マッチ;抽出文字列[0]を表示', 'hoge')
+  })
+})