bitclust-core 1.6.1 → 1.8.0

data/test/test_irb_plugin.rb

@@ -0,0 +1,212 @@
+# frozen_string_literal: true
+require 'test/unit'
+require 'tmpdir'
+require 'fileutils'
+require 'stringio'
+require 'json'
+require 'bitclust'
+require 'bitclust/methoddatabase'
+require 'bitclust/searcher'
+require 'bitclust/irb'
+
+# bitclust-irb gem の irb コマンド(refe)。リモート検索そのものは
+# test_remote.rb で検証する。
+#
+# テストリスト:
+# [x] TerminalView が io: に出力する(既定は従来どおり $stdout)
+# [x] Irb.lookup がメソッドを検索して整形結果を io へ書く
+# [x] Irb.lookup がクラスも引ける
+# [x] 空のパターンは使い方を表示して例外にしない
+# [x] 見つからないパターンはメッセージを io へ書いて例外にしない
+# [x] require で IRB::Command::Base のサブクラスとして登録される
+# [x] Searcher#local_database? は既定の場所に DB が無ければ false・あれば true
+# [x] Irb.lookup: db が与えられていれば remote を使わない
+# [x] Irb.lookup: ローカル DB が無ければ remote で検索する
+# [x] Irb.lookup: remote が nil なら bitclust setup を案内する
+# [x] refe の CLI(Searcher#exec)も DB が無ければ remote で検索する
+class TestBitClustIrbPlugin < Test::Unit::TestCase
+  FOO_MD = <<~'MD'
+    ---
+    library: foo
+    ---
+    # class Foo < Object
+
+    クラスの説明。
+
+    ## Instance Methods
+
+    ### def bar -> nil
+
+    bar の説明。
+  MD
+
+  BASE_URL = 'https://docs.ruby-lang.org/ja/latest/'
+  INDEX_JS = "var search_data = #{JSON.generate(index: [
+    { name: 'String', full_name: 'String', type: 'class', path: 'class/String.html' },
+    { name: 'gsub', full_name: 'String#gsub', type: 'instance_method', path: 'method/String/i/gsub.html' },
+  ])};\n"
+  PAGES = {
+    'js/search_data.js' => INDEX_JS,
+    'method/String/i/gsub.md' => "# String#gsub\n\n置き換えます。\n",
+  }.freeze
+
+  def build_markdown_db(dir)
+    api = File.join(dir, 'manual', 'api')
+    FileUtils.mkdir_p(File.join(api, 'foo'))
+    File.write(File.join(api, 'foo.md'), "---\ntype: library\n---\nfoo ライブラリ。\n")
+    File.write(File.join(api, 'foo', 'Foo.md'), FOO_MD)
+    prefix = File.join(dir, 'db')
+    db = BitClust::MethodDatabase.new(prefix)
+    db.init
+    db.transaction do
+      db.propset('version', '3.4')
+      db.propset('encoding', 'utf-8')
+    end
+    db.transaction do
+      db.update_by_markdowntree(api)
+    end
+    BitClust::MethodDatabase.new(prefix)
+  end
+
+  def with_db(&block)
+    Dir.mktmpdir do |dir|
+      yield build_markdown_db(dir)
+    end
+  end
+
+  # 既定の DB 探索(環境変数・設定ファイル)がどれも当たらない状態
+  DB_ENV_KEYS = %w[REFE2_SERVER BITCLUST_SERVER REFE2_DATADIR BITCLUST_DATADIR
+                   HOME XDG_CONFIG_HOME XDG_DATA_HOME XDG_CACHE_HOME].freeze
+
+  def without_local_db
+    saved = DB_ENV_KEYS.to_h {|k| [k, ENV[k]] }
+    Dir.mktmpdir do |home|
+      DB_ENV_KEYS.each {|k| ENV.delete(k) }
+      ENV['HOME'] = home
+      yield home
+    end
+  ensure
+    saved.each {|k, v| v ? ENV[k] = v : ENV.delete(k) }
+  end
+
+  def fake_remote(dir, pages = PAGES)
+    fetcher = lambda do |uri, _headers|
+      rel = uri.to_s.delete_prefix(BASE_URL)
+      pages.key?(rel) ? [200, pages[rel].dup] : [404, '']
+    end
+    BitClust::Remote.new(base_url: BASE_URL, fetcher: fetcher, cache_dir: File.join(dir, 'cache'))
+  end
+
+  def never_remote(dir)
+    BitClust::Remote.new(base_url: BASE_URL, cache_dir: File.join(dir, 'cache'),
+                         fetcher: ->(_uri, _headers) { flunk 'remote must not be used' })
+  end
+
+  def test_terminal_view_writes_to_given_io
+    out = StringIO.new
+    view = BitClust::TerminalView.new(BitClust::Plain.new, {}, io: out)
+    view.send(:puts, 'hello')
+    assert_equal("hello\n", out.string)
+    assert_same(out, view.io)
+    assert_same($stdout, BitClust::TerminalView.new(BitClust::Plain.new, {}).io)
+  end
+
+  def test_lookup_method
+    with_db do |db|
+      out = StringIO.new
+      BitClust::Irb.lookup('Foo#bar', db: db, io: out)
+      assert_match(/Foo#bar/, out.string)
+      assert_match(/bar の説明。/, out.string)
+    end
+  end
+
+  def test_lookup_class
+    with_db do |db|
+      out = StringIO.new
+      BitClust::Irb.lookup('Foo', db: db, io: out)
+      assert_match(/class Foo < Object/, out.string)
+      assert_match(/クラスの説明。/, out.string)
+    end
+  end
+
+  def test_lookup_empty_pattern_shows_usage
+    with_db do |db|
+      out = StringIO.new
+      assert_nothing_raised do
+        BitClust::Irb.lookup('', db: db, io: out)
+      end
+      assert_match(/refe/, out.string)
+    end
+  end
+
+  def test_lookup_not_found_reports_instead_of_raising
+    with_db do |db|
+      out = StringIO.new
+      assert_nothing_raised do
+        BitClust::Irb.lookup('NoSuchClass#no_such_method', db: db, io: out)
+      end
+      assert_match(/no such method/, out.string)
+    end
+  end
+
+  def test_command_is_registered_for_irb
+    begin
+      require 'irb/command'
+    rescue LoadError
+      omit 'irb >= 1.13 is not available'
+    end
+    assert(BitClust::Irb::RefeCommand < ::IRB::Command::Base)
+    assert_match(/るりま|リファレンス/, BitClust::Irb::RefeCommand.description)
+  end
+
+  def test_searcher_local_database_p
+    without_local_db do
+      assert_false(BitClust::Searcher.new.local_database?)
+      with_db do |db|
+        ENV['BITCLUST_DATADIR'] = db.instance_variable_get(:@prefix)
+        assert_true(BitClust::Searcher.new.local_database?)
+      end
+    end
+  end
+
+  def test_lookup_uses_local_db_when_given
+    with_db do |db|
+      Dir.mktmpdir do |dir|
+        out = StringIO.new
+        BitClust::Irb.lookup('Foo#bar', db: db, io: out, remote: never_remote(dir))
+        assert_match(/bar の説明。/, out.string)
+      end
+    end
+  end
+
+  def test_lookup_falls_back_to_remote_without_local_db
+    without_local_db do |home|
+      out = StringIO.new
+      BitClust::Irb.lookup('String#gsub', io: out, remote: fake_remote(home))
+      assert_match(/置き換えます。/, out.string)
+      assert_match(%r{method/String/i/gsub\.html}, out.string)
+    end
+  end
+
+  def test_lookup_without_remote_and_local_db_shows_setup_hint
+    without_local_db do
+      out = StringIO.new
+      assert_nothing_raised do
+        BitClust::Irb.lookup('String#gsub', io: out, remote: nil)
+      end
+      assert_match(/bitclust setup/, out.string)
+    end
+  end
+
+  def test_refe_cli_falls_back_to_remote_without_local_db
+    without_local_db do |home|
+      out = StringIO.new
+      searcher = BitClust::Searcher.new
+      searcher.remote = fake_remote(home)
+      searcher.parse(%w[String#gsub])
+      view = BitClust::TerminalView.new(BitClust::Plain.new, {}, io: out)
+      searcher.run_query(nil, %w[String#gsub], view)
+      assert_match(/置き換えます。/, out.string)
+    end
+  end
+end

data/test/test_link_checker.rb

@@ -38,7 +38,7 @@ class TestLinkChecker < Test::Unit::TestCase
 
     ## Class Methods
 
-    ### def baz -> nil
+    ### def Foo.baz -> nil
 
     baz です。
 

data/test/test_markdown_bridge.rb

@@ -91,6 +91,41 @@ class TestMarkdownBridge < Test::Unit::TestCase
       out["thread.rd"]
   end
 
+  def test_membership_version_and_else_wrap_include_sites
+    # bitclust#331: #@version V は #@if (version == "V")、その #@else は
+    # #@if (version != "V") で再具現化する。範囲の #@else は 2 つの
+    # membership（A 未満 / B 以上）になるので include サイトも 2 つ
+    out = build_from(
+      "builtin.md" => "---\ntype: library\n---\nbuiltin 概要。\n",
+      "onlylib.md" => "---\ntype: library\n---\nonlylib 概要。\n",
+      "range.md" => "---\ntype: library\n---\nrange 概要。\n",
+      "onlylib/Shared.md" =>
+        "---\n" \
+        "library:\n" \
+        "\#@version 3.2\n" \
+        "  - onlylib\n" \
+        "\#@else\n" \
+        "  - builtin\n" \
+        "\#@end\n" \
+        "\#@version 3.1...3.3\n" \
+        "  - range\n" \
+        "\#@else\n" \
+        "  - range\n" \
+        "\#@end\n" \
+        "---\n" \
+        "# class Shared < Object\nS。\n"
+    )
+    assert_equal "onlylib 概要。\n\n\#@if (version == \"3.2\")\n\#@include(onlylib/Shared)\n\#@end\n",
+      out["onlylib.rd"]
+    assert_equal "builtin 概要。\n\n\#@if (version != \"3.2\")\n\#@include(onlylib/Shared)\n\#@end\n",
+      out["builtin.rd"]
+    assert_equal "range 概要。\n\n" \
+      "\#@until 3.3\n\#@since 3.1\n\#@include(onlylib/Shared)\n\#@end\n\#@end\n" \
+      "\#@until 3.1\n\#@include(onlylib/Shared)\n\#@end\n" \
+      "\#@since 3.3\n\#@include(onlylib/Shared)\n\#@end\n",
+      out["range.rd"]
+  end
+
   def test_libraries_manifest
     out = build
     assert_equal "bar/baz\ndual\nfoo\n\#@until 3.1\ngated\n\#@end\nsub/sub\n", out["LIBRARIES"]

data/test/test_markdown_exporter.rb

@@ -0,0 +1,260 @@
+# frozen_string_literal: true
+
+require 'test/unit'
+require 'stringio'
+require 'bitclust'
+require 'bitclust/markdown_exporter'
+require 'bitclust/mdparser'
+require 'bitclust/methoddatabase'
+require 'bitclust/functiondatabase'
+require 'bitclust/subcommands/statichtml_command'
+
+# MarkdownExporter: statichtml --markdown-output 用に、HTML の各ページと
+# 対になる Markdown を前処理済みソースから組み立てる。
+class TestMarkdownExporter < Test::Unit::TestCase
+  PARAMS = { "version" => "3.4" }
+
+  def setup
+    @urlmapper = BitClust::Subcommands::StatichtmlCommand::URLMapperEx.new(
+      :suffix => '.html',
+      :fs_casesensitive => true
+    )
+    @urlmapper.bitclust_html_base = '..'
+    @exporter = BitClust::MarkdownExporter.new(@urlmapper, '.html')
+  end
+
+  def parse_md(md, libname = "_builtin")
+    db = BitClust::MethodDatabase.dummy(PARAMS)
+    lib = BitClust::MDParser.new(db).parse(StringIO.new(md), libname, PARAMS)
+    [db, lib]
+  end
+
+  sub_test_case("convert_text") do
+    def test_bare_method_ref
+      assert_equal "[Array#index](../method/Array/i/index.md) を参照",
+                   @exporter.convert_text("[m:Array#index] を参照")
+    end
+
+    def test_bare_class_ref
+      assert_equal "[String](../class/String.md)",
+                   @exporter.convert_text("[c:String]")
+    end
+
+    def test_bare_library_ref
+      assert_equal "[csv](../library/csv.md)",
+                   @exporter.convert_text("[lib:csv]")
+    end
+
+    def test_bare_doc_ref
+      assert_equal "[spec/literal](../doc/spec=2fliteral.md)",
+                   @exporter.convert_text("[d:spec/literal]")
+    end
+
+    def test_bare_function_ref
+      assert_equal "[rb_ary_new](../function/rb_ary_new.md)",
+                   @exporter.convert_text("[f:rb_ary_new]")
+    end
+
+    def test_module_function_ref
+      # md 表記の ?. は内部表記 .# に正規化して URL を引く(ラベルは書かれたまま)
+      assert_equal "[Kernel?.puts](../method/Kernel/m/puts.md)",
+                   @exporter.convert_text("[m:Kernel?.puts]")
+    end
+
+    def test_method_ref_with_escaped_brackets
+      # [m:Array#\[\]] のようにエスケープされた参照。URL はエスケープを解いた
+      # メソッド名から引き、ラベルは書かれたまま(md として正しい形)を保つ
+      assert_equal "[Array#\\[\\]](../method/Array/i/=5b=5d.md)",
+                   @exporter.convert_text("[m:Array#\\[\\]]")
+    end
+
+    def test_labeled_ref
+      assert_equal "[個数](../method/Array/i/size.md)",
+                   @exporter.convert_text("[個数](m:Array#size)")
+    end
+
+    def test_labeled_ref_with_code_span_label
+      assert_equal "[`Array#size`](../method/Array/i/size.md)",
+                   @exporter.convert_text("[`Array#size`](m:Array#size)")
+    end
+
+    def test_markdown_link_kept
+      assert_equal "[Ruby](https://www.ruby-lang.org/)",
+                   @exporter.convert_text("[Ruby](https://www.ruby-lang.org/)")
+    end
+
+    def test_anchor_link_kept
+      assert_equal "[前述の例](#example)",
+                   @exporter.convert_text("[前述の例](#example)")
+    end
+
+    def test_url_ref
+      assert_equal "[https://www.ruby-lang.org/](https://www.ruby-lang.org/)",
+                   @exporter.convert_text("[url:https://www.ruby-lang.org/]")
+    end
+
+    def test_ref_in_page
+      assert_equal "[overview](#overview)",
+                   @exporter.convert_text("[ref:overview]")
+    end
+
+    def test_ref_cross_page
+      assert_equal "[spec/literal#num](../doc/spec=2fliteral.md#num)",
+                   @exporter.convert_text("[ref:d:spec/literal#num]")
+    end
+
+    def test_code_span_is_not_converted
+      assert_equal "`[m:Array#index]`",
+                   @exporter.convert_text("`[m:Array#index]`")
+    end
+
+    def test_code_fence_is_not_converted
+      src = "```ruby\n# [m:Array#index]\n```\n[m:Array#index]\n"
+      expected = "```ruby\n# [m:Array#index]\n```\n[Array#index](../method/Array/i/index.md)\n"
+      assert_equal expected, @exporter.convert_text(src)
+    end
+
+    def test_unknown_ref_type_is_kept
+      assert_equal "[man:printf(3)]", @exporter.convert_text("[man:printf(3)]")
+    end
+
+    def test_unresolvable_method_spec_is_kept
+      # クラス名とメソッド名に分割できない指定はそのまま残す
+      assert_equal "[m:broken spec]", @exporter.convert_text("[m:broken spec]")
+    end
+
+    def test_escaped_bracket_is_kept
+      assert_equal "\\[m:Array#index]", @exporter.convert_text("\\[m:Array#index]")
+    end
+  end
+
+  sub_test_case("pages") do
+    CLASS_MD = <<~MD
+      ---
+      library: _builtin
+      ---
+      # class Array < Object
+
+      配列クラス。[c:Enumerable] も参照。
+
+      ## Class Methods
+
+      ### def self.new(size) -> Array
+
+      生成。
+
+      ## Instance Methods
+
+      ### def index(val) -> Integer
+      ### def find_index(val) -> Integer
+
+      位置を返します。
+    MD
+
+    def test_class_page
+      _, lib = parse_md(CLASS_MD)
+      md = @exporter.class_page(lib.classes.first)
+      assert_equal <<~MD, md
+        # class Array < Object
+
+        配列クラス。[Enumerable](../class/Enumerable.md) も参照。
+
+        ## Class Methods
+
+        - [new](../method/Array/s/new.md)
+
+        ## Instance Methods
+
+        - [find_index](../method/Array/i/find_index.md)
+        - [index](../method/Array/i/index.md)
+      MD
+    end
+
+    def test_module_page_heading
+      md = <<~MD
+        ---
+        library: _builtin
+        ---
+        # module Comparable
+
+        比較。
+      MD
+      _, lib = parse_md(md)
+      page = @exporter.class_page(lib.classes.first)
+      assert page.start_with?("# module Comparable\n"), page
+    end
+
+    def test_method_page
+      _, lib = parse_md(CLASS_MD)
+      entry = lib.classes.first.entries.find { |e| e.names.include?("index") }
+      @urlmapper.bitclust_html_base = '../../..'
+      md = @exporter.method_page("Array#index", [entry])
+      assert_equal <<~MD, md
+        # Array#index
+
+        ### def index(val) -> Integer
+        ### def find_index(val) -> Integer
+
+        位置を返します。
+      MD
+    end
+
+    def test_method_page_normalizes_module_function_name
+      _, lib = parse_md(CLASS_MD)
+      entry = lib.classes.first.entries.first
+      md = @exporter.method_page("Kernel.#puts", [entry])
+      assert md.start_with?("# Kernel?.puts\n"), md
+    end
+
+    def test_library_page
+      md = <<~MD
+        ---
+        type: library
+        category: FileFormat
+        ---
+        CSV を扱うライブラリです。
+      MD
+      _, lib = parse_md(md, "csv")
+      page = @exporter.library_page(lib)
+      assert_equal <<~MD, page
+        # library csv
+
+        CSV を扱うライブラリです。
+      MD
+    end
+
+    def test_doc_page
+      db = BitClust::MethodDatabase.dummy(PARAMS)
+      entry = BitClust::DocEntry.new(db, "help")
+      entry.title = "ヘルプ"
+      entry.source = "\n[c:String] を参照。\n"
+      page = @exporter.doc_page(entry)
+      assert_equal <<~MD, page
+        # ヘルプ
+
+        [String](../class/String.md) を参照。
+      MD
+    end
+
+    def test_function_page
+      require 'bitclust/functiondatabase'
+      md = <<~MD
+        ### VALUE rb_ary_new()
+
+        空の配列を返します。
+      MD
+      db = BitClust::FunctionDatabase.dummy(PARAMS)
+      io = StringIO.new(md)
+      def io.path = "array.c.md"
+      BitClust::MDFunctionParser.new(db).parse(io, "array.c", PARAMS)
+      page = @exporter.function_page(db.functions.first)
+      assert_equal <<~MD, page
+        # rb_ary_new
+
+        ### VALUE rb_ary_new()
+
+        空の配列を返します。
+      MD
+    end
+  end
+end

data/test/test_markdown_tree.rb

@@ -366,4 +366,148 @@ class TestMarkdownTree < Test::Unit::TestCase
       "version-range-gated H1 relations must not be flagged"
     assert_equal [], tree.warnings
   end
+
+  # --- front matter ゲート付きリストのディレクティブ(bitclust#331) ---
+  # テストリスト:
+  # [x] #%else は直前ゲートの反転(until → since / since → until)
+  # [x] #%version A...B / A... / ...B / V(単一版)
+  # [x] #%version A...B の #%else は「A 未満」と「B 以上」の 2 membership
+  # [x] #%version V の #%else は except: [V]
+  # [x] 入れ子のゲートは交差(since は max・until は min)
+  # [x] 矛盾する入れ子(単一版 ≠ 単一版)は membership を作らない
+  # [x] #%# コメント行は無視
+  # [x] 未知の #% 行・#%if・対応のない #%else/#%end・二重 #%else・
+  #     リスト終端で閉じていないゲートは ParseError(無音の打ち切りをやめる)
+
+  def membership_scan(list)
+    scan(
+      "a.md" => LIB, "b.md" => LIB, "c.md" => LIB,
+      "a/X.md" => "---\nlibrary:\n#{list}---\n# class X < Object\n"
+    )
+  end
+
+  def memberships_of(list)
+    tree = membership_scan(list)
+    assert_equal [], tree.warnings
+    tree.entities["a/X.md"][:memberships]
+  end
+
+  def test_else_inverts_until
+    assert_equal [
+      { library: "a", until: "3.4" },
+      { library: "b", since: "3.4" },
+    ], memberships_of("#%until 3.4\n  - a\n#%else\n  - b\n#%end\n")
+  end
+
+  def test_else_inverts_since
+    assert_equal [
+      { library: "a", since: "3.4" },
+      { library: "b", until: "3.4" },
+    ], memberships_of("#%since 3.4\n  - a\n#%else\n  - b\n#%end\n")
+  end
+
+  def test_version_range_forms
+    assert_equal [
+      { library: "a", since: "3.1", until: "3.3" },
+      { library: "b", since: "3.1" },
+      { library: "c", until: "3.3" },
+    ], memberships_of(
+      "#%version 3.1...3.3\n  - a\n#%end\n" \
+      "#%version 3.1...\n  - b\n#%end\n" \
+      "#%version ...3.3\n  - c\n#%end\n"
+    )
+  end
+
+  def test_single_version
+    assert_equal [{ library: "a", version: "3.1" }],
+      memberships_of("#%version 3.1\n  - a\n#%end\n")
+  end
+
+  def test_else_of_version_range_splits_into_two_memberships
+    assert_equal [
+      { library: "a", since: "3.1", until: "3.3" },
+      { library: "b", until: "3.1" },
+      { library: "b", since: "3.3" },
+    ], memberships_of("#%version 3.1...3.3\n  - a\n#%else\n  - b\n#%end\n")
+  end
+
+  def test_else_of_single_version_is_except
+    assert_equal [
+      { library: "a", version: "3.1" },
+      { library: "b", except: ["3.1"] },
+    ], memberships_of("#%version 3.1\n  - a\n#%else\n  - b\n#%end\n")
+  end
+
+  def test_nested_gates_intersect
+    assert_equal [
+      { library: "a", since: "3.2", until: "3.4" },
+      { library: "b", since: "3.0", until: "3.2" },
+    ], memberships_of(
+      "#%since 3.0\n#%until 3.4\n#%since 3.2\n  - a\n#%else\n  - b\n#%end\n#%end\n#%end\n"
+    )
+  end
+
+  def test_contradicting_nested_single_versions_yield_no_membership
+    assert_equal [{ library: "b", version: "3.1" }],
+      memberships_of("#%version 3.1\n#%version 3.2\n  - a\n#%end\n  - b\n#%end\n")
+  end
+
+  def test_directive_comment_lines_are_ignored
+    assert_equal [{ library: "a" }, { library: "b", until: "3.4" }],
+      memberships_of("#%# comment\n  - a\n#%until 3.4\n#%# another\n  - b\n#%end\n")
+  end
+
+  def test_at_prefix_else_and_version
+    assert_equal [
+      { library: "a", since: "3.1", until: "3.3" },
+      { library: "b", until: "3.1" },
+      { library: "b", since: "3.3" },
+    ], memberships_of("\#@version 3.1...3.3\n  - a\n\#@else\n  - b\n\#@end\n")
+  end
+
+  def assert_list_parse_error(list, pattern)
+    e = assert_raise(BitClust::ParseError) { membership_scan(list) }
+    assert_match pattern, e.message
+    assert_match(/a\/X\.md:\d+/, e.message, "message must locate the file and line")
+  end
+
+  def test_unknown_directive_in_list_raises
+    assert_list_parse_error("  - a\n#%sinse 3.4\n  - b\n#%end\n", /unknown preprocessor directive/)
+  end
+
+  def test_if_in_list_is_unsupported
+    assert_list_parse_error("#%if (version >= \"3.4\")\n  - a\n#%end\n", /#%if is not supported/)
+  end
+
+  def test_else_without_gate_raises
+    assert_list_parse_error("  - a\n#%else\n  - b\n#%end\n", /no matching/)
+  end
+
+  def test_end_without_gate_raises
+    assert_list_parse_error("  - a\n#%end\n", /no matching/)
+  end
+
+  def test_duplicate_else_raises
+    assert_list_parse_error("#%since 3.4\n  - a\n#%else\n  - b\n#%else\n  - c\n#%end\n", /duplicate/)
+  end
+
+  def test_unterminated_gate_at_list_end_raises
+    assert_list_parse_error("#%since 3.4\n  - a\n", /unterminated/)
+  end
+
+  def test_indented_directive_in_list_raises
+    # 列 0 でない #% 行は Preprocessor でも指令にならない(YAML コメント扱い)。
+    # リスト内で無音にゲートが無視されたりリストが打ち切られたりしないよう、
+    # 指令風のインデント行はエラーにする
+    assert_list_parse_error("  - a\n  #%since 3.0\n  - b\n#%end\n", /must start at column 0/)
+  end
+
+  def test_yaml_comment_in_list_is_ignored
+    assert_equal [{ library: "a" }, { library: "b", since: "3.0" }],
+      memberships_of("  # plain yaml comment\n  - a\n#%since 3.0\n  # another\n  - b\n#%end\n")
+  end
+
+  def test_wrong_version_range_raises
+    assert_list_parse_error("#%version 3.1..3.3\n  - a\n#%end\n", /wrong version range/)
+  end
 end