OpenSolaris_b135/lib/efcode/fcode_test/test.fth

\ #ident	"%Z%%M%	%I%	%E% SMI"
\ Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
\ Use is subject to license terms.
\
\ CDDL HEADER START
\
\ The contents of this file are subject to the terms of the
\ Common Development and Distribution License, Version 1.0 only
\ (the "License").  You may not use this file except in compliance
\ with the License.
\
\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
\ or http://www.opensolaris.org/os/licensing.
\ See the License for the specific language governing permissions
\ and limitations under the License.
\
\ When distributing Covered Code, include this CDDL HEADER in each
\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.
\ If applicable, add the following below this CDDL HEADER, with the
\ fields enclosed by brackets "[]" replaced with your own identifying
\ information: Portions Copyright [yyyy] [name of copyright owner]
\
\ CDDL HEADER END
\

fcode-version1

alias headerless headers

 fload calling.fth
 noop
 : .noop  noop noop  ;

 : .failed	." failed!"  ;

 : .passed	." OK"  ;

 fload iftest.fth

 : .chkstk  depth if ." Stack Changed: " .s cr then ;

 .chkstk
 fload arithmetic.fth
 .chkstk
 fload stack.fth
 .chkstk
 fload create.fth
 .chkstk
 fload bytemanipulate.fth
 .chkstk
 fload loop.fth
 .chkstk
 fload storage.fth
 .chkstk
 fload access.fth
 .chkstk
 fload case.fth
 .chkstk
 fload catch.fth
 .chkstk
 fload parse.fth
 .chkstk
 fload find.fth
 .chkstk
 fload misc.fth
 .chkstk
 cr ." End of Tests" cr

end0