[r930]: / branches / develop / mqttsparkplug / mqttsparkplug-unittest / Device / Plc Logic / application / FB Tests / FB_WSTRINGBuilder_TestSuite / Test_Find / svnobj  Maximize  Restore  History

Download this file

16 lines (13 with data), 2.4 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
IF counit.TEST_ORDERED('Test_Find') THEN
    
    _fbWSTRINGBuilder.Append(wsText1);    
    iPos := _fbWSTRINGBuilder.Find(wsFind);
    iExpected := WFIND(wsText1,wsFind);
    AssertEquals_INT( Expected := iExpected,
                      Actual :=  iPos, 
    wsText1 : WSTRING(160):= ("Greetings in various languages: Hello world, 
 
, 
");
    wsFind : WSTRING := "languages";
    iPos : INT;
    iExpected : INT;
    _fbWSTRINGBuilder : Sparkplug.FB_WSTRINGBuilder;