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