3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-03 05:08:23 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Allow calculations in numeric fields

Browse source
This commit is contained in:
Andrés Moya 2021-04-15 15:50:13 +02:00
parent dd92e5d773
commit fad9d2fd3a
4 changed files with 285 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

78
frontend/tests/app/test_util_simple_math.cljs Normal file
View file

@ -0,0 +1,78 @@
(ns app.test-util-simple-math
(:require [cljs.test :as t :include-macros true]
[cljs.pprint :refer [pprint]]
[app.common.math :as cm]
[app.util.simple-math :as sm]))
(t/deftest test-parser-inst
(t/testing "Evaluate an empty string"
(let [result (sm/expr-eval "" 999)]
(t/is (= result 0))))
(t/testing "Evaluate a single number"
(let [result (sm/expr-eval "10" 999)]
(t/is (= result 10))))
(t/testing "Evaluate an addition"
(let [result (sm/expr-eval "10+3" 999)]
(t/is (= result 13))))
(t/testing "Evaluate an addition with spaces"
(let [result (sm/expr-eval "100 + 35" 999)]
(t/is (= result 135))))
(t/testing "Evaluate some operations"
(let [result (sm/expr-eval "100 + 35 - 10 * 2" 999)]
(t/is (= result 115))))
(t/testing "Evaluate some operations with parentheses"
(let [result (sm/expr-eval "(100 + 35 - 10) * 2" 999)]
(t/is (= result 250))))
(t/testing "Evaluate some operations with nested parentheses"
(let [result (sm/expr-eval "(100 + 35 - (20/2))*2" 999)]
(t/is (= result 250))))
(t/testing "Evaluate a relative addition"
(let [result (sm/expr-eval "+10" 20)]
(t/is (= result 30))))
(t/testing "Evaluate a relative multiplication"
(let [result (sm/expr-eval "*10" 20)]
(t/is (= result 200))))
(t/testing "Evaluate a relative complex operation"
(let [result (sm/expr-eval "+(10*2 - 5)" 20)]
(t/is (= result 35))))
(t/testing "Evaluate a percentual operation"
(let [result (sm/expr-eval "+50%" 20)]
(t/is (= result 30))))
(t/testing "Evaluate a complex operation with percents"
(let [result (sm/expr-eval "5 + (25% * 2)" 100)]
(t/is (= result 55))))
(t/testing "Evaluate a complex operation with percents and relative"
(let [result (sm/expr-eval "+ (25% * 2)" 100)]
(t/is (= result 150))))
(t/testing "Evaluate an addition with decimals"
(let [result1 (sm/expr-eval "10 + 2.5" 999)
result2 (sm/expr-eval "10 + 2,5" 999)]
(t/is (= result1 result2 12.5))))
(t/testing "Evaluate a relative operation with decimals"
(let [result (sm/expr-eval "*.5" 20)]
(t/is (= result 10))))
(t/testing "Evaluate a percentual operation with decimals"
(let [result (sm/expr-eval "+10.5%" 20)]
(t/is (= result 22.1))))
(t/testing "Evaluate a complex operation with decimals"
(let [result (sm/expr-eval "(20.333 + 10%) * (1 / 3)" 20)]
(t/is (cm/close? result 7.44433333))))
)