2N/A\ #ident "%Z%%M% %I% %E% SMI"

2N/A\ Copyright 2005 Sun Microsystems, Inc. All rights reserved.

2N/A\ Use is subject to license terms.

2N/A\

2N/A\ CDDL HEADER START

2N/A\

2N/A\ The contents of this file are subject to the terms of the

2N/A\ Common Development and Distribution License, Version 1.0 only

2N/A\ (the "License"). You may not use this file except in compliance

2N/A\ with the License.

2N/A\

2N/A\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

2N/A\ or http://www.opensolaris.org/os/licensing.

2N/A\ See the License for the specific language governing permissions

2N/A\ and limitations under the License.

2N/A\

2N/A\ When distributing Covered Code, include this CDDL HEADER in each

2N/A\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.

2N/A\ If applicable, add the following below this CDDL HEADER, with the

2N/A\ fields enclosed by brackets "[]" replaced with your own identifying

2N/A\ information: Portions Copyright [yyyy] [name of copyright owner]

2N/A\

2N/A\ CDDL HEADER END

2N/A\

2N/A

2N/A." Execute test: "

2N/A : etest ['] 1 dup dup execute swap execute + swap execute + ;

2N/A " " etest 3 = .passed?

2N/A " evaluate.1" " 1 2 +" evaluate 3 = .passed?

2N/Acr

2N/A

2N/A." $find testing: "

2N/A" $find.1" 0 1 " drop" $find if execute then 0= .passed?

2N/A" $find.2" " qwerty" $find if false else " qwerty" $= then .passed?

2N/Acr