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