mirror of
https://github.com/reactos/reactos.git
synced 2024-11-06 06:33:08 +00:00
49 lines
1 KiB
HTML
49 lines
1 KiB
HTML
|
<html>
|
||
|
|
<head>
|
||
|
|
<script type="text/vbscript">
|
||
|
|
<!--
|
||
|
|
Dim counter
|
||
|
|
|
||
|
|
counter = 1
|
||
|
|
|
||
|
|
Sub ok(b,m)
|
||
|
|
Call external.ok(b,m)
|
||
|
|
End Sub
|
||
|
|
-->
|
||
|
|
</script>
|
||
|
|
<script>
|
||
|
|
' Verifies that we're in VBScript although there is no type specified
|
||
|
|
If true then counter = counter+1
|
||
|
|
function inccounter(x)
|
||
|
|
counter = counter+x
|
||
|
|
end function
|
||
|
|
</script>
|
||
|
|
<script type="text/javascript">
|
||
|
|
// We're in javascript
|
||
|
|
try {
|
||
|
|
counter++;
|
||
|
|
incCounter(2);
|
||
|
|
}catch(e) {
|
||
|
|
ok(false, "got an exception");
|
||
|
|
}
|
||
|
|
</script>
|
||
|
|
<script>
|
||
|
|
' And back to VBScript
|
||
|
|
If true then counter = counter+1
|
||
|
|
|
||
|
|
Sub runTest()
|
||
|
|
Call ok(counter = 6, "counter = " & counter)
|
||
|
|
Call ok(isNull(document.onkeyup), "document.onkeyup is not null")
|
||
|
|
Call ok(document.formname.tagName = "FORM", "document.form.tagName = " & document.formname.tagName)
|
||
|
|
Call ok(formname.tagName = "FORM", "form.tagName = " & formname.tagName)
|
||
|
|
Call external.reportSuccess()
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<script type="text/javascript">
|
||
|
|
// We're in javascript
|
||
|
|
</script>
|
||
|
|
<body onload="If true then runTest()">
|
||
|
|
<form name="formname"></form>
|
||
|
|
</body>
|
||
|
|
</html>
|