test_script

//+------------------------------------------------------------------+
//|                                                         test.mq4 |
//|                                   Copyright © 2005, Serega Lykov |
//|                                       http://mtexperts.narod.ru/ |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, Serega Lykov"
#property link      "http://mtexperts.narod.ru/"

int start()
  {
//---- OrderSelect() = false -----------------------------------------
//     return error: 4051 (ERR_INVALID_FUNCTION_PARAMVALUE)
//     message at logs: invalid ticket for OrderDelete function
   Print("1. ------------------------------------------------------");
   for(int i=1; i<100000; i++)
     {
      if(OrderSelect(i,SELECT_BY_TICKET) == true) continue;
      bool error = OrderDelete(OrderTicket(),CLR_NONE);
      if(error == false) Print("Error = ",GetLastError());
      break;
     } 
//---- delete order from history -------------------------------------
//     return error: 4108 (ERR_INVALID_TICKET)
//     message at logs: unknown ticket 24858529 for OrderDelete function
   Print("2. ------------------------------------------------------");
   int ticket = OrderSend(Symbol(),OP_BUY,0.01,Ask,3,0,0,"",0,0,CLR_NONE);
   OrderClose(ticket,0.01,Bid,10,CLR_NONE);
   if(OrderSelect(ticket,SELECT_BY_TICKET) == true)
     {
      error = OrderDelete(OrderTicket(),CLR_NONE);
      if(error == false) Print("Error = ",GetLastError());
     }
//---- OrderSend() < 0  ----------------------------------------------
//     return error: 4051 (ERR_INVALID_FUNCTION_PARAMVALUE)
//     message at logs: invalid ticket for OrderDelete function
   Print("3. ------------------------------------------------------");
   ticket = OrderSend(Symbol(),OP_BUY,0.01,100000,3,0,0,"",0,0,CLR_NONE);
   error = OrderDelete(ticket,CLR_NONE);
   if(error == false) Print("Error = ",GetLastError()); 
//---- delete market order -------------------------------------------
//     return error: 4108 (ERR_INVALID_TICKET)
//     message at logs: market order #24859072 cannot be deleted
   Print("4. ------------------------------------------------------");
   ticket = OrderSend(Symbol(),OP_BUY,0.01,Ask,3,0,0,"",0,0,CLR_NONE);
   error = OrderDelete(ticket,CLR_NONE);
   if(error == false)
     {
      Print("Error = ",GetLastError());
      OrderClose(ticket,0.01,Bid,10,CLR_NONE);
     }
   return(0);
  }
//+------------------------------------------------------------------+