From 7c478bd95313f5f23a4c958a745db2134aa03244 Mon Sep 17 00:00:00 2001 From: "stevel@tonic-gate" Date: Tue, 14 Jun 2005 00:00:00 -0700 Subject: OpenSolaris Launch --- usr/src/lib/efcode/fcode_test/create.fth | 40 ++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 usr/src/lib/efcode/fcode_test/create.fth (limited to 'usr/src/lib/efcode/fcode_test/create.fth') 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 -- cgit v1.2.3