740b50aef3
- subs requires a string and validates 0<=start<=end<=count (no Janet from-end/clamping); negative/out-of-range/nil indices throw - assoc! on a transient vector bounds-checks the index (0..count) subs 11-fail -> 24/5 (5 remaining are byte-vs-codepoint Unicode, platform); assoc_bang 32/6 -> 35/3. clojure-test-suite pass 3889->3898. spec: string/subs-strictness (7), transient/assoc!-bounds (4). jpm test green.
45 lines
3.2 KiB
Text
45 lines
3.2 KiB
Text
# Specification: strings (str + clojure.string).
|
|
(use ../support/harness)
|
|
|
|
(defspec "string / str & basics"
|
|
["str concat" "\"abc\"" "(str \"a\" \"b\" \"c\")"]
|
|
["str of numbers" "\"12\"" "(str 1 2)"]
|
|
["str nil is empty" "\"\"" "(str nil)"]
|
|
["str mixed" "\"a1:b\"" "(str \"a\" 1 :b)"]
|
|
["str of coll" "\"[1 2]\"" "(str [1 2])"]
|
|
["count" "3" "(count \"abc\")"]
|
|
["subs from" "\"bc\"" "(subs \"abc\" 1)"]
|
|
["subs range" "\"b\"" "(subs \"abc\" 1 2)"]
|
|
["string? true" "true" "(string? \"x\")"]
|
|
["pr-str vector" "\"[1 2 3]\"" "(pr-str [1 2 3])"]
|
|
["pr-str quotes str" "\"\\\"hi\\\"\"" "(pr-str \"hi\")"]
|
|
["seq of string" "[\\a \\b]" "(seq \"ab\")"])
|
|
|
|
(defspec "clojure.string"
|
|
["join" "\"a,b,c\"" "(do (require (quote [clojure.string :as s])) (s/join \",\" [\"a\" \"b\" \"c\"]))"]
|
|
["join no sep" "\"abc\"" "(do (require (quote [clojure.string :as s])) (s/join [\"a\" \"b\" \"c\"]))"]
|
|
["split" "[\"a\" \"b\"]" "(do (require (quote [clojure.string :as s])) (s/split \"a,b\" #\",\"))"]
|
|
["split-lines" "[\"a\" \"b\"]" "(do (require (quote [clojure.string :as s])) (s/split-lines \"a\\nb\"))"]
|
|
["upper-case" "\"ABC\"" "(do (require (quote [clojure.string :as s])) (s/upper-case \"abc\"))"]
|
|
["lower-case" "\"abc\"" "(do (require (quote [clojure.string :as s])) (s/lower-case \"ABC\"))"]
|
|
["capitalize" "\"Abc\"" "(do (require (quote [clojure.string :as s])) (s/capitalize \"abc\"))"]
|
|
["trim" "\"x\"" "(do (require (quote [clojure.string :as s])) (s/trim \" x \"))"]
|
|
["triml" "\"x \"" "(do (require (quote [clojure.string :as s])) (s/triml \" x \"))"]
|
|
["blank? true" "true" "(do (require (quote [clojure.string :as s])) (s/blank? \" \"))"]
|
|
["blank? false" "false" "(do (require (quote [clojure.string :as s])) (s/blank? \"x\"))"]
|
|
["includes?" "true" "(do (require (quote [clojure.string :as s])) (s/includes? \"hello\" \"ell\"))"]
|
|
["starts-with?" "true" "(do (require (quote [clojure.string :as s])) (s/starts-with? \"hello\" \"he\"))"]
|
|
["ends-with?" "true" "(do (require (quote [clojure.string :as s])) (s/ends-with? \"hello\" \"lo\"))"]
|
|
["replace" "\"hexxo\"" "(do (require (quote [clojure.string :as s])) (s/replace \"hello\" \"l\" \"x\"))"]
|
|
["reverse" "\"cba\"" "(do (require (quote [clojure.string :as s])) (s/reverse \"abc\"))"]
|
|
["index-of" "2" "(do (require (quote [clojure.string :as s])) (s/index-of \"hello\" \"l\"))"])
|
|
|
|
# subs validates bounds like Clojure (no Janet from-end/clamping).
|
|
(defspec "string / subs strictness"
|
|
["subs basic" "\"bcd\"" "(subs \"abcde\" 1 4)"]
|
|
["subs to end" "\"cde\"" "(subs \"abcde\" 2)"]
|
|
["subs start>end" :throws "(subs \"abcde\" 2 1)"]
|
|
["subs negative" :throws "(subs \"abcde\" -1)"]
|
|
["subs end past len" :throws "(subs \"abcde\" 1 6)"]
|
|
["subs nil start" :throws "(subs \"abcde\" nil 2)"]
|
|
["subs on nil" :throws "(subs nil 1 2)"])
|