OpenSolaris_b135/lib/efcode/fcode_test/find.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
\

." Execute test: "
	: etest ['] 1 dup dup execute swap execute + swap execute + ;
	" " etest 3 = .passed?
  " evaluate.1"  " 1 2 +" evaluate 3 = .passed?
cr

." $find testing: "
" $find.1" 0 1 " drop" $find if execute then 0= .passed?
" $find.2" " qwerty" $find if false else " qwerty" $= then .passed?
cr