nadesiko3 3.3.49 → 3.3.52

package/test/bundled/test4b.cmd

@@ -1,52 +1,52 @@
-@echo off
-setlocal
-cd ../..
-
-set BROWSER=FirefoxCustom
-set HEADLESS=Headless
-
-set SINGLEWATCH=--single-run
-
-set TARGET_BASIC=
-set TARGET_TURTLE=
-
-FOR %%a IN (%*) DO (
-  if "%%~a"=="ff" (set BROWSER=FirefoxCustom)
-  if "%%~a"=="FF" (set BROWSER=FirefoxCustom)
-  if "%%~a"=="ie" (set BROWSER=IE)
-  if "%%~a"=="IE" (set BROWSER=IE)
-  if "%%~a"=="edge" (set BROWSER=Edge)
-  if "%%~a"=="Edge" (set BROWSER=Edge)
-  if "%%~a"=="EDGE" (set BROWSER=Edge)
-  if "%%~a"=="chrome" (set BROWSER=ChromeCustom)
-  if "%%~a"=="Chrome" (set BROWSER=ChromeCustom)
-  if "%%~a"=="CHROME" (set BROWSER=ChromeCustom)
-  if "%%~a"=="hide" (set HEADLESS=Headless)
-  if "%%~a"=="HIDE" (set HEADLESS=Headless)
-  if "%%~a"=="view" (set HEADLESS=)
-  if "%%~a"=="VIEW" (set HEADLESS=)
-  if "%%~a"=="watch" (set SINGLEWATCH=--auto-watch)
-  if "%%~a"=="WATCH" (set SINGLEWATCH=--auto-watch)
-  if "%%~a"=="basic" (set TARGET_BASIC=YES)
-  if "%%~a"=="BASIC" (set TARGET_BASIC=YES)
-  if "%%~a"=="turtle" (set TARGET_TURTLE=YES)
-  if "%%~a"=="TURTLE" (set TARGET_TURTLE=YES)
-)
-
-if "%BROWSER%"=="IE" (set HEADLESS=)
-
-if "%TARGET_BASIC%%TARGET_TURTLE%"=="" (
-  set TARGET_BASIC=YES
-  set TARGET_TURTLE=
-)
-
-
-@echo on
-if "%TARGET_BASIC%"=="YES" (
-  call node_modules\.bin\cross-env TZ=Asia/Tokyo NODE_ENV=development node_modules\.bin\karma start %SINGLEWATCH% --browsers %BROWSER%%HEADLESS% --reporters=mocha test/bundled/karma.config.base.js
-)
-@echo on
-if "%TARGET_TURTLE%"=="YES" (
-  call node_modules\.bin\cross-env TZ=Asia/Tokyo NODE_ENV=development node_modules\.bin\karma start %SINGLEWATCH% --browsers %BROWSER%%HEADLESS% --reporters=mocha test_browsers/karma.config.turtle.js
-)
-endlocal
+@echo off
+setlocal
+cd ../..
+
+set BROWSER=FirefoxCustom
+set HEADLESS=Headless
+
+set SINGLEWATCH=--single-run
+
+set TARGET_BASIC=
+set TARGET_TURTLE=
+
+FOR %%a IN (%*) DO (
+  if "%%~a"=="ff" (set BROWSER=FirefoxCustom)
+  if "%%~a"=="FF" (set BROWSER=FirefoxCustom)
+  if "%%~a"=="ie" (set BROWSER=IE)
+  if "%%~a"=="IE" (set BROWSER=IE)
+  if "%%~a"=="edge" (set BROWSER=Edge)
+  if "%%~a"=="Edge" (set BROWSER=Edge)
+  if "%%~a"=="EDGE" (set BROWSER=Edge)
+  if "%%~a"=="chrome" (set BROWSER=ChromeCustom)
+  if "%%~a"=="Chrome" (set BROWSER=ChromeCustom)
+  if "%%~a"=="CHROME" (set BROWSER=ChromeCustom)
+  if "%%~a"=="hide" (set HEADLESS=Headless)
+  if "%%~a"=="HIDE" (set HEADLESS=Headless)
+  if "%%~a"=="view" (set HEADLESS=)
+  if "%%~a"=="VIEW" (set HEADLESS=)
+  if "%%~a"=="watch" (set SINGLEWATCH=--auto-watch)
+  if "%%~a"=="WATCH" (set SINGLEWATCH=--auto-watch)
+  if "%%~a"=="basic" (set TARGET_BASIC=YES)
+  if "%%~a"=="BASIC" (set TARGET_BASIC=YES)
+  if "%%~a"=="turtle" (set TARGET_TURTLE=YES)
+  if "%%~a"=="TURTLE" (set TARGET_TURTLE=YES)
+)
+
+if "%BROWSER%"=="IE" (set HEADLESS=)
+
+if "%TARGET_BASIC%%TARGET_TURTLE%"=="" (
+  set TARGET_BASIC=YES
+  set TARGET_TURTLE=
+)
+
+
+@echo on
+if "%TARGET_BASIC%"=="YES" (
+  call node_modules\.bin\cross-env TZ=Asia/Tokyo NODE_ENV=development node_modules\.bin\karma start %SINGLEWATCH% --browsers %BROWSER%%HEADLESS% --reporters=mocha test/bundled/karma.config.base.js
+)
+@echo on
+if "%TARGET_TURTLE%"=="YES" (
+  call node_modules\.bin\cross-env TZ=Asia/Tokyo NODE_ENV=development node_modules\.bin\karma start %SINGLEWATCH% --browsers %BROWSER%%HEADLESS% --reporters=mocha test_browsers/karma.config.turtle.js
+)
+endlocal

