anchor.diff:      check_type(Module, point, "'(23.15, 100)'", {23.15, 100.0}, []).
   
   geometry_type_test(Module) ->
  -    check_type(Module, geometry, "'COMPOUNDCURVE(CIRCULARSTRING(0 0,1 1,1 0),(1 0,0 1))'", 
  +    check_type(Module, geometry, "'COMPOUNDCURVE(CIRCULARSTRING(0 0,1 1,1 0),(1 0,0 1))'",
         {compound_curve,'2d',
             [{circular_string,'2d',
                 [{point,'2d',0.0,0.0,undefined,undefined},
  
positive.code:           Select(timestamp, [{{2008,1,2},{3,4,5.0}}, {{2008,1,2},{3,4,6.0}}]),
            Select(timestamptz, [{{2008,1,2},{3,4,5.0}}, {{2008,1,2},{3,4,6.0}}]),
            Select(interval, [{{1,2,3.1},0,0}, {{1,2,3.2},0,0}]),
            Select(hstore, [{[{null, null}, {a, 1}, {1, 2}]}]),
            Select(hstore, [[{[{null, null}, {a, 1}, {1, 2}]}, {[]}], [{[{a, 1}]}, {[{null, 2}]}]]),
            Select(cidr, [{{127,0,0,1}, 32}, {{0,0,0,0,0,0,0,1}, 128}]),
            Select(inet, [{127,0,0,1}, {0,0,0,0,0,0,0,1}])
        end).
  
negative.code: format_hstore_key(Key) -> format_hstore_string(Key).
  
  format_hstore_value(null) -> null;
  format_hstore_value(undefined) -> null;
  format_hstore_value(Value) -> format_hstore_string(Value).
  
  format_hstore_string(Num) when is_number(Num) -> iolist_to_binary(io_lib:format("~w", [Num]));
  