open-insight/LSL2/STPROC/TEST_WAFER_COUNTER.txt

58 lines
1.9 KiB
Plaintext

Compile function Test_Wafer_Counter(@Test)
#pragma precomp SRP_PreCompiler
$Insert APP_INSERTS
Declare function Wafer_Counter_Services, Error_Services
// TODO: Code to run before each test goes here
GotoTest
// TODO: Code to run after each test goes here
Return TestResult or 1
//-----------------------------------------------------------------------------
// TESTS
//-----------------------------------------------------------------------------
Test Test1
FileData = 'T25':CRLF$:'P1FFFFFF'
Value = Wafer_Counter_Services('ConvertWaferData', FileData)
If Error_Services('HasError') then Value = Error_Services('GetMessage')
Assert Value equals 1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1:@VM:1
End Test
Test Test2
FileData = 'T00':CRLF$:'P0000000'
Value = Wafer_Counter_Services('ConvertWaferData', FileData)
If Error_Services('HasError') then Value = Error_Services('GetMessage')
Assert Value equals 0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0:@VM:0
End Test
Test Test3
FileData = 'T12':CRLF$:'P0AAAAAA'
Value = Wafer_Counter_Services('ConvertWaferData', FileData)
If Error_Services('HasError') then Value = Error_Services('GetMessage')
Assert Value equals 0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0
end test
Test Test4
FileData = 'T13':CRLF$:'P1555555'
Value = Wafer_Counter_Services('ConvertWaferData', FileData)
If Error_Services('HasError') then Value = Error_Services('GetMessage')
Assert Value equals 1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1:@VM:0:@VM:1
end test