37 lines
996 B
HTML
37 lines
996 B
HTML
<!DOCTYPE html>
|
|
<!--
|
|
Copyright 2022 Bradley D. Nelson
|
|
|
|
Licensed under the Apache License, Version 2.0 (the "License");
|
|
you may not use this file except in compliance with the License.
|
|
You may obtain a copy of the License at
|
|
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
|
|
|
Unless required by applicable law or agreed to in writing, software
|
|
distributed under the License is distributed on an "AS IS" BASIS,
|
|
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
See the License for the specific language governing permissions and
|
|
limitations under the License.
|
|
-->
|
|
|
|
<script type="text/forth">
|
|
." Starting Tests..." cr
|
|
</script>
|
|
<script type="text/forth">
|
|
: square ( n -- n ) dup * ;
|
|
: foobar ( n -- n ) square square ;
|
|
123
|
|
</script>
|
|
<script src="ueforth.js"></script>
|
|
<script type="text/forth">
|
|
." Checking for 123..." cr
|
|
123 = assert
|
|
." Checking for foobar..." cr
|
|
2 foobar 16 = assert
|
|
." Script Test Passes" cr
|
|
2 fg ." SUCCESS" cr
|
|
: halt begin 100000 ms again ;
|
|
halt
|
|
</script>
|