From 27d0955180c137813af1dcc36fe4db0ab25d21a8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 5 Aug 2018 01:57:38 -0400
Subject: Some small improvements and fixes.

---
 stdlib/test/test/lux/data/color.lux    |  4 ++--
 stdlib/test/test/lux/host.jvm.lux      |  2 +-
 stdlib/test/test/lux/time/duration.lux | 10 +++++-----
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'stdlib/test')

diff --git a/stdlib/test/test/lux/data/color.lux b/stdlib/test/test/lux/data/color.lux
index 8932fad79..977ffcf01 100644
--- a/stdlib/test/test/lux/data/color.lux
+++ b/stdlib/test/test/lux/data/color.lux
@@ -22,8 +22,8 @@
 
 (def: (distance from to)
   (-> @.Color @.Color Frac)
-  (let [[fr fg fb] (@.unpack from)
-        [tr tg tb] (@.unpack to)]
+  (let [[fr fg fb] (@.to-rgb from)
+        [tr tg tb] (@.to-rgb to)]
     (math.pow +0.5 ($_ f/+
                        (|> (scale tr) (f/- (scale fr)) square)
                        (|> (scale tg) (f/- (scale fg)) square)
diff --git a/stdlib/test/test/lux/host.jvm.lux b/stdlib/test/test/lux/host.jvm.lux
index 49a229d11..8832bb3f6 100644
--- a/stdlib/test/test/lux/host.jvm.lux
+++ b/stdlib/test/test/lux/host.jvm.lux
@@ -31,7 +31,7 @@
   (#private bar A)
   (#private baz java/lang/Object)
   ## Methods
-  (#public [] (new [value A]) []
+  (#public [] (new {value A}) []
            (exec (:= ::foo #1)
              (:= ::bar value)
              (:= ::baz "")
diff --git a/stdlib/test/test/lux/time/duration.lux b/stdlib/test/test/lux/time/duration.lux
index 1231fb563..669af6b4c 100644
--- a/stdlib/test/test/lux/time/duration.lux
+++ b/stdlib/test/test/lux/time/duration.lux
@@ -51,13 +51,13 @@
          #let [(^open "@/.") @.Order<Duration>]]
         ($_ seq
             (test "Can scale a duration."
-                  (|> sample (@.scale factor) (@.query sample) (i/= factor)))
+                  (|> sample (@.scale-up factor) (@.query sample) (i/= factor)))
             (test "Scaling a duration by one does not change it."
-                  (|> sample (@.scale +1) (@/= sample)))
+                  (|> sample (@.scale-up +1) (@/= sample)))
             (test "Merging with the empty duration changes nothing."
                   (|> sample (@.merge @.empty) (@/= sample)))
             (test "Merging a duration with it's opposite yields an empty duration."
-                  (|> sample (@.merge (@.scale -1 sample)) (@/= @.empty)))
+                  (|> sample (@.merge (@.scale-up -1 sample)) (@/= @.empty)))
             (test "Can frame a duration in terms of another."
                   (cond (and (@.positive? frame) (@.positive? sample))
                         (|> sample (@.frame frame) (@/< frame))
@@ -68,9 +68,9 @@
                         (or (or (@.neutral? frame) (@.neutral? sample))
                             (|> sample
                                 (@.frame frame)
-                                (@.scale -1)
+                                (@.scale-up -1)
                                 (@/< (if (@.negative? frame)
-                                       (@.scale -1 frame)
+                                       (@.scale-up -1 frame)
                                        frame))))))))))
 
 (context: "Codec"
-- 
cgit v1.2.3