1 vhUnitTest.TestCase Test dat de method AddToLocalDataDef() werkt Test dat de method DeleteFromLocalDataDef() werkt 0,0,"LocalDataDef(PRNr,""1099.1"") is leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub",".1 "))>0,0,"LocalDataDef(PRNr,""sub"","".1 "") is leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"1099"))>0,1,"LocalDataDef(PRNr,""1099.2"") is niet leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub"," "))>0,1,"LocalDataDef(PRNr,""sub"","" "") is niet leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"1099"))>0,1,"LocalDataDef(PRNr,""1099"") is niet leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub",".2 "))>0,1,"LocalDataDef(PRNr,""sub"","".2 "") is niet leeg") Quit ]]> Test dat de method AddToLocalDataDef() werkt 0,1,"LocalDataDef(PRNr,""1001"") is niet leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub"," "))>0,1,"LocalDataDef(PRNr,""sub"","" "") is niet leeg") Set PRNr=1002 Do ImportChecker.GeefLocalDataDefArray(PRNr,.LocalDataDef) Do $$$AssertEquals($D(LocalDataDef(PRNr))>0,1,"LocalDataDef(1002) is niet leeg") Set PRNr=1003 Do ImportChecker.GeefLocalDataDefArray(PRNr,.LocalDataDef) Do $$$AssertEquals($D(LocalDataDef(PRNr,"1003.1"))>0,1,"LocalDataDef(PRNr,""1003.1"") is niet leeg") Do $$$AssertEquals($D(LocalDataDef(PRNr,"sub",".1 "))>0,1,"LocalDataDef(PRNr,""sub"","".1 "") is niet leeg") Set PRNr=1099 Do ImportChecker.GeefLocalDataDefArray(PRNr,.LocalDataDef) Do $$$AssertEquals($D(LocalDataDef(PRNr))>0,1,"LocalDataDef(1099) is niet leeg") Quit ]]> Test dat de method GeefUnIDsFromLocalDataDef() werkt Test dat de method StatusLocalDataDefIsConsistent() werkt Test dat de method IsLocalDataDefConsistent() werkt 0,"De array arConsistency bevat items") // Add multiple to the previous 1002 Set PRNr=1002 Set UnID="1002.1" Set MultiNr=".1" Do ImportChecker.AddToLocalDataDef(PRNr,UnID,MultiNr,"") Set IsConsistent=ImportChecker.IsLocalDataDefConsistent(.arConsistency) Do $$$AssertTrue(IsConsistent=0,"LocalDataDef is NIET consistent (globaal)") Do $$$AssertTrue($D(arConsistency)>0,"De array arConsistency bevat items") If 'IsConsistent { ;Write !,$$ArrayToText^vhLib("arConsistency",.arConsistency),! } // Make LocalDataDef consistent again Do ImportChecker.DeleteFromLocalDataDef(1003,1003,"") ; Delete the non-multiple from the previous 1003 --> reset to original situation Do ImportChecker.DeleteFromLocalDataDef(1002,1002,"") ; Delete the non-multiple from the previous 1002 --> changes the original situation Set IsConsistent=ImportChecker.IsLocalDataDefConsistent(.arConsistency) Do $$$AssertTrue(IsConsistent,"LocalDataDef is terug consistent (globaal)") Do $$$AssertTrue($D(arConsistency)=0,"De array arConsistency is leeg") Quit ]]> 1 APPS.PM.OL.ImportChecker