From 2c2541750ca4b7b604070c75c18d84be833c97d5 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Tue, 25 Jun 2019 22:48:07 +0100 Subject: stdlib namespace std -> gleam --- gen/test/gleam@order_test.erl | 47 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 gen/test/gleam@order_test.erl (limited to 'gen/test/gleam@order_test.erl') diff --git a/gen/test/gleam@order_test.erl b/gen/test/gleam@order_test.erl new file mode 100644 index 0000000..d9525c6 --- /dev/null +++ b/gen/test/gleam@order_test.erl @@ -0,0 +1,47 @@ +-module(gleam@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() -> + gleam@expect:equal(gleam@order:reverse(lt), gt), + gleam@expect:equal(gleam@order:reverse(eq), eq), + gleam@expect:equal(gleam@order:reverse(gt), lt). + +to_int_test() -> + gleam@expect:equal(gleam@order:to_int(lt), -1), + gleam@expect:equal(gleam@order:to_int(eq), 0), + gleam@expect:equal(gleam@order:to_int(gt), 1). + +compare_test() -> + gleam@expect:equal(gleam@order:compare(lt, lt), eq), + gleam@expect:equal(gleam@order:compare(lt, eq), lt), + gleam@expect:equal(gleam@order:compare(lt, gt), lt), + gleam@expect:equal(gleam@order:compare(eq, lt), gt), + gleam@expect:equal(gleam@order:compare(eq, eq), eq), + gleam@expect:equal(gleam@order:compare(eq, gt), lt), + gleam@expect:equal(gleam@order:compare(gt, lt), gt), + gleam@expect:equal(gleam@order:compare(gt, eq), gt), + gleam@expect:equal(gleam@order:compare(gt, gt), eq). + +max_test() -> + gleam@expect:equal(gleam@order:max(lt, lt), lt), + gleam@expect:equal(gleam@order:max(lt, eq), eq), + gleam@expect:equal(gleam@order:max(lt, gt), gt), + gleam@expect:equal(gleam@order:max(eq, lt), eq), + gleam@expect:equal(gleam@order:max(eq, eq), eq), + gleam@expect:equal(gleam@order:max(eq, gt), gt), + gleam@expect:equal(gleam@order:max(gt, lt), gt), + gleam@expect:equal(gleam@order:max(gt, eq), gt), + gleam@expect:equal(gleam@order:max(gt, gt), gt). + +min_test() -> + gleam@expect:equal(gleam@order:min(lt, lt), lt), + gleam@expect:equal(gleam@order:min(lt, eq), lt), + gleam@expect:equal(gleam@order:min(lt, gt), lt), + gleam@expect:equal(gleam@order:min(eq, lt), lt), + gleam@expect:equal(gleam@order:min(eq, eq), eq), + gleam@expect:equal(gleam@order:min(eq, gt), eq), + gleam@expect:equal(gleam@order:min(gt, lt), lt), + gleam@expect:equal(gleam@order:min(gt, eq), eq), + gleam@expect:equal(gleam@order:min(gt, gt), gt). -- cgit v1.2.3