anchor.diff:      %% to many chars
       io:format("test: is_qval/1  - 7~n"),
       false = is_qval("0.1234"),
  -    
  +
       %% float out of range
       io:format("test: is_qval/1  - 8~n"),
       false = is_qval("1.001"),
  
positive.code:     %% parse "0."
      io:format("test: str_to_qval/1  - 11~n"),
      0.0 = str_to_qval("0."),
      
      %% parse "1."
      io:format("test: str_to_qval/1  - 12~n"),
      1.0 = str_to_qval("1."),
  
      %% is_qval/1
      %%--------------------------------------------------------------------
      %% 
      %% int = 1
      io:format("test: is_qval/1  - 1~n"),
      true = is_qval("1"),
  
negative.code:     %% to many chars
      io:format("test: str_to_qval/1  - 7~n"),
      fail(fun() -> str_to_qval("0.1234") end),
  
      %% float out of range
      io:format("test: str_to_qval/1  - 8~n"),
      fail(fun() -> str_to_qval("1.001") end),
  