From 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Wed, 29 May 2019 21:02:55 +0100 Subject: Enable namespaced modules --- gen/test/std@order_test.erl | 47 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 gen/test/std@order_test.erl (limited to 'gen/test/std@order_test.erl') diff --git a/gen/test/std@order_test.erl b/gen/test/std@order_test.erl new file mode 100644 index 0000000..f702ff9 --- /dev/null +++ b/gen/test/std@order_test.erl @@ -0,0 +1,47 @@ +-module(std@order_test). +-compile(no_auto_import). + +-export([reverse_test/0, to_int_test/0, compare_test/0, max_test/0, min_test/0]). + +reverse_test() -> + std@expect:equal(std@order:reverse(lt), gt), + std@expect:equal(std@order:reverse(eq), eq), + std@expect:equal(std@order:reverse(gt), lt). + +to_int_test() -> + std@expect:equal(std@order:to_int(lt), -1), + std@expect:equal(std@order:to_int(eq), 0), + std@expect:equal(std@order:to_int(gt), 1). + +compare_test() -> + std@expect:equal(std@order:compare(lt, lt), eq), + std@expect:equal(std@order:compare(lt, eq), lt), + std@expect:equal(std@order:compare(lt, gt), lt), + std@expect:equal(std@order:compare(eq, lt), gt), + std@expect:equal(std@order:compare(eq, eq), eq), + std@expect:equal(std@order:compare(eq, gt), lt), + std@expect:equal(std@order:compare(gt, lt), gt), + std@expect:equal(std@order:compare(gt, eq), gt), + std@expect:equal(std@order:compare(gt, gt), eq). + +max_test() -> + std@expect:equal(std@order:max(lt, lt), lt), + std@expect:equal(std@order:max(lt, eq), eq), + std@expect:equal(std@order:max(lt, gt), gt), + std@expect:equal(std@order:max(eq, lt), eq), + std@expect:equal(std@order:max(eq, eq), eq), + std@expect:equal(std@order:max(eq, gt), gt), + std@expect:equal(std@order:max(gt, lt), gt), + std@expect:equal(std@order:max(gt, eq), gt), + std@expect:equal(std@order:max(gt, gt), gt). + +min_test() -> + std@expect:equal(std@order:min(lt, lt), lt), + std@expect:equal(std@order:min(lt, eq), lt), + std@expect:equal(std@order:min(lt, gt), lt), + std@expect:equal(std@order:min(eq, lt), lt), + std@expect:equal(std@order:min(eq, eq), eq), + std@expect:equal(std@order:min(eq, gt), eq), + std@expect:equal(std@order:min(gt, lt), lt), + std@expect:equal(std@order:min(gt, eq), eq), + std@expect:equal(std@order:min(gt, gt), gt). -- cgit v1.2.3