panic: panic/Never와 내장 테스트 — 문법을 먼저 고치고 대조 장치가 파서를 지적했다

순서가 요점이다. 문법에 test_decl과 panic_expr을 넣고 파서는 안 고친 채로
대조 장치를 돌렸더니 즉시 잡혔다:

  문장 300개 중 파서가 거부한 것 140개
  [1] 선언 (fn, struct, enum, capability, const)이(가) 필요합니다 — test 발견

파서를 따라가게 하니 다시 0건. 문법과 구현이 어긋나는 상태가 관측 가능한
것이 되었다는 뜻이다.

panic:
- 키워드다. prelude가 없어 함수로 두면 쓸 때마다 import해야 한다
- effect가 아니다. 경계 검사 하나에 {Panic}이 호출자 전부로 전염되면
  effect 절은 신호가 아니라 잡음이 된다
- Never는 어떤 타입 자리에도 놓인다. 없으면 panic을 match 팔에서 못 쓴다
- 언어 수준 recover 없음. 되감기 없음. 자원 해제 여부는 열어둔다
- 0으로 나누기, assert 실패가 이 하나로 모인다

test:
- 파라미터가 없어 capability를 받을 수 없고, 만들 문법도 없다. 그래서
  effect-free임이 증명된다 — 관례가 아니라 검사다. 시험해 보니 실제로
  "테스트는 effect를 수행할 수 없습니다"로 거부한다
- 일반 코드와 같은 타입/effect/move 검사를 받는다
- interface hash에서 제외 — 테스트를 고쳤다고 downstream이 재검사되면 안 된다
- 격리는 런타임의 일이다. 하나가 죽어도 나머지는 돈다

assert는 std/test.cool에 coollang으로 쓰였다 — panic 위의 설탕임이 코드로
보이고, std에서 본문이 있는 첫 함수가 됐다. 그 바람에 std/런타임 양방향
테스트가 걸렸고(본문 있는 함수에 런타임 구현을 요구했다), 그 구분을 넣었다.

samples/app/config.cool에 첫 테스트 넷.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_019ZVDeU6KLuUVL3gs18Hm3E

lib/ebnf_gen.ml

@@ -16,7 +16,9 @@ let min_len (g : Ebnf.t) (tokens : string list) : (string, int) Hashtbl.t =
   let inf = 1_000_000 in
   List.iter (fun (r : Ebnf.rule) -> Hashtbl.replace tbl r.name inf) g;
   let get n =
-    if List.mem n tokens || not (List.exists (fun (r : Ebnf.rule) -> r.name = n) g)
+    if
+      List.mem n tokens
+      || not (List.exists (fun (r : Ebnf.rule) -> r.name = n) g)
     then 1
     else match Hashtbl.find_opt tbl n with Some v -> v | None -> 1
   in
@@ -88,10 +90,12 @@ let deep g = g.depth >= g.max_depth
 let rec gen_expr g (e : Ebnf.expr) =
   match e with
   | Ebnf.Term s -> (
-      match token_of_term s with Some k -> emit g k | None -> emit g (Token.Ident "x"))
-  | Ebnf.Ref n ->
+      match token_of_term s with
+      | Some k -> emit g k
+      | None -> emit g (Token.Ident "x"))
+  | Ebnf.Ref n -> (
       if List.mem n g.tokens then emit g (sample_token n)
-      else (
+      else
         match Hashtbl.find_opt g.rules n with
         | Some r ->
             Hashtbl.replace g.visited n ();
@@ -106,7 +110,9 @@ let rec gen_expr g (e : Ebnf.expr) =
         if deep g then begin
           (* 깊이가 차면 가장 짧게 끝나는 가지. 같은 값이 여럿이면 무작위로
              고른다 — 늘 첫 번째를 고르면 뒤쪽 가지가 영영 안 밟힌다 *)
-          let best = List.fold_left (fun a x -> min a (cost_of g x)) 1_000_000 xs in
+          let best =
+            List.fold_left (fun a x -> min a (cost_of g x)) 1_000_000 xs
+          in
           let cands = List.filter (fun x -> cost_of g x = best) xs in
           match cands with
           | [] -> None
@@ -144,5 +150,5 @@ let sentence ?(tokens = []) ?(start = "module") ?(max_depth = 14) ?visited
   in
   gen_expr st (Ebnf.Ref start);
   let pos = Token.{ line = 1; col = 1 } in
-  List.rev_map (fun k -> Token.{ kind = k; pos }) st.out
-  |> fun xs -> List.rev (Token.{ kind = Token.Eof; pos } :: List.rev xs)
+  List.rev_map (fun k -> Token.{ kind = k; pos }) st.out |> fun xs ->
+  List.rev (Token.{ kind = Token.Eof; pos } :: List.rev xs)