xref: /titanic_41/usr/src/lib/efcode/fcode_test/find.fth (revision e4d060fb4c00d44cd578713eb9a921f594b733b8)
1\ #ident	"%Z%%M%	%I%	%E% SMI"
2\ Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
3\ Use is subject to license terms.
4\
5\ CDDL HEADER START
6\
7\ The contents of this file are subject to the terms of the
8\ Common Development and Distribution License, Version 1.0 only
9\ (the "License").  You may not use this file except in compliance
10\ with the License.
11\
12\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
13\ or http://www.opensolaris.org/os/licensing.
14\ See the License for the specific language governing permissions
15\ and limitations under the License.
16\
17\ When distributing Covered Code, include this CDDL HEADER in each
18\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.
19\ If applicable, add the following below this CDDL HEADER, with the
20\ fields enclosed by brackets "[]" replaced with your own identifying
21\ information: Portions Copyright [yyyy] [name of copyright owner]
22\
23\ CDDL HEADER END
24\
25
26." Execute test: "
27	: etest ['] 1 dup dup execute swap execute + swap execute + ;
28	" " etest 3 = .passed?
29  " evaluate.1"  " 1 2 +" evaluate 3 = .passed?
30cr
31
32." $find testing: "
33" $find.1" 0 1 " drop" $find if execute then 0= .passed?
34" $find.2" " qwerty" $find if false else " qwerty" $= then .passed?
35cr
36