nadesiko3 3.3.63 → 3.3.64

package/core/src/nako_prepare.mts

@@ -198,6 +198,7 @@ export class NakoPrepare {
       if (flagStr2) {
         if (ch2 === endOfStr) {
           flagStr2 = false
+          if (endOfStr === '＊／') { endOfStr = '*/' } // 強制変換
           res.push(new ConvertResult(str + endOfStr, src.getSourcePosition(left)))
           i += 2
           left = i
@@ -275,6 +276,16 @@ export class NakoPrepare {
         str = ''
         continue
       }
+      // 複数行コメント内を飛ばす
+      if (ch2 === '／＊') {
+        res.push(new ConvertResult('/*', src.getSourcePosition(left))) // 強制変換
+        i += 2
+        left = i
+        flagStr2 = true
+        endOfStr = '＊／'
+        str = ''
+        continue
+      }
       // 複数行コメント内を飛ばす (#731)
       if (ch2 === '/*') {
         res.push(new ConvertResult(ch2, src.getSourcePosition(left)))

package/core/src/nako_tools.mjs

@@ -0,0 +1,53 @@
+/**
+ * よく使う処理をまとめたもの
+ */
+import { NewEmptyToken } from './nako_types.mjs';
+/**
+ * トークンの内容をデバッグ出力する関数
+ * @param tokens トークンの一覧
+ * @returns 文字列
+ */
+export function debugTokens(tokens) {
+    const result = [];
+    for (let i = 0; i < tokens.length; i++) {
+        const t = tokens[i];
+        const ftype = t.type;
+        const fvalue = t.value;
+        let s = `[${ftype}:${fvalue}]`;
+        if (ftype === fvalue) {
+            s = ftype;
+        }
+        if (ftype === 'comma') {
+            s = ',';
+        }
+        if (ftype === 'string') {
+            s = `"${fvalue}"`;
+        }
+        if (ftype === 'number') {
+            s = `(${fvalue})`;
+        }
+        if (ftype === 'word') {
+            s = `[word:${fvalue}]`;
+        }
+        if (!result[t.line]) {
+            result[t.line] = makeIndent(t.indent);
+        }
+        result[t.line] += s + t.josi + '|';
+    }
+    return result.join('\n');
+}
+export function makeIndent(n) {
+    let s = '';
+    for (let i = 0; i < n; i++) {
+        s += ' ';
+    }
+    return s;
+}
+let lastTokenInfo = NewEmptyToken();
+export function newToken(type, value, templateToken = undefined) {
+    if (templateToken) {
+        lastTokenInfo = templateToken;
+    }
+    const t = NewEmptyToken(type, value, lastTokenInfo.indent, lastTokenInfo.line, lastTokenInfo.file);
+    return t;
+}

package/core/src/nako_tools.mts

@@ -0,0 +1,46 @@
+/**
+ * よく使う処理をまとめたもの
+ */
+import { Token, NewEmptyToken } from './nako_types.mjs'
+
+/**
+ * トークンの内容をデバッグ出力する関数
+ * @param tokens トークンの一覧
+ * @returns 文字列
+ */
+export function debugTokens (tokens: Token[]) {
+  const result = []
+  for (let i = 0; i < tokens.length; i++) {
+    const t = tokens[i]
+    const ftype = t.type
+    const fvalue = t.value
+    let s = `[${ftype}:${fvalue}]`
+    if (ftype === fvalue) { s = ftype }
+    if (ftype === 'comma') { s = ',' }
+    if (ftype === 'string') { s = `"${fvalue}"` }
+    if (ftype === 'number') { s = `(${fvalue})` }
+    if (ftype === 'word') { s = `[word:${fvalue}]` }
+    if (!result[t.line]) {
+      result[t.line] = makeIndent(t.indent)
+    }
+    result[t.line] += s + t.josi + '|'
+  }
+  return result.join('\n')
+}
+
+export function makeIndent (n: number): string {
+  let s = ''
+  for (let i = 0; i < n; i++) {
+    s += ' '
+  }
+  return s
+}
+
+let lastTokenInfo = NewEmptyToken()
+export function newToken (type: string, value: any, templateToken: Token|undefined = undefined): Token {
+  if (templateToken) {
+    lastTokenInfo = templateToken
+  }
+  const t = NewEmptyToken(type, value, lastTokenInfo.indent, lastTokenInfo.line, lastTokenInfo.file)
+  return t
+}

package/core/test/basic_test.mjs

@@ -244,14 +244,14 @@ describe('basic', async () => {
     await cmp('時間=1\n（時間）を表示', '1')
   })
   it('「もしFが存在するならば」がFと「存在する」の比較になる問題の修正 #830', async () => {
-    await cmp('●（Aが）hogeとは\n' +
-        '    1を戻す\n' +
-        'ここまで\n' +
-        'もし、Fがhogeならば\n' +
-        '    1を表示\n' +
-        'ここまで',
-    // ---
-    '1')
+    await cmp(
+      '●（Aが）hogeとは\n' +
+      '    1を戻す\n' +
+      'ここまで\n' +
+      'もし、Fがhogeならば\n' +
+      '    1を表示\n' +
+      'ここまで',
+      '1')
   })
   it('無名関数が警告を出す問題の修正 #841', async () => {
     let log = ''
@@ -339,4 +339,12 @@ describe('basic', async () => {
     await cmp('Aを3増やす;Aと表示;', '3')
     await cmp('Aを3減らす;Aと表示;', '-3')
   })
+  it('文字列記号と全角コメント閉じ記号の組み合わせがある時うまく動いていない(core #45)', async () => {
+    await cmp(
+      'もし1ならば\n' +
+      '　　1を表示 ／＊ 「 ＊／\n' +
+      '　　2を表示\n' +
+      'ここまで。\n' +
+      '', '1\n2')
+  })
 })

package/core/test/dncl2_test.mjs

@@ -0,0 +1,207 @@
+/* eslint-disable no-undef */
+import assert from 'assert'
+import { NakoCompiler } from '../src/nako3.mjs'
+
+describe('dncl2 (core #41)', async () => {
+  const cmp = async (code, res) => {
+    const nako = new NakoCompiler()
+    const g = await nako.runAsync(code)
+    const resultValue = g.log
+    // console.log(resultValue, '=', res)
+    assert.strictEqual(resultValue, res)
+  }
+
+  it('基本', async () => {
+    await cmp('!DNCL2\n' +
+        'A=3\nAを表示', '3')
+  })
+  it('繰り返し文([繰り返す]なし)', async () => {
+    await cmp('!DNCL2\n' +
+        'C=0\n' +
+        'Iを1から10まで1ずつ増やしながら:\n' +
+        '　　C=C+I\n' +
+        'Cを表示', '55')
+    await cmp('!DNCL2\n' +
+        'C=10\n' +
+        'Iを1から10まで1ずつ減らしながら:\n' +
+        '　　C=C-1\n' +
+        'Cを表示', '0')
+  })
+  it('繰り返し文([繰り返す]あり)', async () => {
+    await cmp('!DNCL2\n' +
+        'C=0\n' +
+        'Iを1から10まで1ずつ増やしながら繰り返す:\n' +
+        '　　C=C+I\n' +
+        'Cを表示', '55')
+    await cmp('!DNCL2\n' +
+        'C=10\n' +
+        'Iを1から10まで1ずつ減らしながら繰り返す:\n' +
+        '　　C=C-1\n' +
+        'Cを表示', '0')
+    await cmp('!DNCL2\n' +
+        'C=0\n' +
+        'm を 1 から 3 まで 1 ずつ増やしながら繰り返す:\n' +
+        '　　C=C+1\n' +
+        'Cを表示', '3')
+  })
+  it('もし文', async () => {
+    await cmp('!DNCL2\n' +
+        'C=0\n' +
+        'もし、C != 1ならば:\n' +
+        '　　「OK」を表示。\n' +
+        'そうでなければ:\n' +
+        '　　「NG」を表示。\n' +
+        '', 'OK')
+    await cmp('' +
+        '!DNCL2\n' +
+        'C=2\n' +
+        'もし、C == 1ならば:\n' +
+        '　　「NG」を表示。\n' +
+        'そうでなければ、もし、C==2ならば:\n' +
+        '　　「OK」を表示。\n' +
+        'そうでなければ、もし、C==3ならば:\n' +
+        '　　「NG」を表示。\n' +
+        '', 'OK')
+  })
+  it('もし文(ネスト)', async () => {
+    await cmp('!DNCL2\n' +
+        'A=1;B=1\n' +
+        'もし、A == 1ならば:\n' +
+        '　　もし、B==1ならば:\n' +
+        '　　　　「11」と表示\n' +
+        '　　そうでなければ:\n' +
+        '　　　　「NG」を表示。\n' +
+        'そうでなければ:\n' +
+        '　　「NG」を表示\n' +
+        '', '11')
+    await cmp('!DNCL2\n' +
+        'A=1;B=0\n' +
+        'もし、A == 1ならば:\n' +
+        '　　もし、B==1ならば:\n' +
+        '　　　　「11」と表示\n' +
+        '　　そうでなければ:\n' +
+        '　　　　「OK」を表示。\n' +
+        'そうでなければ:\n' +
+        '　　「A!=1」を表示\n' +
+        '', 'OK')
+  })
+  it('繰り返し文(ネスト)', async () => {
+    await cmp('!DNCL2\n' +
+        'C=""\n' +
+        'Iを0から4まで1ずつ増やしながら繰り返す:\n' +
+        '　　もし、I%2 == 0ならば:\n' +
+        '　　　　C = C & I\n' +
+        'Cを表示;', '024')
+    //
+    await cmp('!DNCL2\n' +
+        'C=""\n' +
+        'Yを0から1まで1ずつ増やしながら繰り返す:\n' +
+        '　　Xを0から1まで1ずつ増やしながら繰り返す:\n' +
+        '　　　　C=C&"Y{Y}X{X}"\n' +
+        'Cを表示;', 'Y0X0Y0X1Y1X0Y1X1')
+  })
+  it('記号でインデント', async () => {
+    await cmp('!DNCL2\n' +
+        'C=0\n' +
+        'もし、C != 1ならば:\n' +
+        '⎿「OK」を表示。\n' +
+        'そうでなければ:\n' +
+        '⎿「NG」を表示。\n', 'OK')
+    await cmp('!DNCL2\n' +
+        'C=2\n' +
+        'もし、C == 1ならば:\n' +
+        '│└「NG」を表示。\n' +
+        'そうでなければ、もし、C==2ならば:\n' +
+        '│└「OK」を表示。\n' +
+        'そうでなければ、もし、C==3ならば:\n' +
+        '│└「NG」を表示。\n' +
+        '', 'OK')
+  })
+  it('記号でインデント2', async () => {
+    await cmp('!DNCL2\n' +
+        'C=0\n' +
+        'もし、C != 1ならば:\n' +
+        '｜ 「OK」を表示。\n' +
+        'そうでなければ:\n' +
+        '｜ 「NG」を表示。\n' +
+        '', 'OK')
+    await cmp('!DNCL2\n' +
+        'C=2\n' +
+        'もし、C == 1ならば:\n' +
+        '⎿ 「NG」を表示。\n' +
+        'そうでなければ、もし、C==2ならば:\n' +
+        '⎿ 「OK」を表示。\n' +
+        'そうでなければ、もし、C==3ならば:\n' +
+        '⎿ 「NG」を表示。\n' +
+        '', 'OK')
+  })
+  it('配列の初期化', async () => {
+    await cmp('!DNCL2\n' +
+        '配列 Hindo のすべての要素に 10 を代入する\n' +
+        'Hindo[0]を表示\n', '10')
+    await cmp('!DNCL2\n' +
+        '配列変数 Hirabun を初期化する\n' +
+        'Hirabun[3]を表示\n', '0')
+    await cmp('!DNCL2\n' +
+        'Totuzen[3]=30\n' +
+        'Totuzen[3]を表示\n', '30')
+    await cmp('!DNCL2\n' +
+        '配列 Hindo のすべての値に 55 を代入\n' +
+        'Hindo[0]を表示\n', '55')
+  })
+  it('「情報」試作問題 (検討用イメージ)', async () => {
+    await cmp(
+      '!DNCL2\n' +
+      'Angoubun = ["a","b"," ","a"]\n' +
+      '配列 Hindo のすべての要素に 0 を代入する\n' +
+      'i を 0 から (要素数(Angoubun)-1) まで 1 ずつ増やしながら:\n' +
+      '　　bangou = 差分( Angoubun[i] )\n' +
+      '　　もし,bangou != -1ならば:\n' +
+      '　　　　Hindo[bangou] = Hindo[bangou] + 1\n' +
+      'Hindoの0から3を配列取り出して、Hindoに代入。\n' +
+      '表示する(Hindo)\n' +
+      '●差分(CH)とは：\n' +
+      '　　A=ASC("a"); Z=ASC("z"); C=ASC(CH)\n' +
+      '　　もし、(A<=C)かつ(C<=Z)ならば、(C-A)を戻す。\n' +
+      '　　それは-1\n' +
+      '\n', '2,1,0')
+  })
+  it('「情報」サンプル問題-当選数を決めるプログラム2', async () => {
+    await cmp('' +
+        '!DNCL2\n' +
+        'Tomei = ["Ａ党", "Ｂ党", "Ｃ党", "Ｄ党"]\n' +
+        'Tokuhyo = [1200, 660, 1440, 180]\n' +
+        'sousuu = 0\n' +
+        'giseki = 6\n' +
+        'm を 0 から 3 まで 1 ずつ増やしながら繰り返す:\n' +
+        '⎿ sousuu = sousuu + Tokuhyo[m]\n' +
+        'kizyunsuu = sousuu / giseki\n' +
+        'm を 0 から 3 まで 1 ずつ増やしながら繰り返す:\n' +
+        '⎿ 表示する(Tomei[m], "：", Tokuhyo[m] / kizyunsuu)\n' +
+        '\n', 'Ａ党：2.0689655172413794\nＢ党：1.1379310344827587\nＣ党：2.4827586206896552\nＤ党：0.3103448275862069')
+  })
+  it('「情報」サンプル問題-当選数を決めるプログラム2改', async () => {
+    await cmp('' +
+    '!DNCL2\n' +
+    'Tomei = ["Ａ党", "Ｂ党", "Ｃ党", "Ｄ党"]\n' +
+    'Tokuhyo = [1200, 660, 1440, 180]\n' +
+    'Koho = [5, 4, 2, 3]\n' +
+    'Tosen = [0, 0, 0, 0]\n' +
+    'tosenkei = 0\n' +
+    'giseki = 6\n' +
+    'm を 0 から 3 まで 1 ずつ増やしながら繰り返す:\n' +
+    '⎿ Hikaku[m] = Tokuhyo[m]\n' +
+    'tosenkei < giseki の間繰り返す:\n' +
+    '｜ max = 0\n' +
+    '｜ i を 0 から 3 まで 1 ずつ増やしながら繰り返す:\n' +
+    '｜ ｜ もし max < Hikaku[i] and Koho[i] >= Tosen[i] + 1 ならば:\n' +
+    '｜ ｜ ｜ max = Hikaku[i]\n' +
+    '｜ ⎿ ⎿ maxi = i\n' +
+    '｜ Tosen[maxi] = Tosen[maxi] + 1\n' +
+    '｜ tosenkei = tosenkei + 1\n' +
+    '⎿ Hikaku[maxi] = 切り捨て(Tokuhyo[maxi] / tosenkei)\n' +
+    'k を 0 から 3 まで 1 ずつ増やしながら繰り返す:\n' +
+    '⎿ 表示する(Tomei[k], "：", Tosen[k], "名")\n' +
+    '', 'Ａ党：3名\nＢ党：1名\nＣ党：2名\nＤ党：0名')
+  })
+})

package/core/test/flow_test.mjs

@@ -1,3 +1,4 @@
+/* eslint-disable no-undef */
 import assert from 'assert'
 import { NakoCompiler } from '../src/nako3.mjs'
 
@@ -370,4 +371,45 @@ describe('flow_test', async () => {
   it('ならばの直前に空白があるとエラー(#1141)', async () => {
     await cmp('A=30。もし、A>5 ならば、「OK」と表示。', 'OK')
   })
+  it('-1を含む「もし」文が動かない core #47', async () => {
+    await cmp(
+      'A=0; もし、A != -1ならば\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+  })
+  it('「もし」...「でなければ」', async () => {
+    await cmp(
+      'A=0; もし、A==-1でなければ\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+    await cmp(
+      'A=0; もし、INT(A)==-1でなければ\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+    await cmp(
+      'A=0; もし、Aが-1でなければ\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+    await cmp(
+      'A=0; もし、Aが-5以下でなければ\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+  })
+  it('「もし」AがBならば', async () => {
+    await cmp(
+      'A=0; もし、Aが0ならば\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+    await cmp(
+      'A=0; もし、INT(A)が0ならば\n' +
+      '　　「あ」と表示\n' +
+      'ここまで\n' +
+      '', 'あ')
+  })
 })

package/core/test/indent_test.mjs

@@ -1,47 +1,49 @@
+/* eslint-disable no-undef */
 import assert from 'assert'
 import { NakoCompiler } from '../src/nako3.mjs'
 import NakoIndent from '../src/nako_indent.mjs'
 
-describe('indent', () => {
+describe('indent', async () => {
   const cmp = async (/** @type {string} */ code, /** @type {string} */ res) => {
     const nako = new NakoCompiler()
-    assert.strictEqual((nako.runSync(code)).log, res)
+    const g = await nako.runAsync(code)
+    assert.strictEqual(g.log, res)
   }
-  it('もし', () => {
-    cmp('!インデント構文\n' +
+  it('もし', async () => {
+    await cmp('!インデント構文\n' +
         'もし1=1ならば\n' +
         '　　1を表示\n', '1')
-    cmp('!インデント構文\n' +
+    await cmp('!インデント構文\n' +
         'もし1=1ならば\n' +
         '　　「わん」と表示。\n', 'わん')
   })
-  it('もし 違えば', () => {
-    cmp('!インデント構文\n' +
+  it('もし 違えば', async () => {
+    await cmp('!インデント構文\n' +
             'A=1\nもしA=1ならば\n' +
             '　　1を表示\n' +
             '違えば\n' +
             '　　2を表示\n', '1')
-    cmp('!インデント構文\n' +
+    await cmp('!インデント構文\n' +
         'A=2\nもしA=1ならば\n' +
         '　　1を表示\n' +
         '違えば\n' +
         '　　2を表示\n', '2')
   })
-  it('5回', () => {
-    cmp('!インデント構文\n' +
+  it('5回', async () => {
+    await cmp('!インデント構文\n' +
         'N=0;5回\n' +
         '　　　　N=N+1\n' +
         'Nを表示;', '5')
   })
-  it('3回と5回', () => {
-    cmp('!インデント構文\n' +
+  it('3回と5回', async () => {
+    await cmp('!インデント構文\n' +
         'N=0;5回\n' +
         '　　3回\n' +
         '　　　　N=N+1\n' +
         'Nを表示;', '15')
   })
-  it('もし 違えば 入れ子', () => {
-    cmp('!インデント構文\n' +
+  it('もし 違えば 入れ子', async () => {
+    await cmp('!インデント構文\n' +
         'A=1;B=1;もしA=1ならば\n' +
         '　　もしB=1ならば\n' +
         '　　　　1を表示\n' +
@@ -49,7 +51,7 @@ describe('indent', () => {
         '　　　　2を表示\n' +
         '違えば\n' +
         '　　3を表示\n', '1')
-    cmp('!インデント構文\n' +
+    await cmp('!インデント構文\n' +
         'A=2;B=1;もしA=1ならば\n' +
         '　　もしB=1ならば\n' +
         '　　　　1を表示\n' +
@@ -58,12 +60,26 @@ describe('indent', () => {
         '違えば\n' +
         '　　3を表示\n', '3')
   })
-  it('JSONで改行がある場合(#699)', () => {
-    cmp('!インデント構文\n' +
-        'J={"taro":30,\n' +
-        '   "jiro":50}\n' +
-        'J@"jiro"を表示', 50)
-    cmp('!インデント構文\n' +
+  it('JSONで改行がある場合(#699)(core #46)', async () => {
+    await cmp(
+      '!インデント構文\n' +
+      'J={"taro":30,\n' +
+      '　　"jiro":50}\n' +
+      'J@"jiro"を表示\n' +
+      '', '50')
+    await cmp('' +
+      '!インデント構文\n' +
+      'A=[99]\nもしA[0]=99ならば\n' +
+      '　　A=[0,\n0]\n' +
+      'A[0]を表示\n', '0')
+    await cmp('' +
+      '!インデント構文\n' +
+      'A={"a":0,"b":0}\nもし1ならば\n' +
+      '　　A={"a":99,\n"b":99}\n' +
+      'A["b"]を表示\n', '99')
+  })
+  it('文字列内に改行がある場合', async () => {
+    await cmp('!インデント構文\n' +
         'S=「aaa\n' +
         'bbb」\n' +
         'もしS=30ならば\n' +
@@ -71,58 +87,58 @@ describe('indent', () => {
         '違えば\n' +
         '　　「o」と表示', 'o')
   })
-  it('コメント内に文字列リテラルの開始記号がある場合', () => {
-    cmp('!インデント構文\n' +
+  it('コメント内に文字列リテラルの開始記号がある場合', async () => {
+    await cmp('!インデント構文\n' +
         'A=9;もしA=1ならば\n' +
         '　　1を表示 # 「\n' +
         '2を表示\n', '2')
-    cmp('!インデント構文\n' +
+    await cmp('!インデント構文\n' +
         'A=1;もしA=1ならば\n' +
         '　　1を表示 // 「\n' +
         '2を表示\n', '1\n2')
   })
-  it('複数行コメント内に文字列リテラルの開始記号がある場合', () => {
-    cmp('!インデント構文\n' +
+  it('複数行コメント内に文字列リテラルの開始記号がある場合', async () => {
+    await cmp('!インデント構文\n' +
         'A=9;もしA=1ならば\n' +
         '　　1を表示 /* 「 */\n' +
         '2を表示\n', '2')
-    cmp('!インデント構文\n' +
+    await cmp('!インデント構文\n' +
         'A=1;もしA=1ならば\n' +
         '　　1を表示 ／＊ 「 ＊／\n' +
         '2を表示\n', '1\n2')
   })
-  it('改行を含む、絵文字による文字列がある場合', () => {
-    cmp(
-        '!インデント構文\n' +
-        '2回\n' +
-        '    🌴１\n' +
-        '🌴を表示\n' +
-        '「2」を表示\n', '1\n1\n2')
+  it('改行を含む、絵文字による文字列がある場合', async () => {
+    await cmp(
+      '!インデント構文\n' +
+      '2回\n' +
+      '    🌴1\n' +
+      '🌴を表示\n' +
+      '「2」を表示\n', '1\n\n1\n\n2')
   })
-  it('前後が一致しない括弧がある場合', () => {
-    cmp('!インデント構文\n' +
+  it('前後が一致しない括弧がある場合', async () => {
+    await cmp('!インデント構文\n' +
         '2回\n' +
         '   A=｛\n' +
         '}\n' +
         '1を表示\n', '1')
   })
-  it('「違えば」に行コメントがある場合', () => {
-    cmp('!インデント構文\n' +
+  it('「違えば」に行コメントがある場合', async () => {
+    await cmp('!インデント構文\n' +
         'A=2;もしA=1ならば\n' +
         '　　1を表示\n' +
         '違えば # コメント\n' +
         '　　2を表示\n', '2')
   })
-  it('「違えば」に範囲コメントがある場合', () => {
-    cmp('!インデント構文\n' +
+  it('「違えば」に範囲コメントがある場合', async () => {
+    await cmp('!インデント構文\n' +
         'A=2;もしA=1ならば\n' +
         '　　1を表示\n' +
         '/* foo \n' +
         '*/違えば /* bar */\n' +
         '　　2を表示\n', '2')
   })
-  it('コメントのみの行がある場合', () => {
-    cmp('!インデント構文\n' +
+  it('コメントのみの行がある場合', async () => {
+    await cmp('!インデント構文\n' +
         'A=2;もしA=1ならば\n' +
         '　　　　# コメント\n' +
         '　　1を表示\n' +
@@ -131,16 +147,16 @@ describe('indent', () => {
         '/*       */ \n' +
         '　　2を表示\n', '2')
   })
-  it('"・"がある場合', () => {
-    cmp('!インデント構文\n' +
+  it('"・"がある場合', async () => {
+    await cmp('!インデント構文\n' +
         '1回\n' +
         '・1回\n' +
         '・・1を表示\n' +
         '・\n' +
         '・・2を表示\n', '1\n2')
   })
-  it('「違えばもし」の場合(#940)', () => {
-    cmp('!インデント構文\n' +
+  it('「違えばもし」の場合(#940)', async () => {
+    await cmp('!インデント構文\n' +
         'A=2;もしA=1ならば\n' +
         '　　1を表示\n' +
         '違えば、もしA=2ならば\n' +
@@ -149,7 +165,7 @@ describe('indent', () => {
         '　　3を表示\n', '2')
   })
   // #1269 によりソースマップの確認は不要になりつつある
-  it('ソースマップ', () => {
+  it('ソースマップ', async () => {
     const result = NakoIndent.convert(
       '！インデント構文\n' +
             '\n' +
@@ -198,7 +214,7 @@ describe('indent', () => {
       { lineNumber: 13, len: 0 }
     ])
   })
-  it('ブロック構造の取得', () => {
+  it('ブロック構造の取得', async () => {
     assert.deepStrictEqual(
       NakoIndent.getBlockStructure(
         'もしはいならば\n' +
@@ -214,7 +230,7 @@ describe('indent', () => {
       }
     )
   })
-  it('ブロック構造の取得 - 複数行にまたがる構文', () => {
+  it('ブロック構造の取得 - 複数行にまたがる構文', async () => {
     // 複数行にまたがる文の2行目以降のインデントは、先頭行のインデントと等しいものとする。
     // コメントのみの行のインデントは、直近の通常の行のインデントと等しいものとする。
     assert.deepStrictEqual(
@@ -234,7 +250,7 @@ describe('indent', () => {
       }
     )
   })
-  it('ブロック構造の取得 - 違えば', () => {
+  it('ブロック構造の取得 - 違えば', async () => {
     assert.deepStrictEqual(
       NakoIndent.getBlockStructure(
         'もしはいならば\n' +
@@ -246,4 +262,12 @@ describe('indent', () => {
       [[0, 2], [2, 4]]
     )
   })
+  it('2つ目の関数の定義が失敗する(#40)', async () => {
+    await cmp('!インデント構文\n' +
+        '●AAAとは\n' +
+        '　　それは30\n' +
+        '●BBBとは\n' +
+        '　　それは50\n' +
+        'BBBを表示。', '50')
+  })
 })