Skip to content
Browse files

test.sh -u

  • Loading branch information...
1 parent ba519e3 commit db9dbf5e88d20b07ad24a78ce54583a153a48427 @pszilagyi pszilagyi committed Apr 9, 2013
Showing with 21 additions and 0 deletions.
  1. +21 −0 tests/failing-output/js-args.ml
View
21 tests/failing-output/js-args.ml
@@ -123,10 +123,31 @@ let _ =
<= quux)) (* lined up under left argument to op,
sim. to ^ above *)
let _ =
+ let min_closing_backoff =
+ -. ( Hidden_float.expose (arb.cfg.base_edge @! Buy)
+ +. Hidden_float.expose (arb.cfg.base_edge @! Sell))
+ in
+ 0
+
+(* Sim. indentation of if conditions: *)
+let _ =
if (a
<= b)
then ()
let _ =
if a
<= b
then ()
+let _ =
+ if Edge_adjustment.is_zero arb.cfg.extra_edge
+ && 0. = sys.plugs.edge_backoff
+ && 0. = zero_acvol_edge_backoff
+ then 0.
+ else 1.
+let _ =
+ if
+ Edge_adjustment.is_zero arb.cfg.extra_edge
+ && 0. = sys.plugs.edge_backoff
+ && 0. = zero_acvol_edge_backoff
+ then 0.
+ else 1.

0 comments on commit db9dbf5

Please sign in to comment.
Something went wrong with that request. Please try again.