nadesiko3 3.2.27

package/test/common/flow_test.js

@@ -0,0 +1,360 @@
+const assert = require('assert')
+const NakoCompiler = require('../../src/nako3')
+
+describe('flow_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)
+  }
+  it('もし', () => {
+    cmp('もし3>1ならば「あ」と表示。', 'あ')
+    cmp('もし3<1ならば「あ」と表示。違えば「い」と表示。', 'い')
+  })
+  it('もし - AがBならば', () => {
+    cmp('もし3が3ならば\n「OK」と表示。\n違えば\n「NG」と表示。\nここまで\n', 'OK')
+  })
+  it('もし - ネスト', () => {
+    cmp('A=5\n' +
+      'もしAが3以上ならば\n' +
+      '　　もしA=5ならば\n' +
+      '　　　　「OK」と表示。\n' +
+      '　　違えば\n' +
+      '　　　　「NG」と表示。\n' +
+      '　　ここまで。\n' +
+      '違えば\n' +
+      '　　「NG」と表示。\n' +
+      'ここまで。\n', 'OK')
+    cmp('A=1\n' +
+      'もしAが3以上ならば\n' +
+      '　　もしA=5ならば\n' +
+      '　　　　「NG」と表示。\n' +
+      '　　違えば\n' +
+      '　　　　「NG」と表示。\n' +
+      '　　ここまで。\n' +
+      '違えば\n' +
+      '　　「OK」と表示。\n' +
+      'ここまで。\n', 'OK')
+  })
+  it('もし - ネスト - 違えばの一致', () => {
+    cmp('A=2\n' +
+      'もしAが3以上ならば\n' +
+      '　　もしA=5ならば\n' +
+      '　　　　「NG」と表示。\n' +
+      '　　ここまで\n' +
+      '違えば\n' +
+      '　　「OK」と表示。\n' +
+      'ここまで。\n' +
+      '', 'OK')
+  })
+  it('違えばもし', () => {
+    // 「違えば」の次がeolではないときfalse_blockが単文扱いになり「ここまで」が不要。
+    cmp('もし0ならば\n' +
+        '    「NG」を表示\n' +
+        '違えばもし0ならば\n' +
+        '    「NG」を表示\n' +
+        '違えばもし1ならば\n' +
+        '    「OK」を表示\n' +
+        '違えば\n' +
+        '    「NG」を表示\n' +
+        'ここまで\n', 'OK')
+
+    cmp('もし0ならば\n' +
+        '    「NG」を表示\n' +
+        '違えば、もし0ならば\n' +
+        '    「NG」を表示\n' +
+        '違えば、もし1ならば\n' +
+        '    「OK」を表示\n' +
+        '違えば\n' +
+        '    「NG」を表示\n' +
+        'ここまで\n', 'OK')
+  })
+  it('回', () => {
+    cmp('3回「あ」と表示。', 'あ\nあ\nあ')
+    cmp('A=3;(A)回、Aを表示。', '3\n3\n3')
+  })
+  it('回、ここから', () => {
+    cmp('A=3;(A)回、ここから\nAを表示。\nここまで\n', '3\n3\n3')
+    cmp('A=3;(A)回ここから\nAを表示。\nここまで\n', '3\n3\n3')
+  })
+  it('回、繰り返す(#924)', () => {
+    cmp('A=3;(A)回、繰り返す\nAを表示。\nここまで\n', '3\n3\n3')
+    cmp('A=3;(A)回ここから、繰り返す\nAを表示。\nここまで\n', '3\n3\n3')
+  })
+  it('回繰り返す(#924)', () => {
+    cmp('A=3;(A)回繰り返す\nAを表示。\nここまで\n', '3\n3\n3')
+    cmp('A=3;(A)回繰り返す、ここから\nAを表示。\nここまで\n', '3\n3\n3')
+  })
+  it('回 - 「それ」の自動挿入', () => {
+    cmp('1と2を足す\n回\n1を表示\nここまで', '1\n1\n1')
+  })
+  it('の間', () => {
+    cmp('N=3;\n(N>0)の間\nNを表示\nN=N-1\nここまで', '3\n2\n1')
+  })
+  it('の間、ここから', () => {
+    cmp('N=3;\n(N>0)の間、ここから\nNを表示\nN=N-1\nここまで', '3\n2\n1')
+    cmp('N=3;\n(N>0)の間ここから\nNを表示\nN=N-1\nここまで', '3\n2\n1')
+  })
+  it('の間、繰り返す #927', () => {
+    cmp('N=3;\n(N>0)の間、繰り返す\nNを表示\nN=N-1\nここまで', '3\n2\n1')
+    cmp('N=3;\n(N>0)の間繰り返す\nNを表示\nN=N-1\nここまで', '3\n2\n1')
+  })
+  it('一致する間', () => {
+    cmp('●（AとBが）超一致するとは\n' +
+        '    それはAとBが等しい\n' +
+        'ここまで\n' +
+        'a=1\n' +
+        'i=0\n' +
+        'aと1が超一致する間\n' +
+        '    iを表示\n' +
+        '    i=i+1\n' +
+        '    もしiが3以上ならば\n' +
+        '        a=0\n' +
+        '    ここまで\n' +
+        'ここまで',
+        // ---
+        '0\n1\n2')
+  })
+  it('等しい間', () => {
+    cmp('a=1\n' +
+        'i=0\n' +
+        'aと1が等しい間\n' +
+        '    iを表示\n' +
+        '    i=i+1\n' +
+        '    もしiが3以上ならば\n' +
+        '        a=0\n' +
+        '    ここまで\n' +
+        'ここまで',
+        // ---
+        '0\n1\n2')
+  })
+  it('未満の間', () => {
+    cmp('i=0\n' +
+        'iが3未満の間\n' +
+        '    iを表示\n' +
+        '    i=i+1\n' +
+        'ここまで',
+        // ---
+        '0\n1\n2')
+  })
+  it('超えの間', () => {
+    cmp('i=0' +
+        'iが-3超えの間\n' +
+        '    iを表示\n' +
+        '    i=i-1\n' +
+        'ここまで',
+        // ---
+        '0\n-1\n-2')
+  })
+  it('範囲内の間', () => {
+    cmp('i=0' +
+        'iが-3から3の範囲内の間\n' +
+        '    iを表示\n' +
+        '    i=i+1\n' +
+        'ここまで',
+        // ---
+        '0\n1\n2\n3')
+  })
+  it('繰り返す', () => {
+    cmp('Nを1から3まで繰り返す\nNを表示\nここまで', '1\n2\n3')
+    cmp('Nを１から３まで繰り返す\n　　Nを表示\nここまで', '1\n2\n3')
+  })
+  it('繰り返す2', () => {
+    cmp('1から3まで繰り返す\nそれを表示\nここまで', '1\n2\n3')
+  })
+  it('連続計算', () => {
+    cmp('3に5を足してNに代入;Nを表示', '8')
+    cmp('3に5を足して2を掛けて表示', '16')
+  })
+  it('もし-日本語による比較', () => {
+    cmp('もし3が3と等しいならば「OK」と表示。', 'OK')
+    cmp('もし(3+2)が5と等しいならば「OK」と表示。', 'OK')
+    cmp('もし(3+2)が1以上ならば「OK」と表示。', 'OK')
+    cmp('もし3が5未満ならば「OK」と表示。', 'OK')
+    cmp('もし(3+10)が(5+10)以下ならば「OK」と表示。', 'OK')
+  })
+  it('もし--一行文。違えば', () => {
+    cmp('もし(3+10)が5以下ならば「ng」と表示。違えば「ok」と表示。', 'ok')
+  })
+  it('もし-しなければ', () => {
+    cmp('もし{ "a": 30 }に「b」がハッシュキー存在しなければ\n「ok」と表示\nここまで', 'ok')
+    cmp('もし1と2が等しくなければ\n「ok」と表示\nここまで', 'ok')
+  })
+  it('回-break', () => {
+    cmp('3回\n\'a\'と表示。もし(回数=2)ならば、抜ける;\n;ここまで;', 'a\na')
+    cmp('3回\n\'a\'と表示。もし、回数が2ならば、抜ける;\n;ここまで;', 'a\na')
+  })
+  it('反復 - 配列', () => {
+    cmp('[1,2,3]を反復\n対象を表示\nここまで\n', '1\n2\n3')
+  })
+  it('反復 - オブジェクト', () => {
+    cmp('{\'a\':1,\'b\':2,\'c\':3}を反復\n対象を表示\nここまで\n', '1\n2\n3')
+    cmp('{\'a\':1,\'b\':2,\'c\':3}を反復\n対象キーを表示\nここまで\n', 'a\nb\nc')
+  })
+  it('反復 - 変数付き', () => {
+    cmp('A=[1,2,3];NでAを反復\nNを表示\nここまで\n', '1\n2\n3')
+    cmp('Nで[1,2,3]を反復\nNを表示\nここまで\n', '1\n2\n3')
+  })
+  it('反復2 - 変数付き', () => {
+    cmp('A=[[3,30],[1,10],[2,20]];NでAを反復\nN[1]を表示\nここまで\n', '30\n10\n20')
+  })
+  it('反復 - prototypeを無視', () => {
+    cmp('f=『function F(){}; F.prototype.foo = 20; const f = new F(); f.p1 = 10; f』をJS実行。fを反復して表示', '10')
+  })
+  it('ここから反復', () => {
+    cmp('それは[1,2,3];ここから反復\n表示\nここまで\n', '1\n2\n3')
+  })
+  it('ここから繰り返し', () => {
+    cmp('ここから1から3まで繰り返し\n表示\nここまで\n', '1\n2\n3')
+  })
+  it('ここから3回', () => {
+    cmp('ここから3回\n表示\nここまで\n', '1\n2\n3')
+  })
+  it('不等号', () => {
+    cmp('もし、5≧5ならば、「あ」と表示。', 'あ')
+    cmp('もし、5≧3ならば、「あ」と表示。', 'あ')
+    cmp('もし、5≦5ならば、「あ」と表示。', 'あ')
+    cmp('もし、3≦5ならば、「あ」と表示。', 'あ')
+    cmp('もし、5＝5ならば、「あ」と表示。', 'あ')
+    cmp('もし、3≠5ならば、「あ」と表示。', 'あ')
+  })
+  it('繰り返しのネスト', () => {
+    cmp('C=0;Iを0から3まで繰り返す\nJを0から3まで繰り返す\nC=C+1;ここまで;ここまで;Cを表示', '16')
+  })
+  it('繰り返し:AからBまででA>Bの時', () => {
+    cmp('Iを3から0まで繰り返す;Iを表示;ここまで', '3\n2\n1\n0')
+    cmp('Iを11から9まで繰り返す;Iを表示;ここまで', '11\n10\n9')
+  })
+  it('繰り返し:AからBまででA>Bの時', () => {
+    cmp('Iを3から0まで繰り返す;Iを表示;ここまで', '3\n2\n1\n0')
+    cmp('Iを11から9まで繰り返す;Iを表示;ここまで', '11\n10\n9')
+  })
+  it('もし、と戻るの組み合わせ', () => {
+    cmp('●テスト処理\n' +
+        '　　「あ」と表示\n' +
+        '　　もし、3=3ならば、戻る。\n' +
+        '　　「ここには来ない」と表示\n' +
+        'ここまで\n' +
+        'テスト処理。', 'あ')
+    cmp('●(Sを)テスト処理\n' +
+        '　　Sを大文字変換して表示。\n' +
+        '　　もし、そうならば、戻る。\n' +
+        '　　「ここには来ない」と表示\n' +
+        'ここまで\n' +
+        '「a」をテスト処理。', 'A')
+  })
+  it('もしと抜けるの組み合わせ', () => {
+    cmp('Iを1から3まで繰り返す\n' +
+        '　　「あ」と表示\n' +
+        '　　もし、I=2ならば、抜ける。\n' +
+        '　　「い」と表示\n' +
+        'ここまで\n', 'あ\nい\nあ')
+    cmp('Iを1から3まで繰り返す\n' +
+        '　　2回、「あ」と表示。\n' +
+        '　　もし、I=2ならば、抜ける。\n' +
+        '　　「い」と表示\n' +
+        'ここまで\n', 'あ\nあ\nい\nあ\nあ')
+    cmp('Iを1から3まで繰り返す\n' +
+        '　　「あ」と表示\n' +
+        '　　もし、I=2ならば、「う」と表示して、抜ける。\n' +
+        '　　「い」と表示\n' +
+        'ここまで\n', 'あ\nい\nあ\nう')
+  })
+  it('もし文のエラー(#378)', () => {
+    cmp('●AAAとは\n' +
+        '　　列を1から3まで繰り返す。\n' +
+        '   　　列を表示。'+
+        '　　　　もし、列=2ならば、「*」と表示。\n' +
+        '　　ここまで。\n' +
+        'ここまで\n' +
+        'AAA', '1\n2\n*\n3')
+  })
+  it('条件分岐(#694)', () => {
+    cmp('2で条件分岐\n' +
+        '  1ならば\n「a」と表示\nここまで\n' +
+        '  2ならば\n「b」と表示\nここまで\n' +
+        '  3ならば\n「c」と表示\nここまで\n' +
+        '  違えば\n「d」と表示\nここまで\n' +
+        'ここまで\n',
+        'b')
+    cmp('3で条件分岐\n' +
+    '  1ならば\n「a」と表示\nここまで\n' +
+    '  2ならば\n「b」と表示\nここまで\n' +
+    '  3ならば\n「c」と表示\nここまで\n' +
+    '  違えば\n「d」と表示\nここまで\n' +
+    'ここまで\n',
+    'c')
+    cmp('5で条件分岐\n' +
+    '  1ならば\n「a」と表示\nここまで\n' +
+    '  2ならば\n「b」と表示\nここまで\n' +
+    '  3ならば\n「c」と表示\nここまで\n' +
+    '  違えば\n「d」と表示\nここまで\n' +
+    'ここまで\n',
+    'd')
+  })
+  it('条件分岐で違えばを省略', () => {
+    cmp('2で条件分岐\n' +
+        '  1ならば\n「a」と表示\nここまで\n' +
+        '  2ならば\n「b」と表示\nここまで\n' +
+        '  3ならば\n「c」と表示\nここまで\n' +
+        'ここまで\n',
+        'b')
+    cmp('5で条件分岐\n' +
+    '  1ならば\n「a」と表示\nここまで\n' +
+    '  2ならば\n「b」と表示\nここまで\n' +
+    '  3ならば\n「c」と表示\nここまで\n' +
+    'ここまで\n',
+    '')
+  })
+  it('条件分岐で違えばの後にカンマがあってもエラーにならない #942', () => {
+    cmp('A=0;2で条件分岐\n' +
+        '  1ならば、A=A+1\nここまで\n' +
+        '  2ならば、A=A+2\nここまで\n' +
+        '  3ならば、A=A+3\nここまで\n' +
+        '  違えば、A=A+10\nここまで\n' +
+        'ここまで\nAを表示',
+        '2')
+  })
+  it('N回をN|回に分ける', () => {
+    cmp('S="";N=3;N回、S=S&"a";Sを表示。', 'aaa')
+    cmp('S="";N=3;N回\nS=S&"a";💧;Sを表示。', 'aaa')
+  })
+  it('「、」と「，」の違いが分かりづらい #877', () => {
+    cmp('もし,0ならば,\n' +
+        '    「NG」を表示\n' +
+        '違えば,もし,0ならば\n' +
+        '    「NG」を表示\n' +
+        '違えば,もし,1ならば\n' +
+        '    「OK」を表示\n' +
+        '違えば,\n' +
+        '    「NG」を表示\n' +
+        'ここまで\n', 'OK')
+      cmp('S="";[1,2,3]を,反復,\n' +
+        '    S=S&対象\n' +
+        'ここまで。Sを表示。\n', '123')
+      cmp('S="";[1,2,3]を,反復,ここから,\n' +
+        '    S=S&対象\n' +
+        'ここまで。Sを表示。\n', '123')
+  })
+  it('「。。。」＝「ここまで」#925', () => {
+    cmp('S="";3回;S=S&"a";;;Sを表示。', 'aaa')
+    cmp('A=0;3回\nA=A+1;;;Aを表示。', '3')
+    cmp(
+      'A=0;3回\n' +
+      '  A=A+1;\n' +
+      '  A=A+1;\n' +
+      '。。。;Aを表示。', '6')
+    cmp(
+      'S=「」。3回\n' +
+      '  S=S&「a」\n' +
+      '  S=S&「b」。。。\n' +
+      'Sを表示。\n', 'ababab')
+  })
+  it('「或いは」「あるいは」を追加#987', () => {
+    cmp('A=3;もし、A=3或いはA=5あるいはA=7ならば「OK」と表示。違えば「NG」と表示。', 'OK')
+    cmp('A=3;もし、A=5あるいはA=3ならば「OK」と表示。違えば「NG」と表示。', 'OK')
+    cmp('A=空;B=3;もし(A=空)あるいは(B=空)ならば、"OK"と表示;違えば「NG」と表示。', 'OK')
+  })
+})
+

