| #property strict
|
| #include "..\Include\ModelPredictor.mqh"
|
| #include "..\Include\PolicyHttpBridge.mqh"
|
|
|
| // Test-only identity graph: checks native inference and scaler plumbing.
|
| // This fixture is not a trained trading model and is never installed in DualEA.
|
| const uchar SyntheticModel[]={8,8,18,46,68,117,97,108,69,65,32,114,101,103,114,101,115,115,105,111,110,32,102,105,120,116,117,114,101,44,32,110,111,116,32,97,32,116,114,97,105,110,101,100,32,109,111,100,101,108,58,119,10,33,10,8,102,101,97,116,117,114,101,115,18,11,112,114,111,98,97,98,105,108,105,116,121,34,8,73,100,101,110,116,105,116,121,18,23,83,89,78,84,72,69,84,73,67,95,67,79,78,84,82,65,67,84,95,79,78,76,89,90,26,10,8,102,101,97,116,117,114,101,115,18,14,10,12,8,1,18,8,10,2,8,1,10,2,8,2,98,29,10,11,112,114,111,98,97,98,105,108,105,116,121,18,14,10,12,8,1,18,8,10,2,8,1,10,2,8,2,66,2,16,13};
|
| int g_checks=0;
|
| int g_failures=0;
|
| void Check(bool passed,string name)
|
| {
|
| g_checks++;
|
| Print("[NATIVE-CONTRACT] ",passed ? "PASS: " : "FAIL: ",name);
|
| if(!passed) g_failures++;
|
| }
|
| bool WriteText(string path,string text)
|
| {
|
| int file=FileOpen(path,FILE_WRITE|FILE_BIN);
|
| if(file==INVALID_HANDLE) return false;
|
| uchar bytes[];
|
| int length=StringToCharArray(text,bytes,0,WHOLE_ARRAY,CP_UTF8)-1;
|
| bool ok=(FileWriteArray(file,bytes,0,length)==(uint)length);
|
| FileClose(file);
|
| return ok;
|
| }
|
| int OnInit()
|
| {
|
| FolderCreate("NativeContract");
|
| string model_path="NativeContract\\synthetic_identity.onnx";
|
| string config_path="NativeContract\\synthetic.ini";
|
| int file=FileOpen(model_path,FILE_WRITE|FILE_BIN);
|
| if(file==INVALID_HANDLE) return INIT_FAILED;
|
| uint written=FileWriteArray(file,SyntheticModel,0,ArraySize(SyntheticModel));
|
| FileClose(file);
|
| Check(written==ArraySize(SyntheticModel),"write test-only model fixture");
|
| Check(WriteText(config_path,"feature_count=2\nfeature_names=a|b\nscaler_mean=1|2\nscaler_scale=2|4\n"),"write UTF-8 INI fixture");
|
| CModelPredictor predictor;
|
| Check(!predictor.IsReady(),"new predictor is not ready");
|
| Check(!predictor.Init("NativeContract\\absent.onnx","",config_path),"missing model fails initialization");
|
| Check(!predictor.IsReady(),"missing model cannot mark predictor ready");
|
| Check(predictor.Init(model_path,"",config_path),"native identity model initializes without DLL");
|
| Check(predictor.FeatureCount()==2,"INI feature count is exact");
|
| string names[];
|
| predictor.GetFeatureNames(names);
|
| Check(ArraySize(names)==2 && names[0]=="a" && names[1]=="b","feature order preserved");
|
| double features[]={1.4,5.2};
|
| double probability=predictor.Predict(features,2);
|
| Check(MathAbs(probability-0.8)<0.00001,"raw features standardize to [0.2,0.8] and infer probability 0.8");
|
| Check(predictor.Predict(features,1)<0,"wrong feature count returns failure sentinel");
|
| features[0]=1.0e300;
|
| Check(predictor.Predict(features,2)<0,"overflowing float input rejected");
|
| predictor.Shutdown();
|
| Check(!predictor.IsReady(),"shutdown releases native session");
|
| Check(predictor.Predict(features,2)<0,"prediction after shutdown fails");
|
| Check(WriteText(config_path,"feature_count=2\nfeature_names=a|b\nscaler_mean=1|2\nscaler_scale=2\n"),"write malformed metadata fixture");
|
| Check(!predictor.Init(model_path,"",config_path),"inconsistent scaler length rejected");
|
| Check(WriteText(config_path,"feature_count=2\nfeature_names=a|b\nscaler_mean=1|2\nscaler_scale=2|0\n"),"write zero-scale metadata fixture");
|
| Check(!predictor.Init(model_path,"",config_path),"zero scaler denominator rejected");
|
| CPolicyHttpBridge policy;
|
| policy.Configure("NativeContract\\absent_policy.json",1);
|
| if(MQLInfoInteger(MQL_TESTER))
|
| {
|
| Check(!policy.VerifyAccess("http://127.0.0.1:1/never-called"),"tester VerifyAccess returns without WebRequest");
|
| Check(!policy.Pull("http://127.0.0.1:1/never-called"),"tester Pull returns without WebRequest");
|
| }
|
| PrintFormat("[NATIVE-CONTRACT] RESULT checks=%d failures=%d",g_checks,g_failures);
|
| return g_failures==0 ? INIT_SUCCEEDED : INIT_FAILED;
|
| }
|
| void OnTick() {}
|
| double OnTester() { return g_failures==0 ? (double)g_checks : -(double)g_failures; }
|
