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/order_test.erl | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 gen/test/order_test.erl (limited to 'gen/test/order_test.erl') diff --git a/gen/test/order_test.erl b/gen/test/order_test.erl deleted file mode 100644 index 6559bd8..0000000 --- a/gen/test/order_test.erl +++ /dev/null @@ -1,47 +0,0 @@ --module(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() -> - expect:equal(order:reverse(lt), gt), - expect:equal(order:reverse(eq), eq), - expect:equal(order:reverse(gt), lt). - -to_int_test() -> - expect:equal(order:to_int(lt), -1), - expect:equal(order:to_int(eq), 0), - expect:equal(order:to_int(gt), 1). - -compare_test() -> - expect:equal(order:compare(lt, lt), eq), - expect:equal(order:compare(lt, eq), lt), - expect:equal(order:compare(lt, gt), lt), - expect:equal(order:compare(eq, lt), gt), - expect:equal(order:compare(eq, eq), eq), - expect:equal(order:compare(eq, gt), lt), - expect:equal(order:compare(gt, lt), gt), - expect:equal(order:compare(gt, eq), gt), - expect:equal(order:compare(gt, gt), eq). - -max_test() -> - expect:equal(order:max(lt, lt), lt), - expect:equal(order:max(lt, eq), eq), - expect:equal(order:max(lt, gt), gt), - expect:equal(order:max(eq, lt), eq), - expect:equal(order:max(eq, eq), eq), - expect:equal(order:max(eq, gt), gt), - expect:equal(order:max(gt, lt), gt), - expect:equal(order:max(gt, eq), gt), - expect:equal(order:max(gt, gt), gt). - -min_test() -> - expect:equal(order:min(lt, lt), lt), - expect:equal(order:min(lt, eq), lt), - expect:equal(order:min(lt, gt), lt), - expect:equal(order:min(eq, lt), lt), - expect:equal(order:min(eq, eq), eq), - expect:equal(order:min(eq, gt), eq), - expect:equal(order:min(gt, lt), lt), - expect:equal(order:min(gt, eq), eq), - expect:equal(order:min(gt, gt), gt). -- cgit v1.2.3