package/test/common/func_call.js

@@ -0,0 +1,136 @@
+const assert = require('assert')
+const NakoCompiler = require('../../src/nako3')
+const NakoSyntaxError = require('../../src/nako_parser_base').NakoSyntaxError
+
+describe('関数呼び出しテスト', () => {
+  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 cmd = (code) => {
+    nako.logger.debug('code=' + code)
+    nako.run(code)
+  }
+  // --- test ---
+  it('関数式の呼び出し - 足す(2,3)を表示。', () => {
+    cmp('足す(2,3)を表示。', '5')
+  })
+  it('四則演算を連文で', () => {
+    cmp('1に2を足して3を掛けて3で割って2を引いて表示', '1')
+  })
+  it('「そう」のテスト', () => {
+    cmp('３が１以上。もしそうならば「真」と表示。', '真')
+  })
+  it('後方で定義した関数を前方で使う1', () => {
+    cmp('HOGE(3,4)を表示;●(A,B)HOGEとは;それはA+B;ここまで;', '7')
+    cmp('「姫」と「殿」が出会って表示;●(AとBが)出会うとは;それはA&B;ここまで;', '姫殿')
+  })
+  it('後方で定義した関数を前方で使う2', () => {
+    cmp('Nとは変数=30;HOGE(3,4)を表示;●(A,B)HOGEとは;それはA+B+N;ここまで;', '37')
+  })
+  it('代入と表示', () => {
+    cmp('A=今日;もし(今日=A)ならば「1」と表示', '1')
+  })
+  it('代入1', () => {
+    cmp('A=今日の曜日番号取得;B=(今日)の曜日番号取得;もしA=Bならば「等しい」を表示。', '等しい')
+  })
+  it('代入2', () => {
+    cmp('Aは、今日の曜日番号取得;Bは、(今日)の曜日番号取得;もしA=Bならば「等しい」を表示。', '等しい')
+  })
+  it('代入3', () => {
+    cmp('A=(今日の曜日番号取得)+1;B=((今日)の曜日番号取得)+1;もしA=Bならば「等しい」を表示。', '等しい')
+  })
+  it('配列への代入', () => {
+    cmp('値段は空配列。値段[0]に3000を代入。値段[0]を表示。', '3000')
+  })
+  it('**には**構文 - 基本', () => {
+    cmp('実行には;「あ」と表示;ここまで', 'あ')
+  })
+  it('**には**構文 - 配列カスタムソート', () => {
+    cmp('A=[5,1,3];Aを配列カスタムソートするには(a,b);それはb-a;ここまで;Aを「:」で配列結合して表示', '5:3:1')
+  })
+  it('階乗計算 - 再帰', () => {
+    cmp('●(VをAのBで)階乗計算とは;' +
+      'もし、Bが0以下ならば、Vを戻す。;(V*A)をAの(B-1)で階乗計算して戻す。' +
+      'ここまで。;1を2の3で階乗計算して表示。', '8')
+  })
+  it('連続文後の代入', () => {
+    cmp('「2017/09/01T00:00:99」の「T」を「 」に置換して「 」まで切り取り、対象日に代入。対象日を表示。', '2017/09/01')
+  })
+  it('連続文後の=代入', () => {
+    cmp('対象日=「2017/09/01T00:00:99」の「T」を「 」に置換して「 」まで切り取る。対象日を表示。', '2017/09/01')
+  })
+  it('関数の引数に関数呼び出しがある場合', () => {
+    cmp('A=「ab」;「abcd」の1から(Aの文字数)だけ文字削除。それを表示。', 'cd')
+  })
+  it('配列カスタムソートの基本的な使い方例', ()=> {
+    cmp('●MYSORT(a,b)とは\n' +
+        '(INT(a) - INT(b))で戻る。\n' +
+        'ここまで。\n' +
+        'ARY=[8,3,4];' +
+        '「MYSORT」でARYを配列カスタムソートしてJSONエンコードして表示', '[3,4,8]')
+  })
+  it('引数の順番を入れ替えて呼び出す(#342)その1', () => {
+    cmp('『abc』の『a』を「*」に置換。表示', '*bc')
+    cmp('『a』を「*」に『abc』の置換。表示', '*bc')
+    cmp('「*」へ『a』から『abc』の置換。表示', '*bc')
+    cmp('「abcdefg」の1から3だけ文字削除して表示。', 'defg')
+    cmp('「abcdefg」の1から3を文字削除して表示。', 'defg')
+    cmp('1から3を「abcdefg」の文字削除して表示。', 'defg')
+    cmp('3を「abcdefg」の1から文字削除して表示。', 'defg')
+    cmp('3だけ「abcdefg」の1から文字削除して表示。', 'defg')
+  })
+  it('引数の順番を入れ替えて呼び出す(#342)その2', () => {
+    cmp('[8,3,4]の配列カスタムソートには(a,b)\nそれは(a - b)\nここまで。それをJSONエンコードして表示', '[3,4,8]')
+    cmp('[8,3,4]を配列カスタムソートには(a,b)\nそれは(a - b)\nここまで。それをJSONエンコードして表示', '[3,4,8]')
+    cmp('[8,3,4]の配列カスタムソートには(a,b)\nそれは(INT(a) - INT(b))\nここまで。それをJSONエンコードして表示', '[3,4,8]')
+  })
+  it('引数の順番を入れ替えて呼び出す(#342)その3', () => {
+    cmp('ARY=[8,3,4];' +
+        'ARYの配列カスタムソートには(a,b)\n' +
+        'aと255のXORをAに代入。bと255のXORをBに代入。' +
+        'それは(INT(a) - INT(b))\n' +
+        'ここまで。\n' +
+        'ARYをJSONエンコードして表示', '[3,4,8]')
+  })
+  it('可変長引数 #729', () => { // 経緯 #501 → #729 
+    cmp('連続加算(1,2,3)を表示。', '6')
+    cmp('1と2と3を連続加算して表示。', '6')
+    cmp('1に2と3を連続加算して表示。', '6')
+  })
+  // ---
+  it('関数呼び出し演算子に変更(1) #891', () => {
+    cmp('表示←3', '3')
+    cmp('表示←3を', '3')
+    cmp('表示←INT←3.14', '3')
+    cmp('足す←2に3を;それを表示;', '5')
+    cmp('割る←10を2で;それを表示;', '5')
+    cmp('割る<--2で10を;それを表示', '5')
+  })
+  it('関数呼び出し演算子に変更(2) #891', () => {
+    cmp('A=(割る<--10を2で)+2;Aを表示;', '7')
+    cmp('(割る←10を2で)を表示;', '5')
+    cmp('割る<--2で(割る←100を10で)を;それを表示', '5')
+    cmp('(割る←100を10で)を2で割って表示', '5')
+  })
+  it('関数呼び出し演算子に変更(ユーザー関数) #891', () => {
+    cmp('●(Aを)AAA;それはA*2;ここまで;AAA←30;それを表示', '60')
+    cmp('●(AをBで)AAA;それはA/B;ここまで;AAA←30を3で;それを表示', '10')
+  })
+  it('エラー/関数の呼び出し演算子 #891/引数がない関数', () => {
+    const funcName = 'AAA'
+    assert.throws(
+      () => cmd(`●${funcName};それは5;ここまで;${funcName}←`),
+      NakoSyntaxError, `引数がない関数『${funcName}』を関数呼び出し演算子で呼び出すことはできません。`
+    )
+  })
+  it('エラー/関数の呼び出し演算子 #891/引数が異なる', () => {
+    const funcName = 'テスト'
+    assert.throws(
+      () => cmd(`●${funcName}(aとbを);それはa*b;ここまで;${funcName}<--8と`),
+      NakoSyntaxError, `関数『${funcName}』呼び出しで引数の数(1)が定義(2)と違います。`
+    )
+  })
+})

