coolguy/coollang
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
순서가 요점이다. 문법에 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
This commit is contained in:
coolguy
2026-08-30 17:51:56 +09:00
co-authored by Claude Opus 5
parent 8ff35c5d9b
commit 78ef07d2ee
22 changed files with 551 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/test_coollang.ml
+129 -6
View File
@@ -1035,7 +1035,8 @@ let outputs ?(use = []) src expected =
| out, None -> out = expected
| out, Some e ->
Printf.printf " (실행 오류: %s / 그때까지 출력: %S)\n"
(Session.string_of_error e) out;
(Session.string_of_error e)
out;
false
let () =
@@ -1365,8 +1366,7 @@ let () =
(Printf.sprintf "grammar.ebnf: %s는 정의되었거나 토큰 부류다" n)
(List.mem n allowed))
undef;
check "grammar.ebnf에 죽은 프로덕션이 없다"
(Ebnf.unreachable g ~start:"module" = []);
check "grammar.ebnf에 죽은 프로덕션이 없다" (Ebnf.unreachable g ~start:"module" = []);
let g = Ebnf.expand g in
let tokens = allowed @ [ "ident"; "int_lit"; "string_lit" ] in
let real =
@@ -1434,7 +1434,13 @@ let () =
|> List.sort compare
|> List.map (Filename.concat dir)
with Sys_error _ -> [])
[ "../samples"; "../samples/modules"; "../samples/run"; "../samples/app"; "../std" ]
[
"../samples";
"../samples/modules";
"../samples/run";
"../samples/app";
"../std";
]
in
check "대조할 파일이 있다" (List.length files > 15);
List.iter
@@ -1467,7 +1473,9 @@ let () =
| Error _ -> ()
| Ok g ->
let tokens =
[ "ident"; "int_lit"; "string_lit"; "NEWLINE"; "char"; "digit"; "letter" ]
[
"ident"; "int_lit"; "string_lit"; "NEWLINE"; "char"; "digit"; "letter";
]
in
let visited = Hashtbl.create 128 in
let bad = ref 0 in
@@ -1486,7 +1494,15 @@ let () =
done;
check "문법이 만든 문장을 파서가 전부 받는다" (!bad = 0);
let lexical =
[ "ident"; "int_lit"; "string_lit"; "str_char"; "escape"; "bool_lit"; "literal" ]
[
"ident";
"int_lit";
"string_lit";
"str_char";
"escape";
"bool_lit";
"literal";
]
in
let all =
Ebnf.expand g
@@ -1498,3 +1514,110 @@ let () =
if unvisited <> [] then
Printf.printf " (밟지 않은 프로덕션: %s)\n" (String.concat " " unvisited);
check "생성이 모든 프로덕션을 밟는다" (unvisited = [])
(* ------------------------------------------------------------------ *)
(* panic, Never, test *)
(* ------------------------------------------------------------------ *)
let () =
let dir = Filename.concat (Filename.get_temp_dir_name ()) "cool_panictest" in
ignore (Sys.command (Printf.sprintf "mkdir -p %s" (Filename.quote dir)));
let f = Filename.concat dir "m.cool" in
let run src =
write f src;
let st = Session.create ~root:dir ~std:"../std" () in
Session.test st f
in
let src =
"import \"cool.dev/std/test\" as Test\n\n\
pub enum E {\n\
\ A,\n\
\ B,\n\
}\n\n\
pub fn name(e: E) -> String {\n\
\ match e {\n\
\ A => \"a\",\n\
\ B => panic(\"B는 아직\"),\n\
\ }\n\
}\n\n\
test \"통과\" {\n\
\ Test.assert(name(A) == \"a\")\n\
}\n\n\
test \"assert 실패\" {\n\
\ Test.assert(1 == 2)\n\
}\n\n\
test \"panic 실패\" {\n\
\ Test.assert(name(B) == \"b\")\n\
}"
in
match run src with
| Error es ->
List.iter
(fun (e : Session.error) -> Printf.printf " (%s)\n" e.message)
es;
check "panic/test 예제가 검사를 통과한다" false
| Ok rs ->
check "panic/test 예제가 검사를 통과한다" true;
check "테스트 셋이 잡힌다" (List.length rs = 3);
let failed =
List.filter (fun (r : Interp.test_result) -> r.t_failure <> None) rs
in
check "실패는 둘이다" (List.length failed = 2);
(* Never가 match 팔에 서지 못하면 위 예제가 타입 검사를 통과하지 못한다 *)
check "assert 실패가 보고된다"
(List.exists
(fun (r : Interp.test_result) ->
r.t_name = "assert 실패"
&&
match r.t_failure with
| Some (_, m) -> has_sub m "assert 실패"
| None -> false)
rs);
check "panic 메시지가 그대로 보고된다"
(List.exists
(fun (r : Interp.test_result) ->
r.t_name = "panic 실패"
&&
match r.t_failure with
| Some (_, m) -> has_sub m "B는 아직"
| None -> false)
rs);
(* 하나가 죽어도 나머지는 돈다 — 격리는 런타임의 일이다 *)
check "실패해도 다른 테스트는 돈다"
(List.exists
(fun (r : Interp.test_result) ->
r.t_name = "통과" && r.t_failure = None)
rs)
(* 테스트는 effect를 수행할 수 없다 — capability를 받지 않으므로 증명된다 *)
let () =
let dir = Filename.concat (Filename.get_temp_dir_name ()) "cool_panictest" in
let f = Filename.concat dir "e.cool" in
write f
"pub capability Db {\n\
\ fn read() effects {Db.read} -> Int\n\
}\n\n\
pub fn sneaky() effects {Db.read} -> Int\n\n\
test \"금지\" {\n\
\ let n = sneaky()\n\
}";
let st = Session.create ~root:dir ~std:"../std" () in
Session.load st f;
check "테스트는 effect를 수행할 수 없다"
(List.exists
(fun (e : Session.error) -> has_sub e.message "테스트는 effect를 수행할 수 없습니다")
(Session.errors st))
(* samples/app의 테스트가 실제로 돈다 *)
let () =
let st = Session.create ~root:"../samples/app" ~std:"../std" () in
match Session.test st "../samples/app/config.cool" with
| Error es ->
List.iter
(fun (e : Session.error) -> Printf.printf " (%s)\n" e.message)
es;
check "samples/app의 테스트가 돈다" false
| Ok rs ->
check "samples/app의 테스트가 돈다" (List.length rs >= 4);
check "samples/app의 테스트가 전부 통과한다"
(List.for_all (fun (r : Interp.test_result) -> r.t_failure = None) rs)