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