package/test/bundled/test_base/.babelrc.json

@@ -1,3 +1,3 @@
-{
-  "sourceType": "script"
-}
+{
+  "sourceType": "script"
+}

package/test/bundled/test_base/_checktool_test.js

@@ -1,25 +1,25 @@
-const TestEnv = require('./test_utils').TestEnv
-
-describe('browsers test', function () {
-
-  const env = new TestEnv()
-  before( function () {
-    env.getEnv()
-  })
-
-  describe('check testtool', function () {
-
-    it('context check', function () {
-      env.checkEnv()
-    })
-    it('info check', function () {
-      env.cmpInfo('「こんにちは」を表示する。', "こんにちは")
-    })
-    it('report check', function () {
-      env.cmpReport('「こんにちは」を報告する。', ["こんにちは"])
-    })
-    it('error check', function () {
-      env.cmpError('「こんにちは」を食べる。', {name: 'Error', message: /単語『食』が解決していません。/} )
-    })
-  })
-})
+const TestEnv = require('./test_utils').TestEnv
+
+describe('browsers test', function () {
+
+  const env = new TestEnv()
+  before( function () {
+    env.getEnv()
+  })
+
+  describe('check testtool', function () {
+
+    it('context check', function () {
+      env.checkEnv()
+    })
+    it('info check', function () {
+      env.cmpInfo('「こんにちは」を表示する。', "こんにちは")
+    })
+    it('report check', function () {
+      env.cmpReport('「こんにちは」を報告する。', ["こんにちは"])
+    })
+    it('error check', function () {
+      env.cmpError('「こんにちは」を食べる。', {name: 'Error', message: /単語『食』が解決していません。/} )
+    })
+  })
+})

package/test/bundled/test_base/basic_ajax_test.js

