ligo/src/proto_alpha/lib_protocol/test/contracts/at_least.tz

parameter unit;
storage tez;                    # How much you have to send me
code {CDR; DUP;                 # Get the amount required (once for comparison, once to save back in storage)
      AMOUNT; CMPLT;            # Check to make sure no one is wasting my time
      IF {FAIL}                 # Reject the person
         {NIL operation;PAIR}}  # Finish the transaction
Test: move `test/proto_alpha_isolate` into `proto_alpha/lib_protocol/test` 2018-02-02 20:00:33 +04:00			`parameter unit;`
			`storage tez; # How much you have to send me`
			`code {CDR; DUP; # Get the amount required (once for comparison, once to save back in storage)`
			`AMOUNT; CMPLT; # Check to make sure no one is wasting my time`
Michelson: replace direct transfers with an internal operation queue 2018-04-05 19:17:27 +04:00			`IF {FAIL} # Reject the person`
			`{NIL operation;PAIR}} # Finish the transaction`