dimgigov
87d6028487
- Reader: maps, sets, syntax-quote, dispatch macros, metadata - Runtime: CljVal type system, 80+ core functions (collections, strings, math, IO) - Emitter: full CljVal-based code generation, macro expansion, inline fns - Macros: defmacro with compile-time evaluator, ->, ->>, and, or, when, cond, for, doseq - Nim Interop: nim/module/function syntax, auto-import, type mapping - CLI: cljnim -e '<code>' for quick evaluation - Tests: 60 unit tests (reader + emitter) - Benchmarks: AOT suite showing 543x startup, 679x factorial vs JVM Clojure - CI: GitLab CI pipeline - Runtime library: lib/cljnim_runtime.nim (1070+ lines)
161 lines
3.8 KiB
Nim
161 lines
3.8 KiB
Nim
import unittest
|
|
import ../src/types
|
|
import ../src/reader
|
|
|
|
suite "Reader - Basic Types":
|
|
test "read nil":
|
|
let v = read("nil")
|
|
check v.kind == ckNil
|
|
|
|
test "read true":
|
|
let v = read("true")
|
|
check v.kind == ckBool
|
|
check v.boolVal == true
|
|
|
|
test "read false":
|
|
let v = read("false")
|
|
check v.kind == ckBool
|
|
check v.boolVal == false
|
|
|
|
test "read integer":
|
|
let v = read("42")
|
|
check v.kind == ckInt
|
|
check v.intVal == 42
|
|
|
|
test "read negative integer":
|
|
let v = read("-7")
|
|
check v.kind == ckInt
|
|
check v.intVal == -7
|
|
|
|
test "read float":
|
|
let v = read("3.14")
|
|
check v.kind == ckFloat
|
|
check v.floatVal == 3.14
|
|
|
|
test "read string":
|
|
let v = read("\"hello\"")
|
|
check v.kind == ckString
|
|
check v.strVal == "hello"
|
|
|
|
test "read string with escapes":
|
|
let v = read("\"hello\\nworld\"")
|
|
check v.kind == ckString
|
|
check v.strVal == "hello\nworld"
|
|
|
|
test "read keyword":
|
|
let v = read(":key")
|
|
check v.kind == ckKeyword
|
|
check v.kwName == "key"
|
|
|
|
test "read symbol":
|
|
let v = read("foo")
|
|
check v.kind == ckSymbol
|
|
check v.symName == "foo"
|
|
|
|
test "read symbol with special chars":
|
|
let v = read("my-fn?")
|
|
check v.kind == ckSymbol
|
|
check v.symName == "my-fn?"
|
|
|
|
suite "Reader - Collections":
|
|
test "read empty list":
|
|
let v = read("()")
|
|
check v.kind == ckList
|
|
check v.items.len == 0
|
|
|
|
test "read list":
|
|
let v = read("(+ 1 2)")
|
|
check v.kind == ckList
|
|
check v.items.len == 3
|
|
check v.items[0].kind == ckSymbol
|
|
check v.items[0].symName == "+"
|
|
check v.items[1].kind == ckInt
|
|
check v.items[1].intVal == 1
|
|
check v.items[2].kind == ckInt
|
|
check v.items[2].intVal == 2
|
|
|
|
test "read vector":
|
|
let v = read("[1 2 3]")
|
|
check v.kind == ckVector
|
|
check v.items.len == 3
|
|
check v.items[0].intVal == 1
|
|
check v.items[1].intVal == 2
|
|
check v.items[2].intVal == 3
|
|
|
|
test "read empty vector":
|
|
let v = read("[]")
|
|
check v.kind == ckVector
|
|
check v.items.len == 0
|
|
|
|
test "read map":
|
|
let v = read("{:a 1 :b 2}")
|
|
check v.kind == ckMap
|
|
check v.mapKeys.len == 2
|
|
check v.mapKeys[0].kind == ckKeyword
|
|
check v.mapKeys[0].kwName == "a"
|
|
check v.mapVals[0].kind == ckInt
|
|
check v.mapVals[0].intVal == 1
|
|
|
|
test "read empty map":
|
|
let v = read("{}")
|
|
check v.kind == ckMap
|
|
check v.mapKeys.len == 0
|
|
|
|
test "read nested list":
|
|
let v = read("(+ (- 3 1) 2)")
|
|
check v.kind == ckList
|
|
check v.items.len == 3
|
|
check v.items[1].kind == ckList
|
|
check v.items[1].items.len == 3
|
|
|
|
suite "Reader - Quote and Syntax":
|
|
test "read quote":
|
|
let v = read("'foo")
|
|
check v.kind == ckList
|
|
check v.items.len == 2
|
|
check v.items[0].kind == ckSymbol
|
|
check v.items[0].symName == "quote"
|
|
check v.items[1].kind == ckSymbol
|
|
check v.items[1].symName == "foo"
|
|
|
|
test "read deref":
|
|
let v = read("@atom")
|
|
check v.kind == ckList
|
|
check v.items[0].symName == "deref"
|
|
|
|
test "read unquote":
|
|
let v = read("~x")
|
|
check v.kind == ckList
|
|
check v.items[0].symName == "unquote"
|
|
|
|
test "read unquote-splicing":
|
|
let v = read("~@x")
|
|
check v.kind == ckList
|
|
check v.items[0].symName == "unquote-splicing"
|
|
|
|
suite "Reader - Comments":
|
|
test "skip comments":
|
|
let v = read("; comment\n42")
|
|
check v.kind == ckInt
|
|
check v.intVal == 42
|
|
|
|
test "inline comments":
|
|
let forms = readAll("(+ 1 2) ; addition\n(- 3 1)")
|
|
check forms.len == 2
|
|
|
|
suite "Reader - readAll":
|
|
test "read multiple forms":
|
|
let forms = readAll("1 2 3")
|
|
check forms.len == 3
|
|
check forms[0].intVal == 1
|
|
check forms[1].intVal == 2
|
|
check forms[2].intVal == 3
|
|
|
|
test "read empty string":
|
|
let forms = readAll("")
|
|
check forms.len == 0
|
|
|
|
test "read whitespace only":
|
|
let forms = readAll(" \n \t ")
|
|
check forms.len == 0
|