usr/src/lib/efcode/fcode_test/test.fth

   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 fcode-version1
  27
  28 alias headerless headers
  29
  30  fload calling.fth
  31  noop
  32  : .noop  noop noop  ;
  33
  34  : .failed      ." failed!"  ;
  35
  36  : .passed      ." OK"  ;
  37
  38  fload iftest.fth
  39
  40  : .chkstk  depth if ." Stack Changed: " .s cr then ;
  41
  42  .chkstk
  43  fload arithmetic.fth
  44  .chkstk
  45  fload stack.fth
  46  .chkstk
  47  fload create.fth
  48  .chkstk
  49  fload bytemanipulate.fth
  50  .chkstk
  51  fload loop.fth
  52  .chkstk
  53  fload storage.fth
  54  .chkstk
  55  fload access.fth
  56  .chkstk
  57  fload case.fth
  58  .chkstk
  59  fload catch.fth
  60  .chkstk
  61  fload parse.fth
  62  .chkstk
  63  fload find.fth
  64  .chkstk
  65  fload misc.fth
  66  .chkstk
  67  cr ." End of Tests" cr
  68
  69 end0
  70