@@ -1,56 +1,56 @@
-const TestEnv = require('./test_utils').TestEnv
-
-describe('basic ajax', () => {
-  const env = new TestEnv()
-  before( function () {
-    env.getEnv()
-  })
-
-  it('POSTデータ生成', () => {
-    const code = `
-パラメータは空オブジェクト。
-パラメータ["KEY"]は、「VALUE」。
-パラメータ["_X"]は、「XE^ZA」。
-パラメータ["SPACE"]は、「 」。
-パラメータをPOSTデータ生成して報告する。
-`
-    env.cmpReport(code, ["KEY=VALUE&_X=XE%5EZA&SPACE=%20"])
-  })
-
-  it('AJAXオプション設定', () => {
-    const code = `
-パラメータは空オブジェクト。
-パラメータ["KEY"]は、「VALUE」。
-パラメータにAJAXオプション設定する。
-AJAXオプションを報告する。
-`
-    env.cmpReport(code, [{"KEY":"VALUE"}])
-  })
-
-  it('AJAX送信時', (done) => {
-    const code = '「/resources/ok.txt」へAJAX送信時には;対象を報告する;ここまで'
-    env.waitCmpReport(done ,code, ["OK"])
-  })
-
-  it('POST送信時', (done) => {
-    const code = `
-パラメータは空オブジェクト。
-パラメータ["param1"]は、「data1^」。
-パラメータ["param2"]は、「data2^^」。
-パラメータを「/resources/ok.txt」へPOST送信時には
-対象を報告する。
-ここまで
-`
-    env.waitCmpReport(done ,code, ["OK"])
-  }).timeout(10000)
-
-  it('AJAX送信', (done) => {
-    const code = `
-逐次実行
-次に、「/resources/ok.txt」へAJAX送信する。
-次に、対象を報告する。
-ここまで
-`
-    env.waitCmpReport(done ,code, ["OK"])
-  })
-})
+const TestEnv = require('./test_utils').TestEnv
+
+describe('basic ajax', () => {
+  const env = new TestEnv()
+  before( function () {
+    env.getEnv()
+  })
+
+  it('POSTデータ生成', () => {
+    const code = `
+パラメータは空オブジェクト。
+パラメータ["KEY"]は、「VALUE」。
+パラメータ["_X"]は、「XE^ZA」。
+パラメータ["SPACE"]は、「 」。
+パラメータをPOSTデータ生成して報告する。
+`
+    env.cmpReport(code, ["KEY=VALUE&_X=XE%5EZA&SPACE=%20"])
+  })
+
+  it('AJAXオプション設定', () => {
+    const code = `
+パラメータは空オブジェクト。
+パラメータ["KEY"]は、「VALUE」。
+パラメータにAJAXオプション設定する。
+AJAXオプションを報告する。
+`
+    env.cmpReport(code, [{"KEY":"VALUE"}])
+  })
+
+  it('AJAX送信時', (done) => {
+    const code = '「/resources/ok.txt」へAJAX送信時には;対象を報告する;ここまで'
+    env.waitCmpReport(done ,code, ["OK"])
+  })
+
+  it('POST送信時', (done) => {
+    const code = `
+パラメータは空オブジェクト。
+パラメータ["param1"]は、「data1^」。
+パラメータ["param2"]は、「data2^^」。
+パラメータを「/resources/ok.txt」へPOST送信時には
+対象を報告する。
+ここまで
+`
+    env.waitCmpReport(done ,code, ["OK"])
+  }).timeout(10000)
+
+  it('AJAX送信', (done) => {
+    const code = `
+逐次実行
+次に、「/resources/ok.txt」へAJAX送信する。
+次に、対象を報告する。
+ここまで
+`
+    env.waitCmpReport(done ,code, ["OK"])
+  })
+})

package/test/bundled/test_base/basic_async_test.js

@@ -1,18 +1,18 @@
-const TestEnv = require('./test_utils').TestEnv
-
-describe('basic async', () => {
-  const env = new TestEnv()
-  before( function () {
-    env.getEnv()
-  })
-
-  it('同期タイマー', (done) => {
-    const code = '' +
-      '逐次実行\n' +
-      '先に、0.01秒待機\n' +
-      '次に、30を報告\n' +
-      'ここまで。\n'
-    env.waitCmpReport(done ,code, [30])
-  })
-
-})
+const TestEnv = require('./test_utils').TestEnv
+
+describe('basic async', () => {
+  const env = new TestEnv()
+  before( function () {
+    env.getEnv()
+  })
+
+  it('同期タイマー', (done) => {
+    const code = '' +
+      '逐次実行\n' +
+      '先に、0.01秒待機\n' +
+      '次に、30を報告\n' +
+      'ここまで。\n'
+    env.waitCmpReport(done ,code, [30])
+  })
+
+})

