Octave Interface: Started to use Octave test

Increased fidelity of the tests now checking the return values also.
Using the octave test system to make reporting somewhat easier.
This commit is contained in:
Jacob Støren
2013-10-07 17:06:21 +02:00
parent aee87bd100
commit 86e8b75e41
2 changed files with 195 additions and 1 deletions

View File

@@ -1,16 +1,22 @@
### The case with caseid 1 has to be selected/active in ResInsight when running this test-script
### Coarsening and Dual porosity is not exercised by this tes yet. We need models
if (1)
test OctaveInterfaceTest.m
else
### CaseInfo riGetCurrentCase()
printf ("===== Testing ====> riGetCurrentCase\n");
caseInfo = riGetCurrentCase();
caseInfo.CaseId == 1;
disp(caseInfo);
### Vector[CaseInfo] riGetSelectedCases()
printf ("===== Testing ====> riGetSelectedCases\n");
caseInfoVector1 = riGetSelectedCases();
disp(caseInfoVector1);
if(0)
### Vector[CaseGroupInfo] riGetCaseGroups()
printf ("===== Testing ====> riGetCaseGroups\n");
@@ -143,3 +149,6 @@ WellStatuses1 = riGetWellStatus(1, WellNames1(1,:), [1,3]);
disp(WellStatuses1(1));
WellStatuses2 = riGetWellStatus( WellNames1(1,:), [1,3]);
WellStatuses3 = riGetWellStatus(WellNames1(1,:));
endif
endif