anchor.diff:       ?assertRPNFloat("i", {0,1})
       ].
   
  -% Trigonometric
   trig_functions_in_real_domain() ->
       [
        ?assertRPNFloat("30 sin", 0.5),
  
positive.code:      ?assertRPNFloat("-0.4,-0.75", {-0.4,-0.75})
      ].
  
  % Basic Arithmetic
  addition_tests() ->
      [
       ?assertRPNFloat("1   2    +", 3),
  
negative.code: 
  -define(round(Value, Decimals), round(Value*math:pow(10,Decimals))/math:pow(10,Decimals)).
  -define(assertRPNFloat(Input, Expected), {atom_to_list(element(2,element(2,process_info(self(), current_function))))++", line "++integer_to_list(?LINE), Input, Expected}).
  -define(assertRPNError(Operator, Stack), {atom_to_list(element(2,element(2,process_info(self(), current_function))))++", line "++integer_to_list(?LINE), {Operator, Stack}, assertThrow}).
  
  %%% Unit Tests
  
  