// tilde.job - testet tilden

Write 'Test 1a: ld ? "ld" - ' 
$status=failed
var "ld"
if "ld" $status=ok
Write $status newline

Write 'Test 1b: ld ? "~ld" - ' 
$status=failed
var "ld"
if "~ld" $status=ok
Write $status newline

Write 'Test 2a: LD ? "ld" - ' 
$status=failed
var "LD"
if not "ld" $status=ok
Write $status newline

Write 'Test 2b: LDx ? "~ld" - ' 
$status=failed
var "LDx"
if "~ld" $status=ok
Write $status newline

Write 'Test 3a: ld ? "LD" - ' 
$status=failed
var "ld"
if not "LD" $status=ok
Write $status newline

Write 'Test 3b: ldX ? "~LD" - ' 
$status=failed
var "ldX"
if "~LD" $status=ok
Write $status newline



Write 'Test 11a: ld ? %ld% - ' 
$status=failed
var "ld"
if %ld% $status=ok
Write $status newline

Write 'Test 11b: ld ? %~ld% - ' 
$status=failed
var "ld"
if %~ld% $status=ok
Write $status newline

Write 'Test 12a: LD ? %ld% - ' 
$status=failed
var "LD"
if not %ld% $status=ok
Write $status newline

Write 'Test 12b: LDx ? %~ld% - ' 
$status=failed
var "LDx"
if %~ld% $status=ok
Write $status newline

Write 'Test 13a: ld ? %LD% - ' 
$status=failed
var "ld"
if not %LD% $status=ok
Write $status newline

Write 'Test 13b: ldX ? %~LD% - ' 
$status=failed
var "ldX"
if %~LD% $status=ok
Write $status newline


