OpenSolaris Launch

1 files changed, 40 insertions, 0 deletions

diff --git a/usr/src/lib/efcode/fcode_test/create.fth b/usr/src/lib/efcode/fcode_test/create.fth
new file mode 100644
index 0000000000..be83cd7d5a
--- /dev/null
+++ b/usr/src/lib/efcode/fcode_test/create.fth
@@ -0,0 +1,40 @@
+\ #ident	"%Z%%M%	%I%	%E% SMI"
+\ purpose: 
+\ copyright: Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
+\ copyright: Use is subject to license terms.
+\ copyright:
+\ copyright: CDDL HEADER START
+\ copyright:
+\ copyright: The contents of this file are subject to the terms of the
+\ copyright: Common Development and Distribution License, Version 1.0 only
+\ copyright: (the "License").  You may not use this file except in compliance
+\ copyright: with the License.
+\ copyright:
+\ copyright: You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+\ copyright: or http://www.opensolaris.org/os/licensing.
+\ copyright: See the License for the specific language governing permissions
+\ copyright: and limitations under the License.
+\ copyright:
+\ copyright: When distributing Covered Code, include this CDDL HEADER in each
+\ copyright: file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+\ copyright: If applicable, add the following below this CDDL HEADER, with the
+\ copyright: fields enclosed by brackets "[]" replaced with your own identifying
+\ copyright: information: Portions Copyright [yyyy] [name of copyright owner]
+\ copyright:
+\ copyright: CDDL HEADER END
+\ copyright:
+
+." Create Test: " 
+create table
+	ascii p c, 
+	ascii a c, 
+	ascii s c, 
+	ascii s c, 
+	ascii e c, 
+	ascii d c, 
+
+here table - create table-len c,
+
+: table-test ( -- )  table table-len c@ ;
+ " create.1" " passed" drop table-test   comp invert .passed?
+cr