package/test/common/func_test.js

@@ -0,0 +1,149 @@
+const assert = require('assert')
+const NakoCompiler = require('../../src/nako3')
+
+describe('func_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, 'main.nako3').log, res)
+  }
+  // --- test ---
+
+  it('簡単な関数定義', () => {
+    cmp('●HOGE()\n「あ」と表示\nここまで\nHOGE。', 'あ')
+    cmp('関数 HOGE()\n「あ」と表示\nここまで\nHOGE。', 'あ')
+  })
+  it('引数付き関数定義', () => {
+    cmp('●(Sの)表示処理とは\nSを表示\nここまで\n「殿」の表示処理。', '殿')
+    cmp('●(AとBの)加算処理とは;それはA+B;ここまで;3と8の加算処理して表示', '11')
+    cmp('●(AにBをCと)連続加算処理\nそれはA+B+C\nここまで\n100に20を3と連続加算処理して表示。', '123')
+  })
+  it('引数付き関数定義(互換性のため)', () => {
+    cmp('●表示処理(Sの)\nSを表示\nここまで\n「殿」の表示処理。', '殿')
+    cmp('●加算処理(AとBの);それはA+B;ここまで;3と8の加算処理して表示', '11')
+    cmp('●HOGE(Aに)\nAと表示\nここまで\n「姫」にHOGE。', '姫')
+  })
+  it('三つの引数', () => {
+    cmp('●踊る(AとBがCを)\n「{A}:{B}:{C}」と表示\nここまで\n「姫」と「殿」が「タンゴ」を踊る。', '姫:殿:タンゴ')
+    cmp('●踊る(AとBとCが)\n「{A}:{B}:{C}」と表示\nここまで\n「姫」と「殿」と「息子」が踊る。', '姫:殿:息子')
+  })
+  it('戻るのテスト', () => {
+    cmp('●加算(AにBを)\n(A+B)で戻る\nここまで\n2に3を加算して表示。', '5')
+  })
+  it('再帰テスト', () => {
+    cmp('●NN(vとlevelで)\n' +
+      'もしlevel<=0ならば、vで戻る。\n' +
+      '(v+1)と(level-1)でNN。\n' +
+      'それで戻る。\nここまで\n' +
+      '0と5でNN。それを表示。', '5')
+  })
+  it('ローカル変数1', () => {
+    cmp('N=30\n' +
+      '●テスト\n' +
+      '  Nとは変数\n' +
+      '  N=10\n' +
+      'ここまで\n' +
+      'テスト。\n' +
+      'Nを表示。', '30')
+  })
+  it('ローカル変数2', () => {
+    cmp('N=30\n' +
+      '●テスト\n' +
+      '  Nとは変数=10\n' +
+      'ここまで\n' +
+      'テスト。\n' +
+      'Nを表示。', '30')
+  })
+  it('ローカル変数3', () => {
+    cmp('N=300\n' +
+      '●テスト(AにBを)\n' +
+      '  変数のN=A+B\n' +
+      'ここまで\n' +
+      '1に2をテスト。\n' +
+      'Nを表示。', '300')
+  })
+  it('ローカル定数1', () => {
+    cmp('定数のN=30\n' +
+      'Nを表示。', '30')
+  })
+  it('ローカル定数2', () => {
+    let nako = new NakoCompiler()
+    let expected = '30'
+    for (let i = 0; i < 2; i++) {
+      nako = nako.runEx('定数のN=30\nNを表示。', 'main.nako3', { resetLog: false })
+      assert.strictEqual(nako.log, expected)
+      expected += '\n30'
+    }
+  })
+  it('助詞の複数定義', () => {
+    cmp('●加算処理（AにBを|AとBの）\n' +
+      '(A+B)を戻す。\n' +
+      'ここまで\n' +
+      '10に20を加算処理して表示。\n' +
+      '20と10の加算処理して表示。\n', '30\n30')
+  })
+  it('それを関数の戻り値とする', () => {
+    cmp('●加算処理（AにBを|AとBの）\n' +
+      'それは、A+B。\n' +
+      'ここまで\n' +
+      '10に20を加算処理して表示。\n' +
+      '20と10の加算処理して表示。\n', '30\n30')
+  })
+  it('英語言語っぽい関数定義', () => {
+    cmp('●加算処理（A,B）\n' +
+      'それは、A+B。\n' +
+      'ここまで\n' +
+      '加算処理(10,20)を表示。\n' +
+      '加算処理(20,10)を表示。\n', '30\n30')
+  })
+  it('関数の参照渡し', () => {
+    cmp('●({関数}fで)演算処理とは\n' +
+      '  それは、f()\n' +
+      'ここまで\n' +
+      '●二倍処理とは\n' +
+      '  それは2\n' +
+      'ここまで\n' +
+      '二倍処理で演算処理して表示。', '2')
+    cmp('●({関数}fでaを)演算処理とは\n' +
+      '  それは、f(a)\n' +
+      'ここまで\n' +
+      '●(aを)二倍処理とは\n' +
+      '  それはa*2\n' +
+      'ここまで\n' +
+      '二倍処理で2を演算処理して表示。', '4')
+    cmp('●({関数}fでaとbを)演算処理とは\n' +
+      '  それは、f(a,b)\n' +
+      'ここまで\n' +
+      '●(aとbを)二倍処理とは\n' +
+      '  それはa*b*2\n' +
+      'ここまで\n' +
+      '二倍処理で2と3を演算処理して表示。', '12')
+  })
+  it('無名関数', () => {
+    cmp('F=関数(a,b)それはa+b;ここまで。\n' +
+      'F(3,5)を表示。\n', '8')
+    cmp('F=関数(a,b)それは(a+b);ここまで\n' +
+      'F(3,5)を表示。\n', '8')
+    cmp('(関数(a,b)それは(a+b);ここまで)をFに代入。\n' +
+      'F(1,2)を表示。\n', '3')
+    cmp('(●(a,b)それは(a+b);ここまで)をFに代入。\n' +
+      'F(1,2)を表示。\n', '3')
+  })
+  it('暗黙的な無名関数「には」', () => {
+    cmp('●(Fを)処理した時\nF()を表示\nここまで\n' +
+      '処理した時には\nそれは「OK」\nここまで。', 'OK')
+    cmp('●(fでaを)演算処理とは\nf(a)を表示\nここまで\n' +
+      '2を演算処理には(a)\nそれはa*2\nここまで\n', '4')
+  })
+  it('暗黙的な無名関数「は〜」', () => {
+    cmp('●(Fを)処理した時\nF()を表示\nここまで\n' +
+      '処理した時は〜\nそれは「OK」\nここまで。', 'OK')
+    cmp('●(fでaを)演算処理とは\nf(a)を表示\nここまで\n' +
+      '2を演算処理は~(a)\nそれはa*2\nここまで\n', '4')
+  })
+  it('**すること #936', () => {
+    cmp('●(AとBを)加算処理とは\nAとBを足すこと。。。3と5を加算処理して表示。', '8')
+    cmp('●(Nを)二乗処理とは;A=0；N回,AにNを足してAに代入すること。それはA。。。5を二乗処理して表示。', '25')
+  })
+})