diff options
Diffstat (limited to 'gen/order.erl')
| -rw-r--r-- | gen/order.erl | 66 |
1 files changed, 33 insertions, 33 deletions
diff --git a/gen/order.erl b/gen/order.erl index e970ee7..92e6f13 100644 --- a/gen/order.erl +++ b/gen/order.erl @@ -18,9 +18,9 @@ reverse(Order) -> -ifdef(TEST). reverse_test() -> - (fun(Capture1) -> expect:equal(Capture1, gt) end)(reverse(lt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(reverse(eq)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(reverse(gt)). + expect:equal(reverse(lt), gt), + expect:equal(reverse(eq), eq), + expect:equal(reverse(gt), lt). -endif. to_int(Order) -> @@ -37,9 +37,9 @@ to_int(Order) -> -ifdef(TEST). to_int_test() -> - (fun(Capture1) -> expect:equal(Capture1, -1) end)(to_int(lt)), - (fun(Capture1) -> expect:equal(Capture1, 0) end)(to_int(eq)), - (fun(Capture1) -> expect:equal(Capture1, 1) end)(to_int(gt)). + expect:equal(to_int(lt), -1), + expect:equal(to_int(eq), 0), + expect:equal(to_int(gt), 1). -endif. compare(A, B) -> @@ -65,15 +65,15 @@ compare(A, B) -> -ifdef(TEST). compare_test() -> - (fun(Capture1) -> expect:equal(Capture1, eq) end)(compare(lt, lt)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(compare(lt, eq)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(compare(lt, gt)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(compare(eq, lt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(compare(eq, eq)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(compare(eq, gt)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(compare(gt, lt)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(compare(gt, eq)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(compare(gt, gt)). + expect:equal(compare(lt, lt), eq), + expect:equal(compare(lt, eq), lt), + expect:equal(compare(lt, gt), lt), + expect:equal(compare(eq, lt), gt), + expect:equal(compare(eq, eq), eq), + expect:equal(compare(eq, gt), lt), + expect:equal(compare(gt, lt), gt), + expect:equal(compare(gt, eq), gt), + expect:equal(compare(gt, gt), eq). -endif. max(A, B) -> @@ -90,15 +90,15 @@ max(A, B) -> -ifdef(TEST). max_test() -> - (fun(Capture1) -> expect:equal(Capture1, lt) end)(max(lt, lt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(max(lt, eq)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(max(lt, gt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(max(eq, lt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(max(eq, eq)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(max(eq, gt)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(max(gt, lt)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(max(gt, eq)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(max(gt, gt)). + expect:equal(max(lt, lt), lt), + expect:equal(max(lt, eq), eq), + expect:equal(max(lt, gt), gt), + expect:equal(max(eq, lt), eq), + expect:equal(max(eq, eq), eq), + expect:equal(max(eq, gt), gt), + expect:equal(max(gt, lt), gt), + expect:equal(max(gt, eq), gt), + expect:equal(max(gt, gt), gt). -endif. min(A, B) -> @@ -115,13 +115,13 @@ min(A, B) -> -ifdef(TEST). min_test() -> - (fun(Capture1) -> expect:equal(Capture1, lt) end)(min(lt, lt)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(min(lt, eq)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(min(lt, gt)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(min(eq, lt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(min(eq, eq)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(min(eq, gt)), - (fun(Capture1) -> expect:equal(Capture1, lt) end)(min(gt, lt)), - (fun(Capture1) -> expect:equal(Capture1, eq) end)(min(gt, eq)), - (fun(Capture1) -> expect:equal(Capture1, gt) end)(min(gt, gt)). + expect:equal(min(lt, lt), lt), + expect:equal(min(lt, eq), lt), + expect:equal(min(lt, gt), lt), + expect:equal(min(eq, lt), lt), + expect:equal(min(eq, eq), eq), + expect:equal(min(eq, gt), eq), + expect:equal(min(gt, lt), lt), + expect:equal(min(gt, eq), eq), + expect:equal(min(gt, gt), gt). -endif. |