+
+t_compose_and_thread(_Cfg) ->
+ A2B = fun (a) -> b end,
+ B2C = fun (b) -> c end,
+ C2D = fun (c) -> d end,
+ Fs = [C2D, B2C, A2B],
+ d = (hope_fun:compose ( Fs ))(a),
+ d = (hope_fun:compose_right ( Fs ))(a),
+ d = (hope_fun:compose_left (lists:reverse(Fs) ))(a),
+ d = hope_fun:thread (lists:reverse(Fs), a).