aboutsummaryrefslogtreecommitdiff
path: root/stdlib/test
diff options
context:
space:
mode:
authorEduardo Julian2017-01-28 22:21:58 -0400
committerEduardo Julian2017-01-28 22:21:58 -0400
commit0765ddaa5dfebba732c06ac563df0e55d08fc6fc (patch)
tree7f4aa917b2ea23f8daced94f2ec8133f65ce9193 /stdlib/test
parent9e87e07dc32e2c8acc5d95d2e56babded93fc7ac (diff)
- Some refactorings.
Diffstat (limited to 'stdlib/test')
-rw-r--r--stdlib/test/test/lux/math/complex.lux4
-rw-r--r--stdlib/test/test/lux/math/logic/continuous.lux10
-rw-r--r--stdlib/test/test/lux/math/simple.lux4
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?]
)