aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/control/concurrency/actor.lux6
-rw-r--r--stdlib/source/test/lux/ffi.jvm.lux59
-rw-r--r--stdlib/source/test/lux/ffi.old.lux12
3 files changed, 42 insertions, 35 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/actor.lux b/stdlib/source/test/lux/control/concurrency/actor.lux
index 012a9f796..27b13bba4 100644
--- a/stdlib/source/test/lux/control/concurrency/actor.lux
+++ b/stdlib/source/test/lux/control/concurrency/actor.lux
@@ -175,8 +175,8 @@
(in (do async.monad
[verdict (async.future
(do io.monad
- [anonymous (/.actor {Nat
- initial_state}
+ [anonymous (/.actor [Nat
+ initial_state]
((on_mail message state self)
(message (++ state) self)))
sent/++? (/.mail! ++! anonymous)
@@ -207,7 +207,7 @@
(in (do async.monad
[agent (async.future
(do [! io.monad]
- [agent (/.actor {Nat 0})
+ [agent (/.actor [Nat 0])
_ (/.observe! (function (_ event stop)
(function (_ events_seen self)
(async.future
diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux
index 606bd8a23..431e72641 100644
--- a/stdlib/source/test/lux/ffi.jvm.lux
+++ b/stdlib/source/test/lux/ffi.jvm.lux
@@ -267,7 +267,7 @@
.let [object/0 (/.object [] [test/TestInterface0]
[]
(test/TestInterface0
- [] (actual0 self)
+ [] (actual0 self [])
java/lang/Long
(:as java/lang/Long
expected)))
@@ -278,7 +278,7 @@
object/1 (/.object [] [test/TestInterface1]
[]
(test/TestInterface1
- [] (actual1 self {throw? java/lang/Boolean})
+ [] (actual1 self [throw? java/lang/Boolean])
java/lang/Long
"throws" [java/lang/Throwable]
(if (:as Bit throw?)
@@ -303,7 +303,7 @@
object/2 (/.object [] [test/TestInterface2]
[]
(test/TestInterface2
- [a] (actual2 self {input a})
+ [a] (actual2 self [input a])
a
input))
example/2!
@@ -313,7 +313,7 @@
object/3 (/.object [] [(test/TestInterface3 java/lang/Long)]
[]
((test/TestInterface3 a)
- [] (actual3 self)
+ [] (actual3 self [])
a
(:as java/lang/Long
expected)))
@@ -326,7 +326,9 @@
object/4 (/.object [] [test/TestInterface4]
[]
(test/TestInterface4
- [] (actual4 self {actual_left long} {actual_right long} {_ long})
+ [] (actual4 self [actual_left long
+ actual_right long
+ _ long])
long
(:as java/lang/Long
(i.+ (:as Int actual_left)
@@ -344,10 +346,11 @@
... Fields
("private" value java/lang/Long)
... Constructors
- ("public" [] (new self {value java/lang/Long}) []
+ ("public" [] (new self [value java/lang/Long]) []
(:= ::value value))
... Methods
- (test/TestInterface0 [] (actual0 self) java/lang/Long
+ (test/TestInterface0 [] (actual0 self [])
+ java/lang/Long
::value))
(/.import: test/TestClass0
@@ -358,10 +361,12 @@
... Fields
("private" value java/lang/Long)
... Constructors
- ("public" [] (new self {value java/lang/Long}) []
+ ("public" [] (new self [value java/lang/Long]) []
(:= ::value value))
... Methods
- (test/TestInterface1 [] (actual1 self {throw? java/lang/Boolean}) java/lang/Long "throws" [java/lang/Throwable]
+ (test/TestInterface1 [] (actual1 self [throw? java/lang/Boolean])
+ java/lang/Long
+ "throws" [java/lang/Throwable]
(if (:as Bit throw?)
(panic! "YOLO")
::value)))
@@ -372,11 +377,11 @@
(/.class: "final" test/TestClass2 [test/TestInterface2]
... Constructors
- ("public" [] (new self) []
+ ("public" [] (new self []) []
[])
... Methods
(test/TestInterface2
- [a] (actual2 self {input a})
+ [a] (actual2 self [input a])
a
input))
@@ -388,11 +393,11 @@
... Fields
("private" value a)
... Constructors
- ("public" [] (new self {value a}) []
+ ("public" [] (new self [value a]) []
(:= ::value value))
... Methods
((test/TestInterface3 a)
- [] (actual3 self)
+ [] (actual3 self [])
a
::value))
@@ -402,10 +407,10 @@
(/.class: "final" test/TestClass4 []
... Constructors
- ("public" [] (new self) []
+ ("public" [] (new self []) []
[])
... Methods
- ("public" (actual4 self {value java/lang/Long}) java/lang/Long
+ ("public" (actual4 self [value java/lang/Long]) java/lang/Long
value))
(/.import: test/TestClass4
@@ -415,10 +420,10 @@
(/.class: "final" test/TestClass5 []
... Constructors
- ("public" [] (new self) []
+ ("public" [] (new self []) []
[])
... Methods
- ("public" "static" (actual5 {value java/lang/Long})
+ ("public" "static" (actual5 [value java/lang/Long])
java/lang/Long
value))
@@ -428,10 +433,10 @@
(/.class: "abstract" test/TestClass6 []
... Constructors
- ("public" [] (new self) []
+ ("public" [] (new self []) []
[])
... Methods
- ("public" "abstract" (actual6 {value java/lang/Long})
+ ("public" "abstract" (actual6 [value java/lang/Long])
java/lang/Long))
(/.import: test/TestClass6
@@ -440,11 +445,11 @@
(/.class: "final" test/TestClass7 test/TestClass6 []
... Constructors
- ("public" [] (new self) []
+ ("public" [] (new self []) []
[])
... Methods
(test/TestClass6
- [] (actual6 self {input java/lang/Long})
+ [] (actual6 self [input java/lang/Long])
java/lang/Long
input))
@@ -454,11 +459,13 @@
(/.class: "final" test/TestClass8 [test/TestInterface4]
... Constructors
- ("public" [] (new self) []
+ ("public" [] (new self []) []
[])
... Methods
(test/TestInterface4
- [] (actual4 self {actual_left long} {actual_right long} {_ long})
+ [] (actual4 self [actual_left long
+ actual_right long
+ _ long])
long
(:as java/lang/Long
(i.+ (:as Int actual_left)
@@ -472,12 +479,12 @@
... Fields
("private" value9 a)
... Constructors
- ("public" [] (new self {value a}) []
+ ("public" [] (new self [value a]) []
(:= ::value9 value))
... Methods
- ("public" (set_actual9 self {value a}) void
+ ("public" (set_actual9 self [value a]) void
(:= ::value9 value))
- ("public" (get_actual9 self) a
+ ("public" (get_actual9 self []) a
::value9))
(/.import: (test/TestClass9 a)
diff --git a/stdlib/source/test/lux/ffi.old.lux b/stdlib/source/test/lux/ffi.old.lux
index 56f97a962..27d18d002 100644
--- a/stdlib/source/test/lux/ffi.old.lux
+++ b/stdlib/source/test/lux/ffi.old.lux
@@ -43,11 +43,11 @@
(:= ::increase increase)
(:= ::counter counter)
[]))
- ("public" (currentC self) java/lang/Long
+ ("public" (currentC self []) java/lang/Long
::counter)
- ("public" (upC self) void
+ ("public" (upC self []) void
(:= ::counter (i.+ ::increase ::counter)))
- ("public" (downC self) void
+ ("public" (downC self []) void
(:= ::counter (i.- ::increase ::counter))))
(/.import: (test/lux/ffi/TestClass a)
@@ -73,15 +73,15 @@
(/.object [] [test/lux/ffi/TestInterface]
[]
(test/lux/ffi/TestInterface
- [] (current self)
+ [] (current self [])
java/lang/Long
counter)
(test/lux/ffi/TestInterface
- [] (up self)
+ [] (up self [])
test/lux/ffi/TestInterface
(test_object increase (i.+ increase counter)))
(test/lux/ffi/TestInterface
- [] (down self)
+ [] (down self [])
test/lux/ffi/TestInterface
(test_object increase (i.- increase counter)))))