43 lines
1.0 KiB
Plaintext
43 lines
1.0 KiB
Plaintext
Compile function Test_WO_MAT_SERVICES(@Test)
|
|
#pragma precomp SRP_PreCompiler
|
|
|
|
$Insert LOGICAL
|
|
|
|
Declare function WO_MAT_Services, Error_Services
|
|
Declare subroutine WO_MAT_Services, Error_Services
|
|
|
|
GotoTest
|
|
|
|
Error_Services('Clear')
|
|
|
|
Return TestResult or 1
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// TESTS
|
|
//-----------------------------------------------------------------------------
|
|
|
|
Test CassetteIsLastInWoWithEmptyWoMatKeyShouldThrowError
|
|
WO_MAT_Services('CassetteIsLastInWo', '')
|
|
|
|
ErrorWasThrown = Error_Services('HasError')
|
|
|
|
Assert ErrorWasThrown equals True$
|
|
End Test
|
|
|
|
Test CassetteIsLastInWoWithFirstCassetteShouldReturnFalse
|
|
IsLastCassette = WO_MAT_Services('CassetteIsLastInWo', '173137*1')
|
|
|
|
Assert Error_Services('NoError')
|
|
|
|
Assert IsLastCassette EQ False$
|
|
end test
|
|
|
|
Test CassetteIsLastInWoWithLastCassetteShouldReturnTrue
|
|
IsLastCassette = WO_MAT_Services('CassetteIsLastInWo', '173137*66')
|
|
|
|
Assert Error_Services('NoError')
|
|
|
|
Assert IsLastCassette EQ True$
|
|
end test
|
|
|