diff options
| author | unwox <me@unwox.com> | 2025-02-18 12:31:18 +0600 |
|---|---|---|
| committer | unwox <me@unwox.com> | 2025-02-18 12:31:18 +0600 |
| commit | 3f258eb7bb257c709ddfdc262dfd1b787c39b005 (patch) | |
| tree | 34ff3657aff04748345022a776ab0c972252d890 /parser/parser.fnl | |
| parent | 34a6a60c407c75e66f94b185aa6845621e4c49ed (diff) | |
add teaworkshop parser
Diffstat (limited to 'parser/parser.fnl')
| -rw-r--r-- | parser/parser.fnl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/parser/parser.fnl b/parser/parser.fnl index afb1ae2..5cb64c3 100644 --- a/parser/parser.fnl +++ b/parser/parser.fnl @@ -158,7 +158,7 @@ (let [peg (peg.Ct (anywhere (* (peg.C pegs.number) - (maybe " ") + (maybe (+ (peg.P " ") " ")) (* (peg.C (if extra-metrics (+ (peg.P "гр") "кг" (table.unpack extra-metrics)) @@ -184,7 +184,7 @@ (let [peg (peg.Ct (anywhere (* (peg.C pegs.number) - (maybe " ") + (maybe (+ (peg.P " ") " ")) (* (peg.C (+ (peg.P "мл") "л")) (+ (pnot pegs.letter) -1)))))] (let [result (peg:match text)] @@ -194,6 +194,12 @@ nil))) nil)) +(fn test-guess-volume [] + (assert (= nil (guess-volume "Сервиз Хуа Хэ Няо"))) + (assert (= 255 (guess-volume "Бутылка для чая «Походная» 255 мл"))) + (assert (= 255 (guess-volume "Бутылка для чая «Походная» 255 мл")))) +(test-guess-volume) + {: match-many : tag : anywhere |