From 0636994ffb0a00a4c499039fe9bb508f402dddc3 Mon Sep 17 00:00:00 2001 From: John David Pressman Date: Thu, 23 Jan 2020 08:32:43 -0800 Subject: [PATCH] Fix interval advance test for repeating time lock contract --- src/test/time_lock_repeat_tests.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/test/time_lock_repeat_tests.ml b/src/test/time_lock_repeat_tests.ml index b77714eeb..cc6fbbf1b 100644 --- a/src/test/time_lock_repeat_tests.ml +++ b/src/test/time_lock_repeat_tests.ml @@ -55,6 +55,8 @@ let early_call () = expect_string_failwith ~options program "main" (e_pair (e_unit ()) init_storage) exp_failwith +let fake_uncompiled_empty_message = e_string "[lambda of type: (lambda unit (list operation)) ]" + (* Test that when we use the contract the next use time advances by correct interval *) let interval_advance () = let%bind program,_ = get_program () in @@ -63,11 +65,11 @@ let interval_advance () = let init_storage = storage lock_time 86400 empty_message in (* It takes a second for Current.now to be called, awful hack *) let%bind new_timestamp = mk_time "2000-01-02T10:10:11Z" in - let new_storage = storage new_timestamp 86400 empty_message in + let new_storage_fake = storage new_timestamp 86400 fake_uncompiled_empty_message in let options = Proto_alpha_utils.Memory_proto_alpha.make_options ~predecessor_timestamp () in expect_eq ~options program "main" - (e_pair (e_unit ()) init_storage) (e_pair empty_op_list new_storage) + (e_pair (e_unit ()) init_storage) (e_pair empty_op_list new_storage_fake) let main = test_suite "Time Lock Repeating" [ test "compile" compile_main ;