35 lines
1.1 KiB
MQL5
35 lines
1.1 KiB
MQL5
|
//+------------------------------------------------------------------+
|
||
|
|
//| KBAppendSmoke.mq5|
|
||
|
|
//| Non-trading KB append smoke test (DualEA) |
|
||
|
|
//+------------------------------------------------------------------+
|
||
|
|
#property script_show_inputs
|
||
|
|
#property strict
|
||
|
|
|
||
|
|
#include <KnowledgeBase.mqh>
|
||
|
|
|
||
|
|
void OnStart()
|
||
|
|
{
|
||
|
|
// Use the shared KB path in Common Files
|
||
|
|
CKnowledgeBase kb("DualEA\\knowledge_base.csv", ",");
|
||
|
|
|
||
|
|
TradeRecord r;
|
||
|
|
r.timestamp = TimeCurrent();
|
||
|
|
r.symbol = "KB_SMOKE"; // clearly tagged test symbol
|
||
|
|
r.type = ORDER_TYPE_BUY;
|
||
|
|
r.entry_price = 0.0;
|
||
|
|
r.stop_loss = 0.0;
|
||
|
|
r.take_profit = 0.0;
|
||
|
|
r.close_price = 0.0;
|
||
|
|
r.profit = 0.0;
|
||
|
|
r.strategy_id = "KBAppendSmoke"; // test tag 1
|
||
|
|
|
||
|
|
bool ok1 = kb.WriteRecord(r);
|
||
|
|
Sleep(50);
|
||
|
|
|
||
|
|
r.timestamp = TimeCurrent();
|
||
|
|
r.strategy_id = "KBAppendSmoke2"; // test tag 2
|
||
|
|
bool ok2 = kb.WriteRecord(r);
|
||
|
|
|
||
|
|
PrintFormat("KBAppendSmoke: write1=%s, write2=%s (to Common Files \\DualEA\\knowledge_base.csv)",
|
||
|
|
ok1?"OK":"FAIL", ok2?"OK":"FAIL");
|
||
|
|
}
|