lua: os stub (time/clock/date/difftime/getenv/...) +8 tests
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
This commit is contained in:
@@ -858,6 +858,24 @@ cat > "$TMPFILE" << 'EPOCHS'
|
||||
(epoch 1441)
|
||||
(eval "(lua-eval-ast \"if io.open(\\\"x\\\") == nil then return 1 else return 0 end\")")
|
||||
|
||||
;; ── Phase 6: os stub ──────────────────────────────────────────
|
||||
(epoch 1500)
|
||||
(eval "(lua-eval-ast \"return type(os.time())\")")
|
||||
(epoch 1501)
|
||||
(eval "(lua-eval-ast \"local t1 = os.time() local t2 = os.time() return t2 > t1\")")
|
||||
(epoch 1502)
|
||||
(eval "(lua-eval-ast \"return os.difftime(100, 60)\")")
|
||||
(epoch 1503)
|
||||
(eval "(lua-eval-ast \"return type(os.clock())\")")
|
||||
(epoch 1504)
|
||||
(eval "(lua-eval-ast \"return type(os.date())\")")
|
||||
(epoch 1505)
|
||||
(eval "(lua-eval-ast \"local d = os.date(\\\"*t\\\") return d.year\")")
|
||||
(epoch 1506)
|
||||
(eval "(lua-eval-ast \"if os.getenv(\\\"HOME\\\") == nil then return 1 else return 0 end\")")
|
||||
(epoch 1507)
|
||||
(eval "(lua-eval-ast \"return type(os.tmpname())\")")
|
||||
|
||||
EPOCHS
|
||||
|
||||
OUTPUT=$(timeout 60 "$SX_SERVER" < "$TMPFILE" 2>/dev/null)
|
||||
@@ -1289,6 +1307,16 @@ check 1431 "tonumber(\"abc\") → nil" '1'
|
||||
check 1440 "io.read() → nil" '1'
|
||||
check 1441 "io.open(x) → nil" '1'
|
||||
|
||||
# ── Phase 6: os stub ──────────────────────────────────────────
|
||||
check 1500 "os.time → number" '"number"'
|
||||
check 1501 "os.time monotonic" 'true'
|
||||
check 1502 "os.difftime" '40'
|
||||
check 1503 "os.clock → number" '"number"'
|
||||
check 1504 "os.date() default" '"string"'
|
||||
check 1505 "os.date(*t).year" '1970'
|
||||
check 1506 "os.getenv → nil" '1'
|
||||
check 1507 "os.tmpname → string" '"string"'
|
||||
|
||||
TOTAL=$((PASS + FAIL))
|
||||
if [ $FAIL -eq 0 ]; then
|
||||
echo "ok $PASS/$TOTAL Lua-on-SX tests passed"
|
||||
|
||||
Reference in New Issue
Block a user