package/test/bundled/test_base/basic_test.js

@@ -1,153 +1,153 @@
-const TestEnv = require('./test_utils').TestEnv
-
-describe('basic', () => {
-  const env = new TestEnv()
-  before( function () {
-    env.getEnv()
-  })
-
-  const cmp = (code, res) => {
-    env.cmpInfo(code, res)
-  }
-  // --- test ---
-  it('print simple', () => {
-    cmp('3を表示', '3')
-  })
-  it('print', () => {
-    cmp('3を表示', '3')
-    cmp('100を表示', '100')
-    cmp('0xFFを表示', '255')
-  })
-  it('string', () => {
-    cmp('「abc」を表示', 'abc')
-    cmp('"abc"を表示', 'abc')
-    cmp('“あいう”を表示', 'あいう')
-  })
-  it('rawstring', () => {
-    cmp('『abc』を表示', 'abc')
-    cmp('\'abc\'を表示', 'abc')
-    cmp('『abc{30}abc』を表示', 'abc{30}abc')
-  })
-  it('exstring', () => {
-    cmp('a=30;「abc{a}abc」を表示', 'abc30abc')
-    cmp('a=30;「abc｛a｝abc」を表示', 'abc30abc')
-  })
-  it('raw string - 🌿 .. 🌿', () => {
-    cmp('a=🌿abc🌿;aを表示', 'abc')
-  })
-  it('EX string - 🌴 .. 🌴', () => {
-    cmp('v=30;a=🌴abc{v}abc🌴;aを表示', 'abc30abc')
-  })
-  it('string - LF', () => {
-    cmp('a=30;「abc\nabc」を表示', 'abc\nabc')
-  })
-  it('space 「・」', () => {
-    cmp('・a=30;・b=50「{a}-{b}」を表示', '30-50')
-  })
-  it('string - 🌴 ... 🌴', () => {
-    cmp('🌴aaa🌴を表示', 'aaa')
-    cmp('a=30;🌴aaa{a}bbb🌴を表示', 'aaa30bbb')
-    cmp('a=30;🌿aaa{a}bbb🌿を表示', 'aaa{a}bbb')
-  })
-  it('システム定数', () => {
-    cmp('ナデシコエンジンを表示', 'nadesi.com/v3')
-  })
-  it('助詞の後に句読点', () => {
-    cmp('「こんにちは」と、表示。', 'こんにちは')
-  })
-  it('代入文', () => {
-    cmp('3000を値段に代入。値段を表示', '3000')
-    cmp('値段に3000を代入。値段を表示', '3000')
-    cmp('々=3000。々を表示', '3000')
-    cmp('々に3000を代入。々を表示', '3000')
-  })
-  it('連文後の代入文', () => {
-    cmp('「aabbcc」の「aa」を「」に置換してFに代入。Fを表示', 'bbcc')
-    cmp('「aabbcc」の「aa」を「」に置換して「bb」を「」に置換してFに代入。Fを表示', 'cc')
-  })
-  it('〜を〜に定める', () => {
-    cmp('Aを0.8に定めてAを表示', '0.8')
-  })
-  it('文字列 - &と改行', () => {
-    cmp('「aaa」& _\n「bbb」を表示。', 'aaabbb')
-    cmp('A= 1 + 1 + 1 + 1 + 1 + _\n1 + 1\nAを表示', '7')
-    cmp('A= 1 + 1 + 1 + 1 + 1 + _\r\n1 + 1 + 1\r\nAを表示', '8')
-    cmp('A= 1 + 1 + 1 + 1 + 1 + _  \r\n1 + 3  \r\nAを表示', '9')
-    cmp('A = 1 + _\n' +
-      '    5 + _\n' +
-      '    10\n' +
-      'Aを表示。', '16')
-  })
-  it('名前に数字を持つ変数を使う', () => {
-    cmp('A1=30;B1=20;「{A1}{B1}」を表示。', '3020')
-  })
-  it('名前に絵文字を持つ変数を使う', () => {
-    cmp('\u1F60=30;\u1F60を表示。', '30')
-    cmp('😄=30;😄を表示。', '30')
-  })
-  it('ラインコメントが正しく処理されない問題 (#112)', () => {
-    cmp('A=50 # hogehoge\nAを表示', '50')
-    cmp('A=50 ＃ hogehoge\nAを表示', '50')
-    cmp('A=50 ※ hogehoge\nAを表示', '50')
-    cmp('A=50 // hogehoge\nAを表示', '50')
-    cmp('A=50 ／／ hogehoge\nAを表示', '50')
-    cmp('A=50\nもしA=50ならば # hogehoge\nAを表示\nここまで\n', '50')
-    cmp('A=50\nもしA=50ならば ＃ hogehoge\nAを表示\nここまで\n', '50')
-    cmp('A=50\nもしA=50ならば ※ hogehoge\nAを表示\nここまで\n', '50')
-    cmp('A=50\nもしA=50ならば // hogehoge\nAを表示\nここまで\n', '50')
-    cmp('A=50\nもしA=50ならば ／／ hogehoge\nAを表示\nここまで\n', '50')
-  })
-  it('ラインコメントに文字列記号があり閉じていないとエラーになる(#725)', () => {
-    cmp('A=50 # \"hogehoge\nAを表示', '50')
-  })
-  it('範囲コメントに文字列記号があり閉じていないとエラーになる(#731)', () => {
-    cmp('A=50 /* " */Aを表示', '50')
-    cmp('A=50 /* \' */Aを表示', '50')
-  })
-  it('論文などで使われる句読点「，」を「、」(#735)', () => {
-    cmp('A1=30;B1=20;(A1+B1)を，表示', '50')
-    cmp('A=３．１４;Aを，表示', '3.14')
-  })
-  it('条件分岐のインデント構文', () => {
-    cmp(
-      '！インデント構文\n' +
-      '3で条件分岐\n' +
-      '    2ならば\n' +
-      '        1を表示\n' +
-      '    3ならば\n' +
-      '        2を表示\n' +
-      '    違えば\n' +
-      '        3を表示\n',
-      '2'
-    )
-  })
-  it('空白で区切って文をつなげた場合', () => {
-    cmp('1と2を足す 1と2を足す', '')
-  })
-  it('制御構文で一語関数を使う', () => {
-    cmp('●一とは\n1を戻す\nここまで\nもし一ならば\n1を表示\nここまで', '1') // if
-    cmp('●一とは\n1を戻す\nここまで\n一回\n1を表示\nここまで', '1') // times
-    cmp('●一とは\n1を戻す\nここまで\n一の間\n1を表示\n抜ける\nここまで', '1') // while
-    cmp('●一とは\n[1]を戻す\nここまで\n一を反復\n1を表示\nここまで', '1') // foreach
-    cmp('●一とは\n1を戻す\nここまで\n一で条件分岐\n1ならば\n1を表示\nここまで\nここまで', '1') // switch
-  })
-  it('そう', () => {
-    // 「そう」は「それ」のエイリアス
-    cmp('それ＝1;そうを表示', '1')
-    cmp('1に3を足す;そうを表示', '4')
-  })
-  it('「〜時間」の「間」を制御構文として認識させない #831', () => {
-    cmp('時間=1\n（時間）を表示', '1')
-  })
-  it('「もしFが存在するならば」がFと「存在する」の比較になる問題の修正 #830', () => {
-    cmp('●（Aが）hogeとは\n' +
-        '    1を戻す\n' +
-        'ここまで\n' +
-        'もし、Fがhogeならば\n' +
-        '    1を表示\n' +
-        'ここまで',
-        // ---
-        '1')
-  })
-
-})
+const TestEnv = require('./test_utils').TestEnv
+
+describe('basic', () => {
+  const env = new TestEnv()
+  before( function () {
+    env.getEnv()
+  })
+
+  const cmp = (code, res) => {
+    env.cmpInfo(code, res)
+  }
+  // --- test ---
+  it('print simple', () => {
+    cmp('3を表示', '3')
+  })
+  it('print', () => {
+    cmp('3を表示', '3')
+    cmp('100を表示', '100')
+    cmp('0xFFを表示', '255')
+  })
+  it('string', () => {
+    cmp('「abc」を表示', 'abc')
+    cmp('"abc"を表示', 'abc')
+    cmp('“あいう”を表示', 'あいう')
+  })
+  it('rawstring', () => {
+    cmp('『abc』を表示', 'abc')
+    cmp('\'abc\'を表示', 'abc')
+    cmp('『abc{30}abc』を表示', 'abc{30}abc')
+  })
+  it('exstring', () => {
+    cmp('a=30;「abc{a}abc」を表示', 'abc30abc')
+    cmp('a=30;「abc｛a｝abc」を表示', 'abc30abc')
+  })
+  it('raw string - 🌿 .. 🌿', () => {
+    cmp('a=🌿abc🌿;aを表示', 'abc')
+  })
+  it('EX string - 🌴 .. 🌴', () => {
+    cmp('v=30;a=🌴abc{v}abc🌴;aを表示', 'abc30abc')
+  })
+  it('string - LF', () => {
+    cmp('a=30;「abc\nabc」を表示', 'abc\nabc')
+  })
+  it('space 「・」', () => {
+    cmp('・a=30;・b=50「{a}-{b}」を表示', '30-50')
+  })
+  it('string - 🌴 ... 🌴', () => {
+    cmp('🌴aaa🌴を表示', 'aaa')
+    cmp('a=30;🌴aaa{a}bbb🌴を表示', 'aaa30bbb')
+    cmp('a=30;🌿aaa{a}bbb🌿を表示', 'aaa{a}bbb')
+  })
+  it('システム定数', () => {
+    cmp('ナデシコエンジンを表示', 'nadesi.com/v3')
+  })
+  it('助詞の後に句読点', () => {
+    cmp('「こんにちは」と、表示。', 'こんにちは')
+  })
+  it('代入文', () => {
+    cmp('3000を値段に代入。値段を表示', '3000')
+    cmp('値段に3000を代入。値段を表示', '3000')
+    cmp('々=3000。々を表示', '3000')
+    cmp('々に3000を代入。々を表示', '3000')
+  })
+  it('連文後の代入文', () => {
+    cmp('「aabbcc」の「aa」を「」に置換してFに代入。Fを表示', 'bbcc')
+    cmp('「aabbcc」の「aa」を「」に置換して「bb」を「」に置換してFに代入。Fを表示', 'cc')
+  })
+  it('〜を〜に定める', () => {
+    cmp('Aを0.8に定めてAを表示', '0.8')
+  })
+  it('文字列 - &と改行', () => {
+    cmp('「aaa」& _\n「bbb」を表示。', 'aaabbb')
+    cmp('A= 1 + 1 + 1 + 1 + 1 + _\n1 + 1\nAを表示', '7')
+    cmp('A= 1 + 1 + 1 + 1 + 1 + _\r\n1 + 1 + 1\r\nAを表示', '8')
+    cmp('A= 1 + 1 + 1 + 1 + 1 + _  \r\n1 + 3  \r\nAを表示', '9')
+    cmp('A = 1 + _\n' +
+      '    5 + _\n' +
+      '    10\n' +
+      'Aを表示。', '16')
+  })
+  it('名前に数字を持つ変数を使う', () => {
+    cmp('A1=30;B1=20;「{A1}{B1}」を表示。', '3020')
+  })
+  it('名前に絵文字を持つ変数を使う', () => {
+    cmp('\u1F60=30;\u1F60を表示。', '30')
+    cmp('😄=30;😄を表示。', '30')
+  })
+  it('ラインコメントが正しく処理されない問題 (#112)', () => {
+    cmp('A=50 # hogehoge\nAを表示', '50')
+    cmp('A=50 ＃ hogehoge\nAを表示', '50')
+    cmp('A=50 ※ hogehoge\nAを表示', '50')
+    cmp('A=50 // hogehoge\nAを表示', '50')
+    cmp('A=50 ／／ hogehoge\nAを表示', '50')
+    cmp('A=50\nもしA=50ならば # hogehoge\nAを表示\nここまで\n', '50')
+    cmp('A=50\nもしA=50ならば ＃ hogehoge\nAを表示\nここまで\n', '50')
+    cmp('A=50\nもしA=50ならば ※ hogehoge\nAを表示\nここまで\n', '50')
+    cmp('A=50\nもしA=50ならば // hogehoge\nAを表示\nここまで\n', '50')
+    cmp('A=50\nもしA=50ならば ／／ hogehoge\nAを表示\nここまで\n', '50')
+  })
+  it('ラインコメントに文字列記号があり閉じていないとエラーになる(#725)', () => {
+    cmp('A=50 # \"hogehoge\nAを表示', '50')
+  })
+  it('範囲コメントに文字列記号があり閉じていないとエラーになる(#731)', () => {
+    cmp('A=50 /* " */Aを表示', '50')
+    cmp('A=50 /* \' */Aを表示', '50')
+  })
+  it('論文などで使われる句読点「，」を「、」(#735)', () => {
+    cmp('A1=30;B1=20;(A1+B1)を，表示', '50')
+    cmp('A=３．１４;Aを，表示', '3.14')
+  })
+  it('条件分岐のインデント構文', () => {
+    cmp(
+      '！インデント構文\n' +
+      '3で条件分岐\n' +
+      '    2ならば\n' +
+      '        1を表示\n' +
+      '    3ならば\n' +
+      '        2を表示\n' +
+      '    違えば\n' +
+      '        3を表示\n',
+      '2'
+    )
+  })
+  it('空白で区切って文をつなげた場合', () => {
+    cmp('1と2を足す 1と2を足す', '')
+  })
+  it('制御構文で一語関数を使う', () => {
+    cmp('●一とは\n1を戻す\nここまで\nもし一ならば\n1を表示\nここまで', '1') // if
+    cmp('●一とは\n1を戻す\nここまで\n一回\n1を表示\nここまで', '1') // times
+    cmp('●一とは\n1を戻す\nここまで\n一の間\n1を表示\n抜ける\nここまで', '1') // while
+    cmp('●一とは\n[1]を戻す\nここまで\n一を反復\n1を表示\nここまで', '1') // foreach
+    cmp('●一とは\n1を戻す\nここまで\n一で条件分岐\n1ならば\n1を表示\nここまで\nここまで', '1') // switch
+  })
+  it('そう', () => {
+    // 「そう」は「それ」のエイリアス
+    cmp('それ＝1;そうを表示', '1')
+    cmp('1に3を足す;そうを表示', '4')
+  })
+  it('「〜時間」の「間」を制御構文として認識させない #831', () => {
+    cmp('時間=1\n（時間）を表示', '1')
+  })
+  it('「もしFが存在するならば」がFと「存在する」の比較になる問題の修正 #830', () => {
+    cmp('●（Aが）hogeとは\n' +
+        '    1を戻す\n' +
+        'ここまで\n' +
+        'もし、Fがhogeならば\n' +
+        '    1を表示\n' +
+        'ここまで',
+        // ---
+        '1')
+  })
+
+})