diff options
| author | Eduardo Julian | 2017-01-28 22:21:58 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-01-28 22:21:58 -0400 |
| commit | 0765ddaa5dfebba732c06ac563df0e55d08fc6fc (patch) | |
| tree | 7f4aa917b2ea23f8daced94f2ec8133f65ce9193 /stdlib/test | |
| parent | 9e87e07dc32e2c8acc5d95d2e56babded93fc7ac (diff) | |
- Some refactorings.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux/math/complex.lux | 4 | ||||
| -rw-r--r-- | stdlib/test/test/lux/math/logic/continuous.lux | 10 | ||||
| -rw-r--r-- | stdlib/test/test/lux/math/simple.lux | 4 |
3 files changed, 8 insertions, 10 deletions
diff --git a/stdlib/test/test/lux/math/complex.lux b/stdlib/test/test/lux/math/complex.lux index 0cb5be426..9fba68dc9 100644 --- a/stdlib/test/test/lux/math/complex.lux +++ b/stdlib/test/test/lux/math/complex.lux @@ -82,9 +82,7 @@ (test: "Addidion, substraction, multiplication and division" [x gen-complex y gen-complex - factor gen-dim - #let [rem (&;c.% (&;complex 3.0 5.0) - (&;complex 6.0 4.0))]] + factor gen-dim] ($_ seq (assert "Adding 2 complex numbers is the same as adding their parts." (let [z (&;c.+ y x)] diff --git a/stdlib/test/test/lux/math/logic/continuous.lux b/stdlib/test/test/lux/math/logic/continuous.lux index 7e4d10973..2c13e123e 100644 --- a/stdlib/test/test/lux/math/logic/continuous.lux +++ b/stdlib/test/test/lux/math/logic/continuous.lux @@ -13,21 +13,21 @@ right R;deg] ($_ seq (assert "AND is the minimum." - (let [result (&;and~ left right)] + (let [result (&;~and left right)] (and (d.<= left result) (d.<= right result)))) (assert "OR is the maximum." - (let [result (&;or~ left right)] + (let [result (&;~or left right)] (and (d.>= left result) (d.>= right result)))) (assert "Double negation results in the original value." - (d.= left (&;not~ (&;not~ left)))) + (d.= left (&;~not (&;~not left)))) (assert "Every value is equivalent to itself." (and (d.>= left - (&;=~ left left)) + (&;~= left left)) (d.>= right - (&;=~ right right)))) + (&;~= right right)))) )) diff --git a/stdlib/test/test/lux/math/simple.lux b/stdlib/test/test/lux/math/simple.lux index ae48cd07b..ddd914bdf 100644 --- a/stdlib/test/test/lux/math/simple.lux +++ b/stdlib/test/test/lux/math/simple.lux @@ -98,6 +98,6 @@ (b/= (<odd?> x) (&;odd? x))) ))] - ["Nat" R;nat n.even? n.odd?] - ["Int" R;int i.even? i.odd?] + ["Nat" R;nat n.even? n.odd?] + ["Int" R;int i.even? i.odd?] ) |