mirror of
https://github.com/OPM/ResInsight.git
synced 2025-02-25 18:55:39 -06:00
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
parent
aee87bd100
commit
86e8b75e41
185
OctavePlugin/OctaveScripts/OctaveInterfaceTest.m
Normal file
185
OctavePlugin/OctaveScripts/OctaveInterfaceTest.m
Normal file
@ -0,0 +1,185 @@
|
|||||||
|
### 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
|
||||||
|
|
||||||
|
### CaseInfo riGetCurrentCase()
|
||||||
|
%!test
|
||||||
|
%! printf ("===== Testing ====> riGetCurrentCase\n");
|
||||||
|
%! caseInfo = riGetCurrentCase();
|
||||||
|
%! assert ( caseInfo.CaseId == 1 );
|
||||||
|
%! assert ( caseInfo.CaseName == "BRUGGE_0000" );
|
||||||
|
%! assert ( caseInfo.CaseType == "SourceCase" );
|
||||||
|
%! assert ( caseInfo.CaseGroupId == 0 );
|
||||||
|
|
||||||
|
### Vector[CaseInfo] riGetSelectedCases()
|
||||||
|
%!test
|
||||||
|
%! printf ("===== Testing ====> riGetSelectedCases\n");
|
||||||
|
%! caseInfoVector1 = riGetSelectedCases();
|
||||||
|
%! assert ( caseInfoVector1.CaseId == 1 );
|
||||||
|
%! assert ( caseInfoVector1.CaseName == "BRUGGE_0000" );
|
||||||
|
%! assert ( caseInfoVector1.CaseType == "SourceCase" );
|
||||||
|
%! assert ( caseInfoVector1.CaseGroupId == 0 );
|
||||||
|
|
||||||
|
|
||||||
|
### Vector[CaseGroupInfo] riGetCaseGroups()
|
||||||
|
%!test
|
||||||
|
%! printf ("===== Testing ====> riGetCaseGroups\n");
|
||||||
|
%! caseGroupInfoVector = riGetCaseGroups();
|
||||||
|
%! assert (rows(caseGroupInfoVector) == 2);
|
||||||
|
%! assert (caseGroupInfoVector(2).CaseGroupId == 1);
|
||||||
|
%! assert (caseGroupInfoVector(2).CaseGroupName == "Grid Case Group 2");
|
||||||
|
|
||||||
|
### Vector[CaseInfo] riGetCases([CaseGroupId])
|
||||||
|
%!test
|
||||||
|
%! printf ("===== Testing ====> riGetCases\n");
|
||||||
|
%! caseInfoVector3 = riGetCases();
|
||||||
|
%! assert(rows(caseInfoVector3) == 10);
|
||||||
|
%! assert(caseInfoVector3(2).CaseName == "BRUGGE_0040");
|
||||||
|
%! assert(caseInfoVector3(2).CaseType == "ResultCase");
|
||||||
|
%! assert(caseInfoVector3(3).CaseType == "StatisticsCase");
|
||||||
|
%! assert(caseInfoVector3(4).CaseType == "SourceCase");
|
||||||
|
%! caseinfoVector3 = riGetCases(1);
|
||||||
|
%! assert(rows(caseinfoVector3) == 3);
|
||||||
|
|
||||||
|
|
||||||
|
### Matrix[numActiveCells][9] riGetActiveCellInfo([CaseId], [PorosityModel = "Matrix"|"Fracture"] )
|
||||||
|
%!test
|
||||||
|
%! printf ("===== Testing ====> riGetActiveCellInfo\n");
|
||||||
|
%! ACInfo1 = riGetActiveCellInfo();
|
||||||
|
%! assert(rows(ACInfo1) == 43374);
|
||||||
|
%! assert(columns(ACInfo1) == 9);
|
||||||
|
%! ACInfo2 = riGetActiveCellInfo("Matrix");
|
||||||
|
%! assert(ACInfo1 == ACInfo2);
|
||||||
|
%! ACInfo3 = riGetActiveCellInfo(1, "Matrix");
|
||||||
|
%! assert(ACInfo1 == ACInfo3);
|
||||||
|
%! ACInfo4 = riGetActiveCellInfo(1);
|
||||||
|
%! assert(ACInfo1 == ACInfo4);
|
||||||
|
|
||||||
|
### Matrix[numCoarseGroups][6] riGetCoarseningInfo([CaseId])
|
||||||
|
%!xtest
|
||||||
|
%! printf ("===== Testing ====> riGetCoarseningInfo\n");
|
||||||
|
%! CoarseInfo1 = riGetCoarseningInfo();
|
||||||
|
%! assert(rows(CoarseInfo1) == 0);
|
||||||
|
%! assert(columns(CoarseInfo1) == 6);
|
||||||
|
%! CoarseInfo2 = riGetCoarseningInfo(1);
|
||||||
|
%! assert(CoarseInfo1 == CoarseInfo2);
|
||||||
|
|
||||||
|
### Matrix[numGrids][3] riGetGridDimensions([CaseId])
|
||||||
|
%!test
|
||||||
|
%! printf ("===== Testing ====> riGetGridDimensions\n");
|
||||||
|
%! GridDims1 = riGetGridDimensions();
|
||||||
|
%! assert(rows(GridDims1) == 1);
|
||||||
|
%! assert(columns(GridDims1) == 3);
|
||||||
|
%! GridDims2 = riGetGridDimensions(0);
|
||||||
|
%! assert(rows(GridDims2) == 2);
|
||||||
|
%! assert(columns(GridDims2) == 3);
|
||||||
|
%! assert( GridDims2(2,1) == 12);
|
||||||
|
%! assert( GridDims2(2,3) == 36);
|
||||||
|
|
||||||
|
### Vector[TimeStepDate] riGetTimestepDates([CaseId])
|
||||||
|
printf ("===== Testing ====> riGetTimestepDates\n");
|
||||||
|
TimeStepDates1 = riGetTimeStepDates();
|
||||||
|
TimeStepDates2 = riGetTimeStepDates(1);
|
||||||
|
|
||||||
|
### Vector[DecimalDay] riGetTimestepDays([CaseId])
|
||||||
|
printf ("===== Testing ====> riGetTimestepDays\n");
|
||||||
|
TimeStepDays1 = riGetTimeStepDays();
|
||||||
|
TimeStepDays2 = riGetTimeStepDays(1);
|
||||||
|
|
||||||
|
### Vector[PropertyInfo] riGetPropertyNames([CaseId] ], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riGetPropertyNames\n");
|
||||||
|
PropertyInfos1 = riGetPropertyNames();
|
||||||
|
PropertyInfos2 = riGetPropertyNames(1);
|
||||||
|
PropertyInfos3 = riGetPropertyNames("Matrix");
|
||||||
|
PropertyInfos4 = riGetPropertyNames(1, "Matrix");
|
||||||
|
|
||||||
|
### Matrix[numActiveCells][numTimestepsRequested] riGetActiveCellProperty([CaseId], PropertyName, [RequestedTimeSteps], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riGetActiveCellProperty\n");
|
||||||
|
ActivePropData1 = riGetActiveCellProperty("SOIL");
|
||||||
|
ActivePropData2 = riGetActiveCellProperty("SOIL", "Matrix");
|
||||||
|
ActivePropData3 = riGetActiveCellProperty("SOIL", [1,3]);
|
||||||
|
ActivePropData4 = riGetActiveCellProperty("SOIL", [1,3], "Matrix");
|
||||||
|
|
||||||
|
ActivePropData5 = riGetActiveCellProperty(1, "SOIL");
|
||||||
|
ActivePropData6 = riGetActiveCellProperty(1, "SOIL", [1,3]);
|
||||||
|
ActivePropData7 = riGetActiveCellProperty(1, "SOIL", [1,3], "Matrix");
|
||||||
|
ActivePropData8 = riGetActiveCellProperty(1, "SOIL", "Matrix");
|
||||||
|
|
||||||
|
### Matrix[numI][numJ][numK][numTimestepsRequested] riGetGridProperty([CaseId], GridIndex , PropertyName, [RequestedTimeSteps], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riGetGridProperty\n");
|
||||||
|
GridProps1 = riGetGridProperty( 0 , "SOIL" );
|
||||||
|
GridProps2 = riGetGridProperty( 0 , "SOIL", [1,3]);
|
||||||
|
GridProps3 = riGetGridProperty( 0 , "SOIL", [1,3], "Matrix");
|
||||||
|
GridProps4 = riGetGridProperty( 0 , "SOIL", "Matrix");
|
||||||
|
GridProps5 = riGetGridProperty(1, 0 , "SOIL" );
|
||||||
|
GridProps6 = riGetGridProperty(1, 0 , "SOIL", [1,3]);
|
||||||
|
GridProps7 = riGetGridProperty(1, 0 , "SOIL", [1,3], "Matrix");
|
||||||
|
GridProps8 = riGetGridProperty(1, 0 , "SOIL", "Matrix");
|
||||||
|
|
||||||
|
|
||||||
|
### riSetActiveCellProperty( Matrix[numActiveCells][numTimeSteps], [CaseId], PropertyName, [TimeStepIndices], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riSetActiveCellProperty\n");
|
||||||
|
riSetActiveCellProperty( ActivePropData1, "PropertyName1" );
|
||||||
|
|
||||||
|
riSetActiveCellProperty( ActivePropData3, "PropertyName2", [1,3]);
|
||||||
|
riSetActiveCellProperty( ActivePropData3, "PropertyName3", [1,3], "Matrix");
|
||||||
|
riSetActiveCellProperty( ActivePropData1, "PropertyName4", "Matrix");
|
||||||
|
riSetActiveCellProperty( ActivePropData1, 1, "PropertyName5" );
|
||||||
|
riSetActiveCellProperty( ActivePropData3, 1, "PropertyName6", [1,3]);
|
||||||
|
riSetActiveCellProperty( ActivePropData3, 1, "PropertyName7", [1,3], "Matrix");
|
||||||
|
riSetActiveCellProperty( ActivePropData1, 1, "PropertyName8", "Matrix");
|
||||||
|
|
||||||
|
### riSetGridProperty( Matrix[numI][numJ][numK][numTimeSteps], [CaseId], GridIndex, PropertyName, [TimeStepIndices], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riSetGridProperty\n");
|
||||||
|
riSetGridProperty( GridProps1, 0, "PropertyName11" );
|
||||||
|
riSetGridProperty( GridProps2, 0, "PropertyName12", [1,3]);
|
||||||
|
riSetGridProperty( GridProps2, 0, "PropertyName13", [1,3], "Matrix");
|
||||||
|
riSetGridProperty( GridProps1, 0, "PropertyName14", "Matrix");
|
||||||
|
riSetGridProperty( GridProps1, 1, 0, "PropertyName15" );
|
||||||
|
riSetGridProperty( GridProps2, 1, 0, "PropertyName16", [1,3]);
|
||||||
|
riSetGridProperty( GridProps2, 1, 0, "PropertyName17", [1,3], "Matrix");
|
||||||
|
riSetGridProperty( GridProps1, 1, 0, "PropertyName18", "Matrix");
|
||||||
|
|
||||||
|
|
||||||
|
### Matrix[numI][numJ][numK][3] riGetCellCenters([CaseId], GridIndex)
|
||||||
|
printf ("===== Testing ====> riGetCellCenters\n");
|
||||||
|
CellCenters1 = riGetCellCenters(0);
|
||||||
|
CellCenters2 = riGetCellCenters(1, 0);
|
||||||
|
|
||||||
|
### Matrix[ActiveCells][3] riGetActiveCellCenters([CaseId], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riGetActiveCellCenters\n");
|
||||||
|
ActiveCellCenters1 = riGetActiveCellCenters();
|
||||||
|
ActiveCellCenters2 = riGetActiveCellCenters("Matrix");
|
||||||
|
ActiveCellCenters3 = riGetActiveCellCenters(1, "Matrix");
|
||||||
|
|
||||||
|
### Matrix[numI][numJ][numK][8][3] riGetCellCorners([CaseId], GridIndex)
|
||||||
|
printf ("===== Testing ====> riGetCellCorners\n");
|
||||||
|
CellCorners1 = riGetCellCorners(0);
|
||||||
|
CellCorners2 = riGetCellCorners(1, 0);
|
||||||
|
|
||||||
|
### Matrix[ActiveCells][8][3] riGetActiveCellCorners([CaseId], [PorosityModel = "Matrix"|"Fracture"])
|
||||||
|
printf ("===== Testing ====> riGetActiveCellCorners\n");
|
||||||
|
ActiveCellCorners1 = riGetActiveCellCorners();
|
||||||
|
ActiveCellCorners2 = riGetActiveCellCorners(1);
|
||||||
|
ActiveCellCorners3 = riGetActiveCellCorners(1, "Matrix");
|
||||||
|
ActiveCellCorners4 = riGetActiveCellCorners("Matrix");
|
||||||
|
|
||||||
|
### Vector[WellNames] riGetWellNames([CaseId])
|
||||||
|
printf ("===== Testing ====> riGetWellNames\n");
|
||||||
|
|
||||||
|
WellNames1 = riGetWellNames();
|
||||||
|
WellNames2 = riGetWellNames(1);
|
||||||
|
|
||||||
|
### Vector[WellCellInfo] riGetWellCells([CaseId], WellName, TimeStep)
|
||||||
|
printf ("===== Testing ====> riGetWellCells\n");
|
||||||
|
WellCellInfos1 = riGetWellCells(1, WellNames1(1,:), 3);
|
||||||
|
WellCellInfos2 = riGetWellCells(WellNames1(1,:), 3);
|
||||||
|
|
||||||
|
|
||||||
|
### Vector[WellStatus] riGetWellStatus ([CaseId], WellName, [RequestedTimeSteps])
|
||||||
|
printf ("===== Testing ====> riGetWellStatus\n");
|
||||||
|
WellStatuses1 = riGetWellStatus(1, WellNames1(1,:), [1,3]);
|
||||||
|
disp(WellStatuses1(1));
|
||||||
|
WellStatuses2 = riGetWellStatus( WellNames1(1,:), [1,3]);
|
||||||
|
WellStatuses3 = riGetWellStatus(WellNames1(1,:));
|
||||||
|
|
||||||
|
endif
|
||||||
@ -1,16 +1,22 @@
|
|||||||
### The case with caseid 1 has to be selected/active in ResInsight when running this test-script
|
### 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
|
### Coarsening and Dual porosity is not exercised by this tes yet. We need models
|
||||||
|
|
||||||
|
if (1)
|
||||||
|
test OctaveInterfaceTest.m
|
||||||
|
else
|
||||||
|
|
||||||
### CaseInfo riGetCurrentCase()
|
### CaseInfo riGetCurrentCase()
|
||||||
printf ("===== Testing ====> riGetCurrentCase\n");
|
printf ("===== Testing ====> riGetCurrentCase\n");
|
||||||
caseInfo = riGetCurrentCase();
|
caseInfo = riGetCurrentCase();
|
||||||
caseInfo.CaseId == 1;
|
disp(caseInfo);
|
||||||
|
|
||||||
|
|
||||||
### Vector[CaseInfo] riGetSelectedCases()
|
### Vector[CaseInfo] riGetSelectedCases()
|
||||||
printf ("===== Testing ====> riGetSelectedCases\n");
|
printf ("===== Testing ====> riGetSelectedCases\n");
|
||||||
caseInfoVector1 = riGetSelectedCases();
|
caseInfoVector1 = riGetSelectedCases();
|
||||||
|
disp(caseInfoVector1);
|
||||||
|
|
||||||
|
if(0)
|
||||||
|
|
||||||
### Vector[CaseGroupInfo] riGetCaseGroups()
|
### Vector[CaseGroupInfo] riGetCaseGroups()
|
||||||
printf ("===== Testing ====> riGetCaseGroups\n");
|
printf ("===== Testing ====> riGetCaseGroups\n");
|
||||||
@ -143,3 +149,6 @@ WellStatuses1 = riGetWellStatus(1, WellNames1(1,:), [1,3]);
|
|||||||
disp(WellStatuses1(1));
|
disp(WellStatuses1(1));
|
||||||
WellStatuses2 = riGetWellStatus( WellNames1(1,:), [1,3]);
|
WellStatuses2 = riGetWellStatus( WellNames1(1,:), [1,3]);
|
||||||
WellStatuses3 = riGetWellStatus(WellNames1(1,:));
|
WellStatuses3 = riGetWellStatus(WellNames1(1,:));
|
||||||
|
|
||||||
|
endif
|
||||||
|
endif
|
||||||
Loading…
Reference in New Issue
Block a user