aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/target/ruby.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/target/ruby.lux')
-rw-r--r--stdlib/source/test/lux/target/ruby.lux112
1 files changed, 56 insertions, 56 deletions
diff --git a/stdlib/source/test/lux/target/ruby.lux b/stdlib/source/test/lux/target/ruby.lux
index ccbb01bd1..76269ebd5 100644
--- a/stdlib/source/test/lux/target/ruby.lux
+++ b/stdlib/source/test/lux/target/ruby.lux
@@ -270,7 +270,7 @@
(/.new (list) {.#None})
(/.do (/.code $method/0) (list (/.float single)) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.new /.initialize]
(expression (|>> (as Frac) (f.= single))
(|> (all /.then
@@ -285,7 +285,7 @@
(/.new (list (/.float single)) {.#None})
(/.do (/.code $method/0) (list) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.alias_method/2]
(expression (|>> (as Frac) (f.= (f.+ single single)))
(|> (all /.then
@@ -298,7 +298,7 @@
(/.new (list) {.#None})
(/.do (/.code $method/1) (list (/.float single)) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.for [/.module]
(all _.and
(_.coverage [/.include/1]
@@ -312,7 +312,7 @@
(/.new (list) {.#None})
(/.do (/.code $method/0) (list (/.float single)) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.extend/1]
(expression (|>> (as Frac) (f.= (f.+ single single)))
(|> (all /.then
@@ -323,7 +323,7 @@
(/.return (|> $sub_class
(/.do (/.code $method/0) (list (/.float single)) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
))
)))
@@ -351,7 +351,7 @@
(/.set (list /.stdout) $old)
(/.return (/.the "string" $new)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.print/2]
(expression (|>> (as Text) (text#= expected))
(|> (all /.then
@@ -363,7 +363,7 @@
(/.set (list /.stdout) $old)
(/.return (/.the "string" $new)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
))
(_.for [/.stdin]
(all _.and
@@ -378,7 +378,7 @@
(/.set (list /.stdin) $old)
(/.return $it))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.last_string_read]
(expression (|>> (as Text) (text#= (format right text.\n)))
(|> (all /.then
@@ -390,7 +390,7 @@
(/.set (list /.stdin) $old)
(/.return /.last_string_read))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.last_line_number_read]
(expression (|>> (as Nat) (n.= 2))
/.last_line_number_read))
@@ -442,7 +442,7 @@
(/.set (list $global) (/.float float/0))
(/.return (/.defined?/1 $global)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.script_name]
(expression (let [file (format (# file.default separator) packager.main_file)]
(|>> (as Text)
@@ -472,7 +472,7 @@
(/.do "match" (list pattern) {.#None})))
(/.return (/.= pattern /.last_string_matched)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.last_regexp_match]
(expression (|>> (as Bit))
(|> (/.return (|> (/.manual "Regexp")
@@ -480,7 +480,7 @@
(/.do "match" (list pattern) {.#None})
(/.= /.last_regexp_match)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
)))
(def: test|local_var
@@ -493,14 +493,14 @@
(expression (|>> (as Frac) (f.= (f.+ float/0 float/0)))
(|> (/.return (/.+ $foreign $foreign))
[(list $foreign)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.float float/0))))))
+ (/.apply_lambda (list (/.float float/0))))))
(_.coverage [/.set]
(expression (|>> (as Frac) (f.= (f.+ float/0 float/0)))
(|> (all /.then
(/.set (list $foreign) (/.float float/0))
(/.return (/.+ $foreign $foreign)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
)))
(def: test|instance_var
@@ -531,7 +531,7 @@
(/.new (list) {.#None})
(/.do (/.code $method) (list) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.attr_reader/*]
(expression (|>> (as Frac) (f.= float/0))
(|> (all /.then
@@ -545,7 +545,7 @@
(/.new (list) {.#None})
(/.the instance))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.attr_writer/*]
(expression (|>> (as Frac) (f.= float/0))
(|> (all /.then
@@ -561,7 +561,7 @@
(/.return (|> $object
(/.do (/.code $method) (list) {.#None}))))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.attr_accessor/*]
(expression (|>> (as Frac) (f.= float/0))
(|> (all /.then
@@ -572,7 +572,7 @@
(/.set (list (/.the instance $object)) (/.float float/0))
(/.return (/.the instance $object)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
)))
(def: test|static_var
@@ -598,7 +598,7 @@
(/.statement (/.class_variable_set $static (/.int int/0) $class))
(/.return (/.class_variable_get $static $class)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
)))
(def: test|variadic
@@ -619,18 +619,18 @@
(expression (|>> (as Int) .nat (n.= arity))
(|> (/.return (/.the "length" $inputs))
[(list (/.variadic $inputs))] (/.lambda {.#None})
- (/.apply_lambda/* vals))))
+ (/.apply_lambda vals))))
(_.coverage [/.splat]
(expression (|>> (as Int) .nat (n.= arity))
(|> (/.return (/.the "length" (/.array (list (/.splat $inputs)))))
[(list (/.variadic $inputs))] (/.lambda {.#None})
- (/.apply_lambda/* vals))))))
+ (/.apply_lambda vals))))))
(<| (_.for [/.LVar**])
(_.coverage [/.variadic_kv /.double_splat]
(expression (|>> (as Int) .nat (n.= arity))
(|> (/.return (/.the "length" $inputs))
[(list (/.variadic_kv $inputs))] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.double_splat (/.hash (list.zipped_2 keys vals)))))))))
+ (/.apply_lambda (list (/.double_splat (/.hash (list.zipped_2 keys vals)))))))))
)))
(def: test|var
@@ -650,7 +650,7 @@
(/.set (list $foreign) (/.float float/0))
(/.return (/.defined?/1 $foreign)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list))))))
+ (/.apply_lambda (list))))))
(_.for [/.CVar]
(_.coverage [/.constant]
(expression (|>> (as Text) (text#= "constant"))
@@ -658,7 +658,7 @@
(/.set (list $constant) (/.float float/0))
(/.return (/.defined?/1 $constant)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list))))))
+ (/.apply_lambda (list))))))
(_.for [/.GVar]
..test|global)
(_.for [/.LVar]
@@ -687,7 +687,7 @@
(/.set (list @) (/.+ @ @))
(/.return @))
[(list $foreign)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.float float/0))))))
+ (/.apply_lambda (list (/.float float/0))))))
(expression (|>> (as Frac) (f.= (f.+ float/0 float/0)))
(let [@ (/.item field $foreign)]
(|> (all /.then
@@ -695,7 +695,7 @@
(/.set (list @) (/.+ @ @))
(/.return @))
[(list $foreign)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.float float/0))))))
+ (/.apply_lambda (list (/.float float/0))))))
))
)))
@@ -744,7 +744,7 @@
))
(/.return $output))
[(list $input)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.int input)))))))
+ (/.apply_lambda (list (/.int input)))))))
(_.coverage [/.next]
(let [expected (i.* (.int (n.- expected_inner_iterations full_inner_iterations)) input)]
(expression (|>> (as Frac) f.int (i.= expected))
@@ -760,7 +760,7 @@
))
(/.return $output))
[(list $input)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.int input)))))))
+ (/.apply_lambda (list (/.int input)))))))
(_.coverage [/.redo]
(let [expected (i.* (.int (n.- expected_inner_iterations full_inner_iterations)) input)]
(expression (|>> (as Frac) f.int (i.= expected))
@@ -776,7 +776,7 @@
))
(/.return $output))
[(list $input)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.int input)))))))
+ (/.apply_lambda (list (/.int input)))))))
)))
(def: test|loop
@@ -801,7 +801,7 @@
))
(/.return $output))
[(list $input)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.int input))))))
+ (/.apply_lambda (list (/.int input))))))
(_.coverage [/.for_in]
(expression (|>> (as Int) (i.= expected))
(|> (all /.then
@@ -810,7 +810,7 @@
(/.set (list $output) (/.+ $index $output)))
(/.return $output))
[(list $input)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.int input))))))
+ (/.apply_lambda (list (/.int input))))))
..test|label
)))
@@ -839,7 +839,7 @@
(|> (/.begin (/.return (/.float expected))
(list [(list) $ex (/.return (/.float dummy))]))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.Rescue /.throw/1]
(expression (|>> (as Frac) (f.= expected))
(|> (/.begin (all /.then
@@ -847,7 +847,7 @@
(/.return (/.float dummy)))
(list [(list) $ex (/.return (/.float expected))]))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.raise]
(expression (|>> (as Frac) (f.= expected))
(|> (/.begin (all /.then
@@ -855,23 +855,23 @@
(/.return (/.float dummy)))
(list [(list) $ex (/.return (/.float expected))]))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.catch /.throw/2]
(and (expression (|>> (as Frac) (f.= expected))
- (<| (/.apply_lambda/* (list))
+ (<| (/.apply_lambda (list))
(/.lambda {.#None}) [(list)]
/.return
(/.catch expected_tag) [(list)]
(/.throw/2 expected_tag (/.float expected))))
(expression (|>> (as Frac) (f.= expected))
- (<| (/.apply_lambda/* (list))
+ (<| (/.apply_lambda (list))
(/.lambda {.#None}) [(list)]
/.return
(/.catch expected_tag) [(list)]
/.statement (/.catch dummy_tag) [(list)]
(/.throw/2 expected_tag (/.float expected))))
(expression (|>> (as Frac) (f.= expected))
- (<| (/.apply_lambda/* (list))
+ (<| (/.apply_lambda (list))
(/.lambda {.#None}) [(list)]
/.return
(/.catch dummy_tag) [(list)]
@@ -884,11 +884,11 @@
(/.return (/.float dummy)))
(list [(list) $ex (/.return (/.the "message" /.latest_error_message))]))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.latest_error_location]
(and (|> (/.return /.latest_error_location)
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list))
+ (/.apply_lambda (list))
..nil)
(expression (|>> (as Bit) (bit#= true))
(|> (/.begin (all /.then
@@ -898,7 +898,7 @@
(/.do "kind_of?" (list (is /.CVar (/.manual "Array"))) {.#None} /.latest_error_location)
(/.> (/.int +0) (/.the "length" /.latest_error_location))))]))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list))))))
+ (/.apply_lambda (list))))))
)))
(def: test|function
@@ -920,36 +920,36 @@
(and (expression (|>> (as Frac) (f.= float/0))
(|> (/.return (/.float float/0))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list))))
+ (/.apply_lambda (list))))
(expression (|>> (as Frac) f.nat (n.= iterations))
(|> (/.return (/.? (/.< (/.int (.int iterations)) $arg/0)
- (/.apply_lambda/* (list (/.+ (/.int +1) $arg/0)) $self)
+ (/.apply_lambda (list (/.+ (/.int +1) $arg/0)) $self)
$arg/0))
[(list $arg/0)] (/.lambda {.#Some $self})
- (/.apply_lambda/* (list (/.int +0)))))))
- (_.coverage [/.apply_lambda/*]
+ (/.apply_lambda (list (/.int +0)))))))
+ (_.coverage [/.apply_lambda]
(expression (|>> (as Frac) (f.= (all f.+ float/0 float/1 float/2)))
(|> (/.return (all /.+ $arg/0 $arg/1 $arg/2))
[(list $arg/0 $arg/1 $arg/2)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.float float/0) (/.float float/1) (/.float float/2))))))
+ (/.apply_lambda (list (/.float float/0) (/.float float/1) (/.float float/2))))))
(_.coverage [/.function]
(expression (|>> (as Frac) f.nat (n.= iterations))
(|> (all /.then
(/.function $self (list $arg/0)
(/.return (/.? (/.< (/.int (.int iterations)) $arg/0)
- (/.apply/* (list (/.+ (/.int +1) $arg/0)) {.#None} $self)
+ (/.apply (list (/.+ (/.int +1) $arg/0)) {.#None} $self)
$arg/0)))
- (/.return (/.apply/* (list (/.int +0)) {.#None} $self)))
+ (/.return (/.apply (list (/.int +0)) {.#None} $self)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
- (_.coverage [/.apply/*]
+ (/.apply_lambda (list)))))
+ (_.coverage [/.apply]
(expression (|>> (as Frac) (f.= (all f.+ float/0 float/1 float/2)))
(|> (all /.then
(/.function $self (list $arg/0 $arg/1 $arg/2)
(/.return (all /.+ $arg/0 $arg/1 $arg/2)))
- (/.return (/.apply/* (list (/.float float/0) (/.float float/1) (/.float float/2)) {.#None} $self)))
+ (/.return (/.apply (list (/.float float/0) (/.float float/1) (/.float float/2)) {.#None} $self)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
)))
(def: test|branching
@@ -975,7 +975,7 @@
(/.return (/.float float/0))
(/.return (/.float float/1)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
(_.coverage [/.when]
(expression (|>> (as Frac) (f.= (if ??? float/0 float/1)))
(|> (all /.then
@@ -983,7 +983,7 @@
(/.return (/.float float/0)))
(/.return (/.float float/1)))
[(list)] (/.lambda {.#None})
- (/.apply_lambda/* (list)))))
+ (/.apply_lambda (list)))))
)))
(def: test|statement
@@ -1004,14 +1004,14 @@
(/.statement (/.+ $arg/0 $arg/0))
(/.return $arg/0))
[(list $arg/0)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.float float/0))))))
+ (/.apply_lambda (list (/.float float/0))))))
(_.coverage [/.then]
(expression (|>> (as Frac) (f.= float/0))
(|> (all /.then
(/.return $arg/0)
(/.return $arg/1))
[(list $arg/0 $arg/1)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.float float/0) (/.float float/1))))))
+ (/.apply_lambda (list (/.float float/0) (/.float float/1))))))
(_.coverage [/.require/1]
(let [$JSON (is /.CVar (/.manual "JSON"))]
(expression (|>> (as Text) (text#= expected))
@@ -1020,7 +1020,7 @@
(/.return (let [json (/.do "parse" (list $arg/0) {.#None} $JSON)]
(/.do "generate" (list json) {.#None} $JSON))))
[(list $arg/0)] (/.lambda {.#None})
- (/.apply_lambda/* (list (/.string expected)))))))
+ (/.apply_lambda (list (/.string expected)))))))
..test|exception
..test|branching
..test|loop
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-22 23:28:23 +0000