anchor.diff:      lager:info("Nodes: ~p", [Nodes]),
       %clockSI_test1(Nodes),
       %clockSI_test2 (Nodes),
  -    clockSI_test3 (Nodes),
  +    %clockSI_test3 (Nodes),
       %clockSI_test4 (Nodes),
  -    clockSI_test_read_time(Nodes),
  +    %clockSI_test_read_time(Nodes),
       clockSI_test_read_wait(Nodes),
       rt:clean_cluster(Nodes),
       ok.
  
positive.code:     lager:info("Test read_time passed"),
      ok.
  
  
negative.code:     
      %rpc:call(LastNode, floppy, clockSI_iread, [TxId1, read_wait_test, riak_dt_pncounter])
      
      %Pid=spawn(rpc, call, [LastNode, floppy, clockSI_iread, [TxId1, read_wait_test, riak_dt_pncounter]]),
      Pid=spawn(clock_si, spawn_read, [LastNode, TxId1, self()]),
      
      %% commit the first tx.
      End=rpc:call(FirstNode, floppy, clockSI_icommit, [TxId]),   
      ?assertMatch({ok, _}, End),
      lager:info("Tx1 Committed."),
      
  
      receive
          {Pid, ReadResult1} ->
              %receive the read value
              ?assertMatch({ok, 0}, ReadResult1),
              lager:info("Tx2 Read value...~p", [ReadResult1])
      end,
      
      %% prepare and commit the second transaction.
      CommitTime1=rpc:call(LastNode, floppy, clockSI_iprepare, [TxId1]),
  