From 08361d697818f6924665d590c964327e0280f490 Mon Sep 17 00:00:00 2001 From: Kazuyoshi TANAKA Date: Thu, 26 Dec 2013 14:08:39 +0900 Subject: [PATCH] =?UTF-8?q?=E9=85=8D=E5=B8=83=E3=81=AE=E3=81=9F=E3=82=81?= =?UTF-8?q?=E3=81=AE=E4=B8=AD=E9=96=93=E7=94=9F=E6=88=90=E3=83=95=E3=82=A1?= =?UTF-8?q?=E3=82=A4=E3=83=AB=E3=81=AE=E6=9B=B4=E6=96=B0=E3=81=A7=E3=81=99?= =?UTF-8?q?=E3=80=82=20update=20intermediate=20files=20for=20dist.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- cobc/pplex.c | 28 +- config/mf.conf | 2 +- po/open-cobol.pot | 1540 --- tarstamp.h | 2 +- tests/data-rep | 4932 +++++---- tests/i18n_sjis | 9973 ++++++++++--------- tests/i18n_utf8 | 8613 ---------------- tests/jp-compat | 8228 +++++++-------- tests/package.m4 | 2 +- tests/run | 23595 ++++++++++++++++++++++++++------------------ tests/syntax | 8946 +++++++++-------- texi/stamp-vti | 4 +- texi/version.texi | 4 +- 13 files changed, 30764 insertions(+), 35105 deletions(-) delete mode 100644 po/open-cobol.pot delete mode 100755 tests/i18n_utf8 diff --git a/cobc/pplex.c b/cobc/pplex.c index 8c3d0bf9..21089e29 100644 --- a/cobc/pplex.c +++ b/cobc/pplex.c @@ -73,6 +73,7 @@ typedef int flex_int32_t; typedef unsigned char flex_uint8_t; typedef unsigned short int flex_uint16_t; typedef unsigned int flex_uint32_t; +#endif /* ! C99 */ /* Limits of integral types. */ #ifndef INT8_MIN @@ -103,8 +104,6 @@ typedef unsigned int flex_uint32_t; #define UINT32_MAX (4294967295U) #endif -#endif /* ! C99 */ - #endif /* ! FLEXINT_H */ #ifdef __cplusplus @@ -161,15 +160,7 @@ typedef unsigned int flex_uint32_t; /* Size of default input buffer. */ #ifndef YY_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ -#define YY_BUF_SIZE 32768 -#else #define YY_BUF_SIZE 16384 -#endif /* __ia64__ */ #endif /* The state buf must be large enough to hold one state per character in the main buffer. @@ -978,7 +969,7 @@ static void switch_to_buffer (const int lineno, const char *filename, YY_BUFFER_STATE buffer); -#line 982 "pplex.c" +#line 973 "pplex.c" #define INITIAL 0 #define PROCESS_STATE 1 @@ -1062,12 +1053,7 @@ static int input (void ); /* Amount of stuff to slurp up with each read. */ #ifndef YY_READ_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k */ -#define YY_READ_BUF_SIZE 16384 -#else #define YY_READ_BUF_SIZE 8192 -#endif /* __ia64__ */ #endif /* Copy whatever the last rule matched to the standard output. */ @@ -1086,7 +1072,7 @@ static int input (void ); if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ { \ int c = '*'; \ - size_t n; \ + unsigned n; \ for ( n = 0; n < max_size && \ (c = getc( ppin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ @@ -1177,7 +1163,7 @@ YY_DECL -#line 1181 "pplex.c" +#line 1167 "pplex.c" if ( !(yy_init) ) { @@ -1594,7 +1580,7 @@ YY_RULE_SETUP #line 280 "pplex.l" YY_FATAL_ERROR( "flex scanner jammed" ); YY_BREAK -#line 1598 "pplex.c" +#line 1584 "pplex.c" case YY_END_OF_BUFFER: { @@ -2350,8 +2336,8 @@ YY_BUFFER_STATE pp_scan_string (yyconst char * yystr ) /** Setup the input buffer state to scan the given bytes. The next call to pplex() will * scan from a @e copy of @a bytes. - * @param yybytes the byte buffer to scan - * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. + * @param bytes the byte buffer to scan + * @param len the number of bytes in the buffer pointed to by @a bytes. * * @return the newly allocated buffer state object. */ diff --git a/config/mf.conf b/config/mf.conf index 2d71331c..a1f477b4 100644 --- a/config/mf.conf +++ b/config/mf.conf @@ -23,4 +23,4 @@ relax-level-hierarchy: yes move-noninteger-to-alphanumeric: warning -assign_external: yes +assign_external: yes \ No newline at end of file diff --git a/po/open-cobol.pot b/po/open-cobol.pot deleted file mode 100644 index 5182d001..00000000 --- a/po/open-cobol.pot +++ /dev/null @@ -1,1540 +0,0 @@ -# SOME DESCRIPTIVE TITLE. -# Copyright (C) YEAR Keisuke Nishida -# This file is distributed under the same license as the PACKAGE package. -# FIRST AUTHOR , YEAR. -# -#, fuzzy -msgid "" -msgstr "" -"Project-Id-Version: PACKAGE VERSION\n" -"Report-Msgid-Bugs-To: open-cobol-list@lists.sourceforge.net\n" -"POT-Creation-Date: 2009-02-06 10:30+0100\n" -"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" -"Last-Translator: FULL NAME \n" -"Language-Team: LANGUAGE \n" -"MIME-Version: 1.0\n" -"Content-Type: text/plain; charset=CHARSET\n" -"Content-Transfer-Encoding: 8bit\n" - -#: cobc/cobc.c:524 -msgid "Options:" -msgstr "" - -#: cobc/cobc.c:525 -msgid " --help Display this message" -msgstr "" - -#: cobc/cobc.c:526 -msgid " --version, -V Display compiler version" -msgstr "" - -#: cobc/cobc.c:527 -msgid " -v Display the programs invoked by the compiler" -msgstr "" - -#: cobc/cobc.c:528 -msgid " -x Build an executable program" -msgstr "" - -#: cobc/cobc.c:529 -msgid " -m Build a dynamically loadable module (default)" -msgstr "" - -#: cobc/cobc.c:530 -msgid " -std= Compile for a specific dialect :" -msgstr "" - -#: cobc/cobc.c:531 -msgid " cobol2002 Cobol 2002" -msgstr "" - -#: cobc/cobc.c:532 -msgid " cobol85 Cobol 85" -msgstr "" - -#: cobc/cobc.c:533 -msgid " ibm IBM Compatible" -msgstr "" - -#: cobc/cobc.c:534 -msgid " mvs MVS Compatible" -msgstr "" - -#: cobc/cobc.c:535 -msgid " bs2000 BS2000 Compatible" -msgstr "" - -#: cobc/cobc.c:536 -msgid " mf Micro Focus Compatible" -msgstr "" - -#: cobc/cobc.c:537 -msgid " default When not specified" -msgstr "" - -#: cobc/cobc.c:538 -msgid " See config/default.conf and config/*.conf" -msgstr "" - -#: cobc/cobc.c:539 -msgid " -free Use free source format" -msgstr "" - -#: cobc/cobc.c:540 -msgid " -fixed Use fixed source format (default)" -msgstr "" - -#: cobc/cobc.c:541 -msgid " -O, -O2, -Os Enable optimization" -msgstr "" - -#: cobc/cobc.c:542 -msgid " -g Produce debugging information in the output" -msgstr "" - -#: cobc/cobc.c:543 -msgid " -debug Enable all run-time error checking" -msgstr "" - -#: cobc/cobc.c:544 -msgid " -o Place the output into " -msgstr "" - -#: cobc/cobc.c:545 -msgid " -b Combine all input files into a single" -msgstr "" - -#: cobc/cobc.c:546 -msgid " dynamically loadable module" -msgstr "" - -#: cobc/cobc.c:547 -msgid "" -" -E Preprocess only; do not compile, assemble or link" -msgstr "" - -#: cobc/cobc.c:548 -msgid " -C Translation only; convert COBOL to C" -msgstr "" - -#: cobc/cobc.c:549 -msgid " -S Compile only; output assembly file" -msgstr "" - -#: cobc/cobc.c:550 -msgid " -c Compile and assemble, but do not link" -msgstr "" - -#: cobc/cobc.c:551 -msgid "" -" -t Generate and place a program listing into " -msgstr "" - -#: cobc/cobc.c:552 -msgid " -I Add to copy/include search path" -msgstr "" - -#: cobc/cobc.c:553 -msgid " -L Add to library search path" -msgstr "" - -#: cobc/cobc.c:554 -msgid " -l Link the library " -msgstr "" - -#: cobc/cobc.c:555 -msgid " -D Pass to the C compiler" -msgstr "" - -#: cobc/cobc.c:556 -msgid " -conf= User defined dialect configuration - See -std=" -msgstr "" - -#: cobc/cobc.c:557 -msgid " --list-reserved Display reserved words" -msgstr "" - -#: cobc/cobc.c:558 -msgid " --list-intrinsics Display intrinsic functions" -msgstr "" - -#: cobc/cobc.c:559 -msgid " --list-mnemonics Display mnemonic names" -msgstr "" - -#: cobc/cobc.c:560 -msgid "" -" -save-temps(=) Save intermediate files (default current directory)" -msgstr "" - -#: cobc/cobc.c:561 -msgid " -MT Set target file used in dependency list" -msgstr "" - -#: cobc/cobc.c:562 -msgid " -MF Place dependency list into " -msgstr "" - -#: cobc/cobc.c:563 -msgid " -ext Add default file extension" -msgstr "" - -#: cobc/cobc.c:565 -msgid " -W Enable ALL warnings" -msgstr "" - -#: cobc/cobc.c:566 -msgid " -Wall Enable all warnings except as noted below" -msgstr "" - -#: cobc/cobc.c:571 -msgid " (NOT set with -Wall)" -msgstr "" - -#: cobc/cobc.c:727 -#, c-format -msgid "Invalid option -std=%s\n" -msgstr "" - -#: cobc/cobc.c:1236 -msgid "-MT must be given to specify target file\n" -msgstr "" - -#: cobc/tree.c:161 -#, c-format -msgid "%s clause is required for file '%s'" -msgstr "" - -#: cobc/tree.c:1378 -msgid "Numeric field cannot be larger than 36 digits" -msgstr "" - -#: cobc/tree.c:1406 -#, c-format -msgid "Invalid picture string - '%s'" -msgstr "" - -#: cobc/tree.c:1631 -#, c-format -msgid "Record size too small '%s'" -msgstr "" - -#: cobc/tree.c:1636 -#, c-format -msgid "Record size too large '%s' (%d)" -msgstr "" - -#: cobc/tree.c:1995 cobc/typeck.c:1803 cobc/typeck.c:1808 cobc/typeck.c:1813 -#: cobc/typeck.c:2382 cobc/typeck.c:2461 -msgid "Invalid expression" -msgstr "" - -#: cobc/tree.c:2274 cobc/tree.c:2398 -#, c-format -msgid "FUNCTION %s has wrong number of arguments" -msgstr "" - -#: cobc/tree.c:2279 -#, c-format -msgid "FUNCTION %s can not have reference modification" -msgstr "" - -#: cobc/tree.c:2284 cobc/tree.c:2289 -#, c-format -msgid "FUNCTION %s has invalid reference modification" -msgstr "" - -#: cobc/tree.c:2407 -#, c-format -msgid "FUNCTION %s not implemented" -msgstr "" - -#: cobc/error.c:46 -#, c-format -msgid "%s: In paragraph '%s':\n" -msgstr "" - -#: cobc/error.c:50 -#, c-format -msgid "%s: In section '%s':\n" -msgstr "" - -#: cobc/error.c:131 -#, c-format -msgid "%s is archaic in %s" -msgstr "" - -#: cobc/error.c:136 -#, c-format -msgid "%s is obsolete in %s" -msgstr "" - -#: cobc/error.c:142 -#, c-format -msgid "%s ignored" -msgstr "" - -#: cobc/error.c:147 -#, c-format -msgid "%s does not conform to %s" -msgstr "" - -#: cobc/error.c:159 cobc/error.c:169 -#, c-format -msgid "Redefinition of '%s'" -msgstr "" - -#: cobc/error.c:160 cobc/error.c:171 cobc/error.c:173 -#, c-format -msgid "'%s' previously defined here" -msgstr "" - -#: cobc/error.c:193 -#, c-format -msgid "%s undefined" -msgstr "" - -#: cobc/error.c:217 -#, c-format -msgid "%s ambiguous; need qualification" -msgstr "" - -#: cobc/error.c:243 -msgid "defined here" -msgstr "" - -#: cobc/error.c:252 -#, c-format -msgid "Group item '%s' cannot have %s clause" -msgstr "" - -#: cobc/error.c:258 -#, c-format -msgid "Level %02d item '%s' cannot have %s clause" -msgstr "" - -#: cobc/error.c:265 -#, c-format -msgid "Level %02d item '%s' requires %s clause" -msgstr "" - -#: cobc/error.c:272 -#, c-format -msgid "Level %02d item '%s' cannot have other than %s clause" -msgstr "" - -#: cobc/field.c:73 -#, c-format -msgid "Invalid level number '%s'" -msgstr "" - -#: cobc/field.c:124 cobc/field.c:166 -msgid "Level number must begin with 01 or 77" -msgstr "" - -#: cobc/field.c:201 cobc/field.c:214 -#, c-format -msgid "No previous data item of level %02d" -msgstr "" - -#: cobc/field.c:244 -#, c-format -msgid "'%s' cannot be qualified here" -msgstr "" - -#: cobc/field.c:250 -#, c-format -msgid "'%s' cannot be subscripted here" -msgstr "" - -#: cobc/field.c:262 -#, c-format -msgid "'%s' undefined in '%s'" -msgstr "" - -#: cobc/field.c:274 -msgid "Level number of REDEFINES entries must be identical" -msgstr "" - -#: cobc/field.c:278 -msgid "Level number of REDEFINES entry cannot be 66 or 88" -msgstr "" - -#: cobc/field.c:283 -#, c-format -msgid "'%s' not the original definition" -msgstr "" - -#: cobc/field.c:311 -#, c-format -msgid "'%s' ANY LENGTH only allowed in LINKAGE" -msgstr "" - -#: cobc/field.c:315 -#, c-format -msgid "'%s' ANY LENGTH must be 01 level" -msgstr "" - -#: cobc/field.c:319 -#, c-format -msgid "'%s' ANY LENGTH can not be BASED/EXTERNAL" -msgstr "" - -#: cobc/field.c:324 cobc/field.c:332 -#, c-format -msgid "'%s' ANY LENGTH has invalid definition" -msgstr "" - -#: cobc/field.c:328 -#, c-format -msgid "'%s' ANY LENGTH must have a PICTURE" -msgstr "" - -#: cobc/field.c:343 -#, c-format -msgid "'%s' 77 level not allowed here" -msgstr "" - -#: cobc/field.c:348 -#, c-format -msgid "'%s' EXTERNAL must be specified at 01/77 level" -msgstr "" - -#: cobc/field.c:352 -#, c-format -msgid "'%s' EXTERNAL can only be specified in WORKING-STORAGE section" -msgstr "" - -#: cobc/field.c:356 -#, c-format -msgid "'%s' EXTERNAL and BASED are mutually exclusive" -msgstr "" - -#: cobc/field.c:359 -#, c-format -msgid "'%s' EXTERNAL not allowed with REDEFINES" -msgstr "" - -#: cobc/field.c:366 -#, c-format -msgid "'%s' BASED not allowed here" -msgstr "" - -#: cobc/field.c:369 -#, c-format -msgid "'%s' BASED not allowed with REDEFINES" -msgstr "" - -#: cobc/field.c:372 -#, c-format -msgid "'%s' BASED only allowed at the 01 and 77 levels" -msgstr "" - -#: cobc/field.c:405 -#, c-format -msgid "'%s' cannot have the OCCURS clause due to '%s'" -msgstr "" - -#: cobc/field.c:418 -#, c-format -msgid "'%s' ODO field item invalid here" -msgstr "" - -#: cobc/field.c:424 -#, c-format -msgid "'%s' cannot have OCCURS DEPENDING" -msgstr "" - -#: cobc/field.c:434 -#, c-format -msgid "'%s' ODO item must have GLOBAL attribute" -msgstr "" - -#: cobc/field.c:438 -#, c-format -msgid "GLOBAL '%s' ODO item is not in the same section as OCCURS" -msgstr "" - -#: cobc/field.c:448 -#, c-format -msgid "The original definition '%s' should not have OCCURS" -msgstr "" - -#: cobc/field.c:455 -msgid "REDEFINES must follow the original definition" -msgstr "" - -#: cobc/field.c:462 -#, c-format -msgid "'%s' cannot be variable length" -msgstr "" - -#: cobc/field.c:466 -#, c-format -msgid "The original definition '%s' cannot be variable length" -msgstr "" - -#: cobc/field.c:557 -#, c-format -msgid "Value required for constant item '%s'" -msgstr "" - -#: cobc/field.c:559 -#, c-format -msgid "PICTURE clause required for '%s'" -msgstr "" - -#: cobc/field.c:565 -#, c-format -msgid "'%s' cannot have PICTURE clause" -msgstr "" - -#: cobc/field.c:613 cobc/field.c:621 -#, c-format -msgid "'%s' PICTURE clause not compatible with USAGE" -msgstr "" - -#: cobc/field.c:638 -#, c-format -msgid "'%s' cannot have JUSTIFIED RIGHT" -msgstr "" - -#: cobc/field.c:677 -#, c-format -msgid "'%s' cannot have BLANK WHEN ZERO" -msgstr "" - -#: cobc/field.c:685 -msgid "Only level 88 item may have multiple values" -msgstr "" - -#: cobc/field.c:691 -msgid "Entries under REDEFINES cannot have VALUE clause" -msgstr "" - -#: cobc/field.c:694 -msgid "VALUE clause ignored for EXTERNAL items" -msgstr "" - -#: cobc/field.c:804 cobc/field.c:812 cobc/field.c:945 cobc/field.c:948 -#, c-format -msgid "Size of '%s' larger than size of '%s'" -msgstr "" - -#: cobc/field.c:876 -#, c-format -msgid "'%s' binary field cannot be larger than 18 digits" -msgstr "" - -#: cobc/typeck.c:348 -msgid "Invalid use of 88 level item" -msgstr "" - -#: cobc/typeck.c:386 -#, c-format -msgid "'%s' is not group name" -msgstr "" - -#: cobc/typeck.c:403 -#, c-format -msgid "'%s' is not a numeric name" -msgstr "" - -#: cobc/typeck.c:421 -#, c-format -msgid "'%s' is not numeric or numeric-edited name" -msgstr "" - -#: cobc/typeck.c:436 -#, c-format -msgid "'%s' is not a numeric value" -msgstr "" - -#: cobc/typeck.c:485 -#, c-format -msgid "'%s' is not an integer value" -msgstr "" - -#: cobc/typeck.c:489 -msgid "A positive numeric integer is required here" -msgstr "" - -#: cobc/typeck.c:623 -#, c-format -msgid "PROGRAM-ID '%s' invalid" -msgstr "" - -#: cobc/typeck.c:641 -#, c-format -msgid "Switch-name is expected '%s'" -msgstr "" - -#: cobc/typeck.c:794 cobc/typeck.c:826 -#, c-format -msgid "'%s' cannot be subscripted" -msgstr "" - -#: cobc/typeck.c:798 -#, c-format -msgid "'%s' cannot be reference modified" -msgstr "" - -#: cobc/typeck.c:829 -#, c-format -msgid "'%s' requires 1 subscript" -msgstr "" - -#: cobc/typeck.c:832 -#, c-format -msgid "'%s' requires %d subscripts" -msgstr "" - -#: cobc/typeck.c:854 -#, c-format -msgid "Subscript of '%s' out of bounds: %d" -msgstr "" - -#: cobc/typeck.c:896 -#, c-format -msgid "Offset of '%s' out of bounds: %d" -msgstr "" - -#: cobc/typeck.c:900 -#, c-format -msgid "Length of '%s' out of bounds: %d" -msgstr "" - -#: cobc/typeck.c:971 -msgid "ANY LENGTH item not allowed here" -msgstr "" - -#: cobc/typeck.c:975 -msgid "88 level item not allowed here" -msgstr "" - -#: cobc/typeck.c:1224 -#, c-format -msgid "Duplicate character values in alphabet '%s'" -msgstr "" - -#: cobc/typeck.c:1228 -#, c-format -msgid "Invalid character values in alphabet '%s'" -msgstr "" - -#: cobc/typeck.c:1265 -#, c-format -msgid "'%s' not alphabet name" -msgstr "" - -#: cobc/typeck.c:1324 -#, c-format -msgid "'%s' will be implicitly defined" -msgstr "" - -#: cobc/typeck.c:1341 -#, c-format -msgid "ASSIGN data item '%s' invalid" -msgstr "" - -#: cobc/typeck.c:1352 -#, c-format -msgid "'%s' CURSOR is not 4 or 6 characters long" -msgstr "" - -#: cobc/typeck.c:1362 -#, c-format -msgid "'%s' CRT STATUS is not 4 characters long" -msgstr "" - -#: cobc/typeck.c:1408 -msgid "Invalid RECORD DEPENDING item" -msgstr "" - -#: cobc/typeck.c:1432 -#, c-format -msgid "'%s' not procedure name" -msgstr "" - -#: cobc/typeck.c:1552 -msgid "Suggest parentheses around AND within OR" -msgstr "" - -#: cobc/typeck.c:3015 -#, c-format -msgid "Invalid input stream '%s'" -msgstr "" - -#: cobc/typeck.c:3036 cobc/typeck.c:3045 cobc/typeck.c:3440 cobc/typeck.c:3443 -#: cobc/typeck.c:3451 -#, c-format -msgid "'%s' undefined in SPECIAL-NAMES" -msgstr "" - -#: cobc/typeck.c:3071 -msgid "Target of ALLOCATE is not a BASED item" -msgstr "" - -#: cobc/typeck.c:3078 -msgid "Target of RETURNING is not a data pointer" -msgstr "" - -#: cobc/typeck.c:3084 -msgid "The CHARACTERS field of ALLOCATE must be numeric" -msgstr "" - -#: cobc/typeck.c:3118 -msgid "Only alphanumeric FUNCTION types are allowed here" -msgstr "" - -#: cobc/typeck.c:3125 -msgid "Invalid RETURNING field" -msgstr "" - -#: cobc/typeck.c:3135 -msgid "Figurative constant invalid here" -msgstr "" - -#: cobc/typeck.c:3140 -#, c-format -msgid "'%s' Not a data name" -msgstr "" - -#: cobc/typeck.c:3147 -#, c-format -msgid "'%s' is not 01 or 77 level item" -msgstr "" - -#: cobc/typeck.c:3158 -#, c-format -msgid "Wrong number of CALL parameters for '%s'" -msgstr "" - -#: cobc/typeck.c:3202 cobc/typeck.c:3245 cobc/typeck.c:5075 cobc/typeck.c:5195 -#: cobc/typeck.c:5254 cobc/typeck.c:5914 -msgid "Operation not allowed on SORT files" -msgstr "" - -#: cobc/typeck.c:3330 -#, c-format -msgid "'%s' is an invalid type for DISPLAY operand" -msgstr "" - -#: cobc/typeck.c:3335 -msgid "Invalid type for DISPLAY operand" -msgstr "" - -#: cobc/typeck.c:3419 -msgid "Invalid output stream" -msgstr "" - -#: cobc/typeck.c:3533 -msgid "Invalid use of 88 level in WHEN expression" -msgstr "" - -#: cobc/typeck.c:3582 -msgid "Wrong number of WHEN parameters" -msgstr "" - -#: cobc/typeck.c:3626 cobc/typeck.c:3638 -#, c-format -msgid "" -"Target %d of FREE, a data address identifier, must address a BASED data item" -msgstr "" - -#: cobc/typeck.c:3644 -#, c-format -msgid "Target %d of FREE must be a data pointer" -msgstr "" - -#: cobc/typeck.c:3667 -msgid "GO TO with multiple procedure-names" -msgstr "" - -#: cobc/typeck.c:3735 -msgid "Invalid target for INSPECT" -msgstr "" - -#: cobc/typeck.c:3742 cobc/typeck.c:3746 -msgid "Invalid target for REPLACING/CONVERTING" -msgstr "" - -#: cobc/typeck.c:3771 -msgid "Data name expected before CHARACTERS" -msgstr "" - -#: cobc/typeck.c:3781 -msgid "Data name expected before ALL" -msgstr "" - -#: cobc/typeck.c:3791 -msgid "Data name expected before LEADING" -msgstr "" - -#: cobc/typeck.c:3801 -msgid "Data name expected before TRAILING" -msgstr "" - -#: cobc/typeck.c:3811 -#, c-format -msgid "ALL, LEADING or TRAILING expected before '%s'" -msgstr "" - -#: cobc/typeck.c:3890 -#, c-format -msgid "Internal register '%s' defined as BINARY-LONG" -msgstr "" - -#: cobc/typeck.c:3892 -#, c-format -msgid "'%s' defined here as PIC %s" -msgstr "" - -#: cobc/typeck.c:3894 -#, c-format -msgid "'%s' defined here as a group of length %d" -msgstr "" - -#: cobc/typeck.c:3968 -msgid "Invalid destination for MOVE" -msgstr "" - -#: cobc/typeck.c:4069 -msgid "Data item not signed" -msgstr "" - -#: cobc/typeck.c:4073 -msgid "Ignoring negative sign" -msgstr "" - -#: cobc/typeck.c:4356 -msgid "Move non-integer to alphanumeric" -msgstr "" - -#: cobc/typeck.c:4382 -msgid "Invalid source for MOVE" -msgstr "" - -#: cobc/typeck.c:4399 -msgid "Invalid VALUE clause" -msgstr "" - -#: cobc/typeck.c:4401 -msgid "Invalid MOVE statement" -msgstr "" - -#: cobc/typeck.c:4407 -msgid "Invalid VALUE clause - literal exceeds data size" -msgstr "" - -#: cobc/typeck.c:4411 -msgid "Numeric literal exceeds data size" -msgstr "" - -#: cobc/typeck.c:4417 -msgid "Numeric value is expected" -msgstr "" - -#: cobc/typeck.c:4421 -msgid "Alphanumeric value is expected" -msgstr "" - -#: cobc/typeck.c:4425 -msgid "Value does not fit the picture string" -msgstr "" - -#: cobc/typeck.c:4429 -msgid "Value size exceeds data size" -msgstr "" - -#: cobc/typeck.c:4433 -msgid "Sending field larger than receiving field" -msgstr "" - -#: cobc/typeck.c:4437 -msgid "Some digits may be truncated" -msgstr "" - -#: cobc/typeck.c:5203 -msgid "READ PREVIOUS only allowed for INDEXED SEQUENTIAL files" -msgstr "" - -#: cobc/typeck.c:5210 -msgid "KEY ignored with sequential READ" -msgstr "" - -#: cobc/typeck.c:5242 -msgid "REWRITE requires a record name as subject" -msgstr "" - -#: cobc/typeck.c:5247 -msgid "REWRITE subject does not refer to a record name" -msgstr "" - -#: cobc/typeck.c:5259 cobc/typeck.c:5919 cobc/parser.y:5136 -msgid "INVALID KEY clause invalid with this file type" -msgstr "" - -#: cobc/typeck.c:5262 cobc/typeck.c:5923 cobc/parser.y:5128 -msgid "LOCK clause invalid with file LOCK AUTOMATIC" -msgstr "" - -#: cobc/typeck.c:5294 -msgid "RELEASE requires a record name as subject" -msgstr "" - -#: cobc/typeck.c:5299 -msgid "RELEASE subject does not refer to a record name" -msgstr "" - -#: cobc/typeck.c:5306 -msgid "RELEASE not allowed on this record item" -msgstr "" - -#: cobc/typeck.c:5383 -#, c-format -msgid "Undeclared key '%s'" -msgstr "" - -#: cobc/typeck.c:5387 -msgid "Invalid SEARCH ALL condition" -msgstr "" - -#: cobc/typeck.c:5494 -msgid "The targets of SET must be either indexes or pointers" -msgstr "" - -#: cobc/typeck.c:5506 cobc/typeck.c:5510 -msgid "SET targets must be PROGRAM-POINTER" -msgstr "" - -#: cobc/typeck.c:5524 -#, c-format -msgid "The address of '%s' cannot be changed" -msgstr "" - -#: cobc/typeck.c:5586 cobc/typeck.c:5591 cobc/typeck.c:5618 cobc/typeck.c:5623 -msgid "Invalid SET statement" -msgstr "" - -#: cobc/typeck.c:5627 -msgid "Field does not have FALSE clause" -msgstr "" - -#: cobc/typeck.c:5661 -msgid "Invalid SORT filename" -msgstr "" - -#: cobc/typeck.c:5677 -msgid "Table sort without keys not implemented yet" -msgstr "" - -#: cobc/typeck.c:5701 -msgid "Invalid SORT USING parameter" -msgstr "" - -#: cobc/typeck.c:5725 -msgid "Invalid SORT GIVING parameter" -msgstr "" - -#: cobc/typeck.c:5902 -msgid "WRITE requires a record name as subject" -msgstr "" - -#: cobc/typeck.c:5907 -msgid "WRITE subject does not refer to a record name" -msgstr "" - -#: cobc/typeck.c:5926 -msgid "LOCK clause invalid here" -msgstr "" - -#: cobc/typeck.c:5993 -msgid "Invalid mnemonic name" -msgstr "" - -#: cobc/pplex.l:105 -msgid "PROCESS statement is ignored" -msgstr "" - -#: cobc/pplex.l:278 cobc/pplex.l:350 -#, c-format -msgid "%s: %s" -msgstr "" - -#: cobc/pplex.l:415 cobc/pplex.l:460 -msgid "Invalid directive - ignored" -msgstr "" - -#: cobc/pplex.l:518 -msgid "Line not terminated by a newline" -msgstr "" - -#: cobc/pplex.l:565 -#, c-format -msgid "Invalid indicator '%c' at column 7" -msgstr "" - -#: cobc/pplex.l:608 -#, c-format -msgid "Source text after column %d" -msgstr "" - -#: cobc/pplex.l:637 cobc/pplex.l:647 -msgid "Invalid line continuation" -msgstr "" - -#: cobc/parser.y:39 -#, c-format -msgid "'%s' not implemented" -msgstr "" - -#: cobc/parser.y:129 -msgid "Unreachable statement" -msgstr "" - -#: cobc/parser.y:178 -#, c-format -msgid "'%s' not level 01 or 77" -msgstr "" - -#: cobc/parser.y:182 -#, c-format -msgid "'%s' is not in LINKAGE SECTION" -msgstr "" - -#: cobc/parser.y:185 -#, c-format -msgid "'%s' can not be BASED/EXTERNAL" -msgstr "" - -#: cobc/parser.y:190 -#, c-format -msgid "'%s' is not in WORKING-STORAGE SECTION" -msgstr "" - -#: cobc/parser.y:197 -#, c-format -msgid "'%s' REDEFINES field not allowed here" -msgstr "" - -#: cobc/parser.y:214 -#, c-format -msgid "LINKAGE item '%s' is not a PROCEDURE USING parameter" -msgstr "" - -#: cobc/parser.y:221 -#, c-format -msgid "ENTRY '%s' duplicated" -msgstr "" - -#: cobc/parser.y:235 cobc/parser.y:248 -#, c-format -msgid "%s statement not terminated by END-%s" -msgstr "" - -#: cobc/parser.y:285 -msgid "USE statement invalid for SORT file" -msgstr "" - -#: cobc/parser.y:787 -msgid "Multiple PROGRAM-ID's without matching END PROGRAM" -msgstr "" - -#: cobc/parser.y:853 cobc/parser.y:877 -#, c-format -msgid "END PROGRAM '%s' is different to PROGRAM-ID '%s'" -msgstr "" - -#: cobc/parser.y:901 -#, c-format -msgid "END FUNCTION '%s' is different to FUNCTION-ID '%s'" -msgstr "" - -#: cobc/parser.y:960 -msgid "FUNCTION-ID is not yet implemented" -msgstr "" - -#: cobc/parser.y:1019 cobc/parser.y:1026 -msgid "COMMON may only be used in a nested program" -msgstr "" - -#: cobc/parser.y:1066 -msgid "CONFIGURATION SECTION not allowed in nested programs" -msgstr "" - -#: cobc/parser.y:1235 cobc/parser.y:1245 -#, c-format -msgid "Unknown system-name '%s'" -msgstr "" - -#: cobc/parser.y:1237 -msgid "Invalid CRT clause" -msgstr "" - -#: cobc/parser.y:1355 -msgid "Invalid SYMBOLIC clause" -msgstr "" - -#: cobc/parser.y:1426 cobc/parser.y:1475 -#, c-format -msgid "Invalid currency sign '%s'" -msgstr "" - -#: cobc/parser.y:1534 cobc/parser.y:1543 -msgid "INPUT-OUTPUT SECTION header missing - assumed" -msgstr "" - -#: cobc/parser.y:1536 cobc/parser.y:1545 -msgid "INPUT-OUTPUT SECTION header missing" -msgstr "" - -#: cobc/parser.y:1748 cobc/parser.y:1757 cobc/parser.y:1766 cobc/parser.y:1775 -msgid "Invalid or duplicate ORGANIZED clause" -msgstr "" - -#: cobc/parser.y:1948 -msgid "FILE SECTION header missing - assumed" -msgstr "" - -#: cobc/parser.y:1950 -msgid "FILE SECTION header missing" -msgstr "" - -#: cobc/parser.y:1968 cobc/parser.y:1980 -msgid "RECORD description missing or invalid" -msgstr "" - -#: cobc/parser.y:2023 cobc/parser.y:2030 -msgid "File cannot have both EXTERNAL and GLOBAL clauses" -msgstr "" - -#: cobc/parser.y:2062 cobc/parser.y:2076 -msgid "RECORD clause ignored for LINE SEQUENTIAL" -msgstr "" - -#: cobc/parser.y:2067 cobc/parser.y:2092 cobc/parser.y:2115 -msgid "RECORD clause invalid" -msgstr "" - -#: cobc/parser.y:2191 -msgid "LINAGE clause with wrong file type" -msgstr "" - -#: cobc/parser.y:2253 -#, c-format -msgid "Alphabet-name is expected '%s'" -msgstr "" - -#: cobc/parser.y:2266 -msgid "file descriptor REPORT IS" -msgstr "" - -#: cobc/parser.y:2270 -msgid "file descriptor REPORTS ARE" -msgstr "" - -#: cobc/parser.y:2337 cobc/parser.y:3167 -msgid "Item requires a data name" -msgstr "" - -#: cobc/parser.y:2390 -msgid "CONSTANT with GLOBAL clause is not yet supported" -msgstr "" - -#: cobc/parser.y:2408 -msgid "CONSTANT item not at 01 level" -msgstr "" - -#: cobc/parser.y:2459 -msgid "REDEFINES clause should follow entry-name" -msgstr "" - -#: cobc/parser.y:2461 -msgid "REDEFINES clause must follow entry-name" -msgstr "" - -#: cobc/parser.y:2479 -msgid "EXTERNAL not allowed here" -msgstr "" - -#: cobc/parser.y:2481 -msgid "EXTERNAL only allowed at 01/77 level" -msgstr "" - -#: cobc/parser.y:2483 -msgid "EXTERNAL requires a data name" -msgstr "" - -#: cobc/parser.y:2485 cobc/parser.y:2518 -msgid "GLOBAL and EXTERNAL are mutually exclusive" -msgstr "" - -#: cobc/parser.y:2487 cobc/parser.y:2765 -msgid "BASED and EXTERNAL are mutually exclusive" -msgstr "" - -#: cobc/parser.y:2489 -msgid "EXTERNAL and REDEFINES are mutually exclusive" -msgstr "" - -#: cobc/parser.y:2514 -msgid "GLOBAL only allowed at 01/77 level" -msgstr "" - -#: cobc/parser.y:2516 -msgid "GLOBAL requires a data name" -msgstr "" - -#: cobc/parser.y:2520 -msgid "GLOBAL not allowed here" -msgstr "" - -#: cobc/parser.y:2639 -msgid "Maximum OCCURS depth exceeded" -msgstr "" - -#: cobc/parser.y:2759 -msgid "BASED not allowed here" -msgstr "" - -#: cobc/parser.y:2761 -msgid "BASED only allowed at 01/77 level" -msgstr "" - -#: cobc/parser.y:2763 -msgid "BASED requires a data name" -msgstr "" - -#: cobc/parser.y:2767 -msgid "BASED and REDEFINES are mutually exclusive" -msgstr "" - -#: cobc/parser.y:2769 cobc/parser.y:2842 -msgid "BASED and ANY LENGTH are mutually exclusive" -msgstr "" - -#: cobc/parser.y:2797 -msgid "FALSE clause only allowed for 88 level" -msgstr "" - -#: cobc/parser.y:2812 cobc/parser.y:2824 cobc/parser.y:2827 -msgid "RENAMES may not reference a level 01 or > 50" -msgstr "" - -#: cobc/parser.y:2858 -msgid "LOCAL-STORAGE not allowed in nested programs" -msgstr "" - -#: cobc/parser.y:2891 -msgid "REPORT SECTION not supported" -msgstr "" - -#: cobc/parser.y:2924 -msgid "Report description using defaults" -msgstr "" - -#: cobc/parser.y:2932 -msgid "GLOBAL is not allowed with RD" -msgstr "" - -#: cobc/parser.y:3011 -msgid "looking for Report line TYPE" -msgstr "" - -#: cobc/parser.y:3320 -msgid "Executable program requested but PROCEDURE/ENTRY has USING clause" -msgstr "" - -#: cobc/parser.y:3383 cobc/parser.y:4057 -msgid "BY VALUE not allowed in CHAINED program" -msgstr "" - -#: cobc/parser.y:3395 cobc/parser.y:3403 cobc/parser.y:3413 cobc/parser.y:3442 -msgid "SIZE only allowed for BY VALUE items" -msgstr "" - -#: cobc/parser.y:3415 cobc/parser.y:3432 cobc/parser.y:3444 cobc/parser.y:3461 -msgid "Invalid value for SIZE" -msgstr "" - -#: cobc/parser.y:3473 -msgid "OPTIONAL only allowed for BY REFERENCE items" -msgstr "" - -#: cobc/parser.y:3482 -msgid "RETURNING clause is required for a FUNCTION" -msgstr "" - -#: cobc/parser.y:3490 -msgid "RETURNING item is not defined in LINKAGE SECTION" -msgstr "" - -#: cobc/parser.y:3637 -#, c-format -msgid "Unknown statement '%s'" -msgstr "" - -#: cobc/parser.y:3983 -msgid "ALTER statement is obsolete and unsupported" -msgstr "" - -#: cobc/parser.y:4029 -msgid "OMITTED only allowed with BY REFERENCE" -msgstr "" - -#: cobc/parser.y:4049 -msgid "BY CONTENT not allowed in CHAINED program" -msgstr "" - -#: cobc/parser.y:4370 -msgid "ENTRY is invalid in nested program" -msgstr "" - -#: cobc/parser.y:4373 -#, c-format -msgid "ENTRY '%s' invalid" -msgstr "" - -#: cobc/parser.y:4548 -msgid "EXIT PROGRAM is not allowed within a USE GLOBAL procedure" -msgstr "" - -#: cobc/parser.y:4559 cobc/parser.y:4576 -msgid "EXIT PERFORM is only valid with inline PERFORM" -msgstr "" - -#: cobc/parser.y:4593 -msgid "EXIT SECTION is only valid with an active SECTION" -msgstr "" - -#: cobc/parser.y:4611 -msgid "EXIT PARAGRAPH is only valid with an active PARAGRAPH" -msgstr "" - -#: cobc/parser.y:4893 -msgid "INSPECT missing a keyword" -msgstr "" - -#: cobc/parser.y:5132 -msgid "KEY clause invalid with this file type" -msgstr "" - -#: cobc/parser.y:5435 -msgid "File sort requires KEY phrase" -msgstr "" - -#: cobc/parser.y:5484 -msgid "File sort requires USING or INPUT PROCEDURE" -msgstr "" - -#: cobc/parser.y:5490 -msgid "USING invalid with table SORT" -msgstr "" - -#: cobc/parser.y:5498 -msgid "INPUT PROCEDURE invalid with table SORT" -msgstr "" - -#: cobc/parser.y:5509 -msgid "File sort requires GIVING or OUTPUT PROCEDURE" -msgstr "" - -#: cobc/parser.y:5515 -msgid "GIVING invalid with table SORT" -msgstr "" - -#: cobc/parser.y:5523 -msgid "OUTPUT PROCEDURE invalid with table SORT" -msgstr "" - -#: cobc/parser.y:5544 -msgid "START not allowed on SEQUENTIAL files" -msgstr "" - -#: cobc/parser.y:5550 cobc/parser.y:6370 cobc/parser.y:6443 -#, c-format -msgid "'%s' is not a file name" -msgstr "" - -#: cobc/parser.y:5813 -msgid "USE statement must be within DECLARATIVES" -msgstr "" - -#: cobc/parser.y:5815 -msgid "SECTION header missing before USE statement" -msgstr "" - -#: cobc/parser.y:6356 -msgid "LINAGE-COUNTER must be qualified here" -msgstr "" - -#: cobc/parser.y:6359 -msgid "Invalid LINAGE-COUNTER usage" -msgstr "" - -#: cobc/parser.y:6406 -#, c-format -msgid "'%s' not indexed" -msgstr "" - -#: cobc/parser.y:6407 -#, c-format -msgid "'%s' defined here" -msgstr "" - -#: cobc/parser.y:6429 -#, c-format -msgid "Multiple reference to '%s' " -msgstr "" - -#: cobc/parser.y:6669 cobc/parser.y:6671 -msgid "Integer value expected" -msgstr "" - -#: cobc/scanner.l:500 -msgid "User defined name must be less than 32 characters" -msgstr "" - -#: cobc/scanner.l:560 -#, c-format -msgid "CONSTANT (78 level) may not be used here - '%s'" -msgstr "" - -#: cobc/scanner.l:729 -msgid "Alphanumeric literal has zero length" -msgstr "" - -#: cobc/scanner.l:730 -msgid "A SPACE will be assumed" -msgstr "" - -#: cobc/scanner.l:787 -#, c-format -msgid "Invalid X literal: %s" -msgstr "" - -#: cobc/scanner.l:823 -#, c-format -msgid "Invalid H literal: %s" -msgstr "" - -#: cobc/scanner.l:848 cobc/scanner.l:851 -msgid "Invalid numeric literal" -msgstr "" - -#: cobc/flag.def:26 -msgid "Generate trace code (Executed SECTION/PARAGRAPH)" -msgstr "" - -#: cobc/flag.def:29 -msgid "Generate trace code (Executed SECTION/PARAGRAPH/STATEMENTS)" -msgstr "" - -#: cobc/flag.def:32 -msgid "Syntax error checking only; don't emit any output" -msgstr "" - -#: cobc/flag.def:35 -msgid "Output static function calls for the CALL statement" -msgstr "" - -#: cobc/flag.def:38 -msgid "Enable debugging lines ('D' in indicator column)" -msgstr "" - -#: cobc/flag.def:41 -msgid "Generate source location code (Turned on by -debug or -g)" -msgstr "" - -#: cobc/flag.def:44 -msgid "Do automatic initialization of the Cobol runtime system" -msgstr "" - -#: cobc/flag.def:47 -msgid "Numeric display sign ASCII (Default on ASCII machines)" -msgstr "" - -#: cobc/flag.def:50 -msgid "Numeric display sign EBCDIC (Default on EBCDIC machines)" -msgstr "" - -#: cobc/flag.def:53 -msgid "PERFORM stack checking (Turned on by -debug or -g)" -msgstr "" - -#: cobc/flag.def:56 -msgid "Fold COPY subject to lower case (Default no transformation)" -msgstr "" - -#: cobc/flag.def:59 -msgid "Fold COPY subject to upper case (Default no transformation)" -msgstr "" - -#: cobc/flag.def:62 -msgid "Do not truncate binary fields according to PICTURE" -msgstr "" - -#: cobc/flag.def:65 -msgid "Allow use of intrinsic functions without FUNCTION keyword" -msgstr "" - -#: cobc/flag.def:68 -msgid "'*' or '/' in column 1 treated as comment (FIXED only)" -msgstr "" - -#: cobc/flag.def:71 -msgid "Pass extra NULL terminating pointers on CALL statements" -msgstr "" - -#: cobc/warning.def:26 -msgid "Warn if obsolete features are used" -msgstr "" - -#: cobc/warning.def:29 -msgid "Warn if archaic features are used" -msgstr "" - -#: cobc/warning.def:32 -msgid "Warn incompatible redefinition of data items" -msgstr "" - -#: cobc/warning.def:35 -msgid "Warn inconsistent constant" -msgstr "" - -#: cobc/warning.def:38 -msgid "Warn lack of parentheses around AND within OR" -msgstr "" - -#: cobc/warning.def:41 -msgid "Warn type mismatch strictly" -msgstr "" - -#: cobc/warning.def:44 -msgid "Warn implicitly defined data items" -msgstr "" - -#: cobc/warning.def:47 -msgid "Warn non 01/77 items for CALL params" -msgstr "" - -#: cobc/warning.def:50 -msgid "Warn text after column 72, FIXED format" -msgstr "" - -#: cobc/warning.def:53 -msgid "Warn lack of scope terminator END-XXX" -msgstr "" - -#: cobc/warning.def:56 -msgid "Warn possible field truncation" -msgstr "" - -#: cobc/warning.def:59 -msgid "Warn dangling LINKAGE items" -msgstr "" - -#: cobc/warning.def:62 -msgid "Warn unreachable statements" -msgstr "" diff --git a/tarstamp.h b/tarstamp.h index 8a5fd574..0053336b 100644 --- a/tarstamp.h +++ b/tarstamp.h @@ -1 +1 @@ -static char octardate[] = "Feb 06 2009 10:30:55 CET"; +static char octardate[] = "12月 16 2013 12:00:30 JST"; diff --git a/tests/data-rep b/tests/data-rep index f88ef963..7c9f30de 100755 --- a/tests/data-rep +++ b/tests/data-rep @@ -1,418 +1,75 @@ #! /bin/sh -# Generated from data-rep.at by GNU Autoconf 2.68. -# -# Copyright (C) 2009, 2010 Free Software Foundation, Inc. -# -# This test suite is free software; the Free Software Foundation gives -# unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix fi +DUALCASE=1; export DUALCASE # for MKS sh - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } + as_unset=false fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : - -else - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - # We cannot yet assume a decent shell, so we have to provide a - # neutralization value for shells without unset; and this also - # works around shells that cannot unset nonexistent variables. - # Preserve -v and -x to the replacement shell. - BASH_ENV=/dev/null - ENV=/dev/null - (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV - export CONFIG_SHELL - case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; - esac - exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"} -fi - - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var else - $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, -$0: including any error possibly output before this -$0: message. Then install a modern shell, or manually run -$0: the script under such a shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + $as_unset $as_var fi - $as_echo "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error +done -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi -as_me=`$as_basename -- "$0" || + +# Name of the executable. +as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + +# PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' @@ -420,107 +77,146 @@ as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac + + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop - s/-\n.*// + s,-$,, + s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + chmod +x $as_me.lineno || + { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 + { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno # Exit status is that of the last command. exit } -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null + as_expr=false fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links as_ln_s='cp -p' + else + as_ln_s='ln -s' fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln else as_ln_s='cp -p' fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null +rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' + as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x +as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" @@ -529,7 +225,14 @@ as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" +# CDPATH. +$as_unset CDPATH SHELL=${CONFIG_SHELL-/bin/sh} @@ -537,6 +240,24 @@ SHELL=${CONFIG_SHELL-/bin/sh} # How were we run? at_cli_args="$@" +# Load the config file. +for at_file in atconfig atlocal +do + test -r $at_file || continue + . ./$at_file || { echo "$as_me: error: invalid content: $at_file" >&2 + { (exit 1); exit 1; }; } +done + +# atconfig delivers paths relative to the directory the test suite is +# in, but the groups themselves are run in testsuite-dir/group-dir. +if test -n "$at_top_srcdir"; then + builddir=../.. + for at_dir in srcdir top_srcdir top_builddir + do + at_val=`eval echo '${'at_$at_dir'}'` + eval "$at_dir=\$at_val/../.." + done +fi # Not all shells have the 'times' builtin; the subshell is needed to make # sure we discard the 'times: not found' message from the shell. @@ -547,53 +268,48 @@ at_times_p=false at_debug_args= # -e sets to true at_errexit_p=false -# Shall we be verbose? ':' means no, empty means yes. +# Shall we be verbose? at_verbose=: -at_quiet= -# Running several jobs in parallel, 0 means as many as test groups. -at_jobs=1 -at_traceon=: -at_trace_echo=: -at_check_filter_trace=: +at_quiet=echo # Shall we keep the debug scripts? Must be `:' when the suite is # run by a debug script, so that the script doesn't remove itself. at_debug_p=false # Display help message? at_help_p=false -# Display the version message? -at_version_p=false # List test groups? at_list_p=false -# --clean -at_clean=false # Test groups to run at_groups= -# Whether to rerun failed tests. -at_recheck= -# Whether a write failure occurred -at_write_fail=0 -# The directory we run the suite in. Default to . if no -C option. +# The directory we are in. at_dir=`pwd` -# An absolute reference to this testsuite script. -case $as_myself in - [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;; - * ) at_myself=$at_dir/$as_myself ;; -esac -# Whether -C is in effect. -at_change_dir=false +# The directory the whole suite works in. +# Should be absolutely to let the user `cd' at will. +at_suite_dir=$at_dir/$as_me.dir +# The file containing the suite. +at_suite_log=$at_dir/$as_me.log +# The file containing the location of the last AT_CHECK. +at_check_line_file=$at_suite_dir/at-check-line +# The file containing the exit status of the last command. +at_status_file=$at_suite_dir/at-status +# The files containing the output of the tested commands. +at_stdout=$at_suite_dir/at-stdout +at_stder1=$at_suite_dir/at-stder1 +at_stderr=$at_suite_dir/at-stderr +# The file containing dates. +at_times_file=$at_suite_dir/at-times -# Whether to enable colored test results. -at_color=no # List of the tested programs. at_tested='cobc' -# As many question marks as there are digits in the last test group number. +# List of the all the test groups. +at_groups_all=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17' +# As many dots as there are digits in the last test group number. # Used to normalize the test group numbers so that `ls' lists them in # numerical order. -at_format='??' +at_format='..' # Description of all the test groups. -at_help_all="1;binary.at:23;BINARY: 2-4-8 big-endian;; +at_help_all='1;binary.at:23;BINARY: 2-4-8 big-endian;; 2;binary.at:207;BINARY: 2-4-8 native;; 3;binary.at:396;BINARY: 1-2-4-8 big-endian;; 4;binary.at:580;BINARY: 1-2-4-8 native;; @@ -610,34 +326,9 @@ at_help_all="1;binary.at:23;BINARY: 2-4-8 big-endian;; 15;packed.at:291;PACKED-DECIMAL arithmetic (2);; 16;packed.at:324;PACKED-DECIMAL numeric test;; 17;pointer.at:22;POINTER: display;; -" -# List of the all the test groups. -at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'` - -# at_fn_validate_ranges NAME... -# ----------------------------- -# Validate and normalize the test group number contained in each variable -# NAME. Leading zeroes are treated as decimal. -at_fn_validate_ranges () -{ - for at_grp - do - eval at_value=\$$at_grp - if test $at_value -lt 1 || test $at_value -gt 17; then - $as_echo "invalid test group: $at_value" >&2 - exit 1 - fi - case $at_value in - 0*) # We want to treat leading 0 as decimal, like expr and test, but - # AS_VAR_ARITH treats it as octal if it uses $(( )). - # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the - # expr fork, but it is not worth the effort to determine if the - # shell supports XSI when the user can just avoid leading 0. - eval $at_grp='`expr $at_value + 0`' ;; - esac - done -} +' +at_keywords= at_prev= for at_option do @@ -647,10 +338,7 @@ do at_prev= fi - case $at_option in - *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;; - *) at_optarg= ;; - esac + at_optarg=`expr "x$at_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. @@ -664,24 +352,13 @@ do ;; --version | -V ) - at_version_p=: + echo "$as_me (OpenCOBOL 1.1)" + exit 0 ;; --clean | -c ) - at_clean=: - ;; - - --color ) - at_color=always - ;; - --color=* ) - case $at_optarg in - no | never | none) at_color=never ;; - auto | tty | if-tty) at_color=auto ;; - always | yes | force) at_color=always ;; - *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'` - as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;; - esac + rm -rf $at_suite_dir $at_suite_log + exit 0 ;; --debug | -d ) @@ -694,35 +371,30 @@ do ;; --verbose | -v ) - at_verbose=; at_quiet=: + at_verbose=echo; at_quiet=: ;; --trace | -x ) - at_traceon='set -x' - at_trace_echo=echo - at_check_filter_trace=at_fn_filter_trace + at_traceon='set -vx'; at_traceoff='set +vx' ;; [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) - at_fn_validate_ranges at_option - as_fn_append at_groups "$at_option$as_nl" + at_groups="$at_groups$at_option " ;; # Ranges [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) - at_range_start=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_start - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,$p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_start=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,'` + at_groups="$at_groups$at_range " ;; -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) - at_range_end=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '1,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_end=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ @@ -731,45 +403,13 @@ do [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) - at_range_start=`expr $at_option : '\(.*\)-'` - at_range_end=`expr $at_option : '.*-\(.*\)'` - if test $at_range_start -gt $at_range_end; then - at_tmp=$at_range_end - at_range_end=$at_range_start - at_range_start=$at_tmp - fi - at_fn_validate_ranges at_range_start at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" - ;; - - # Directory selection. - --directory | -C ) - at_prev=--directory - ;; - --directory=* ) - at_change_dir=: - at_dir=$at_optarg - if test x- = "x$at_dir" ; then - at_dir=./- - fi - ;; - - # Parallel execution. - --jobs | -j ) - at_jobs=0 - ;; - --jobs=* | -j[0-9]* ) - if test -n "$at_optarg"; then - at_jobs=$at_optarg - else - at_jobs=`expr X$at_option : 'X-j\(.*\)'` - fi - case $at_jobs in *[!0-9]*) - at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'` - as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;; - esac + at_range_start=`echo $at_option |sed 's,-.*,,'` + at_range_end=`echo $at_option |sed 's,.*-,,'` + # FIXME: Maybe test to make sure start <= end? + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,' \ + -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; # Keywords. @@ -777,113 +417,67 @@ do at_prev=--keywords ;; --keywords=* ) - at_groups_selected=$at_help_all - at_save_IFS=$IFS - IFS=, - set X $at_optarg - shift - IFS=$at_save_IFS - for at_keyword - do - at_invert= - case $at_keyword in - '!'*) - at_invert="-v" - at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'` - ;; - esac - # It is on purpose that we match the test group titles too. - at_groups_selected=`$as_echo "$at_groups_selected" | - grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"` - done - # Smash the keywords. - at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'` - as_fn_append at_groups "$at_groups_selected$as_nl" - ;; - --recheck) - at_recheck=: + at_keywords="$at_keywords,$at_optarg" ;; *=*) - at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $at_envvar in - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error $? "invalid variable name: \`$at_envvar'" ;; - esac - at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` - # Export now, but save eval for later and for debug scripts. - export $at_envvar - as_fn_append at_debug_args " $at_envvar='$at_value'" - ;; - - *) $as_echo "$as_me: invalid option: $at_option" >&2 - $as_echo "Try \`$0 --help' for more information." >&2 + at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + expr "x$at_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid variable name: $at_envvar" >&2 + { (exit 1); exit 1; }; } + at_value=`echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` + eval "$at_envvar='$at_value'" + export $at_envvar + # Propagate to debug scripts. + at_debug_args="$at_debug_args $at_option" + ;; + + *) echo "$as_me: invalid option: $at_option" >&2 + echo "Try \`$0 --help' for more information." >&2 exit 1 ;; esac done -# Verify our last option didn't require an argument -if test -n "$at_prev"; then : - as_fn_error $? "\`$at_prev' requires an argument" +# Process the --keywords +if test -n "$at_keywords"; then + at_groups_selected=$at_help_all + for at_keyword in `IFS=,; set X $at_keywords; shift; echo ${1+$@}` + do + # It is on purpose that we match the test group titles too. + at_groups_selected=`echo "$at_groups_selected" | + grep -i "^[^;]*;[^;]*.*[; ]$at_keyword[ ;]"` + done + at_groups_selected=`echo "$at_groups_selected" | sed 's/;.*//'` + # Smash the end of lines. + at_groups_selected=`echo $at_groups_selected` + at_groups="$at_groups$at_groups_selected " fi -# The file containing the suite. -at_suite_log=$at_dir/$as_me.log - # Selected test groups. -if test -z "$at_groups$at_recheck"; then - at_groups=$at_groups_all -else - if test -n "$at_recheck" && test -r "$at_suite_log"; then - at_oldfails=`sed -n ' - /^Failed tests:$/,/^Skipped tests:$/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^Unexpected passes:$/,/^## Detailed failed tests/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^## Detailed failed tests/q - ' "$at_suite_log"` - as_fn_append at_groups "$at_oldfails$as_nl" - fi - # Sort the tests, removing duplicates. - at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'` -fi - -if test x"$at_color" = xalways \ - || { test x"$at_color" = xauto && test -t 1; }; then - at_red=`printf '\033[0;31m'` - at_grn=`printf '\033[0;32m'` - at_lgn=`printf '\033[1;32m'` - at_blu=`printf '\033[1;34m'` - at_std=`printf '\033[m'` -else - at_red= at_grn= at_lgn= at_blu= at_std= -fi +test -z "$at_groups" && at_groups=$at_groups_all # Help message. if $at_help_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] -Run all the tests, or the selected TESTS, given by numeric ranges, and -save a detailed log file. Upon failure, create debugging scripts. +Run all the tests, or the selected TESTS, and save a detailed log file. +Upon failure, create debugging scripts. -Do not change environment variables directly. Instead, set them via -command line arguments. Set \`AUTOTEST_PATH' to select the executables +You should not change environment variables unless explicitly passed +as command line arguments. Set \`AUTOTEST_PATH' to select the executables to exercise. Each relative directory is expanded as build and source -directories relative to the top level of this distribution. -E.g., from within the build directory /tmp/foo-1.0, invoking this: +directories relatively to the top level of this distribution. E.g., $ $0 AUTOTEST_PATH=bin -is equivalent to the following, assuming the source directory is /src/foo-1.0: +possibly amounts into - PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0 + PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Operation modes: -h, --help print the help message, then exit @@ -891,278 +485,145 @@ Operation modes: -c, --clean remove all the files this test suite might create and exit -l, --list describes all the tests, or the selected TESTS _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Execution tuning: - -C, --directory=DIR - change to directory DIR before starting - --color[=never|auto|always] - enable colored test results on terminal, or always - -j, --jobs[=N] - Allow N jobs at once; infinite jobs with no arg (default 1) -k, --keywords=KEYWORDS - select the tests matching all the comma-separated KEYWORDS - multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD - --recheck select all tests that failed or passed unexpectedly last time + select the tests matching all the comma separated KEYWORDS + accumulates -e, --errexit abort as soon as a test fails; implies --debug -v, --verbose force more detailed output - default for debugging scripts - -d, --debug inhibit clean up and top-level logging - default for debugging scripts + default for debugging scripts + -d, --debug inhibit clean up and debug script creation + default for debugging scripts -x, --trace enable tests shell tracing _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Report bugs to . _ATEOF - exit $at_write_fail + exit 0 fi # List of tests. if $at_list_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF OpenCOBOL 1.1 test suite: Data Representation test groups: - NUM: FILE-NAME:LINE TEST-GROUP-NAME + NUM: FILENAME:LINE TEST-GROUP-NAME KEYWORDS _ATEOF - # Pass an empty line as separator between selected groups and help. - $as_echo "$at_groups$as_nl$as_nl$at_help_all" | - awk 'NF == 1 && FS != ";" { - selected[$ 1] = 1 - next - } - /^$/ { FS = ";" } - NF > 0 { - if (selected[$ 1]) { - printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3 - if ($ 4) { - lmax = 79 - indent = " " - line = indent - len = length (line) - n = split ($ 4, a, " ") - for (i = 1; i <= n; i++) { - l = length (a[i]) + 1 - if (i > 1 && len + l > lmax) { - print line - line = indent " " a[i] - len = length (line) - } else { - line = line " " a[i] - len += l - } - } - if (n) - print line - } - } - }' || at_write_fail=1 - exit $at_write_fail -fi -if $at_version_p; then - $as_echo "$as_me (OpenCOBOL 1.1)" && - cat <<\_ATEOF || at_write_fail=1 - -Copyright (C) 2010 Free Software Foundation, Inc. -This test suite is free software; the Free Software Foundation gives -unlimited permission to copy, distribute and modify it. -_ATEOF - exit $at_write_fail -fi - -# Should we print banners? Yes if more than one test is run. -case $at_groups in #( - *$as_nl* ) - at_print_banners=: ;; #( - * ) at_print_banners=false ;; -esac -# Text for banner N, set to a single space once printed. - -# Take any -C into account. -if $at_change_dir ; then - test x != "x$at_dir" && cd "$at_dir" \ - || as_fn_error $? "unable to change directory" - at_dir=`pwd` -fi - -# Load the config files for any default variable assignments. -for at_file in atconfig atlocal -do - test -r $at_file || continue - . ./$at_file || as_fn_error $? "invalid content: $at_file" -done - -# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix: -: "${at_top_build_prefix=$at_top_builddir}" - -# Perform any assignments requested during argument parsing. -eval "$at_debug_args" - -# atconfig delivers names relative to the directory the test suite is -# in, but the groups themselves are run in testsuite-dir/group-dir. -if test -n "$at_top_srcdir"; then - builddir=../.. - for at_dir_var in srcdir top_srcdir top_build_prefix - do - eval at_val=\$at_$at_dir_var - case $at_val in - [\\/$]* | ?:[\\/]* ) at_prefix= ;; - *) at_prefix=../../ ;; - esac - eval "$at_dir_var=\$at_prefix\$at_val" - done -fi - -## -------------------- ## -## Directory structure. ## -## -------------------- ## - -# This is the set of directories and files used by this script -# (non-literals are capitalized): -# -# TESTSUITE - the testsuite -# TESTSUITE.log - summarizes the complete testsuite run -# TESTSUITE.dir/ - created during a run, remains after -d or failed test -# + at-groups/ - during a run: status of all groups in run -# | + NNN/ - during a run: meta-data about test group NNN -# | | + check-line - location (source file and line) of current AT_CHECK -# | | + status - exit status of current AT_CHECK -# | | + stdout - stdout of current AT_CHECK -# | | + stder1 - stderr, including trace -# | | + stderr - stderr, with trace filtered out -# | | + test-source - portion of testsuite that defines group -# | | + times - timestamps for computing duration -# | | + pass - created if group passed -# | | + xpass - created if group xpassed -# | | + fail - created if group failed -# | | + xfail - created if group xfailed -# | | + skip - created if group skipped -# + at-stop - during a run: end the run if this file exists -# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction -# + 0..NNN/ - created for each group NNN, remains after -d or failed test -# | + TESTSUITE.log - summarizes the group results -# | + ... - files created during the group - -# The directory the whole suite works in. -# Should be absolute to let the user `cd' at will. -at_suite_dir=$at_dir/$as_me.dir -# The file containing the suite ($at_dir might have changed since earlier). -at_suite_log=$at_dir/$as_me.log -# The directory containing helper files per test group. -at_helper_dir=$at_suite_dir/at-groups -# Stop file: if it exists, do not start new jobs. -at_stop_file=$at_suite_dir/at-stop -# The fifo used for the job dispatcher. -at_job_fifo=$at_suite_dir/at-job-fifo - -if $at_clean; then - test -d "$at_suite_dir" && - find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -f -r "$at_suite_dir" "$at_suite_log" - exit $? + # " 1 42 45 " => "^(1|42|45);". + at_groups_pattern=`echo "$at_groups" | sed 's/^ *//;s/ *$//;s/ */|/g'` + echo "$at_help_all" | + awk 'BEGIN { FS = ";" } + { if ($1 !~ /^('"$at_groups_pattern"')$/) next } + { if ($1) printf " %3d: %-18s %s\n", $1, $2, $3 + if ($4) printf " %s\n", $4 } ' + exit 0 fi # Don't take risks: use only absolute directories in PATH. # -# For stand-alone test suites (ie. atconfig was not found), -# AUTOTEST_PATH is relative to `.'. +# For stand-alone test suites, AUTOTEST_PATH is relative to `.'. # # For embedded test suites, AUTOTEST_PATH is relative to the top level # of the package. Then expand it into build/src parts, since users # may create executables in both places. -AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"` +# +# There might be directories that don't exist, but don't redirect +# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. +AUTOTEST_PATH=`echo $AUTOTEST_PATH | tr ':' $PATH_SEPARATOR` at_path= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $AUTOTEST_PATH $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR -case $as_dir in + case $as_dir in [\\/]* | ?:[\\/]* ) - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir ;; * ) - if test -z "$at_top_build_prefix"; then + if test -z "$at_top_builddir"; then # Stand-alone test suite. - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir else # Embedded test suite. - as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR" - as_fn_append at_path "$at_top_srcdir/$as_dir" + at_path=$at_path$PATH_SEPARATOR$at_top_builddir/$as_dir + at_path=$at_path$PATH_SEPARATOR$at_top_srcdir/$as_dir fi ;; esac - done -IFS=$as_save_IFS +done # Now build and simplify PATH. -# -# There might be directories that don't exist, but don't redirect -# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. -at_new_path= +PATH= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $at_path do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -d "$as_dir" || continue -case $as_dir in - [\\/]* | ?:[\\/]* ) ;; - * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;; -esac -case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in - *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;; - $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;; - *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;; + as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` +test -d "$as_dir" || continue +case $PATH in + $as_dir | \ + $as_dir$PATH_SEPARATOR* | \ + *$PATH_SEPARATOR$as_dir | \ + *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR* ) ;; + + '') PATH=$as_dir ;; + *) PATH=$PATH$PATH_SEPARATOR$as_dir ;; esac - done -IFS=$as_save_IFS +done -PATH=$at_new_path export PATH # Setting up the FDs. - - - # 5 is the log file. Not to be overwritten if `-d'. -if $at_debug_p; then - at_suite_log=/dev/null -else - : >"$at_suite_log" -fi -exec 5>>"$at_suite_log" + +$at_debug_p && at_suite_log=/dev/null +exec 5>$at_suite_log # Banners and logs. -$as_echo "## ---------------------------------------------- ## +cat <<\_ASBOX +## ---------------------------------------------- ## ## OpenCOBOL 1.1 test suite: Data Representation. ## -## ---------------------------------------------- ##" +## ---------------------------------------------- ## +_ASBOX { - $as_echo "## ---------------------------------------------- ## + cat <<\_ASBOX +## ---------------------------------------------- ## ## OpenCOBOL 1.1 test suite: Data Representation. ## -## ---------------------------------------------- ##" +## ---------------------------------------------- ## +_ASBOX echo - $as_echo "$as_me: command line was:" - $as_echo " \$ $0 $at_cli_args" + echo "$as_me: command line was:" + echo " $ $0 $at_cli_args" echo - # If ChangeLog exists, list a few lines in case it might help determining - # the exact version. - if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then - $as_echo "## ---------- ## -## ChangeLog. ## -## ---------- ##" - echo - sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog" + # Try to find a few ChangeLogs in case it might help determining the + # exact version. Use the relative dir: if the top dir is a symlink, + # find will not follow it (and options to follow the links are not + # portable), which would result in no output here. + if test -n "$at_top_srcdir"; then + cat <<\_ASBOX +## ----------- ## +## ChangeLogs. ## +## ----------- ## +_ASBOX echo - fi + for at_file in `find "$at_top_srcdir" -name ChangeLog -print` + do + echo "$as_me: $at_file:" + sed 's/^/| /;10q' $at_file + echo + done - { + { cat <<_ASUNAME ## --------- ## ## Platform. ## @@ -1180,7 +641,7 @@ uname -v = `(uname -v) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` @@ -1192,822 +653,150 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" - done -IFS=$as_save_IFS + echo "PATH: $as_dir" +done } - echo + echo + fi # Contents of the config files. for at_file in atconfig atlocal do test -r $at_file || continue - $as_echo "$as_me: $at_file:" + echo "$as_me: $at_file:" sed 's/^/| /' $at_file echo done -} >&5 - - -## ------------------------- ## -## Autotest shell functions. ## -## ------------------------- ## -# at_fn_banner NUMBER -# ------------------- -# Output banner NUMBER, provided the testsuite is running multiple groups and -# this particular banner has not yet been printed. -at_fn_banner () -{ - $at_print_banners || return 0 - eval at_banner_text=\$at_banner_text_$1 - test "x$at_banner_text" = "x " && return 0 - eval "at_banner_text_$1=\" \"" - if test -z "$at_banner_text"; then - $at_first || echo - else - $as_echo "$as_nl$at_banner_text$as_nl" - fi -} # at_fn_banner - -# at_fn_check_prepare_notrace REASON LINE -# --------------------------------------- -# Perform AT_CHECK preparations for the command at LINE for an untraceable -# command; REASON is the reason for disabling tracing. -at_fn_check_prepare_notrace () -{ - $at_trace_echo "Not enabling shell tracing (command contains $1)" - $as_echo "$2" >"$at_check_line_file" - at_check_trace=: at_check_filter=: - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_trace LINE -# ------------------------------ -# Perform AT_CHECK preparations for the command at LINE for a traceable -# command. -at_fn_check_prepare_trace () -{ - $as_echo "$1" >"$at_check_line_file" - at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_dynamic COMMAND LINE -# ---------------------------------------- -# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate -# preparation function. -at_fn_check_prepare_dynamic () -{ - case $1 in - *$as_nl*) - at_fn_check_prepare_notrace 'an embedded newline' "$2" ;; - *) - at_fn_check_prepare_trace "$2" ;; - esac -} - -# at_fn_filter_trace -# ------------------ -# Remove the lines in the file "$at_stderr" generated by "set -x" and print -# them to stderr. -at_fn_filter_trace () -{ - mv "$at_stderr" "$at_stder1" - grep '^ *+' "$at_stder1" >&2 - grep -v '^ *+' "$at_stder1" >"$at_stderr" -} - -# at_fn_log_failure FILE-LIST -# --------------------------- -# Copy the files in the list on stdout with a "> " prefix, and exit the shell -# with a failure exit code. -at_fn_log_failure () -{ - for file - do $as_echo "$file:"; sed 's/^/> /' "$file"; done - echo 1 > "$at_status_file" - exit 1 -} - -# at_fn_check_skip EXIT-CODE LINE -# ------------------------------- -# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit -# the test group subshell with that same exit code. Use LINE in any report -# about test failure. -at_fn_check_skip () -{ - case $1 in - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$2: hard failure"; exit 99;; - 77) echo 77 > "$at_status_file"; exit 77;; - esac -} - -# at_fn_check_status EXPECTED EXIT-CODE LINE -# ------------------------------------------ -# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing. -# Otherwise, if it is 77 or 99, exit the test group subshell with that same -# exit code; if it is anything else print an error message referring to LINE, -# and fail the test. -at_fn_check_status () -{ - case $2 in - $1 ) ;; - 77) echo 77 > "$at_status_file"; exit 77;; - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$3: hard failure"; exit 99;; - *) $as_echo "$3: exit code was $2, expected $1" - at_failed=:;; - esac -} - -# at_fn_diff_devnull FILE -# ----------------------- -# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff -# invocations. -at_fn_diff_devnull () -{ - test -s "$1" || return 0 - $at_diff "$at_devnull" "$1" -} - -# at_fn_test NUMBER -# ----------------- -# Parse out test NUMBER from the tail of this file. -at_fn_test () -{ - eval at_sed=\$at_sed$1 - sed "$at_sed" "$at_myself" > "$at_test_source" -} - -# at_fn_create_debugging_script -# ----------------------------- -# Create the debugging script $at_group_dir/run which will reproduce the -# current test group. -at_fn_create_debugging_script () -{ - { - echo "#! /bin/sh" && - echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' && - $as_echo "cd '$at_dir'" && - $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" && - echo 'exit 1' - } >"$at_group_dir/run" && - chmod +x "$at_group_dir/run" -} - -## -------------------------------- ## -## End of autotest shell functions. ## -## -------------------------------- ## -{ - $as_echo "## ---------------- ## -## Tested programs. ## -## ---------------- ##" - echo -} >&5 + cat <<\_ASBOX +## ---------------- ## +## Tested programs. ## +## ---------------- ## +_ASBOX + echo +} >&5 # Report what programs are being tested. for at_program in : $at_tested do test "$at_program" = : && continue - case $at_program in - [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;; - * ) - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -f "$as_dir/$at_program" && break - done -IFS=$as_save_IFS + test -f $as_dir/$at_program && break +done - at_program_=$as_dir/$at_program ;; - esac - if test -f "$at_program_"; then + if test -f $as_dir/$at_program; then { - $as_echo "$at_srcdir/data-rep.at:21: $at_program_ --version" - "$at_program_" --version &5 2>&1 else - as_fn_error $? "cannot find $at_program" "$LINENO" 5 + { { echo "$as_me:$LINENO: error: cannot find $at_program" >&5 +echo "$as_me: error: cannot find $at_program" >&2;} + { (exit 1); exit 1; }; } fi done { - $as_echo "## ------------------ ## + cat <<\_ASBOX +## ------------------ ## ## Running the tests. ## -## ------------------ ##" +## ------------------ ## +_ASBOX } >&5 at_start_date=`date` -at_start_time=`date +%s 2>/dev/null` -$as_echo "$as_me: starting at: $at_start_date" >&5 +at_start_time=`(date +%s) 2>/dev/null` +echo "$as_me: starting at: $at_start_date" >&5 +at_xpass_list= +at_xfail_list= +at_pass_list= +at_fail_list= +at_skip_list= +at_group_count=0 # Create the master directory if it doesn't already exist. -as_dir="$at_suite_dir"; as_fn_mkdir_p || - as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5 +test -d $at_suite_dir || + mkdir $at_suite_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_suite_dir" >&5 +echo "$as_me: error: cannot create $at_suite_dir" >&2;} + { (exit 1); exit 1; }; } # Can we diff with `/dev/null'? DU 5.0 refuses. if diff /dev/null /dev/null >/dev/null 2>&1; then at_devnull=/dev/null else at_devnull=$at_suite_dir/devnull - >"$at_devnull" + cp /dev/null $at_devnull fi # Use `diff -u' when possible. -if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff" -then +if diff -u $at_devnull $at_devnull >/dev/null 2>&1; then at_diff='diff -u' else at_diff=diff fi -# Get the last needed group. -for at_group in : $at_groups; do :; done - -# Extract the start and end lines of each test group at the tail -# of this file -awk ' -BEGIN { FS="" } -/^#AT_START_/ { - start = NR -} -/^#AT_STOP_/ { - test = substr ($ 0, 10) - print "at_sed" test "=\"1," start "d;" (NR-1) "q\"" - if (test == "'"$at_group"'") exit -}' "$at_myself" > "$at_suite_dir/at-source-lines" && -. "$at_suite_dir/at-source-lines" || - as_fn_error $? "cannot create test line number cache" "$LINENO" 5 -rm -f "$at_suite_dir/at-source-lines" - -# Set number of jobs for `-j'; avoid more jobs than test groups. -set X $at_groups; shift; at_max_jobs=$# -if test $at_max_jobs -eq 0; then - at_jobs=1 -fi -if test $at_jobs -ne 1 && - { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then - at_jobs=$at_max_jobs -fi - -# If parallel mode, don't output banners, don't split summary lines. -if test $at_jobs -ne 1; then - at_print_banners=false - at_quiet=: -fi - -# Set up helper dirs. -rm -rf "$at_helper_dir" && -mkdir "$at_helper_dir" && -cd "$at_helper_dir" && -{ test -z "$at_groups" || mkdir $at_groups; } || -as_fn_error $? "testsuite directory setup failed" "$LINENO" 5 - -# Functions for running a test group. We leave the actual -# test group execution outside of a shell function in order -# to avoid hitting zsh 4.x exit status bugs. - -# at_fn_group_prepare -# ------------------- -# Prepare for running a test group. -at_fn_group_prepare () -{ - # The directory for additional per-group helper files. - at_job_dir=$at_helper_dir/$at_group - # The file containing the location of the last AT_CHECK. - at_check_line_file=$at_job_dir/check-line - # The file containing the exit status of the last command. - at_status_file=$at_job_dir/status - # The files containing the output of the tested commands. - at_stdout=$at_job_dir/stdout - at_stder1=$at_job_dir/stder1 - at_stderr=$at_job_dir/stderr - # The file containing the code for a test group. - at_test_source=$at_job_dir/test-source - # The file containing dates. - at_times_file=$at_job_dir/times +for at_group in $at_groups +do # Be sure to come back to the top test directory. - cd "$at_suite_dir" - - # Clearly separate the test groups when verbose. - $at_first || $at_verbose echo - - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - - # Create a fresh directory for the next test group, and enter. - # If one already exists, the user may have invoked ./run from - # within that directory; we remove the contents, but not the - # directory itself, so that we aren't pulling the rug out from - # under the shell's notion of the current directory. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \; - rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??* -fi || - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5 -$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;} - # Be tolerant if the above `rm' was not able to remove the directory. - as_dir="$at_group_dir"; as_fn_mkdir_p - - echo 0 > "$at_status_file" + cd $at_suite_dir - # In verbose mode, append to the log file *and* show on - # the standard output; in quiet mode only write to the log. - if test -z "$at_verbose"; then - at_tee_pipe='tee -a "$at_group_log"' - else - at_tee_pipe='cat >> "$at_group_log"' - fi -} - -# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER] -# ------------------------------------------------- -# Declare the test group ORDINAL, located at LINE with group description DESC, -# and residing under BANNER. Use PAD to align the status column. -at_fn_group_banner () -{ - at_setup_line="$2" - test -n "$5" && at_fn_banner $5 - at_desc="$3" - case $1 in - [0-9]) at_desc_line=" $1: ";; - [0-9][0-9]) at_desc_line=" $1: " ;; - *) at_desc_line="$1: " ;; - esac - as_fn_append at_desc_line "$3$4" - $at_quiet $as_echo_n "$at_desc_line" - echo "# -*- compilation -*-" >> "$at_group_log" -} - -# at_fn_group_postprocess -# ----------------------- -# Perform cleanup after running a test group. -at_fn_group_postprocess () -{ - # Be sure to come back to the suite directory, in particular - # since below we might `rm' the group directory we are in currently. - cd "$at_suite_dir" - - if test ! -f "$at_check_line_file"; then - sed "s/^ */$as_me: WARNING: /" <<_ATEOF - A failure happened in a test group before any test could be - run. This means that test suite is improperly designed. Please - report this failure to . -_ATEOF - $as_echo "$at_setup_line" >"$at_check_line_file" - at_status=99 - fi - $at_verbose $as_echo_n "$at_group. $at_setup_line: " - $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log" - case $at_xfail:$at_status in - yes:0) - at_msg="UNEXPECTED PASS" - at_res=xpass - at_errexit=$at_errexit_p - at_color=$at_red - ;; - no:0) - at_msg="ok" - at_res=pass - at_errexit=false - at_color=$at_grn - ;; - *:77) - at_msg='skipped ('`cat "$at_check_line_file"`')' - at_res=skip - at_errexit=false - at_color=$at_blu - ;; - no:* | *:99) - at_msg='FAILED ('`cat "$at_check_line_file"`')' - at_res=fail - at_errexit=$at_errexit_p - at_color=$at_red - ;; - yes:*) - at_msg='expected failure ('`cat "$at_check_line_file"`')' - at_res=xfail - at_errexit=false - at_color=$at_lgn - ;; - esac - echo "$at_res" > "$at_job_dir/$at_res" - # In parallel mode, output the summary line only afterwards. - if test $at_jobs -ne 1 && test -n "$at_verbose"; then - $as_echo "$at_desc_line $at_color$at_msg$at_std" - else - # Make sure there is a separator even with long titles. - $as_echo " $at_color$at_msg$at_std" - fi - at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" - case $at_status in - 0|77) - # $at_times_file is only available if the group succeeded. - # We're not including the group log, so the success message - # is written in the global log separately. But we also - # write to the group log in case they're using -d. - if test -f "$at_times_file"; then - at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')' - rm -f "$at_times_file" - fi - $as_echo "$at_log_msg" >> "$at_group_log" - $as_echo "$at_log_msg" >&5 - - # Cleanup the group directory, unless the user wants the files - # or the success was unexpected. - if $at_debug_p || test $at_res = xpass; then - at_fn_create_debugging_script - if test $at_res = xpass && $at_errexit; then - echo stop > "$at_stop_file" - fi - else - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -fr "$at_group_dir" - fi - rm -f "$at_test_source" - fi + case $at_group in + banner-*) + at_group_log=$at_suite_log ;; - *) - # Upon failure, include the log into the testsuite's global - # log. The failure message is written in the group log. It - # is later included in the global log. - $as_echo "$at_log_msg" >> "$at_group_log" - - # Upon failure, keep the group directory for autopsy, and create - # the debugging script. With -e, do not start any further tests. - at_fn_create_debugging_script - if $at_errexit; then - echo stop > "$at_stop_file" - fi - ;; - esac -} - - -## ------------ ## -## Driver loop. ## -## ------------ ## - - -if (set -m && set +m && set +b) >/dev/null 2>&1; then - set +b - at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=- -else - at_job_control_on=: at_job_control_off=: at_job_group= -fi - -for at_signal in 1 2 15; do - trap 'set +x; set +e - $at_job_control_off - at_signal='"$at_signal"' - echo stop > "$at_stop_file" - trap "" $at_signal - at_pgids= - for at_pgid in `jobs -p 2>/dev/null`; do - at_pgids="$at_pgids $at_job_group$at_pgid" - done - test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null - wait - if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then - echo >&2 - fi - at_signame=`kill -l $at_signal 2>&1 || echo $at_signal` - set x $at_signame - test 1 -gt 2 && at_signame=$at_signal - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5 -$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;} - as_fn_arith 128 + $at_signal && exit_status=$as_val - as_fn_exit $exit_status' $at_signal -done - -rm -f "$at_stop_file" -at_first=: - -if test $at_jobs -ne 1 && - rm -f "$at_job_fifo" && - test -n "$at_job_group" && - ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null -then - # FIFO job dispatcher. - - trap 'at_pids= - for at_pid in `jobs -p`; do - at_pids="$at_pids $at_job_group$at_pid" - done - if test -n "$at_pids"; then - at_sig=TSTP - test "${TMOUT+set}" = set && at_sig=STOP - kill -$at_sig $at_pids 2>/dev/null - fi - kill -STOP $$ - test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP - - echo - # Turn jobs into a list of numbers, starting from 1. - at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p` - - set X $at_joblist - shift - for at_group in $at_groups; do - $at_job_control_on 2>/dev/null - ( - # Start one test group. - $at_job_control_off - if $at_first; then - exec 7>"$at_job_fifo" - else - exec 6<&- - fi - trap 'set +x; set +e - trap "" PIPE - echo stop > "$at_stop_file" - echo >&7 - as_fn_exit 141' PIPE - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source" - then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - echo >&7 - ) & - $at_job_control_off - if $at_first; then - at_first=false - exec 6<"$at_job_fifo" 7>"$at_job_fifo" - fi - shift # Consume one token. - if test $# -gt 0; then :; else - read at_token <&6 || break - set x $* - fi - test -f "$at_stop_file" && break - done - exec 7>&- - # Read back the remaining ($at_jobs - 1) tokens. - set X $at_joblist - shift - if test $# -gt 0; then - shift - for at_job - do - read at_token - done <&6 - fi - exec 6<&- - wait -else - # Run serially, avoid forks and other potential surprises. - for at_group in $at_groups; do - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source"; then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - test -f "$at_stop_file" && break - at_first=false - done -fi - -# Wrap up the test suite with summary statistics. -cd "$at_helper_dir" - -# Use ?..???? when the list must remain sorted, the faster * otherwise. -at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'` -at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'` -at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'` -at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do - echo $f; done | sed '/?/d; s,/xpass,,'` -at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do - echo $f; done | sed '/?/d; s,/fail,,'` - -set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list -shift; at_group_count=$# -set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$* -set X $at_xfail_list; shift; at_xfail_count=$# -set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$* -set X $at_skip_list; shift; at_skip_count=$# - -as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val -as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val -as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val - -# Back to the top directory. -cd "$at_dir" -rm -rf "$at_helper_dir" -# Compute the duration of the suite. -at_stop_date=`date` -at_stop_time=`date +%s 2>/dev/null` -$as_echo "$as_me: ending at: $at_stop_date" >&5 -case $at_start_time,$at_stop_time in - [0-9]*,[0-9]*) - as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val - as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val - as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val - as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val - as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val - at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" - $as_echo "$as_me: test suite duration: $at_duration" >&5 - ;; -esac - -echo -$as_echo "## ------------- ## -## Test results. ## -## ------------- ##" -echo -{ - echo - $as_echo "## ------------- ## -## Test results. ## -## ------------- ##" - echo -} >&5 - -if test $at_run_count = 1; then - at_result="1 test" - at_were=was -else - at_result="$at_run_count tests" - at_were=were -fi -if $at_errexit_p && test $at_unexpected_count != 0; then - if test $at_xpass_count = 1; then - at_result="$at_result $at_were run, one passed" - else - at_result="$at_result $at_were run, one failed" - fi - at_result="$at_result unexpectedly and inhibited subsequent tests." - at_color=$at_red -else - # Don't you just love exponential explosion of the number of cases? - at_color=$at_red - case $at_xpass_count:$at_fail_count:$at_xfail_count in - # So far, so good. - 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;; - 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;; - - # Some unexpected failures - 0:*:0) at_result="$at_result $at_were run, -$at_fail_count failed unexpectedly." ;; - - # Some failures, both expected and unexpected - 0:*:1) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - 0:*:*) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - - # No unexpected failures, but some xpasses - *:0:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly." ;; - - # No expected failures, but failures and xpasses - *:1:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; - *:*:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + *) + # Skip tests we already run (using --keywords makes it easy to get + # duplication). + case " $at_pass_test $at_skip_test $at_fail_test " in + *" $at_group "* ) continue;; + esac - # All of them. - *:*:1) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - *:*:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + rm -rf $at_group_dir + mkdir $at_group_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_group_dir" >&5 +echo "$as_me: error: cannot create $at_group_dir" >&2;} + { (exit 1); exit 1; }; } + cd $at_group_dir + ;; esac - if test $at_skip_count = 0 && test $at_run_count -gt 1; then - at_result="All $at_result" - fi -fi + echo 0 > $at_status_file -# Now put skips in the mix. -case $at_skip_count in - 0) ;; - 1) at_result="$at_result -1 test was skipped." ;; - *) at_result="$at_result -$at_skip_count tests were skipped." ;; -esac - -if test $at_unexpected_count = 0; then - echo "$at_color$at_result$at_std" - echo "$at_result" >&5 -else - echo "${at_color}ERROR: $at_result$at_std" >&2 - echo "ERROR: $at_result" >&5 - { - echo - $as_echo "## ------------------------ ## -## Summary of the failures. ## -## ------------------------ ##" - - # Summary of failed and skipped tests. - if test $at_fail_count != 0; then - echo "Failed tests:" - $SHELL "$at_myself" $at_fail_list --list - echo - fi - if test $at_skip_count != 0; then - echo "Skipped tests:" - $SHELL "$at_myself" $at_skip_list --list - echo - fi - if test $at_xpass_count != 0; then - echo "Unexpected passes:" - $SHELL "$at_myself" $at_xpass_list --list - echo - fi - if test $at_fail_count != 0; then - $as_echo "## ---------------------- ## -## Detailed failed tests. ## -## ---------------------- ##" - echo - for at_group in $at_fail_list - do - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - cat "$at_suite_dir/$at_group_normalized/$as_me.log" - echo - done - echo - fi - if test -n "$at_top_srcdir"; then - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## ${at_top_build_prefix}config.log ## -_ASBOX - sed 's/^/| /' ${at_top_build_prefix}config.log - echo - fi - } >&5 - - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $as_me.log was created. ## -_ASBOX + # Clearly separate the test groups when verbose. + test $at_group_count != 0 && $at_verbose - echo - if $at_debug_p; then - at_msg='per-test log files' + # In verbose mode, append to the log file *and* show on + # the standard output; in quiet mode only write to the log + if test $at_verbose = echo; then + at_tee_pipe="tee -a $at_group_log" else - at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'" + at_tee_pipe="cat >> $at_group_log" fi - $as_echo "Please send $at_msg and all information you think might help: - - To: - Subject: [OpenCOBOL 1.1] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly} - -You may investigate any problem if you feel able to do so, in which -case the test suite provides a good starting point. Its output may -be found below \`${at_testdir+${at_testdir}/}$as_me.dir'. -" - exit 1 -fi - -exit 0 -## ------------- ## -## Actual tests. ## -## ------------- ## -#AT_START_1 -at_fn_group_banner 1 'binary.at:23' \ - "BINARY: 2-4-8 big-endian" " " -at_xfail=no -( - $as_echo "1. $at_setup_line: testing $at_desc ..." - $at_traceon + case $at_group in + 1 ) # 1. binary.at:23: BINARY: 2-4-8 big-endian + at_setup_line='binary.at:23' + at_desc='BINARY: 2-4-8 big-endian' + $at_quiet $ECHO_N " 1: BINARY: 2-4-8 big-endian $ECHO_C" + at_xfail=no + ( + echo "1. binary.at:23: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -2033,44 +822,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/binary.at:44: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:44" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:44" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:44: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo binary.at:44 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:44: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:48: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:48" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:48" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:49: ./prog" -at_fn_check_prepare_trace "binary.at:49" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0001202020202020 +$at_traceoff +echo "binary.at:48: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:48 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:48: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:49: ./prog" +echo binary.at:49 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0001202020202020 000c202020202020 007b202020202020 04d2202020202020 @@ -2178,37 +992,60 @@ fe4964b459cf0cb2 0000000000000000 0000000000000000 0000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:49" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:49: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:162: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:162" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:162" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:163: ./prog" -at_fn_check_prepare_trace "binary.at:163" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 +$at_traceoff +echo "binary.at:162: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:162 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:162: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:163: ./prog" +echo binary.at:163 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 12 123 1234 @@ -2244,40 +1081,64 @@ echo >>"$at_stdout"; $as_echo "1 -1234567890123456 -12345678901234567 -123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:163" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_1 -#AT_START_2 -at_fn_group_banner 2 'binary.at:207' \ - "BINARY: 2-4-8 native" " " -at_xfail=no -( - $as_echo "2. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:163: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 2 ) # 2. binary.at:207: BINARY: 2-4-8 native + at_setup_line='binary.at:207' + at_desc='BINARY: 2-4-8 native' + $at_quiet $ECHO_N " 2: BINARY: 2-4-8 native $ECHO_C" + at_xfail=no + ( + echo "2. binary.at:207: testing ..." + $at_traceon if test "x$COB_BIGENDIAN" = "xyes"; then -{ set +x -$as_echo "$at_srcdir/binary.at:210: true" -at_fn_check_prepare_trace "binary.at:210" -( $at_check_trace; true -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:210" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:210: true" +echo binary.at:210 >$at_check_line_file +( $at_traceon; true ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:210: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon else @@ -2304,44 +1165,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/binary.at:232: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:232" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:232" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:232: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo binary.at:232 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:232: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:236: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:236" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:236" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:237: ./prog" -at_fn_check_prepare_trace "binary.at:237" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0100202020202020 +$at_traceoff +echo "binary.at:236: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:236 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:236: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:237: ./prog" +echo binary.at:237 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0100202020202020 0c00202020202020 7b00202020202020 d204202020202020 @@ -2449,37 +1335,60 @@ b20ccf59b46449fe 0000000000000000 0000000000000000 0000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:237" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:237: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:350: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:350" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:350" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:351: ./prog" -at_fn_check_prepare_trace "binary.at:351" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 +$at_traceoff +echo "binary.at:350: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:350 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:350: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:351: ./prog" +echo binary.at:351 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 12 123 1234 @@ -2515,26 +1424,38 @@ echo >>"$at_stdout"; $as_echo "1 -1234567890123456 -12345678901234567 -123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:351" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:351: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon fi - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_2 -#AT_START_3 -at_fn_group_banner 3 'binary.at:396' \ - "BINARY: 1-2-4-8 big-endian" " " -at_xfail=no -( - $as_echo "3. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 3 ) # 3. binary.at:396: BINARY: 1-2-4-8 big-endian + at_setup_line='binary.at:396' + at_desc='BINARY: 1-2-4-8 big-endian' + $at_quiet $ECHO_N " 3: BINARY: 1-2-4-8 big-endian $ECHO_C" + at_xfail=no + ( + echo "3. binary.at:396: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -2560,44 +1481,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/binary.at:417: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:417" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:417" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:417: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo binary.at:417 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:417: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:421: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:421" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:421" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:422: ./prog" -at_fn_check_prepare_trace "binary.at:422" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0120202020202020 +$at_traceoff +echo "binary.at:421: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:421 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:421: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:422: ./prog" +echo binary.at:422 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0120202020202020 0c20202020202020 007b202020202020 04d2202020202020 @@ -2705,37 +1651,60 @@ fe4964b459cf0cb2 0000000000000000 0000000000000000 0000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:422" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:422: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:535: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:535" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:535" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:536: ./prog" -at_fn_check_prepare_trace "binary.at:536" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 +$at_traceoff +echo "binary.at:535: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:535 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:535: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:536: ./prog" +echo binary.at:536 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 12 123 1234 @@ -2771,40 +1740,64 @@ echo >>"$at_stdout"; $as_echo "1 -1234567890123456 -12345678901234567 -123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:536" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_3 -#AT_START_4 -at_fn_group_banner 4 'binary.at:580' \ - "BINARY: 1-2-4-8 native" " " -at_xfail=no -( - $as_echo "4. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:536: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 4 ) # 4. binary.at:580: BINARY: 1-2-4-8 native + at_setup_line='binary.at:580' + at_desc='BINARY: 1-2-4-8 native' + $at_quiet $ECHO_N " 4: BINARY: 1-2-4-8 native $ECHO_C" + at_xfail=no + ( + echo "4. binary.at:580: testing ..." + $at_traceon if test "x$COB_BIGENDIAN" = "xyes"; then -{ set +x -$as_echo "$at_srcdir/binary.at:583: true" -at_fn_check_prepare_trace "binary.at:583" -( $at_check_trace; true -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:583" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:583: true" +echo binary.at:583 >$at_check_line_file +( $at_traceon; true ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:583: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon else @@ -2831,44 +1824,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/binary.at:605: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:605" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:605" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:605: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo binary.at:605 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:605: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:609: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:609" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:609" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:610: ./prog" -at_fn_check_prepare_trace "binary.at:610" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0120202020202020 +$at_traceoff +echo "binary.at:609: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:609 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:609: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:610: ./prog" +echo binary.at:610 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0120202020202020 0c20202020202020 7b00202020202020 d204202020202020 @@ -2976,37 +1994,60 @@ b20ccf59b46449fe 0000000000000000 0000000000000000 0000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:610" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:610: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:723: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:723" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:723" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:724: ./prog" -at_fn_check_prepare_trace "binary.at:724" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 +$at_traceoff +echo "binary.at:723: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:723 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:723: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:724: ./prog" +echo binary.at:724 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 12 123 1234 @@ -3042,27 +2083,39 @@ echo >>"$at_stdout"; $as_echo "1 -1234567890123456 -12345678901234567 -123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:724" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:724: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon fi - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_4 -#AT_START_5 -at_fn_group_banner 5 'binary.at:770' \ - "BINARY: 1--8 big-endian" " " -at_xfail=no -( - $as_echo "5. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 5 ) # 5. binary.at:770: BINARY: 1--8 big-endian + at_setup_line='binary.at:770' + at_desc='BINARY: 1--8 big-endian' + $at_quiet $ECHO_N " 5: BINARY: 1--8 big-endian $ECHO_C" + at_xfail=no + ( + echo "5. binary.at:770: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -3088,44 +2141,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/binary.at:791: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:791" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:791" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:791: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo binary.at:791 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:791: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:795: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:795" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:795" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:796: ./prog" -at_fn_check_prepare_trace "binary.at:796" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0120202020202020 +$at_traceoff +echo "binary.at:795: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:795 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:795: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:796: ./prog" +echo binary.at:796 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0120202020202020 0c20202020202020 007b202020202020 04d2202020202020 @@ -3233,37 +2311,60 @@ fe4964b459cf0cb2 0000000000000020 0000000000000000 0000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:796" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:796: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:909: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:909" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:909" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:910: ./prog" -at_fn_check_prepare_trace "binary.at:910" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 +$at_traceoff +echo "binary.at:909: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:909 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:909: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:910: ./prog" +echo binary.at:910 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 12 123 1234 @@ -3299,40 +2400,64 @@ echo >>"$at_stdout"; $as_echo "1 -1234567890123456 -12345678901234567 -123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:910" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_5 -#AT_START_6 -at_fn_group_banner 6 'binary.at:954' \ - "BINARY: 1--8 native" " " -at_xfail=no -( - $as_echo "6. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:910: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 6 ) # 6. binary.at:954: BINARY: 1--8 native + at_setup_line='binary.at:954' + at_desc='BINARY: 1--8 native' + $at_quiet $ECHO_N " 6: BINARY: 1--8 native $ECHO_C" + at_xfail=no + ( + echo "6. binary.at:954: testing ..." + $at_traceon if test "x$COB_BIGENDIAN" = "xyes"; then -{ set +x -$as_echo "$at_srcdir/binary.at:957: true" -at_fn_check_prepare_trace "binary.at:957" -( $at_check_trace; true -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:957" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:957: true" +echo binary.at:957 >$at_check_line_file +( $at_traceon; true ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:957: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon else @@ -3359,44 +2484,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/binary.at:979: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:979" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:979" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "binary.at:979: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo binary.at:979 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:979: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:983: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:983" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:983" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:984: ./prog" -at_fn_check_prepare_trace "binary.at:984" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0120202020202020 +$at_traceoff +echo "binary.at:983: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:983 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:983: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:984: ./prog" +echo binary.at:984 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0120202020202020 0c20202020202020 7b00202020202020 d204202020202020 @@ -3504,37 +2654,60 @@ b20ccf59b46449fe 0000000000000020 0000000000000000 0000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:984" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:984: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:1097: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:1097" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:1097" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:1098: ./prog" -at_fn_check_prepare_trace "binary.at:1098" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 +$at_traceoff +echo "binary.at:1097: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:1097 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:1097: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:1098: ./prog" +echo binary.at:1098 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 12 123 1234 @@ -3570,27 +2743,39 @@ echo >>"$at_stdout"; $as_echo "1 -1234567890123456 -12345678901234567 -123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:1098" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:1098: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon fi - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_6 -#AT_START_7 -at_fn_group_banner 7 'binary.at:1144' \ - "BINARY: full-print" " " -at_xfail=no -( - $as_echo "7. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 7 ) # 7. binary.at:1144: BINARY: full-print + at_setup_line='binary.at:1144' + at_desc='BINARY: full-print' + $at_quiet $ECHO_N " 7: BINARY: full-print $ECHO_C" + at_xfail=no + ( + echo "7. binary.at:1144: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -3603,28 +2788,41 @@ _ATEOF sed -e 's/@USAGE@/BINARY/' ${TEMPLATE}/numeric-display.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/binary.at:1154: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "binary.at:1154" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:1154" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/binary.at:1155: ./prog" -at_fn_check_prepare_trace "binary.at:1155" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "001 +$at_traceoff +echo "binary.at:1154: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo binary.at:1154 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:1154: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "binary.at:1155: ./prog" +echo binary.at:1155 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "001 012 00123 01234 @@ -3660,25 +2858,37 @@ echo >>"$at_stdout"; $as_echo "001 -01234567890123456 -00012345678901234567 -00123456789012345678 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/binary.at:1155" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_7 -#AT_START_8 -at_fn_group_banner 8 'display.at:22' \ - "DISPLAY: Sign ASCII" " " -at_xfail=no -( - $as_echo "8. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "binary.at:1155: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 8 ) # 8. display.at:22: DISPLAY: Sign ASCII + at_setup_line='display.at:22' + at_desc='DISPLAY: Sign ASCII' + $at_quiet $ECHO_N " 8: DISPLAY: Sign ASCII $ECHO_C" + at_xfail=no + ( + echo "8. display.at:22: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3722,28 +2932,41 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/display.at:63: \${COMPILE} -fsign-ascii -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "display.at:63" -( $at_check_trace; ${COMPILE} -fsign-ascii -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/display.at:63" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/display.at:64: ./prog" -at_fn_check_prepare_trace "display.at:64" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "12340 +$at_traceoff +echo "display.at:63: \${COMPILE} -fsign-ascii -o prog prog.cob" +echo display.at:63 >$at_check_line_file +( $at_traceon; ${COMPILE} -fsign-ascii -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "display.at:63: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "display.at:64: ./prog" +echo display.at:64 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "12340 12340 123t0 12340 @@ -3754,25 +2977,37 @@ q2340 123t0 1234+ 1234- -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/display.at:64" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_8 -#AT_START_9 -at_fn_group_banner 9 'display.at:80' \ - "DISPLAY: Sign ASCII (2)" " " -at_xfail=no -( - $as_echo "9. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "display.at:64: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 9 ) # 9. display.at:80: DISPLAY: Sign ASCII (2) + at_setup_line='display.at:80' + at_desc='DISPLAY: Sign ASCII (2)' + $at_quiet $ECHO_N " 9: DISPLAY: Sign ASCII (2) $ECHO_C" + at_xfail=no + ( + echo "9. display.at:80: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3814,46 +3049,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/display.at:119: \${COMPILE} -fsign-ascii -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "display.at:119" -( $at_check_trace; ${COMPILE} -fsign-ascii -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/display.at:119" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/display.at:120: ./prog" -at_fn_check_prepare_trace "display.at:120" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0123456789pqrstuvwxy" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/display.at:120" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_9 -#AT_START_10 -at_fn_group_banner 10 'display.at:125' \ - "DISPLAY: Sign EBCDIC" " " -at_xfail=no -( - $as_echo "10. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "display.at:119: \${COMPILE} -fsign-ascii -o prog prog.cob" +echo display.at:119 >$at_check_line_file +( $at_traceon; ${COMPILE} -fsign-ascii -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "display.at:119: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "display.at:120: ./prog" +echo display.at:120 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0123456789pqrstuvwxy" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "display.at:120: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 10 ) # 10. display.at:125: DISPLAY: Sign EBCDIC + at_setup_line='display.at:125' + at_desc='DISPLAY: Sign EBCDIC' + $at_quiet $ECHO_N " 10: DISPLAY: Sign EBCDIC $ECHO_C" + at_xfail=no + ( + echo "10. display.at:125: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3895,46 +3155,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/display.at:164: \${COMPILE} -fsign-ebcdic -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "display.at:164" -( $at_check_trace; ${COMPILE} -fsign-ebcdic -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/display.at:164" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/display.at:165: ./prog" -at_fn_check_prepare_trace "display.at:165" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{ABCDEFGHI}JKLMNOPQR" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/display.at:165" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_10 -#AT_START_11 -at_fn_group_banner 11 'packed.at:25' \ - "PACKED-DECIMAL dump" " " -at_xfail=no -( - $as_echo "11. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "display.at:164: \${COMPILE} -fsign-ebcdic -o prog prog.cob" +echo display.at:164 >$at_check_line_file +( $at_traceon; ${COMPILE} -fsign-ebcdic -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "display.at:164: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "display.at:165: ./prog" +echo display.at:165 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{ABCDEFGHI}JKLMNOPQR" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "display.at:165: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 11 ) # 11. packed.at:25: PACKED-DECIMAL dump + at_setup_line='packed.at:25' + at_desc='PACKED-DECIMAL dump' + $at_quiet $ECHO_N " 11: PACKED-DECIMAL dump $ECHO_C" + at_xfail=no + ( + echo "11. packed.at:25: testing ..." + $at_traceon cat >dump.c <<'_ATEOF' @@ -3952,44 +3237,69 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/packed.at:40: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:40" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:40" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "packed.at:40: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo packed.at:40 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:40: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon sed -e 's/@USAGE@/PACKED-DECIMAL/' ${TEMPLATE}/numeric-dump.cob > prog.cob -{ set +x -$as_echo "$at_srcdir/packed.at:44: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:44" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:44" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/packed.at:45: ./prog" -at_fn_check_prepare_trace "packed.at:45" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1f202020202020202020 +$at_traceoff +echo "packed.at:44: \${COMPILE} prog.cob" +echo packed.at:44 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:44: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "packed.at:45: ./prog" +echo packed.at:45 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1f202020202020202020 012f2020202020202020 123f2020202020202020 01234f20202020202020 @@ -4097,25 +3407,37 @@ echo >>"$at_stdout"; $as_echo "1f202020202020202020 00000000000000000c20 00000000000000000c20 0000000000000000000c -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:45" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_11 -#AT_START_12 -at_fn_group_banner 12 'packed.at:160' \ - "PACKED-DECIMAL display" " " -at_xfail=no -( - $as_echo "12. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:45: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 12 ) # 12. packed.at:160: PACKED-DECIMAL display + at_setup_line='packed.at:160' + at_desc='PACKED-DECIMAL display' + $at_quiet $ECHO_N " 12: PACKED-DECIMAL display $ECHO_C" + at_xfail=no + ( + echo "12. packed.at:160: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4149,28 +3471,41 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/packed.at:191: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:191" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:191" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/packed.at:192: ./prog" -at_fn_check_prepare_trace "packed.at:192" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 +$at_traceoff +echo "packed.at:191: \${COMPILE} prog.cob" +echo packed.at:191 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:191: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "packed.at:192: ./prog" +echo packed.at:192 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 99 +00 -01 @@ -4178,25 +3513,37 @@ echo >>"$at_stdout"; $as_echo "00 123 +000 -123 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:192" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_12 -#AT_START_13 -at_fn_group_banner 13 'packed.at:207' \ - "PACKED-DECIMAL move" " " -at_xfail=no -( - $as_echo "13. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:192: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 13 ) # 13. packed.at:207: PACKED-DECIMAL move + at_setup_line='packed.at:207' + at_desc='PACKED-DECIMAL move' + $at_quiet $ECHO_N " 13: PACKED-DECIMAL move $ECHO_C" + at_xfail=no + ( + echo "13. packed.at:207: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4232,28 +3579,41 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/packed.at:240: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:240" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:240" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/packed.at:241: ./prog" -at_fn_check_prepare_trace "packed.at:241" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "34 +$at_traceoff +echo "packed.at:240: \${COMPILE} prog.cob" +echo packed.at:240 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:240: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "packed.at:241: ./prog" +echo packed.at:241 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "34 +34 234 +234 @@ -4261,25 +3621,37 @@ echo >>"$at_stdout"; $as_echo "34 -34 234 -234 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:241" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_13 -#AT_START_14 -at_fn_group_banner 14 'packed.at:256' \ - "PACKED-DECIMAL arithmetic (1)" " " -at_xfail=no -( - $as_echo "14. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:241: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 14 ) # 14. packed.at:256: PACKED-DECIMAL arithmetic (1) + at_setup_line='packed.at:256' + at_desc='PACKED-DECIMAL arithmetic (1)' + $at_quiet $ECHO_N " 14: PACKED-DECIMAL arithmetic (1) $ECHO_C" + at_xfail=no + ( + echo "14. packed.at:256: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4305,50 +3677,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/packed.at:279: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:279" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:279" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/packed.at:280: ./prog" -at_fn_check_prepare_trace "packed.at:280" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 +$at_traceoff +echo "packed.at:279: \${COMPILE} prog.cob" +echo packed.at:279 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:279: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "packed.at:280: ./prog" +echo packed.at:280 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +00 000 +000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:280" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_14 -#AT_START_15 -at_fn_group_banner 15 'packed.at:291' \ - "PACKED-DECIMAL arithmetic (2)" " " -at_xfail=no -( - $as_echo "15. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:280: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 15 ) # 15. packed.at:291: PACKED-DECIMAL arithmetic (2) + at_setup_line='packed.at:291' + at_desc='PACKED-DECIMAL arithmetic (2)' + $at_quiet $ECHO_N " 15: PACKED-DECIMAL arithmetic (2) $ECHO_C" + at_xfail=no + ( + echo "15. packed.at:291: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4373,49 +3770,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/packed.at:313: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:313" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:313" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/packed.at:314: ./prog" -at_fn_check_prepare_trace "packed.at:314" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "01 +$at_traceoff +echo "packed.at:313: \${COMPILE} prog.cob" +echo packed.at:313 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:313: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "packed.at:314: ./prog" +echo packed.at:314 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "01 09 18 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:314" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_15 -#AT_START_16 -at_fn_group_banner 16 'packed.at:324' \ - "PACKED-DECIMAL numeric test" " " -at_xfail=no -( - $as_echo "16. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:314: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 16 ) # 16. packed.at:324: PACKED-DECIMAL numeric test + at_setup_line='packed.at:324' + at_desc='PACKED-DECIMAL numeric test' + $at_quiet $ECHO_N " 16: PACKED-DECIMAL numeric test $ECHO_C" + at_xfail=no + ( + echo "16. packed.at:324: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4538,28 +3960,41 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/packed.at:444: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "packed.at:444" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:444" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/packed.at:445: ./prog" -at_fn_check_prepare_trace "packed.at:445" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK +$at_traceoff +echo "packed.at:444: \${COMPILE} prog.cob" +echo packed.at:444 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:444: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "packed.at:445: ./prog" +echo packed.at:445 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK OK OK OK @@ -4573,25 +4008,37 @@ OK OK OK OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/packed.at:445" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_16 -#AT_START_17 -at_fn_group_banner 17 'pointer.at:22' \ - "POINTER: display" " " -at_xfail=no -( - $as_echo "17. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "packed.at:445: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 17 ) # 17. pointer.at:22: POINTER: display + at_setup_line='pointer.at:22' + at_desc='POINTER: display' + $at_quiet $ECHO_N " 17: POINTER: display $ECHO_C" + at_xfail=no + ( + echo "17. pointer.at:22: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4611,35 +4058,342 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pointer.at:39: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pointer.at:39" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pointer.at:39" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pointer.at:40: ./prog" -at_fn_check_prepare_trace "pointer.at:40" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo stdout:; cat "$at_stdout" -at_fn_check_status 0 $at_status "$at_srcdir/pointer.at:40" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_17 +$at_traceoff +echo "pointer.at:39: \${COMPILE} -o prog prog.cob" +echo pointer.at:39 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pointer.at:39: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pointer.at:40: ./prog" +echo pointer.at:40 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo stdout:; cat $at_stdout +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pointer.at:40: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + + * ) + echo "$as_me: no such test group: $at_group" >&2 + continue + ;; + esac + + # Be sure to come back to the suite directory, in particular + # since below we might `rm' the group directory we are in currently. + cd $at_suite_dir + + case $at_group in + banner-*) ;; + *) + if test ! -f $at_check_line_file; then + sed "s/^ */$as_me: warning: /" <<_ATEOF + A failure happened in a test group before any test could be + run. This means that test suite is improperly designed. Please + report this failure to . +_ATEOF + echo "$at_setup_line" >$at_check_line_file + fi + at_group_count=`expr 1 + $at_group_count` + $at_verbose $ECHO_N "$at_group. $at_setup_line: $ECHO_C" + echo $ECHO_N "$at_group. $at_setup_line: $ECHO_C" >> $at_group_log + case $at_xfail:$at_status in + yes:0) + at_msg="UNEXPECTED PASS" + at_xpass_list="$at_xpass_list $at_group" + at_errexit=$at_errexit_p + ;; + no:0) + at_msg="ok" + at_pass_list="$at_pass_list $at_group" + at_errexit=false + ;; + *:77) + at_msg="skipped (`cat $at_check_line_file`)" + at_skip_list="$at_skip_list $at_group" + at_errexit=false + ;; + yes:*) + at_msg="expected failure (`cat $at_check_line_file`)" + at_xfail_list="$at_xfail_list $at_group" + at_errexit=false + ;; + no:*) + at_msg="FAILED (`cat $at_check_line_file`)" + at_fail_list="$at_fail_list $at_group" + at_errexit=$at_errexit_p + ;; + esac + echo $at_msg + at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" + case $at_status in + 0|77) + # $at_times_file is only available if the group succeeded. + # We're not including the group log, so the success message + # is written in the global log separately. But we also + # write to the group log in case they're using -d. + if test -f $at_times_file; then + at_log_msg="$at_log_msg (`sed 1d $at_times_file`)" + rm -f $at_times_file + fi + echo "$at_log_msg" >> $at_group_log + echo "$at_log_msg" >&5 + + # Cleanup the group directory, unless the user wants the files. + $at_debug_p || rm -rf $at_group_dir + ;; + *) + # Upon failure, include the log into the testsuite's global + # log. The failure message is written in the group log. It + # is later included in the global log. + echo "$at_log_msg" >> $at_group_log + + # Upon failure, keep the group directory for autopsy, and + # create the debugging script. + { + echo "#! /bin/sh" + echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' + echo "cd $at_dir" + echo 'exec ${CONFIG_SHELL-'"$SHELL"'}' "$0" \ + '-v -d' "$at_debug_args" "$at_group" '${1+"$@"}' + echo 'exit 1' + } >$at_group_dir/run + chmod +x $at_group_dir/run + $at_errexit && break + ;; + esac + ;; + esac +done + +# Back to the top directory. +cd $at_dir + +# Compute the duration of the suite. +at_stop_date=`date` +at_stop_time=`(date +%s) 2>/dev/null` +echo "$as_me: ending at: $at_stop_date" >&5 +at_duration_s=`(expr $at_stop_time - $at_start_time) 2>/dev/null` +at_duration_m=`(expr $at_duration_s / 60) 2>/dev/null` +at_duration_h=`(expr $at_duration_m / 60) 2>/dev/null` +at_duration_s=`(expr $at_duration_s % 60) 2>/dev/null` +at_duration_m=`(expr $at_duration_m % 60) 2>/dev/null` +at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" +if test "$at_duration" != "h m s"; then + echo "$as_me: test suite duration: $at_duration" >&5 +fi + +# Wrap up the test suite with summary statistics. +at_skip_count=`set dummy $at_skip_list; shift; echo $#` +at_fail_count=`set dummy $at_fail_list; shift; echo $#` +at_xpass_count=`set dummy $at_xpass_list; shift; echo $#` +at_xfail_count=`set dummy $at_xfail_list; shift; echo $#` + +at_run_count=`expr $at_group_count - $at_skip_count` +at_unexpected_count=`expr $at_xpass_count + $at_fail_count` +at_total_fail_count=`expr $at_xfail_count + $at_fail_count` + +echo +cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX +echo +{ + echo + cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX + echo +} >&5 + +if test $at_run_count = 1; then + at_result="1 test" + at_were=was +else + at_result="$at_run_count tests" + at_were=were +fi +if $at_errexit_p && test $at_unexpected_count != 0; then + if test $at_xpass_count = 1; then + at_result="$at_result $at_were run, one passed" + else + at_result="$at_result $at_were run, one failed" + fi + at_result="$at_result unexpectedly and inhibited subsequent tests." +else + # Don't you just love exponential explosion of the number of cases? + case $at_xpass_count:$at_fail_count:$at_xfail_count in + # So far, so good. + 0:0:0) at_result="$at_result $at_were successful." ;; + 0:0:*) at_result="$at_result behaved as expected." ;; + + # Some unexpected failures + 0:*:0) at_result="$at_result $at_were run, +$at_fail_count failed unexpectedly." ;; + + # Some failures, both expected and unexpected + 0:*:1) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + 0:*:*) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + + # No unexpected failures, but some xpasses + *:0:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly." ;; + + # No expected failures, but failures and xpasses + *:1:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; + *:*:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + + # All of them. + *:*:1) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + *:*:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + esac + + if test $at_skip_count = 0 && test $at_run_count -gt 1; then + at_result="All $at_result" + fi +fi + +# Now put skips in the mix. +case $at_skip_count in + 0) ;; + 1) at_result="$at_result +1 test was skipped." ;; + *) at_result="$at_result +$at_skip_count tests were skipped." ;; +esac + +if test $at_unexpected_count = 0; then + echo "$at_result" + echo "$at_result" >&5 +else + echo "ERROR: $at_result" >&2 + echo "ERROR: $at_result" >&5 + { + echo + cat <<\_ASBOX +## ------------------------ ## +## Summary of the failures. ## +## ------------------------ ## +_ASBOX + + # Summary of failed and skipped tests. + if test $at_fail_count != 0; then + echo "Failed tests:" + $SHELL $0 $at_fail_list --list + echo + fi + if test $at_skip_count != 0; then + echo "Skipped tests:" + $SHELL $0 $at_skip_list --list + echo + fi + if test $at_xpass_count != 0; then + echo "Unexpected passes:" + $SHELL $0 $at_xpass_list --list + echo + fi + if test $at_fail_count != 0; then + cat <<\_ASBOX +## ---------------------- ## +## Detailed failed tests. ## +## ---------------------- ## +_ASBOX + echo + for at_group in $at_fail_list + do + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + cat $at_group_log + echo + done + echo + fi + if test -n "$at_top_srcdir"; then + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $at_top_builddir/config.log ## +_ASBOX + sed 's/^/| /' $at_top_builddir/config.log + echo + fi + } >&5 + + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $as_me.log was created. ## +_ASBOX + + echo + echo "Please send \`$as_me.log' and all information you think might help:" + echo + echo " To: " + echo " Subject: [OpenCOBOL 1.1] $as_me:$at_fail_list${at_fail_list:+ failed${at_xpass_list:+,}}$at_xpass_list${at_xpass_list:+ passed unexpectedly}" + echo + if test $at_debug_p = false; then + echo + echo 'You may investigate any problem if you feel able to do so, in which' + echo 'case the test suite provides a good starting point.' + echo + fi + exit 1 +fi + +exit 0 + + diff --git a/tests/i18n_sjis b/tests/i18n_sjis index 68721062..d4c5d2ff 100755 --- a/tests/i18n_sjis +++ b/tests/i18n_sjis @@ -1,418 +1,75 @@ #! /bin/sh -# Generated from i18n_sjis.at by GNU Autoconf 2.68. -# -# Copyright (C) 2009, 2010 Free Software Foundation, Inc. -# -# This test suite is free software; the Free Software Foundation gives -# unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix fi +DUALCASE=1; export DUALCASE # for MKS sh - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } + as_unset=false fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : - -else - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - # We cannot yet assume a decent shell, so we have to provide a - # neutralization value for shells without unset; and this also - # works around shells that cannot unset nonexistent variables. - # Preserve -v and -x to the replacement shell. - BASH_ENV=/dev/null - ENV=/dev/null - (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV - export CONFIG_SHELL - case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; - esac - exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"} -fi - - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var else - $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, -$0: including any error possibly output before this -$0: message. Then install a modern shell, or manually run -$0: the script under such a shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + $as_unset $as_var fi - $as_echo "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error +done -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi -as_me=`$as_basename -- "$0" || + +# Name of the executable. +as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + +# PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' @@ -420,107 +77,146 @@ as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + + + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop - s/-\n.*// + s,-$,, + s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + chmod +x $as_me.lineno || + { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 + { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno # Exit status is that of the last command. exit } -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null + as_expr=false fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links as_ln_s='cp -p' + else + as_ln_s='ln -s' fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln else as_ln_s='cp -p' fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null +rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' + as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x +as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" @@ -529,7 +225,14 @@ as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" +# CDPATH. +$as_unset CDPATH SHELL=${CONFIG_SHELL-/bin/sh} @@ -537,6 +240,24 @@ SHELL=${CONFIG_SHELL-/bin/sh} # How were we run? at_cli_args="$@" +# Load the config file. +for at_file in atconfig atlocal +do + test -r $at_file || continue + . ./$at_file || { echo "$as_me: error: invalid content: $at_file" >&2 + { (exit 1); exit 1; }; } +done + +# atconfig delivers paths relative to the directory the test suite is +# in, but the groups themselves are run in testsuite-dir/group-dir. +if test -n "$at_top_srcdir"; then + builddir=../.. + for at_dir in srcdir top_srcdir top_builddir + do + at_val=`eval echo '${'at_$at_dir'}'` + eval "$at_dir=\$at_val/../.." + done +fi # Not all shells have the 'times' builtin; the subshell is needed to make # sure we discard the 'times: not found' message from the shell. @@ -547,53 +268,48 @@ at_times_p=false at_debug_args= # -e sets to true at_errexit_p=false -# Shall we be verbose? ':' means no, empty means yes. +# Shall we be verbose? at_verbose=: -at_quiet= -# Running several jobs in parallel, 0 means as many as test groups. -at_jobs=1 -at_traceon=: -at_trace_echo=: -at_check_filter_trace=: +at_quiet=echo # Shall we keep the debug scripts? Must be `:' when the suite is # run by a debug script, so that the script doesn't remove itself. at_debug_p=false # Display help message? at_help_p=false -# Display the version message? -at_version_p=false # List test groups? at_list_p=false -# --clean -at_clean=false # Test groups to run at_groups= -# Whether to rerun failed tests. -at_recheck= -# Whether a write failure occurred -at_write_fail=0 -# The directory we run the suite in. Default to . if no -C option. +# The directory we are in. at_dir=`pwd` -# An absolute reference to this testsuite script. -case $as_myself in - [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;; - * ) at_myself=$at_dir/$as_myself ;; -esac -# Whether -C is in effect. -at_change_dir=false +# The directory the whole suite works in. +# Should be absolutely to let the user `cd' at will. +at_suite_dir=$at_dir/$as_me.dir +# The file containing the suite. +at_suite_log=$at_dir/$as_me.log +# The file containing the location of the last AT_CHECK. +at_check_line_file=$at_suite_dir/at-check-line +# The file containing the exit status of the last command. +at_status_file=$at_suite_dir/at-status +# The files containing the output of the tested commands. +at_stdout=$at_suite_dir/at-stdout +at_stder1=$at_suite_dir/at-stder1 +at_stderr=$at_suite_dir/at-stderr +# The file containing dates. +at_times_file=$at_suite_dir/at-times -# Whether to enable colored test results. -at_color=no # List of the tested programs. at_tested='cobc' -# As many question marks as there are digits in the last test group number. +# List of the all the test groups. +at_groups_all=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82' +# As many dots as there are digits in the last test group number. # Used to normalize the test group numbers so that `ls' lists them in # numerical order. -at_format='??' +at_format='..' # Description of all the test groups. -at_help_all="1;user-defined-word.at:1;Program name;; +at_help_all='1;user-defined-word.at:1;Program name;; 2;user-defined-word.at:14;Field name;; 3;user-defined-word.at:33;Long field name;; 4;user-defined-word.at:58;Field lookup;; @@ -675,34 +391,9 @@ at_help_all="1;user-defined-word.at:1;Program name;; 80;national.at:85;FUNCTION NATIONAL KIGOU-plus;; 81;national.at:106;FUNCTION NATIONAL (HanKana w/ Daku-on);; 82;national.at:127;FUNCTION NATIONAL (HanKana w/ Han-daku-on);; -" -# List of the all the test groups. -at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'` - -# at_fn_validate_ranges NAME... -# ----------------------------- -# Validate and normalize the test group number contained in each variable -# NAME. Leading zeroes are treated as decimal. -at_fn_validate_ranges () -{ - for at_grp - do - eval at_value=\$$at_grp - if test $at_value -lt 1 || test $at_value -gt 82; then - $as_echo "invalid test group: $at_value" >&2 - exit 1 - fi - case $at_value in - 0*) # We want to treat leading 0 as decimal, like expr and test, but - # AS_VAR_ARITH treats it as octal if it uses $(( )). - # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the - # expr fork, but it is not worth the effort to determine if the - # shell supports XSI when the user can just avoid leading 0. - eval $at_grp='`expr $at_value + 0`' ;; - esac - done -} +' +at_keywords= at_prev= for at_option do @@ -712,10 +403,7 @@ do at_prev= fi - case $at_option in - *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;; - *) at_optarg= ;; - esac + at_optarg=`expr "x$at_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. @@ -729,24 +417,13 @@ do ;; --version | -V ) - at_version_p=: + echo "$as_me (OpenCOBOL 1.1)" + exit 0 ;; --clean | -c ) - at_clean=: - ;; - - --color ) - at_color=always - ;; - --color=* ) - case $at_optarg in - no | never | none) at_color=never ;; - auto | tty | if-tty) at_color=auto ;; - always | yes | force) at_color=always ;; - *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'` - as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;; - esac + rm -rf $at_suite_dir $at_suite_log + exit 0 ;; --debug | -d ) @@ -759,35 +436,30 @@ do ;; --verbose | -v ) - at_verbose=; at_quiet=: + at_verbose=echo; at_quiet=: ;; --trace | -x ) - at_traceon='set -x' - at_trace_echo=echo - at_check_filter_trace=at_fn_filter_trace + at_traceon='set -vx'; at_traceoff='set +vx' ;; [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) - at_fn_validate_ranges at_option - as_fn_append at_groups "$at_option$as_nl" + at_groups="$at_groups$at_option " ;; # Ranges [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) - at_range_start=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_start - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,$p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_start=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,'` + at_groups="$at_groups$at_range " ;; -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) - at_range_end=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '1,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_end=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ @@ -796,45 +468,13 @@ do [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) - at_range_start=`expr $at_option : '\(.*\)-'` - at_range_end=`expr $at_option : '.*-\(.*\)'` - if test $at_range_start -gt $at_range_end; then - at_tmp=$at_range_end - at_range_end=$at_range_start - at_range_start=$at_tmp - fi - at_fn_validate_ranges at_range_start at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" - ;; - - # Directory selection. - --directory | -C ) - at_prev=--directory - ;; - --directory=* ) - at_change_dir=: - at_dir=$at_optarg - if test x- = "x$at_dir" ; then - at_dir=./- - fi - ;; - - # Parallel execution. - --jobs | -j ) - at_jobs=0 - ;; - --jobs=* | -j[0-9]* ) - if test -n "$at_optarg"; then - at_jobs=$at_optarg - else - at_jobs=`expr X$at_option : 'X-j\(.*\)'` - fi - case $at_jobs in *[!0-9]*) - at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'` - as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;; - esac + at_range_start=`echo $at_option |sed 's,-.*,,'` + at_range_end=`echo $at_option |sed 's,.*-,,'` + # FIXME: Maybe test to make sure start <= end? + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,' \ + -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; # Keywords. @@ -842,113 +482,67 @@ do at_prev=--keywords ;; --keywords=* ) - at_groups_selected=$at_help_all - at_save_IFS=$IFS - IFS=, - set X $at_optarg - shift - IFS=$at_save_IFS - for at_keyword - do - at_invert= - case $at_keyword in - '!'*) - at_invert="-v" - at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'` - ;; - esac - # It is on purpose that we match the test group titles too. - at_groups_selected=`$as_echo "$at_groups_selected" | - grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"` - done - # Smash the keywords. - at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'` - as_fn_append at_groups "$at_groups_selected$as_nl" - ;; - --recheck) - at_recheck=: + at_keywords="$at_keywords,$at_optarg" ;; *=*) - at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $at_envvar in - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error $? "invalid variable name: \`$at_envvar'" ;; - esac - at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` - # Export now, but save eval for later and for debug scripts. - export $at_envvar - as_fn_append at_debug_args " $at_envvar='$at_value'" - ;; - - *) $as_echo "$as_me: invalid option: $at_option" >&2 - $as_echo "Try \`$0 --help' for more information." >&2 + at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + expr "x$at_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid variable name: $at_envvar" >&2 + { (exit 1); exit 1; }; } + at_value=`echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` + eval "$at_envvar='$at_value'" + export $at_envvar + # Propagate to debug scripts. + at_debug_args="$at_debug_args $at_option" + ;; + + *) echo "$as_me: invalid option: $at_option" >&2 + echo "Try \`$0 --help' for more information." >&2 exit 1 ;; esac done -# Verify our last option didn't require an argument -if test -n "$at_prev"; then : - as_fn_error $? "\`$at_prev' requires an argument" +# Process the --keywords +if test -n "$at_keywords"; then + at_groups_selected=$at_help_all + for at_keyword in `IFS=,; set X $at_keywords; shift; echo ${1+$@}` + do + # It is on purpose that we match the test group titles too. + at_groups_selected=`echo "$at_groups_selected" | + grep -i "^[^;]*;[^;]*.*[; ]$at_keyword[ ;]"` + done + at_groups_selected=`echo "$at_groups_selected" | sed 's/;.*//'` + # Smash the end of lines. + at_groups_selected=`echo $at_groups_selected` + at_groups="$at_groups$at_groups_selected " fi -# The file containing the suite. -at_suite_log=$at_dir/$as_me.log - # Selected test groups. -if test -z "$at_groups$at_recheck"; then - at_groups=$at_groups_all -else - if test -n "$at_recheck" && test -r "$at_suite_log"; then - at_oldfails=`sed -n ' - /^Failed tests:$/,/^Skipped tests:$/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^Unexpected passes:$/,/^## Detailed failed tests/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^## Detailed failed tests/q - ' "$at_suite_log"` - as_fn_append at_groups "$at_oldfails$as_nl" - fi - # Sort the tests, removing duplicates. - at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'` -fi - -if test x"$at_color" = xalways \ - || { test x"$at_color" = xauto && test -t 1; }; then - at_red=`printf '\033[0;31m'` - at_grn=`printf '\033[0;32m'` - at_lgn=`printf '\033[1;32m'` - at_blu=`printf '\033[1;34m'` - at_std=`printf '\033[m'` -else - at_red= at_grn= at_lgn= at_blu= at_std= -fi +test -z "$at_groups" && at_groups=$at_groups_all # Help message. if $at_help_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] -Run all the tests, or the selected TESTS, given by numeric ranges, and -save a detailed log file. Upon failure, create debugging scripts. +Run all the tests, or the selected TESTS, and save a detailed log file. +Upon failure, create debugging scripts. -Do not change environment variables directly. Instead, set them via -command line arguments. Set \`AUTOTEST_PATH' to select the executables +You should not change environment variables unless explicitly passed +as command line arguments. Set \`AUTOTEST_PATH' to select the executables to exercise. Each relative directory is expanded as build and source -directories relative to the top level of this distribution. -E.g., from within the build directory /tmp/foo-1.0, invoking this: +directories relatively to the top level of this distribution. E.g., $ $0 AUTOTEST_PATH=bin -is equivalent to the following, assuming the source directory is /src/foo-1.0: +possibly amounts into - PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0 + PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Operation modes: -h, --help print the help message, then exit @@ -956,278 +550,145 @@ Operation modes: -c, --clean remove all the files this test suite might create and exit -l, --list describes all the tests, or the selected TESTS _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Execution tuning: - -C, --directory=DIR - change to directory DIR before starting - --color[=never|auto|always] - enable colored test results on terminal, or always - -j, --jobs[=N] - Allow N jobs at once; infinite jobs with no arg (default 1) -k, --keywords=KEYWORDS - select the tests matching all the comma-separated KEYWORDS - multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD - --recheck select all tests that failed or passed unexpectedly last time + select the tests matching all the comma separated KEYWORDS + accumulates -e, --errexit abort as soon as a test fails; implies --debug -v, --verbose force more detailed output - default for debugging scripts - -d, --debug inhibit clean up and top-level logging - default for debugging scripts + default for debugging scripts + -d, --debug inhibit clean up and debug script creation + default for debugging scripts -x, --trace enable tests shell tracing _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Report bugs to . _ATEOF - exit $at_write_fail + exit 0 fi # List of tests. if $at_list_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF OpenCOBOL 1.1 test suite: I18n Shift_JIS Tests test groups: - NUM: FILE-NAME:LINE TEST-GROUP-NAME + NUM: FILENAME:LINE TEST-GROUP-NAME KEYWORDS _ATEOF - # Pass an empty line as separator between selected groups and help. - $as_echo "$at_groups$as_nl$as_nl$at_help_all" | - awk 'NF == 1 && FS != ";" { - selected[$ 1] = 1 - next - } - /^$/ { FS = ";" } - NF > 0 { - if (selected[$ 1]) { - printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3 - if ($ 4) { - lmax = 79 - indent = " " - line = indent - len = length (line) - n = split ($ 4, a, " ") - for (i = 1; i <= n; i++) { - l = length (a[i]) + 1 - if (i > 1 && len + l > lmax) { - print line - line = indent " " a[i] - len = length (line) - } else { - line = line " " a[i] - len += l - } - } - if (n) - print line - } - } - }' || at_write_fail=1 - exit $at_write_fail -fi -if $at_version_p; then - $as_echo "$as_me (OpenCOBOL 1.1)" && - cat <<\_ATEOF || at_write_fail=1 - -Copyright (C) 2010 Free Software Foundation, Inc. -This test suite is free software; the Free Software Foundation gives -unlimited permission to copy, distribute and modify it. -_ATEOF - exit $at_write_fail -fi - -# Should we print banners? Yes if more than one test is run. -case $at_groups in #( - *$as_nl* ) - at_print_banners=: ;; #( - * ) at_print_banners=false ;; -esac -# Text for banner N, set to a single space once printed. - -# Take any -C into account. -if $at_change_dir ; then - test x != "x$at_dir" && cd "$at_dir" \ - || as_fn_error $? "unable to change directory" - at_dir=`pwd` -fi - -# Load the config files for any default variable assignments. -for at_file in atconfig atlocal -do - test -r $at_file || continue - . ./$at_file || as_fn_error $? "invalid content: $at_file" -done - -# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix: -: "${at_top_build_prefix=$at_top_builddir}" - -# Perform any assignments requested during argument parsing. -eval "$at_debug_args" - -# atconfig delivers names relative to the directory the test suite is -# in, but the groups themselves are run in testsuite-dir/group-dir. -if test -n "$at_top_srcdir"; then - builddir=../.. - for at_dir_var in srcdir top_srcdir top_build_prefix - do - eval at_val=\$at_$at_dir_var - case $at_val in - [\\/$]* | ?:[\\/]* ) at_prefix= ;; - *) at_prefix=../../ ;; - esac - eval "$at_dir_var=\$at_prefix\$at_val" - done -fi - -## -------------------- ## -## Directory structure. ## -## -------------------- ## - -# This is the set of directories and files used by this script -# (non-literals are capitalized): -# -# TESTSUITE - the testsuite -# TESTSUITE.log - summarizes the complete testsuite run -# TESTSUITE.dir/ - created during a run, remains after -d or failed test -# + at-groups/ - during a run: status of all groups in run -# | + NNN/ - during a run: meta-data about test group NNN -# | | + check-line - location (source file and line) of current AT_CHECK -# | | + status - exit status of current AT_CHECK -# | | + stdout - stdout of current AT_CHECK -# | | + stder1 - stderr, including trace -# | | + stderr - stderr, with trace filtered out -# | | + test-source - portion of testsuite that defines group -# | | + times - timestamps for computing duration -# | | + pass - created if group passed -# | | + xpass - created if group xpassed -# | | + fail - created if group failed -# | | + xfail - created if group xfailed -# | | + skip - created if group skipped -# + at-stop - during a run: end the run if this file exists -# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction -# + 0..NNN/ - created for each group NNN, remains after -d or failed test -# | + TESTSUITE.log - summarizes the group results -# | + ... - files created during the group - -# The directory the whole suite works in. -# Should be absolute to let the user `cd' at will. -at_suite_dir=$at_dir/$as_me.dir -# The file containing the suite ($at_dir might have changed since earlier). -at_suite_log=$at_dir/$as_me.log -# The directory containing helper files per test group. -at_helper_dir=$at_suite_dir/at-groups -# Stop file: if it exists, do not start new jobs. -at_stop_file=$at_suite_dir/at-stop -# The fifo used for the job dispatcher. -at_job_fifo=$at_suite_dir/at-job-fifo - -if $at_clean; then - test -d "$at_suite_dir" && - find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -f -r "$at_suite_dir" "$at_suite_log" - exit $? + # " 1 42 45 " => "^(1|42|45);". + at_groups_pattern=`echo "$at_groups" | sed 's/^ *//;s/ *$//;s/ */|/g'` + echo "$at_help_all" | + awk 'BEGIN { FS = ";" } + { if ($1 !~ /^('"$at_groups_pattern"')$/) next } + { if ($1) printf " %3d: %-18s %s\n", $1, $2, $3 + if ($4) printf " %s\n", $4 } ' + exit 0 fi # Don't take risks: use only absolute directories in PATH. # -# For stand-alone test suites (ie. atconfig was not found), -# AUTOTEST_PATH is relative to `.'. +# For stand-alone test suites, AUTOTEST_PATH is relative to `.'. # # For embedded test suites, AUTOTEST_PATH is relative to the top level # of the package. Then expand it into build/src parts, since users # may create executables in both places. -AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"` +# +# There might be directories that don't exist, but don't redirect +# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. +AUTOTEST_PATH=`echo $AUTOTEST_PATH | tr ':' $PATH_SEPARATOR` at_path= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $AUTOTEST_PATH $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR -case $as_dir in + case $as_dir in [\\/]* | ?:[\\/]* ) - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir ;; * ) - if test -z "$at_top_build_prefix"; then + if test -z "$at_top_builddir"; then # Stand-alone test suite. - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir else # Embedded test suite. - as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR" - as_fn_append at_path "$at_top_srcdir/$as_dir" + at_path=$at_path$PATH_SEPARATOR$at_top_builddir/$as_dir + at_path=$at_path$PATH_SEPARATOR$at_top_srcdir/$as_dir fi ;; esac - done -IFS=$as_save_IFS +done # Now build and simplify PATH. -# -# There might be directories that don't exist, but don't redirect -# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. -at_new_path= +PATH= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $at_path do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -d "$as_dir" || continue -case $as_dir in - [\\/]* | ?:[\\/]* ) ;; - * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;; + as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` +test -d "$as_dir" || continue +case $PATH in + $as_dir | \ + $as_dir$PATH_SEPARATOR* | \ + *$PATH_SEPARATOR$as_dir | \ + *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR* ) ;; + + '') PATH=$as_dir ;; + *) PATH=$PATH$PATH_SEPARATOR$as_dir ;; esac -case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in - *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;; - $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;; - *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;; -esac - done -IFS=$as_save_IFS +done -PATH=$at_new_path export PATH # Setting up the FDs. - - - # 5 is the log file. Not to be overwritten if `-d'. -if $at_debug_p; then - at_suite_log=/dev/null -else - : >"$at_suite_log" -fi -exec 5>>"$at_suite_log" + +$at_debug_p && at_suite_log=/dev/null +exec 5>$at_suite_log # Banners and logs. -$as_echo "## ----------------------------------------------- ## +cat <<\_ASBOX +## ----------------------------------------------- ## ## OpenCOBOL 1.1 test suite: I18n Shift_JIS Tests. ## -## ----------------------------------------------- ##" +## ----------------------------------------------- ## +_ASBOX { - $as_echo "## ----------------------------------------------- ## + cat <<\_ASBOX +## ----------------------------------------------- ## ## OpenCOBOL 1.1 test suite: I18n Shift_JIS Tests. ## -## ----------------------------------------------- ##" +## ----------------------------------------------- ## +_ASBOX echo - $as_echo "$as_me: command line was:" - $as_echo " \$ $0 $at_cli_args" + echo "$as_me: command line was:" + echo " $ $0 $at_cli_args" echo - # If ChangeLog exists, list a few lines in case it might help determining - # the exact version. - if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then - $as_echo "## ---------- ## -## ChangeLog. ## -## ---------- ##" - echo - sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog" + # Try to find a few ChangeLogs in case it might help determining the + # exact version. Use the relative dir: if the top dir is a symlink, + # find will not follow it (and options to follow the links are not + # portable), which would result in no output here. + if test -n "$at_top_srcdir"; then + cat <<\_ASBOX +## ----------- ## +## ChangeLogs. ## +## ----------- ## +_ASBOX echo - fi + for at_file in `find "$at_top_srcdir" -name ChangeLog -print` + do + echo "$as_me: $at_file:" + sed 's/^/| /;10q' $at_file + echo + done - { + { cat <<_ASUNAME ## --------- ## ## Platform. ## @@ -1245,7 +706,7 @@ uname -v = `(uname -v) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` @@ -1257,859 +718,201 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" - done -IFS=$as_save_IFS + echo "PATH: $as_dir" +done } - echo + echo + fi # Contents of the config files. for at_file in atconfig atlocal do test -r $at_file || continue - $as_echo "$as_me: $at_file:" + echo "$as_me: $at_file:" sed 's/^/| /' $at_file echo done -} >&5 + cat <<\_ASBOX +## ---------------- ## +## Tested programs. ## +## ---------------- ## +_ASBOX + echo +} >&5 -## ------------------------- ## -## Autotest shell functions. ## -## ------------------------- ## +# Report what programs are being tested. +for at_program in : $at_tested +do + test "$at_program" = : && continue + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -f $as_dir/$at_program && break +done -# at_fn_banner NUMBER -# ------------------- -# Output banner NUMBER, provided the testsuite is running multiple groups and -# this particular banner has not yet been printed. -at_fn_banner () -{ - $at_print_banners || return 0 - eval at_banner_text=\$at_banner_text_$1 - test "x$at_banner_text" = "x " && return 0 - eval "at_banner_text_$1=\" \"" - if test -z "$at_banner_text"; then - $at_first || echo + if test -f $as_dir/$at_program; then + { + echo "i18n_sjis.at:21: $as_dir/$at_program --version" + $as_dir/$at_program --version + echo + } >&5 2>&1 else - $as_echo "$as_nl$at_banner_text$as_nl" + { { echo "$as_me:$LINENO: error: cannot find $at_program" >&5 +echo "$as_me: error: cannot find $at_program" >&2;} + { (exit 1); exit 1; }; } fi -} # at_fn_banner +done -# at_fn_check_prepare_notrace REASON LINE -# --------------------------------------- -# Perform AT_CHECK preparations for the command at LINE for an untraceable -# command; REASON is the reason for disabling tracing. -at_fn_check_prepare_notrace () { - $at_trace_echo "Not enabling shell tracing (command contains $1)" - $as_echo "$2" >"$at_check_line_file" - at_check_trace=: at_check_filter=: - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_trace LINE -# ------------------------------ -# Perform AT_CHECK preparations for the command at LINE for a traceable -# command. -at_fn_check_prepare_trace () -{ - $as_echo "$1" >"$at_check_line_file" - at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_dynamic COMMAND LINE -# ---------------------------------------- -# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate -# preparation function. -at_fn_check_prepare_dynamic () -{ - case $1 in - *$as_nl*) - at_fn_check_prepare_notrace 'an embedded newline' "$2" ;; - *) - at_fn_check_prepare_trace "$2" ;; - esac -} - -# at_fn_filter_trace -# ------------------ -# Remove the lines in the file "$at_stderr" generated by "set -x" and print -# them to stderr. -at_fn_filter_trace () -{ - mv "$at_stderr" "$at_stder1" - grep '^ *+' "$at_stder1" >&2 - grep -v '^ *+' "$at_stder1" >"$at_stderr" -} - -# at_fn_log_failure FILE-LIST -# --------------------------- -# Copy the files in the list on stdout with a "> " prefix, and exit the shell -# with a failure exit code. -at_fn_log_failure () -{ - for file - do $as_echo "$file:"; sed 's/^/> /' "$file"; done - echo 1 > "$at_status_file" - exit 1 -} - -# at_fn_check_skip EXIT-CODE LINE -# ------------------------------- -# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit -# the test group subshell with that same exit code. Use LINE in any report -# about test failure. -at_fn_check_skip () -{ - case $1 in - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$2: hard failure"; exit 99;; - 77) echo 77 > "$at_status_file"; exit 77;; - esac -} - -# at_fn_check_status EXPECTED EXIT-CODE LINE -# ------------------------------------------ -# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing. -# Otherwise, if it is 77 or 99, exit the test group subshell with that same -# exit code; if it is anything else print an error message referring to LINE, -# and fail the test. -at_fn_check_status () -{ - case $2 in - $1 ) ;; - 77) echo 77 > "$at_status_file"; exit 77;; - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$3: hard failure"; exit 99;; - *) $as_echo "$3: exit code was $2, expected $1" - at_failed=:;; - esac -} - -# at_fn_diff_devnull FILE -# ----------------------- -# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff -# invocations. -at_fn_diff_devnull () -{ - test -s "$1" || return 0 - $at_diff "$at_devnull" "$1" -} - -# at_fn_test NUMBER -# ----------------- -# Parse out test NUMBER from the tail of this file. -at_fn_test () -{ - eval at_sed=\$at_sed$1 - sed "$at_sed" "$at_myself" > "$at_test_source" -} - -# at_fn_create_debugging_script -# ----------------------------- -# Create the debugging script $at_group_dir/run which will reproduce the -# current test group. -at_fn_create_debugging_script () -{ - { - echo "#! /bin/sh" && - echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' && - $as_echo "cd '$at_dir'" && - $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" && - echo 'exit 1' - } >"$at_group_dir/run" && - chmod +x "$at_group_dir/run" -} - -## -------------------------------- ## -## End of autotest shell functions. ## -## -------------------------------- ## -{ - $as_echo "## ---------------- ## -## Tested programs. ## -## ---------------- ##" - echo -} >&5 - -# Report what programs are being tested. -for at_program in : $at_tested -do - test "$at_program" = : && continue - case $at_program in - [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;; - * ) - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -f "$as_dir/$at_program" && break - done -IFS=$as_save_IFS - - at_program_=$as_dir/$at_program ;; - esac - if test -f "$at_program_"; then - { - $as_echo "$at_srcdir/i18n_sjis.at:21: $at_program_ --version" - "$at_program_" --version &5 2>&1 - else - as_fn_error $? "cannot find $at_program" "$LINENO" 5 - fi -done - -{ - $as_echo "## ------------------ ## + cat <<\_ASBOX +## ------------------ ## ## Running the tests. ## -## ------------------ ##" +## ------------------ ## +_ASBOX } >&5 at_start_date=`date` -at_start_time=`date +%s 2>/dev/null` -$as_echo "$as_me: starting at: $at_start_date" >&5 +at_start_time=`(date +%s) 2>/dev/null` +echo "$as_me: starting at: $at_start_date" >&5 +at_xpass_list= +at_xfail_list= +at_pass_list= +at_fail_list= +at_skip_list= +at_group_count=0 # Create the master directory if it doesn't already exist. -as_dir="$at_suite_dir"; as_fn_mkdir_p || - as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5 +test -d $at_suite_dir || + mkdir $at_suite_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_suite_dir" >&5 +echo "$as_me: error: cannot create $at_suite_dir" >&2;} + { (exit 1); exit 1; }; } # Can we diff with `/dev/null'? DU 5.0 refuses. if diff /dev/null /dev/null >/dev/null 2>&1; then at_devnull=/dev/null else at_devnull=$at_suite_dir/devnull - >"$at_devnull" + cp /dev/null $at_devnull fi # Use `diff -u' when possible. -if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff" -then +if diff -u $at_devnull $at_devnull >/dev/null 2>&1; then at_diff='diff -u' else at_diff=diff fi -# Get the last needed group. -for at_group in : $at_groups; do :; done - -# Extract the start and end lines of each test group at the tail -# of this file -awk ' -BEGIN { FS="" } -/^#AT_START_/ { - start = NR -} -/^#AT_STOP_/ { - test = substr ($ 0, 10) - print "at_sed" test "=\"1," start "d;" (NR-1) "q\"" - if (test == "'"$at_group"'") exit -}' "$at_myself" > "$at_suite_dir/at-source-lines" && -. "$at_suite_dir/at-source-lines" || - as_fn_error $? "cannot create test line number cache" "$LINENO" 5 -rm -f "$at_suite_dir/at-source-lines" - -# Set number of jobs for `-j'; avoid more jobs than test groups. -set X $at_groups; shift; at_max_jobs=$# -if test $at_max_jobs -eq 0; then - at_jobs=1 -fi -if test $at_jobs -ne 1 && - { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then - at_jobs=$at_max_jobs -fi - -# If parallel mode, don't output banners, don't split summary lines. -if test $at_jobs -ne 1; then - at_print_banners=false - at_quiet=: -fi - -# Set up helper dirs. -rm -rf "$at_helper_dir" && -mkdir "$at_helper_dir" && -cd "$at_helper_dir" && -{ test -z "$at_groups" || mkdir $at_groups; } || -as_fn_error $? "testsuite directory setup failed" "$LINENO" 5 - -# Functions for running a test group. We leave the actual -# test group execution outside of a shell function in order -# to avoid hitting zsh 4.x exit status bugs. - -# at_fn_group_prepare -# ------------------- -# Prepare for running a test group. -at_fn_group_prepare () -{ - # The directory for additional per-group helper files. - at_job_dir=$at_helper_dir/$at_group - # The file containing the location of the last AT_CHECK. - at_check_line_file=$at_job_dir/check-line - # The file containing the exit status of the last command. - at_status_file=$at_job_dir/status - # The files containing the output of the tested commands. - at_stdout=$at_job_dir/stdout - at_stder1=$at_job_dir/stder1 - at_stderr=$at_job_dir/stderr - # The file containing the code for a test group. - at_test_source=$at_job_dir/test-source - # The file containing dates. - at_times_file=$at_job_dir/times +for at_group in $at_groups +do # Be sure to come back to the top test directory. - cd "$at_suite_dir" - - # Clearly separate the test groups when verbose. - $at_first || $at_verbose echo - - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - - # Create a fresh directory for the next test group, and enter. - # If one already exists, the user may have invoked ./run from - # within that directory; we remove the contents, but not the - # directory itself, so that we aren't pulling the rug out from - # under the shell's notion of the current directory. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \; - rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??* -fi || - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5 -$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;} - # Be tolerant if the above `rm' was not able to remove the directory. - as_dir="$at_group_dir"; as_fn_mkdir_p - - echo 0 > "$at_status_file" - - # In verbose mode, append to the log file *and* show on - # the standard output; in quiet mode only write to the log. - if test -z "$at_verbose"; then - at_tee_pipe='tee -a "$at_group_log"' - else - at_tee_pipe='cat >> "$at_group_log"' - fi -} - -# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER] -# ------------------------------------------------- -# Declare the test group ORDINAL, located at LINE with group description DESC, -# and residing under BANNER. Use PAD to align the status column. -at_fn_group_banner () -{ - at_setup_line="$2" - test -n "$5" && at_fn_banner $5 - at_desc="$3" - case $1 in - [0-9]) at_desc_line=" $1: ";; - [0-9][0-9]) at_desc_line=" $1: " ;; - *) at_desc_line="$1: " ;; - esac - as_fn_append at_desc_line "$3$4" - $at_quiet $as_echo_n "$at_desc_line" - echo "# -*- compilation -*-" >> "$at_group_log" -} + cd $at_suite_dir -# at_fn_group_postprocess -# ----------------------- -# Perform cleanup after running a test group. -at_fn_group_postprocess () -{ - # Be sure to come back to the suite directory, in particular - # since below we might `rm' the group directory we are in currently. - cd "$at_suite_dir" - - if test ! -f "$at_check_line_file"; then - sed "s/^ */$as_me: WARNING: /" <<_ATEOF - A failure happened in a test group before any test could be - run. This means that test suite is improperly designed. Please - report this failure to . -_ATEOF - $as_echo "$at_setup_line" >"$at_check_line_file" - at_status=99 - fi - $at_verbose $as_echo_n "$at_group. $at_setup_line: " - $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log" - case $at_xfail:$at_status in - yes:0) - at_msg="UNEXPECTED PASS" - at_res=xpass - at_errexit=$at_errexit_p - at_color=$at_red - ;; - no:0) - at_msg="ok" - at_res=pass - at_errexit=false - at_color=$at_grn - ;; - *:77) - at_msg='skipped ('`cat "$at_check_line_file"`')' - at_res=skip - at_errexit=false - at_color=$at_blu - ;; - no:* | *:99) - at_msg='FAILED ('`cat "$at_check_line_file"`')' - at_res=fail - at_errexit=$at_errexit_p - at_color=$at_red - ;; - yes:*) - at_msg='expected failure ('`cat "$at_check_line_file"`')' - at_res=xfail - at_errexit=false - at_color=$at_lgn - ;; - esac - echo "$at_res" > "$at_job_dir/$at_res" - # In parallel mode, output the summary line only afterwards. - if test $at_jobs -ne 1 && test -n "$at_verbose"; then - $as_echo "$at_desc_line $at_color$at_msg$at_std" - else - # Make sure there is a separator even with long titles. - $as_echo " $at_color$at_msg$at_std" - fi - at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" - case $at_status in - 0|77) - # $at_times_file is only available if the group succeeded. - # We're not including the group log, so the success message - # is written in the global log separately. But we also - # write to the group log in case they're using -d. - if test -f "$at_times_file"; then - at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')' - rm -f "$at_times_file" - fi - $as_echo "$at_log_msg" >> "$at_group_log" - $as_echo "$at_log_msg" >&5 - - # Cleanup the group directory, unless the user wants the files - # or the success was unexpected. - if $at_debug_p || test $at_res = xpass; then - at_fn_create_debugging_script - if test $at_res = xpass && $at_errexit; then - echo stop > "$at_stop_file" - fi - else - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -fr "$at_group_dir" - fi - rm -f "$at_test_source" - fi + case $at_group in + banner-*) + at_group_log=$at_suite_log ;; + *) - # Upon failure, include the log into the testsuite's global - # log. The failure message is written in the group log. It - # is later included in the global log. - $as_echo "$at_log_msg" >> "$at_group_log" - - # Upon failure, keep the group directory for autopsy, and create - # the debugging script. With -e, do not start any further tests. - at_fn_create_debugging_script - if $at_errexit; then - echo stop > "$at_stop_file" - fi + # Skip tests we already run (using --keywords makes it easy to get + # duplication). + case " $at_pass_test $at_skip_test $at_fail_test " in + *" $at_group "* ) continue;; + esac + + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + rm -rf $at_group_dir + mkdir $at_group_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_group_dir" >&5 +echo "$as_me: error: cannot create $at_group_dir" >&2;} + { (exit 1); exit 1; }; } + cd $at_group_dir ;; esac -} + echo 0 > $at_status_file -## ------------ ## -## Driver loop. ## -## ------------ ## - - -if (set -m && set +m && set +b) >/dev/null 2>&1; then - set +b - at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=- -else - at_job_control_on=: at_job_control_off=: at_job_group= -fi - -for at_signal in 1 2 15; do - trap 'set +x; set +e - $at_job_control_off - at_signal='"$at_signal"' - echo stop > "$at_stop_file" - trap "" $at_signal - at_pgids= - for at_pgid in `jobs -p 2>/dev/null`; do - at_pgids="$at_pgids $at_job_group$at_pgid" - done - test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null - wait - if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then - echo >&2 - fi - at_signame=`kill -l $at_signal 2>&1 || echo $at_signal` - set x $at_signame - test 1 -gt 2 && at_signame=$at_signal - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5 -$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;} - as_fn_arith 128 + $at_signal && exit_status=$as_val - as_fn_exit $exit_status' $at_signal -done - -rm -f "$at_stop_file" -at_first=: - -if test $at_jobs -ne 1 && - rm -f "$at_job_fifo" && - test -n "$at_job_group" && - ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null -then - # FIFO job dispatcher. - - trap 'at_pids= - for at_pid in `jobs -p`; do - at_pids="$at_pids $at_job_group$at_pid" - done - if test -n "$at_pids"; then - at_sig=TSTP - test "${TMOUT+set}" = set && at_sig=STOP - kill -$at_sig $at_pids 2>/dev/null - fi - kill -STOP $$ - test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP - - echo - # Turn jobs into a list of numbers, starting from 1. - at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p` - - set X $at_joblist - shift - for at_group in $at_groups; do - $at_job_control_on 2>/dev/null - ( - # Start one test group. - $at_job_control_off - if $at_first; then - exec 7>"$at_job_fifo" - else - exec 6<&- - fi - trap 'set +x; set +e - trap "" PIPE - echo stop > "$at_stop_file" - echo >&7 - as_fn_exit 141' PIPE - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source" - then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - echo >&7 - ) & - $at_job_control_off - if $at_first; then - at_first=false - exec 6<"$at_job_fifo" 7>"$at_job_fifo" - fi - shift # Consume one token. - if test $# -gt 0; then :; else - read at_token <&6 || break - set x $* - fi - test -f "$at_stop_file" && break - done - exec 7>&- - # Read back the remaining ($at_jobs - 1) tokens. - set X $at_joblist - shift - if test $# -gt 0; then - shift - for at_job - do - read at_token - done <&6 - fi - exec 6<&- - wait -else - # Run serially, avoid forks and other potential surprises. - for at_group in $at_groups; do - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source"; then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - test -f "$at_stop_file" && break - at_first=false - done -fi - -# Wrap up the test suite with summary statistics. -cd "$at_helper_dir" - -# Use ?..???? when the list must remain sorted, the faster * otherwise. -at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'` -at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'` -at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'` -at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do - echo $f; done | sed '/?/d; s,/xpass,,'` -at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do - echo $f; done | sed '/?/d; s,/fail,,'` - -set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list -shift; at_group_count=$# -set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$* -set X $at_xfail_list; shift; at_xfail_count=$# -set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$* -set X $at_skip_list; shift; at_skip_count=$# - -as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val -as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val -as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val - -# Back to the top directory. -cd "$at_dir" -rm -rf "$at_helper_dir" - -# Compute the duration of the suite. -at_stop_date=`date` -at_stop_time=`date +%s 2>/dev/null` -$as_echo "$as_me: ending at: $at_stop_date" >&5 -case $at_start_time,$at_stop_time in - [0-9]*,[0-9]*) - as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val - as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val - as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val - as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val - as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val - at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" - $as_echo "$as_me: test suite duration: $at_duration" >&5 - ;; -esac - -echo -$as_echo "## ------------- ## -## Test results. ## -## ------------- ##" -echo -{ - echo - $as_echo "## ------------- ## -## Test results. ## -## ------------- ##" - echo -} >&5 + # Clearly separate the test groups when verbose. + test $at_group_count != 0 && $at_verbose -if test $at_run_count = 1; then - at_result="1 test" - at_were=was -else - at_result="$at_run_count tests" - at_were=were -fi -if $at_errexit_p && test $at_unexpected_count != 0; then - if test $at_xpass_count = 1; then - at_result="$at_result $at_were run, one passed" + # In verbose mode, append to the log file *and* show on + # the standard output; in quiet mode only write to the log + if test $at_verbose = echo; then + at_tee_pipe="tee -a $at_group_log" else - at_result="$at_result $at_were run, one failed" + at_tee_pipe="cat >> $at_group_log" fi - at_result="$at_result unexpectedly and inhibited subsequent tests." - at_color=$at_red -else - # Don't you just love exponential explosion of the number of cases? - at_color=$at_red - case $at_xpass_count:$at_fail_count:$at_xfail_count in - # So far, so good. - 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;; - 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;; - # Some unexpected failures - 0:*:0) at_result="$at_result $at_were run, -$at_fail_count failed unexpectedly." ;; + case $at_group in + 1 ) # 1. user-defined-word.at:1: Program name + at_setup_line='user-defined-word.at:1' + at_desc='Program name' + $at_quiet $ECHO_N " 1: Program name $ECHO_C" + at_xfail=no + ( + echo "1. user-defined-word.at:1: testing ..." + $at_traceon - # Some failures, both expected and unexpected - 0:*:1) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - 0:*:*) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - # No unexpected failures, but some xpasses - *:0:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly." ;; - - # No expected failures, but failures and xpasses - *:1:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; - *:*:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; +cat >prog.cob <<'_ATEOF' - # All of them. - *:*:1) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - *:*:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - esac + IDENTIFICATION DIVISION. + PROGRAM-ID. {̃vO. + PROCEDURE DIVISION. + STOP RUN. +_ATEOF - if test $at_skip_count = 0 && test $at_run_count -gt 1; then - at_result="All $at_result" - fi -fi -# Now put skips in the mix. -case $at_skip_count in - 0) ;; - 1) at_result="$at_result -1 test was skipped." ;; - *) at_result="$at_result -$at_skip_count tests were skipped." ;; +$at_traceoff +echo "user-defined-word.at:10: \${COMPILE} -x prog.cob" +echo user-defined-word.at:10 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:10: exit code was $at_status, expected 0" + at_failed=:;; esac +if $at_failed; then -if test $at_unexpected_count = 0; then - echo "$at_color$at_result$at_std" - echo "$at_result" >&5 -else - echo "${at_color}ERROR: $at_result$at_std" >&2 - echo "ERROR: $at_result" >&5 - { - echo - $as_echo "## ------------------------ ## -## Summary of the failures. ## -## ------------------------ ##" - - # Summary of failed and skipped tests. - if test $at_fail_count != 0; then - echo "Failed tests:" - $SHELL "$at_myself" $at_fail_list --list - echo - fi - if test $at_skip_count != 0; then - echo "Skipped tests:" - $SHELL "$at_myself" $at_skip_list --list - echo - fi - if test $at_xpass_count != 0; then - echo "Unexpected passes:" - $SHELL "$at_myself" $at_xpass_list --list - echo - fi - if test $at_fail_count != 0; then - $as_echo "## ---------------------- ## -## Detailed failed tests. ## -## ---------------------- ##" - echo - for at_group in $at_fail_list - do - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - cat "$at_suite_dir/$at_group_normalized/$as_me.log" - echo - done - echo - fi - if test -n "$at_top_srcdir"; then - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## ${at_top_build_prefix}config.log ## -_ASBOX - sed 's/^/| /' ${at_top_build_prefix}config.log - echo - fi - } >&5 - - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $as_me.log was created. ## -_ASBOX - - echo - if $at_debug_p; then - at_msg='per-test log files' - else - at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'" - fi - $as_echo "Please send $at_msg and all information you think might help: - - To: - Subject: [OpenCOBOL 1.1] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly} - -You may investigate any problem if you feel able to do so, in which -case the test suite provides a good starting point. Its output may -be found below \`${at_testdir+${at_testdir}/}$as_me.dir'. -" + echo 1 > $at_status_file exit 1 fi -exit 0 - -## ------------- ## -## Actual tests. ## -## ------------- ## -#AT_START_1 -at_fn_group_banner 1 'user-defined-word.at:1' \ - "Program name" " " -at_xfail=no -( - $as_echo "1. $at_setup_line: testing $at_desc ..." - $at_traceon - +$at_traceon -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. {̃vO. - PROCEDURE DIVISION. - STOP RUN. -_ATEOF + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:10: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:10" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:10" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_1 -#AT_START_2 -at_fn_group_banner 2 'user-defined-word.at:14' \ - "Field name" " " -at_xfail=no -( - $as_echo "2. $at_setup_line: testing $at_desc ..." - $at_traceon + 2 ) # 2. user-defined-word.at:14: Field name + at_setup_line='user-defined-word.at:14' + at_desc='Field name' + $at_quiet $ECHO_N " 2: Field name $ECHO_C" + at_xfail=no + ( + echo "2. user-defined-word.at:14: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2126,46 +929,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:28: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:28" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:28" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:29: ./prog" -at_fn_check_prepare_trace "user-defined-word.at:29" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Unicode" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:29" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_2 -#AT_START_3 -at_fn_group_banner 3 'user-defined-word.at:33' \ - "Long field name" " " -at_xfail=no -( - $as_echo "3. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "user-defined-word.at:28: \${COMPILE} -x prog.cob" +echo user-defined-word.at:28 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:28: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "user-defined-word.at:29: ./prog" +echo user-defined-word.at:29 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Unicode" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:29: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 3 ) # 3. user-defined-word.at:33: Long field name + at_setup_line='user-defined-word.at:33' + at_desc='Long field name' + $at_quiet $ECHO_N " 3: Long field name $ECHO_C" + at_xfail=no + ( + echo "3. user-defined-word.at:33: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2187,46 +1015,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:52: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:52" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:53: ./prog" -at_fn_check_prepare_trace "user-defined-word.at:53" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Unicode" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:53" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_3 -#AT_START_4 -at_fn_group_banner 4 'user-defined-word.at:58' \ - "Field lookup" " " -at_xfail=no -( - $as_echo "4. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "user-defined-word.at:52: \${COMPILE} -x prog.cob" +echo user-defined-word.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:52: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "user-defined-word.at:53: ./prog" +echo user-defined-word.at:53 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Unicode" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:53: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 4 ) # 4. user-defined-word.at:58: Field lookup + at_setup_line='user-defined-word.at:58' + at_desc='Field lookup' + $at_quiet $ECHO_N " 4: Field lookup $ECHO_C" + at_xfail=no + ( + echo "4. user-defined-word.at:58: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2243,46 +1096,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:72: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:72" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:72" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:73: ./prog" -at_fn_check_prepare_trace "user-defined-word.at:73" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "AB" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:73" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_4 -#AT_START_5 -at_fn_group_banner 5 'user-defined-word.at:77' \ - "Section name" " " -at_xfail=no -( - $as_echo "5. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "user-defined-word.at:72: \${COMPILE} -x prog.cob" +echo user-defined-word.at:72 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:72: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "user-defined-word.at:73: ./prog" +echo user-defined-word.at:73 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "AB" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:73: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 5 ) # 5. user-defined-word.at:77: Section name + at_setup_line='user-defined-word.at:77' + at_desc='Section name' + $at_quiet $ECHO_N " 5: Section name $ECHO_C" + at_xfail=no + ( + echo "5. user-defined-word.at:77: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2302,46 +1180,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:94: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:94" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:94" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:95: ./prog" -at_fn_check_prepare_trace "user-defined-word.at:95" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Hello, and good bye." | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:95" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_5 -#AT_START_6 -at_fn_group_banner 6 'user-defined-word.at:99' \ - "Long section name" " " -at_xfail=no -( - $as_echo "6. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "user-defined-word.at:94: \${COMPILE} -x prog.cob" +echo user-defined-word.at:94 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:94: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "user-defined-word.at:95: ./prog" +echo user-defined-word.at:95 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Hello, and good bye." | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:95: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 6 ) # 6. user-defined-word.at:99: Long section name + at_setup_line='user-defined-word.at:99' + at_desc='Long section name' + $at_quiet $ECHO_N " 6: Long section name $ECHO_C" + at_xfail=no + ( + echo "6. user-defined-word.at:99: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2361,46 +1264,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:116: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:116" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:116" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:117: ./prog" -at_fn_check_prepare_trace "user-defined-word.at:117" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Hello, and good bye." | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:117" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_6 -#AT_START_7 -at_fn_group_banner 7 'user-defined-word.at:121' \ - "Too long section name" " " -at_xfail=no -( - $as_echo "7. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "user-defined-word.at:116: \${COMPILE} -x prog.cob" +echo user-defined-word.at:116 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:116: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "user-defined-word.at:117: ./prog" +echo user-defined-word.at:117 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Hello, and good bye." | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:117: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 7 ) # 7. user-defined-word.at:121: Too long section name + at_setup_line='user-defined-word.at:121' + at_desc='Too long section name' + $at_quiet $ECHO_N " 7: Too long section name $ECHO_C" + at_xfail=no + ( + echo "7. user-defined-word.at:121: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2419,35 +1347,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:137: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:137" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: User defined name must be less than 32 characters +$at_traceoff +echo "user-defined-word.at:137: \${COMPILE} -x prog.cob" +echo user-defined-word.at:137 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: User defined name must be less than 32 characters prog.cob:8: Error: User defined name must be less than 32 characters -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/user-defined-word.at:137" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_7 -#AT_START_8 -at_fn_group_banner 8 'user-defined-word.at:144' \ - "Nihongo Filename" " " -at_xfail=no -( - $as_echo "8. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "user-defined-word.at:137: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 8 ) # 8. user-defined-word.at:144: Nihongo Filename + at_setup_line='user-defined-word.at:144' + at_desc='Nihongo Filename' + $at_quiet $ECHO_N " 8: Nihongo Filename $ECHO_C" + at_xfail=no + ( + echo "8. user-defined-word.at:144: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2480,46 +1421,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:174: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "user-defined-word.at:174" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:174" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/user-defined-word.at:175: ./prog" -at_fn_check_prepare_trace "user-defined-word.at:175" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/user-defined-word.at:175" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_8 -#AT_START_9 -at_fn_group_banner 9 'pic-x.at:1' \ - "Value clause" " " -at_xfail=no -( - $as_echo "9. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "user-defined-word.at:174: \${COMPILE} -x prog.cob" +echo user-defined-word.at:174 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:174: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "user-defined-word.at:175: ./prog" +echo user-defined-word.at:175 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "user-defined-word.at:175: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 9 ) # 9. pic-x.at:1: Value clause + at_setup_line='pic-x.at:1' + at_desc='Value clause' + $at_quiet $ECHO_N " 9: Value clause $ECHO_C" + at_xfail=no + ( + echo "9. pic-x.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2535,46 +1501,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:14: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:14" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:14" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:15: ./prog" -at_fn_check_prepare_trace "pic-x.at:15" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{̕" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:15" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_9 -#AT_START_10 -at_fn_group_banner 10 'pic-x.at:19' \ - "Move" " " -at_xfail=no -( - $as_echo "10. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:14: \${COMPILE} -x prog.cob" +echo pic-x.at:14 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:14: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:15: ./prog" +echo pic-x.at:15 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{̕" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:15: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 10 ) # 10. pic-x.at:19: Move + at_setup_line='pic-x.at:19' + at_desc='Move' + $at_quiet $ECHO_N " 10: Move $ECHO_C" + at_xfail=no + ( + echo "10. pic-x.at:19: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2591,46 +1582,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:33: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:33" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:33" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:34: ./prog" -at_fn_check_prepare_trace "pic-x.at:34" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{̕" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:34" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_10 -#AT_START_11 -at_fn_group_banner 11 'pic-x.at:38' \ - "Move with trunc" " " -at_xfail=no -( - $as_echo "11. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:33: \${COMPILE} -x prog.cob" +echo pic-x.at:33 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:33: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:34: ./prog" +echo pic-x.at:34 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{̕" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:34: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 11 ) # 11. pic-x.at:38: Move with trunc + at_setup_line='pic-x.at:38' + at_desc='Move with trunc' + $at_quiet $ECHO_N " 11: Move with trunc $ECHO_C" + at_xfail=no + ( + echo "11. pic-x.at:38: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2647,49 +1663,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:52: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:52" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Value size exceeds data size +$at_traceoff +echo "pic-x.at:52: \${COMPILE} -x prog.cob" +echo pic-x.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size prog.cob:6: Warning: 'F0' defined here as PIC X(6) -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:56: ./prog" -at_fn_check_prepare_trace "pic-x.at:56" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:56" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_11 -#AT_START_12 -at_fn_group_banner 12 'pic-x.at:60' \ - "Move ALL with trunc and trimming" " " -at_xfail=no -( - $as_echo "12. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:52: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:56: ./prog" +echo pic-x.at:56 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:56: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 12 ) # 12. pic-x.at:60: Move ALL with trunc and trimming + at_setup_line='pic-x.at:60' + at_desc='Move ALL with trunc and trimming' + $at_quiet $ECHO_N " 12: Move ALL with trunc and trimming $ECHO_C" + at_xfail=no + ( + echo "12. pic-x.at:60: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2706,47 +1746,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:74: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:74" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:74" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:75: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-x.at:75" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " ec8a ec8a ec8a 0020 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:75" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_12 -#AT_START_13 -at_fn_group_banner 13 'pic-x.at:80' \ - "Move with trunc and trimming 1" " " -at_xfail=no -( - $as_echo "13. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:74: \${COMPILE} -x prog.cob" +echo pic-x.at:74 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:74: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:75: ./prog | od -x -An" +echo pic-x.at:75 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " ec8a ec8a ec8a 0020 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:75: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 13 ) # 13. pic-x.at:80: Move with trunc and trimming 1 + at_setup_line='pic-x.at:80' + at_desc='Move with trunc and trimming 1' + $at_quiet $ECHO_N " 13: Move with trunc and trimming 1 $ECHO_C" + at_xfail=no + ( + echo "13. pic-x.at:80: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2763,50 +1828,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:94: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:94" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Value size exceeds data size +$at_traceoff +echo "pic-x.at:94: \${COMPILE} -x prog.cob" +echo pic-x.at:94 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size prog.cob:6: Warning: 'F0' defined here as PIC X(7) -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:94" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:98: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-x.at:98" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " fa93 7b96 ea8c 0082 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:98" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_13 -#AT_START_14 -at_fn_group_banner 14 'pic-x.at:103' \ - "Move from field with trunc and trimming 1" " " -at_xfail=no -( - $as_echo "14. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:94: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:98: ./prog | od -x -An" +echo pic-x.at:98 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " fa93 7b96 ea8c 0082 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:98: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 14 ) # 14. pic-x.at:103: Move from field with trunc and trimming 1 + at_setup_line='pic-x.at:103' + at_desc='Move from field with trunc and trimming 1' + $at_quiet $ECHO_N " 14: Move from field with trunc and trimming 1 $ECHO_C" + at_xfail=no + ( + echo "14. pic-x.at:103: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2824,47 +1913,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:118: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:118" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:118" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:119: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-x.at:119" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " fa93 7b96 ea8c 0082 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:119" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_14 -#AT_START_15 -at_fn_group_banner 15 'pic-x.at:124' \ - "Move with padding" " " -at_xfail=no -( - $as_echo "15. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:118: \${COMPILE} -x prog.cob" +echo pic-x.at:118 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:118: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:119: ./prog | od -x -An" +echo pic-x.at:119 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " fa93 7b96 ea8c 0082 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:119: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 15 ) # 15. pic-x.at:124: Move with padding + at_setup_line='pic-x.at:124' + at_desc='Move with padding' + $at_quiet $ECHO_N " 15: Move with padding $ECHO_C" + at_xfail=no + ( + echo "15. pic-x.at:124: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2881,46 +1995,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:138: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:138" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:138" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:139: ./prog" -at_fn_check_prepare_trace "pic-x.at:139" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{̕ " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:139" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_15 -#AT_START_16 -at_fn_group_banner 16 'pic-x.at:143' \ - "Move with justify" " " -at_xfail=no -( - $as_echo "16. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:138: \${COMPILE} -x prog.cob" +echo pic-x.at:138 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:138: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:139: ./prog" +echo pic-x.at:139 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{̕ " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:139: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 16 ) # 16. pic-x.at:143: Move with justify + at_setup_line='pic-x.at:143' + at_desc='Move with justify' + $at_quiet $ECHO_N " 16: Move with justify $ECHO_C" + at_xfail=no + ( + echo "16. pic-x.at:143: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2937,46 +2076,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:157: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:157" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:157" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:158: ./prog" -at_fn_check_prepare_trace "pic-x.at:158" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " {̕" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:158" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_16 -#AT_START_17 -at_fn_group_banner 17 'pic-x.at:162' \ - "Move to alnum EDITED" " " -at_xfail=no -( - $as_echo "17. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:157: \${COMPILE} -x prog.cob" +echo pic-x.at:157 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:157: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:158: ./prog" +echo pic-x.at:158 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " {̕" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:158: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 17 ) # 17. pic-x.at:162: Move to alnum EDITED + at_setup_line='pic-x.at:162' + at_desc='Move to alnum EDITED' + $at_quiet $ECHO_N " 17: Move to alnum EDITED $ECHO_C" + at_xfail=no + ( + echo "17. pic-x.at:162: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2993,46 +2157,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:176: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:176" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:176" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:177: ./prog" -at_fn_check_prepare_trace "pic-x.at:177" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{/ 0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:177" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_17 -#AT_START_18 -at_fn_group_banner 18 'pic-x.at:181' \ - "Move to alnum EDITED (pic too short)" " " -at_xfail=no -( - $as_echo "18. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:176: \${COMPILE} -x prog.cob" +echo pic-x.at:176 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:176: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:177: ./prog" +echo pic-x.at:177 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{/ 0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:177: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 18 ) # 18. pic-x.at:181: Move to alnum EDITED (pic too short) + at_setup_line='pic-x.at:181' + at_desc='Move to alnum EDITED (pic too short)' + $at_quiet $ECHO_N " 18: Move to alnum EDITED (pic too short) $ECHO_C" + at_xfail=no + ( + echo "18. pic-x.at:181: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3049,49 +2238,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:195: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:195" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Value size exceeds data size +$at_traceoff +echo "pic-x.at:195: \${COMPILE} -x prog.cob" +echo pic-x.at:195 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size prog.cob:6: Warning: 'F0' defined here as PIC XX/XXBXX0 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:195" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:199: ./prog" -at_fn_check_prepare_trace "pic-x.at:199" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "/{ 0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:199" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_18 -#AT_START_19 -at_fn_group_banner 19 'pic-x.at:203' \ - "Move to alnum EDITED (pic too long)" " " -at_xfail=no -( - $as_echo "19. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:195: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:199: ./prog" +echo pic-x.at:199 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "/{ 0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:199: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 19 ) # 19. pic-x.at:203: Move to alnum EDITED (pic too long) + at_setup_line='pic-x.at:203' + at_desc='Move to alnum EDITED (pic too long)' + $at_quiet $ECHO_N " 19: Move to alnum EDITED (pic too long) $ECHO_C" + at_xfail=no + ( + echo "19. pic-x.at:203: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3108,46 +2321,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:217: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:217" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:217" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:218: ./prog" -at_fn_check_prepare_trace "pic-x.at:218" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "/{ 0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:218" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_19 -#AT_START_20 -at_fn_group_banner 20 'pic-x.at:222' \ - "Move to alnum EDITED (No char break)" " " -at_xfail=no -( - $as_echo "20. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:217: \${COMPILE} -x prog.cob" +echo pic-x.at:217 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:217: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:218: ./prog" +echo pic-x.at:218 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "/{ 0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:218: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 20 ) # 20. pic-x.at:222: Move to alnum EDITED (No char break) + at_setup_line='pic-x.at:222' + at_desc='Move to alnum EDITED (No char break)' + $at_quiet $ECHO_N " 20: Move to alnum EDITED (No char break) $ECHO_C" + at_xfail=no + ( + echo "20. pic-x.at:222: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3164,46 +2402,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:236: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:236" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:236" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:237: ./prog" -at_fn_check_prepare_trace "pic-x.at:237" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " {" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:237" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_20 -#AT_START_21 -at_fn_group_banner 21 'pic-x.at:241' \ - "Move to alnum EDITED (char break & junk chars)" " " -at_xfail=no -( - $as_echo "21. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:236: \${COMPILE} -x prog.cob" +echo pic-x.at:236 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:236: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:237: ./prog" +echo pic-x.at:237 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " {" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:237: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 21 ) # 21. pic-x.at:241: Move to alnum EDITED (char break & junk chars) + at_setup_line='pic-x.at:241' + at_desc='Move to alnum EDITED (char break & junk chars)' + $at_quiet $ECHO_N " 21: Move to alnum EDITED (char break & junk chars)$ECHO_C" + at_xfail=no + ( + echo "21. pic-x.at:241: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3220,47 +2483,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:255: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:255" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:255" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:256: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-x.at:256" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 2093 96fa 007b -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:256" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_21 -#AT_START_22 -at_fn_group_banner 22 'pic-x.at:261' \ - "Move group to group in bad alignment" " " -at_xfail=no -( - $as_echo "22. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:255: \${COMPILE} -x prog.cob" +echo pic-x.at:255 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:255: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:256: ./prog | od -x -An" +echo pic-x.at:256 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 2093 96fa 007b +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:256: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 22 ) # 22. pic-x.at:261: Move group to group in bad alignment + at_setup_line='pic-x.at:261' + at_desc='Move group to group in bad alignment' + $at_quiet $ECHO_N " 22: Move group to group in bad alignment $ECHO_C" + at_xfail=no + ( + echo "22. pic-x.at:261: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3282,47 +2570,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:280: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:280" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:280" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:281: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-x.at:281" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " fa93 0096 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:281" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_22 -#AT_START_23 -at_fn_group_banner 23 'pic-x.at:286' \ - "Redifinition breaking char pos." " " -at_xfail=no -( - $as_echo "23. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:280: \${COMPILE} -x prog.cob" +echo pic-x.at:280 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:280: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:281: ./prog | od -x -An" +echo pic-x.at:281 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " fa93 0096 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:281: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 23 ) # 23. pic-x.at:286: Redifinition breaking char pos. + at_setup_line='pic-x.at:286' + at_desc='Redifinition breaking char pos.' + $at_quiet $ECHO_N " 23: Redifinition breaking char pos. $ECHO_C" + at_xfail=no + ( + echo "23. pic-x.at:286: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3343,47 +2656,153 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:304: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:304" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:304" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:305: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-x.at:305" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " fa93 0096 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:305" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_23 -#AT_START_24 -at_fn_group_banner 24 'pic-x.at:311' \ - "Ref mod(n:)" " " -at_xfail=no -( - $as_echo "24. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:304: \${COMPILE} -x prog.cob" +echo pic-x.at:304 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:304: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:305: ./prog | od -x -An" +echo pic-x.at:305 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " fa93 0096 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:305: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 24 ) # 24. pic-x.at:311: Ref mod(n:) + at_setup_line='pic-x.at:311' + at_desc='Ref mod(n:)' + $at_quiet $ECHO_N " 24: Ref mod(n:) $ECHO_C" + at_xfail=no + ( + echo "24. pic-x.at:311: testing ..." + $at_traceon + + +cat >prog.cob <<'_ATEOF' + + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 F0 PIC X(14). + PROCEDURE DIVISION. + MOVE "{̕" TO F0. + DISPLAY F0(9:) WITH NO ADVANCING. + STOP RUN. +_ATEOF + + +$at_traceoff +echo "pic-x.at:325: \${COMPILE} -x prog.cob" +echo pic-x.at:325 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:325: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:326: ./prog" +echo pic-x.at:326 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:326: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 25 ) # 25. pic-x.at:330: Ref mod(n:m) + at_setup_line='pic-x.at:330' + at_desc='Ref mod(n:m)' + $at_quiet $ECHO_N " 25: Ref mod(n:m) $ECHO_C" + at_xfail=no + ( + echo "25. pic-x.at:330: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3395,107 +2814,76 @@ cat >prog.cob <<'_ATEOF' 01 F0 PIC X(14). PROCEDURE DIVISION. MOVE "{̕" TO F0. - DISPLAY F0(9:) WITH NO ADVANCING. + DISPLAY F0(9:4) WITH NO ADVANCING. STOP RUN. _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:325: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:325" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:325" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:326: ./prog" -at_fn_check_prepare_trace "pic-x.at:326" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:326" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_24 -#AT_START_25 -at_fn_group_banner 25 'pic-x.at:330' \ - "Ref mod(n:m)" " " -at_xfail=no -( - $as_echo "25. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:344: \${COMPILE} -x prog.cob" +echo pic-x.at:344 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:344: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + echo 1 > $at_status_file + exit 1 +fi -cat >prog.cob <<'_ATEOF' +$at_traceon + +$at_traceoff +echo "pic-x.at:345: ./prog" +echo pic-x.at:345 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:345: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(14). - PROCEDURE DIVISION. - MOVE "{̕" TO F0. - DISPLAY F0(9:4) WITH NO ADVANCING. - STOP RUN. -_ATEOF + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/pic-x.at:344: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:344" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:344" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:345: ./prog" -at_fn_check_prepare_trace "pic-x.at:345" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:345" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_25 -#AT_START_26 -at_fn_group_banner 26 'pic-x.at:349' \ - "STRING by size" " " -at_xfail=no -( - $as_echo "26. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 26 ) # 26. pic-x.at:349: STRING by size + at_setup_line='pic-x.at:349' + at_desc='STRING by size' + $at_quiet $ECHO_N " 26: STRING by size $ECHO_C" + at_xfail=no + ( + echo "26. pic-x.at:349: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3516,46 +2904,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:367: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:367" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:367" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:368: ./prog" -at_fn_check_prepare_trace "pic-x.at:368" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "̖O͂܂" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:368" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_26 -#AT_START_27 -at_fn_group_banner 27 'pic-x.at:372' \ - "STRING with delimiter" " " -at_xfail=no -( - $as_echo "27. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:367: \${COMPILE} -x prog.cob" +echo pic-x.at:367 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:367: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:368: ./prog" +echo pic-x.at:368 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "̖O͂܂" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:368: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 27 ) # 27. pic-x.at:372: STRING with delimiter + at_setup_line='pic-x.at:372' + at_desc='STRING with delimiter' + $at_quiet $ECHO_N " 27: STRING with delimiter $ECHO_C" + at_xfail=no + ( + echo "27. pic-x.at:372: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3576,50 +2989,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:390: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:390" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:12: Warning: F0 and '' and FF have not same national type! +$at_traceoff +echo "pic-x.at:390: \${COMPILE} -x prog.cob" +echo pic-x.at:390 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:12: Warning: F0 and '' and FF have not same national type! prog.cob:12: Warning: F1 and '' and FF have not same national type! prog.cob:12: Warning: F2 and '' and FF have not same national type! -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:390" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:395: ./prog" -at_fn_check_prepare_trace "pic-x.at:395" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "̖O" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:395" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_27 -#AT_START_28 -at_fn_group_banner 28 'pic-x.at:399' \ - "STRING with pointer" " " -at_xfail=no -( - $as_echo "28. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:390: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:395: ./prog" +echo pic-x.at:395 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "̖O" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:395: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 28 ) # 28. pic-x.at:399: STRING with pointer + at_setup_line='pic-x.at:399' + at_desc='STRING with pointer' + $at_quiet $ECHO_N " 28: STRING with pointer $ECHO_C" + at_xfail=no + ( + echo "28. pic-x.at:399: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3641,46 +3078,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:418: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:418" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:418" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:419: ./prog" -at_fn_check_prepare_trace "pic-x.at:419" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "܂񎄂̖O" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:419" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_28 -#AT_START_29 -at_fn_group_banner 29 'pic-x.at:423' \ - "INSPECT REPLACING" " " -at_xfail=no -( - $as_echo "29. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:418: \${COMPILE} -x prog.cob" +echo pic-x.at:418 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:418: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:419: ./prog" +echo pic-x.at:419 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "܂񎄂̖O" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:419: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 29 ) # 29. pic-x.at:423: INSPECT REPLACING + at_setup_line='pic-x.at:423' + at_desc='INSPECT REPLACING' + $at_quiet $ECHO_N " 29: INSPECT REPLACING $ECHO_C" + at_xfail=no + ( + echo "29. pic-x.at:423: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3697,46 +3159,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:437: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:437" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:437" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:438: ./prog" -at_fn_check_prepare_trace "pic-x.at:438" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "PQRSOPQRSO" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:438" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_29 -#AT_START_30 -at_fn_group_banner 30 'pic-x.at:442' \ - "INSPECT REPLACING by ZERO" " " -at_xfail=no -( - $as_echo "30. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:437: \${COMPILE} -x prog.cob" +echo pic-x.at:437 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:437: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:438: ./prog" +echo pic-x.at:438 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "PQRSOPQRSO" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:438: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 30 ) # 30. pic-x.at:442: INSPECT REPLACING by ZERO + at_setup_line='pic-x.at:442' + at_desc='INSPECT REPLACING by ZERO' + $at_quiet $ECHO_N " 30: INSPECT REPLACING by ZERO $ECHO_C" + at_xfail=no + ( + echo "30. pic-x.at:442: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3753,46 +3240,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:456: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:456" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:456" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:457: ./prog" -at_fn_check_prepare_trace "pic-x.at:457" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "PQRSOPQRSO" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:457" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_30 -#AT_START_31 -at_fn_group_banner 31 'pic-x.at:461' \ - "INSPECT TALLYING" " " -at_xfail=no -( - $as_echo "31. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:456: \${COMPILE} -x prog.cob" +echo pic-x.at:456 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:456: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:457: ./prog" +echo pic-x.at:457 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "PQRSOPQRSO" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:457: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 31 ) # 31. pic-x.at:461: INSPECT TALLYING + at_setup_line='pic-x.at:461' + at_desc='INSPECT TALLYING' + $at_quiet $ECHO_N " 31: INSPECT TALLYING $ECHO_C" + at_xfail=no + ( + echo "31. pic-x.at:461: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3810,46 +3322,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-x.at:476: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-x.at:476" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:476" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-x.at:477: ./prog" -at_fn_check_prepare_trace "pic-x.at:477" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "02" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-x.at:477" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_31 -#AT_START_32 -at_fn_group_banner 32 'pic-n.at:1' \ - "PIC N Value clause" " " -at_xfail=no -( - $as_echo "32. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-x.at:476: \${COMPILE} -x prog.cob" +echo pic-x.at:476 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:476: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-x.at:477: ./prog" +echo pic-x.at:477 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "02" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-x.at:477: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 32 ) # 32. pic-n.at:1: PIC N Value clause + at_setup_line='pic-n.at:1' + at_desc='PIC N Value clause' + $at_quiet $ECHO_N " 32: PIC N Value clause $ECHO_C" + at_xfail=no + ( + echo "32. pic-n.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3865,46 +3402,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:14: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:14" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:14" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:15: ./prog" -at_fn_check_prepare_trace "pic-n.at:15" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{̕" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:15" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_32 -#AT_START_33 -at_fn_group_banner 33 'pic-n.at:19' \ - "PIC N Move" " " -at_xfail=no -( - $as_echo "33. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:14: \${COMPILE} -x prog.cob" +echo pic-n.at:14 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:14: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:15: ./prog" +echo pic-n.at:15 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{̕" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:15: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 33 ) # 33. pic-n.at:19: PIC N Move + at_setup_line='pic-n.at:19' + at_desc='PIC N Move' + $at_quiet $ECHO_N " 33: PIC N Move $ECHO_C" + at_xfail=no + ( + echo "33. pic-n.at:19: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3921,46 +3483,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:33: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:33" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:33" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:34: ./prog" -at_fn_check_prepare_trace "pic-n.at:34" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{̕" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:34" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_33 -#AT_START_34 -at_fn_group_banner 34 'pic-n.at:38' \ - "PIC N Move with trunc" " " -at_xfail=no -( - $as_echo "34. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:33: \${COMPILE} -x prog.cob" +echo pic-n.at:33 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:33: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:34: ./prog" +echo pic-n.at:34 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{̕" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:34: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 34 ) # 34. pic-n.at:38: PIC N Move with trunc + at_setup_line='pic-n.at:38' + at_desc='PIC N Move with trunc' + $at_quiet $ECHO_N " 34: PIC N Move with trunc $ECHO_C" + at_xfail=no + ( + echo "34. pic-n.at:38: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3977,49 +3564,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:52: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:52" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Value size exceeds data size +$at_traceoff +echo "pic-n.at:52: \${COMPILE} -x prog.cob" +echo pic-n.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size prog.cob:6: Warning: 'F0' defined here as PIC N(3) -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:56: ./prog" -at_fn_check_prepare_trace "pic-n.at:56" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:56" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_34 -#AT_START_35 -at_fn_group_banner 35 'pic-n.at:60' \ - "PIC N Move with padding by full-width SPC" " " -at_xfail=no -( - $as_echo "35. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:52: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:56: ./prog" +echo pic-n.at:56 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:56: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 35 ) # 35. pic-n.at:60: PIC N Move with padding by full-width SPC + at_setup_line='pic-n.at:60' + at_desc='PIC N Move with padding by full-width SPC' + $at_quiet $ECHO_N " 35: PIC N Move with padding by full-width SPC $ECHO_C" + at_xfail=no + ( + echo "35. pic-n.at:60: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4036,46 +3647,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:74: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:74" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:74" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:75: ./prog" -at_fn_check_prepare_trace "pic-n.at:75" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{̕@@" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:75" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_35 -#AT_START_36 -at_fn_group_banner 36 'pic-n.at:79' \ - "PIC N Move with justify" " " -at_xfail=no -( - $as_echo "36. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:74: \${COMPILE} -x prog.cob" +echo pic-n.at:74 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:74: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:75: ./prog" +echo pic-n.at:75 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{̕@@" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:75: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 36 ) # 36. pic-n.at:79: PIC N Move with justify + at_setup_line='pic-n.at:79' + at_desc='PIC N Move with justify' + $at_quiet $ECHO_N " 36: PIC N Move with justify $ECHO_C" + at_xfail=no + ( + echo "36. pic-n.at:79: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4092,46 +3728,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:93: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:93" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:93" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:94: ./prog" -at_fn_check_prepare_trace "pic-n.at:94" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "@@{̕" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:94" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_36 -#AT_START_37 -at_fn_group_banner 37 'pic-n.at:98' \ - "PIC N Move to NATIONAL EDITED" " " -at_xfail=no -( - $as_echo "37. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:93: \${COMPILE} -x prog.cob" +echo pic-n.at:93 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:93: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:94: ./prog" +echo pic-n.at:94 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "@@{̕" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:94: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 37 ) # 37. pic-n.at:98: PIC N Move to NATIONAL EDITED + at_setup_line='pic-n.at:98' + at_desc='PIC N Move to NATIONAL EDITED' + $at_quiet $ECHO_N " 37: PIC N Move to NATIONAL EDITED $ECHO_C" + at_xfail=no + ( + echo "37. pic-n.at:98: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4148,46 +3809,152 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:112: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:112" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:112" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:113: ./prog" -at_fn_check_prepare_trace "pic-n.at:113" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{^@O" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:113" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_37 -#AT_START_38 -at_fn_group_banner 38 'pic-n.at:117' \ - "PIC N Move with half-width alnum conv." " " -at_xfail=no -( - $as_echo "38. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:112: \${COMPILE} -x prog.cob" +echo pic-n.at:112 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:112: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:113: ./prog" +echo pic-n.at:113 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{^@O" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:113: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 38 ) # 38. pic-n.at:117: PIC N Move with half-width alnum conv. + at_setup_line='pic-n.at:117' + at_desc='PIC N Move with half-width alnum conv.' + $at_quiet $ECHO_N " 38: PIC N Move with half-width alnum conv. $ECHO_C" + at_xfail=no + ( + echo "38. pic-n.at:117: testing ..." + $at_traceon + + +cat >prog.cob <<'_ATEOF' + + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 F0 PIC N(7). + PROCEDURE DIVISION. + MOVE "ABC0123" TO F0. + DISPLAY F0 WITH NO ADVANCING. + STOP RUN. +_ATEOF + + +$at_traceoff +echo "pic-n.at:131: \${COMPILE} -x prog.cob" +echo pic-n.at:131 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:131: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:132: ./prog" +echo pic-n.at:132 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "\`abOPQR" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:132: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 39 ) # 39. pic-n.at:136: PIC N Move with half-width kana conv. + at_setup_line='pic-n.at:136' + at_desc='PIC N Move with half-width kana conv.' + $at_quiet $ECHO_N " 39: PIC N Move with half-width kana conv. $ECHO_C" + at_xfail=no + ( + echo "39. pic-n.at:136: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4198,109 +3965,78 @@ cat >prog.cob <<'_ATEOF' WORKING-STORAGE SECTION. 01 F0 PIC N(7). PROCEDURE DIVISION. - MOVE "ABC0123" TO F0. + MOVE "޺˰" TO F0. DISPLAY F0 WITH NO ADVANCING. STOP RUN. _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:131: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:131" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:131" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:132: ./prog" -at_fn_check_prepare_trace "pic-n.at:132" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "\`abOPQR" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:132" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_38 -#AT_START_39 -at_fn_group_banner 39 'pic-n.at:136' \ - "PIC N Move with half-width kana conv." " " -at_xfail=no -( - $as_echo "39. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:150: \${COMPILE} -x prog.cob" +echo pic-n.at:150 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:150: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + echo 1 > $at_status_file + exit 1 +fi -cat >prog.cob <<'_ATEOF' +$at_traceon + +$at_traceoff +echo "pic-n.at:151: ./prog | od -x -An" +echo pic-n.at:151 >$at_check_line_file +( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 5283 8183 5f83 5283 5b81 7183 5b81 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:151: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "޺˰" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/pic-n.at:150: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:150" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:150" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:151: ./prog | od -x -An" -at_fn_check_prepare_notrace 'a shell pipeline' "pic-n.at:151" -( $at_check_trace; ./prog | od -x -An -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 5283 8183 5f83 5283 5b81 7183 5b81 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:151" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_39 -#AT_START_40 -at_fn_group_banner 40 'pic-n.at:156' \ - "PIC N Ref mod(n:)" " " -at_xfail=no -( - $as_echo "40. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 40 ) # 40. pic-n.at:156: PIC N Ref mod(n:) + at_setup_line='pic-n.at:156' + at_desc='PIC N Ref mod(n:)' + $at_quiet $ECHO_N " 40: PIC N Ref mod(n:) $ECHO_C" + at_xfail=no + ( + echo "40. pic-n.at:156: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4317,46 +4053,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:170: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:170" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:170" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:171: ./prog" -at_fn_check_prepare_trace "pic-n.at:171" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:171" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_40 -#AT_START_41 -at_fn_group_banner 41 'pic-n.at:175' \ - "PIC N Ref mod(n:m)" " " -at_xfail=no -( - $as_echo "41. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:170: \${COMPILE} -x prog.cob" +echo pic-n.at:170 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:170: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:171: ./prog" +echo pic-n.at:171 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:171: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 41 ) # 41. pic-n.at:175: PIC N Ref mod(n:m) + at_setup_line='pic-n.at:175' + at_desc='PIC N Ref mod(n:m)' + $at_quiet $ECHO_N " 41: PIC N Ref mod(n:m) $ECHO_C" + at_xfail=no + ( + echo "41. pic-n.at:175: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4373,46 +4134,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:189: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:189" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:189" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:190: ./prog" -at_fn_check_prepare_trace "pic-n.at:190" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:190" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_41 -#AT_START_42 -at_fn_group_banner 42 'pic-n.at:194' \ - "PIC N STRING by size" " " -at_xfail=no -( - $as_echo "42. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:189: \${COMPILE} -x prog.cob" +echo pic-n.at:189 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:189: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:190: ./prog" +echo pic-n.at:190 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:190: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 42 ) # 42. pic-n.at:194: PIC N STRING by size + at_setup_line='pic-n.at:194' + at_desc='PIC N STRING by size' + $at_quiet $ECHO_N " 42: PIC N STRING by size $ECHO_C" + at_xfail=no + ( + echo "42. pic-n.at:194: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4433,46 +4219,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:212: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:212" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:212" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:213: ./prog" -at_fn_check_prepare_trace "pic-n.at:213" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "̖O͂܂" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:213" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_42 -#AT_START_43 -at_fn_group_banner 43 'pic-n.at:217' \ - "PIC N STRING with delimiter (causes warn)" " " -at_xfail=no -( - $as_echo "43. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:212: \${COMPILE} -x prog.cob" +echo pic-n.at:212 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:212: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:213: ./prog" +echo pic-n.at:213 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "̖O͂܂" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:213: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 43 ) # 43. pic-n.at:217: PIC N STRING with delimiter (causes warn) + at_setup_line='pic-n.at:217' + at_desc='PIC N STRING with delimiter (causes warn)' + $at_quiet $ECHO_N " 43: PIC N STRING with delimiter (causes warn) $ECHO_C" + at_xfail=no + ( + echo "43. pic-n.at:217: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4493,46 +4304,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:235: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:235" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:235" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:236: ./prog" -at_fn_check_prepare_trace "pic-n.at:236" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "̖O" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:236" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_43 -#AT_START_44 -at_fn_group_banner 44 'pic-n.at:240' \ - "PIC N STRING with NATIONAL delimiter" " " -at_xfail=no -( - $as_echo "44. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:235: \${COMPILE} -x prog.cob" +echo pic-n.at:235 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:235: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:236: ./prog" +echo pic-n.at:236 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "̖O" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:236: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 44 ) # 44. pic-n.at:240: PIC N STRING with NATIONAL delimiter + at_setup_line='pic-n.at:240' + at_desc='PIC N STRING with NATIONAL delimiter' + $at_quiet $ECHO_N " 44: PIC N STRING with NATIONAL delimiter $ECHO_C" + at_xfail=no + ( + echo "44. pic-n.at:240: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4553,37 +4389,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:258: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:258" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Error: 'N' undefined +$at_traceoff +echo "pic-n.at:258: \${COMPILE} -x prog.cob" +echo pic-n.at:258 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Error: 'N' undefined prog.cob:12: Warning: F0 and and FF have not same national type! prog.cob:12: Warning: F1 and and FF have not same national type! prog.cob:12: Warning: F2 and and FF have not same national type! -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/pic-n.at:258" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_44 -#AT_START_45 -at_fn_group_banner 45 'pic-n.at:267' \ - "PIC N STRING with pointer" " " -at_xfail=no -( - $as_echo "45. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "pic-n.at:258: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 45 ) # 45. pic-n.at:267: PIC N STRING with pointer + at_setup_line='pic-n.at:267' + at_desc='PIC N STRING with pointer' + $at_quiet $ECHO_N " 45: PIC N STRING with pointer $ECHO_C" + at_xfail=no + ( + echo "45. pic-n.at:267: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4605,46 +4454,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:286: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:286" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:286" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:287: ./prog" -at_fn_check_prepare_trace "pic-n.at:287" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "܂񎄂̖O" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:287" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_45 -#AT_START_46 -at_fn_group_banner 46 'pic-n.at:291' \ - "PIC N INSPECT REPLACING" " " -at_xfail=no -( - $as_echo "46. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:286: \${COMPILE} -x prog.cob" +echo pic-n.at:286 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:286: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:287: ./prog" +echo pic-n.at:287 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "܂񎄂̖O" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:287: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 46 ) # 46. pic-n.at:291: PIC N INSPECT REPLACING + at_setup_line='pic-n.at:291' + at_desc='PIC N INSPECT REPLACING' + $at_quiet $ECHO_N " 46: PIC N INSPECT REPLACING $ECHO_C" + at_xfail=no + ( + echo "46. pic-n.at:291: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4661,46 +4535,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:305: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:305" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:305" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:306: ./prog" -at_fn_check_prepare_trace "pic-n.at:306" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "PQRSOPQRSO" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:306" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_46 -#AT_START_47 -at_fn_group_banner 47 'pic-n.at:310' \ - "PIC N INSPECT REPLACING by ZERO" " " -at_xfail=no -( - $as_echo "47. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:305: \${COMPILE} -x prog.cob" +echo pic-n.at:305 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:305: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:306: ./prog" +echo pic-n.at:306 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "PQRSOPQRSO" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:306: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 47 ) # 47. pic-n.at:310: PIC N INSPECT REPLACING by ZERO + at_setup_line='pic-n.at:310' + at_desc='PIC N INSPECT REPLACING by ZERO' + $at_quiet $ECHO_N " 47: PIC N INSPECT REPLACING by ZERO $ECHO_C" + at_xfail=no + ( + echo "47. pic-n.at:310: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4717,46 +4616,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:324: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:324" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:324" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:325: ./prog" -at_fn_check_prepare_trace "pic-n.at:325" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "PQRSOPQRSO" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:325" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_47 -#AT_START_48 -at_fn_group_banner 48 'pic-n.at:329' \ - "PIC N INSPECT REPLACING by NATIONAL ZERO" " " -at_xfail=no -( - $as_echo "48. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:324: \${COMPILE} -x prog.cob" +echo pic-n.at:324 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:324: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:325: ./prog" +echo pic-n.at:325 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "PQRSOPQRSO" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:325: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 48 ) # 48. pic-n.at:329: PIC N INSPECT REPLACING by NATIONAL ZERO + at_setup_line='pic-n.at:329' + at_desc='PIC N INSPECT REPLACING by NATIONAL ZERO' + $at_quiet $ECHO_N " 48: PIC N INSPECT REPLACING by NATIONAL ZERO $ECHO_C" + at_xfail=no + ( + echo "48. pic-n.at:329: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4773,35 +4697,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:343: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:343" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: 'N' undefined +$at_traceoff +echo "pic-n.at:343: \${COMPILE} -x prog.cob" +echo pic-n.at:343 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: 'N' undefined prog.cob:8: Error: syntax error, unexpected Literal, expecting BY -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/pic-n.at:343" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_48 -#AT_START_49 -at_fn_group_banner 49 'pic-n.at:350' \ - "PIC N INSPECT TALLYING" " " -at_xfail=no -( - $as_echo "49. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "pic-n.at:343: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 49 ) # 49. pic-n.at:350: PIC N INSPECT TALLYING + at_setup_line='pic-n.at:350' + at_desc='PIC N INSPECT TALLYING' + $at_quiet $ECHO_N " 49: PIC N INSPECT TALLYING $ECHO_C" + at_xfail=no + ( + echo "49. pic-n.at:350: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4819,46 +4756,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:365: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:365" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:365" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:366: ./prog" -at_fn_check_prepare_trace "pic-n.at:366" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "02" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:366" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_49 -#AT_START_50 -at_fn_group_banner 50 'pic-n.at:370' \ - "PIC N Move with half-width dakuten kana." " " -at_xfail=no -( - $as_echo "50. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:365: \${COMPILE} -x prog.cob" +echo pic-n.at:365 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:365: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:366: ./prog" +echo pic-n.at:366 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "02" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:366: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 50 ) # 50. pic-n.at:370: PIC N Move with half-width dakuten kana. + at_setup_line='pic-n.at:370' + at_desc='PIC N Move with half-width dakuten kana.' + $at_quiet $ECHO_N " 50: PIC N Move with half-width dakuten kana. $ECHO_C" + at_xfail=no + ( + echo "50. pic-n.at:370: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4875,46 +4837,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:384: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:384" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:384" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:385: ./prog" -at_fn_check_prepare_trace "pic-n.at:385" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "J_EB\`" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:385" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_50 -#AT_START_51 -at_fn_group_banner 51 'pic-n.at:389' \ - "PIC N Move with half-width han-dakuten kana." " " -at_xfail=no -( - $as_echo "51. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:384: \${COMPILE} -x prog.cob" +echo pic-n.at:384 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:384: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:385: ./prog" +echo pic-n.at:385 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "J_EB\`" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:385: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 51 ) # 51. pic-n.at:389: PIC N Move with half-width han-dakuten kana. + at_setup_line='pic-n.at:389' + at_desc='PIC N Move with half-width han-dakuten kana.' + $at_quiet $ECHO_N " 51: PIC N Move with half-width han-dakuten kana. $ECHO_C" + at_xfail=no + ( + echo "51. pic-n.at:389: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4931,46 +4918,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/pic-n.at:403: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "pic-n.at:403" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:403" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/pic-n.at:404: ./prog" -at_fn_check_prepare_trace "pic-n.at:404" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "K|fO" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/pic-n.at:404" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_51 -#AT_START_52 -at_fn_group_banner 52 'program-id.at:1' \ - "PROGRAM-ID NATIONAL C89 no warning" " " -at_xfail=no -( - $as_echo "52. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "pic-n.at:403: \${COMPILE} -x prog.cob" +echo pic-n.at:403 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:403: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "pic-n.at:404: ./prog" +echo pic-n.at:404 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "K|fO" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "pic-n.at:404: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 52 ) # 52. program-id.at:1: PROGRAM-ID NATIONAL C89 no warning + at_setup_line='program-id.at:1' + at_desc='PROGRAM-ID NATIONAL C89 no warning' + $at_quiet $ECHO_N " 52: PROGRAM-ID NATIONAL C89 no warning $ECHO_C" + at_xfail=no + ( + echo "52. program-id.at:1: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -4990,32 +5002,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/program-id.at:16: \${COMPILE} -conf=test.conf -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "program-id.at:16" -( $at_check_trace; ${COMPILE} -conf=test.conf -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/program-id.at:16" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_52 -#AT_START_53 -at_fn_group_banner 53 'program-id.at:20' \ - "PROGRAM-ID NATIONAL C89 warning" " " -at_xfail=no -( - $as_echo "53. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "program-id.at:16: \${COMPILE} -conf=test.conf -x prog.cob" +echo program-id.at:16 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "program-id.at:16: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 53 ) # 53. program-id.at:20: PROGRAM-ID NATIONAL C89 warning + at_setup_line='program-id.at:20' + at_desc='PROGRAM-ID NATIONAL C89 warning' + $at_quiet $ECHO_N " 53: PROGRAM-ID NATIONAL C89 warning $ECHO_C" + at_xfail=no + ( + echo "53. program-id.at:20: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -5035,35 +5061,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/program-id.at:35: \${COMPILE} -conf=test.conf -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "program-id.at:35" -( $at_check_trace; ${COMPILE} -conf=test.conf -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:3: Warning: PROGRAM-ID length exceeds C89 function name limit +$at_traceoff +echo "program-id.at:35: \${COMPILE} -conf=test.conf -x prog.cob" +echo program-id.at:35 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:3: Warning: PROGRAM-ID length exceeds C89 function name limit prog.cob:6: Warning: PROGRAM-ID length exceeds C89 function name limit -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/program-id.at:35" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_53 -#AT_START_54 -at_fn_group_banner 54 'program-id.at:42' \ - "PROGRAM-ID NATIONAL C89 ignore" " " -at_xfail=no -( - $as_echo "54. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "program-id.at:35: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 54 ) # 54. program-id.at:42: PROGRAM-ID NATIONAL C89 ignore + at_setup_line='program-id.at:42' + at_desc='PROGRAM-ID NATIONAL C89 ignore' + $at_quiet $ECHO_N " 54: PROGRAM-ID NATIONAL C89 ignore $ECHO_C" + at_xfail=no + ( + echo "54. program-id.at:42: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5076,32 +5115,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/program-id.at:52: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "program-id.at:52" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/program-id.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_54 -#AT_START_55 -at_fn_group_banner 55 'program-id.at:56' \ - "PROGRAM-ID NATIONAL 32 character no over" " " -at_xfail=no -( - $as_echo "55. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "program-id.at:52: \${COMPILE} -x prog.cob" +echo program-id.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "program-id.at:52: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 55 ) # 55. program-id.at:56: PROGRAM-ID NATIONAL 32 character no over + at_setup_line='program-id.at:56' + at_desc='PROGRAM-ID NATIONAL 32 character no over' + $at_quiet $ECHO_N " 55: PROGRAM-ID NATIONAL 32 character no over $ECHO_C" + at_xfail=no + ( + echo "55. program-id.at:56: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5115,32 +5168,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/program-id.at:67: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "program-id.at:67" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/program-id.at:67" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_55 -#AT_START_56 -at_fn_group_banner 56 'program-id.at:71' \ - "PROGRAM-ID NATIONAL 32 character over" " " -at_xfail=no -( - $as_echo "56. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "program-id.at:67: \${COMPILE} -x prog.cob" +echo program-id.at:67 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "program-id.at:67: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 56 ) # 56. program-id.at:71: PROGRAM-ID NATIONAL 32 character over + at_setup_line='program-id.at:71' + at_desc='PROGRAM-ID NATIONAL 32 character over' + $at_quiet $ECHO_N " 56: PROGRAM-ID NATIONAL 32 character over $ECHO_C" + at_xfail=no + ( + echo "56. program-id.at:71: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5154,34 +5221,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/program-id.at:82: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "program-id.at:82" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:3: Error: User defined name must be less than 32 characters -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/program-id.at:82" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_56 -#AT_START_57 -at_fn_group_banner 57 'error-print.at:1' \ - "undefined not message" " " -at_xfail=no -( - $as_echo "57. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "program-id.at:82: \${COMPILE} -x prog.cob" +echo program-id.at:82 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:3: Error: User defined name must be less than 32 characters +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "program-id.at:82: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 57 ) # 57. error-print.at:1: undefined not message + at_setup_line='error-print.at:1' + at_desc='undefined not message' + $at_quiet $ECHO_N " 57: undefined not message $ECHO_C" + at_xfail=no + ( + echo "57. error-print.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5201,34 +5281,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/error-print.at:18: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "error-print.at:18" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: Size of '|OR' larger than size of 'wk-02' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/error-print.at:18" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_57 -#AT_START_58 -at_fn_group_banner 58 'error-print.at:24' \ - "Encoding alphanumeric name item" " " -at_xfail=no -( - $as_echo "58. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "error-print.at:18: \${COMPILE} -x prog.cob" +echo error-print.at:18 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: Size of '|OR' larger than size of 'wk-02' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "error-print.at:18: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 58 ) # 58. error-print.at:24: Encoding alphanumeric name item + at_setup_line='error-print.at:24' + at_desc='Encoding alphanumeric name item' + $at_quiet $ECHO_N " 58: Encoding alphanumeric name item $ECHO_C" + at_xfail=no + ( + echo "58. error-print.at:24: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5242,34 +5335,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/error-print.at:35: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "error-print.at:35" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: 'A___82A0___A' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/error-print.at:35" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_58 -#AT_START_59 -at_fn_group_banner 59 'error-print.at:41' \ - "Encoding national name item" " " -at_xfail=no -( - $as_echo "59. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "error-print.at:35: \${COMPILE} -x prog.cob" +echo error-print.at:35 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: 'A___82A0___A' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "error-print.at:35: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 59 ) # 59. error-print.at:41: Encoding national name item + at_setup_line='error-print.at:41' + at_desc='Encoding national name item' + $at_quiet $ECHO_N " 59: Encoding national name item $ECHO_C" + at_xfail=no + ( + echo "59. error-print.at:41: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5283,34 +5389,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/error-print.at:52: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "error-print.at:52" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: 'A______A' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/error-print.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_59 -#AT_START_60 -at_fn_group_banner 60 'limits.at:1' \ - "Field length limit PIC A/VALID" " " -at_xfail=no -( - $as_echo "60. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "error-print.at:52: \${COMPILE} -x prog.cob" +echo error-print.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: 'A______A' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "error-print.at:52: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 60 ) # 60. limits.at:1: Field length limit PIC A/VALID + at_setup_line='limits.at:1' + at_desc='Field length limit PIC A/VALID' + $at_quiet $ECHO_N " 60: Field length limit PIC A/VALID $ECHO_C" + at_xfail=no + ( + echo "60. limits.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5325,32 +5444,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:13: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:13" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:13" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_60 -#AT_START_61 -at_fn_group_banner 61 'limits.at:17' \ - "Field length limit PIC A/TOO LONG" " " -at_xfail=no -( - $as_echo "61. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:13: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:13 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:13: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 61 ) # 61. limits.at:17: Field length limit PIC A/TOO LONG + at_setup_line='limits.at:17' + at_desc='Field length limit PIC A/TOO LONG' + $at_quiet $ECHO_N " 61: Field length limit PIC A/TOO LONG $ECHO_C" + at_xfail=no + ( + echo "61. limits.at:17: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5365,34 +5498,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:29: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:29" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: Alphabetic field cannot be larger than 16777216 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:29" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_61 -#AT_START_62 -at_fn_group_banner 62 'limits.at:35' \ - "Field length limit PIC X/VALID" " " -at_xfail=no -( - $as_echo "62. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:29: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:29 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: Alphabetic field cannot be larger than 16777216 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:29: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 62 ) # 62. limits.at:35: Field length limit PIC X/VALID + at_setup_line='limits.at:35' + at_desc='Field length limit PIC X/VALID' + $at_quiet $ECHO_N " 62: Field length limit PIC X/VALID $ECHO_C" + at_xfail=no + ( + echo "62. limits.at:35: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5407,32 +5553,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:47: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:47" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:47" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_62 -#AT_START_63 -at_fn_group_banner 63 'limits.at:51' \ - "Field length limit PIC X/TOO LONG" " " -at_xfail=no -( - $as_echo "63. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:47: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:47 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:47: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 63 ) # 63. limits.at:51: Field length limit PIC X/TOO LONG + at_setup_line='limits.at:51' + at_desc='Field length limit PIC X/TOO LONG' + $at_quiet $ECHO_N " 63: Field length limit PIC X/TOO LONG $ECHO_C" + at_xfail=no + ( + echo "63. limits.at:51: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5447,34 +5607,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:63: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:63" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: AlphaNumeric field cannot be larger than 16777216 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:63" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_63 -#AT_START_64 -at_fn_group_banner 64 'limits.at:69' \ - "Field length limit PIC B9/VALID" " " -at_xfail=no -( - $as_echo "64. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:63: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:63 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumeric field cannot be larger than 16777216 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:63: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 64 ) # 64. limits.at:69: Field length limit PIC B9/VALID + at_setup_line='limits.at:69' + at_desc='Field length limit PIC B9/VALID' + $at_quiet $ECHO_N " 64: Field length limit PIC B9/VALID $ECHO_C" + at_xfail=no + ( + echo "64. limits.at:69: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5489,32 +5662,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:81: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:81" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:81" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_64 -#AT_START_65 -at_fn_group_banner 65 'limits.at:85' \ - "Field length limit PIC B9/TOO LONG" " " -at_xfail=no -( - $as_echo "65. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:81: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:81 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:81: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 65 ) # 65. limits.at:85: Field length limit PIC B9/TOO LONG + at_setup_line='limits.at:85' + at_desc='Field length limit PIC B9/TOO LONG' + $at_quiet $ECHO_N " 65: Field length limit PIC B9/TOO LONG $ECHO_C" + at_xfail=no + ( + echo "65. limits.at:85: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5529,34 +5716,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:97: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:97" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: NumericEdit field cannot be larger than 160 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:97" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_65 -#AT_START_66 -at_fn_group_banner 66 'limits.at:103' \ - "Field length limit PIC B/VALID" " " -at_xfail=no -( - $as_echo "66. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:97: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:97 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: NumericEdit field cannot be larger than 160 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:97: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 66 ) # 66. limits.at:103: Field length limit PIC B/VALID + at_setup_line='limits.at:103' + at_desc='Field length limit PIC B/VALID' + $at_quiet $ECHO_N " 66: Field length limit PIC B/VALID $ECHO_C" + at_xfail=no + ( + echo "66. limits.at:103: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5571,32 +5771,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:115: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:115" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:115" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_66 -#AT_START_67 -at_fn_group_banner 67 'limits.at:119' \ - "Field length limit PIC B/TOO LONG" " " -at_xfail=no -( - $as_echo "67. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:115: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:115 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:115: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 67 ) # 67. limits.at:119: Field length limit PIC B/TOO LONG + at_setup_line='limits.at:119' + at_desc='Field length limit PIC B/TOO LONG' + $at_quiet $ECHO_N " 67: Field length limit PIC B/TOO LONG $ECHO_C" + at_xfail=no + ( + echo "67. limits.at:119: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5611,34 +5825,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:131: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:131" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:131" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_67 -#AT_START_68 -at_fn_group_banner 68 'limits.at:137' \ - "Field length limit PIC BA/VALID" " " -at_xfail=no -( - $as_echo "68. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:131: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:131 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:131: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 68 ) # 68. limits.at:137: Field length limit PIC BA/VALID + at_setup_line='limits.at:137' + at_desc='Field length limit PIC BA/VALID' + $at_quiet $ECHO_N " 68: Field length limit PIC BA/VALID $ECHO_C" + at_xfail=no + ( + echo "68. limits.at:137: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5653,32 +5880,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:149: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:149" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:149" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_68 -#AT_START_69 -at_fn_group_banner 69 'limits.at:153' \ - "Field length limit PIC BA/TOO LONG" " " -at_xfail=no -( - $as_echo "69. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:149: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:149 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:149: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 69 ) # 69. limits.at:153: Field length limit PIC BA/TOO LONG + at_setup_line='limits.at:153' + at_desc='Field length limit PIC BA/TOO LONG' + $at_quiet $ECHO_N " 69: Field length limit PIC BA/TOO LONG $ECHO_C" + at_xfail=no + ( + echo "69. limits.at:153: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5693,34 +5934,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:165: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:165" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:165" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_69 -#AT_START_70 -at_fn_group_banner 70 'limits.at:171' \ - "Field length limit PIC BX/VALID" " " -at_xfail=no -( - $as_echo "70. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:165: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:165 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:165: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 70 ) # 70. limits.at:171: Field length limit PIC BX/VALID + at_setup_line='limits.at:171' + at_desc='Field length limit PIC BX/VALID' + $at_quiet $ECHO_N " 70: Field length limit PIC BX/VALID $ECHO_C" + at_xfail=no + ( + echo "70. limits.at:171: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5735,32 +5989,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:183: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:183" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:183" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_70 -#AT_START_71 -at_fn_group_banner 71 'limits.at:187' \ - "Field length limit PIC BX/TOO LONG" " " -at_xfail=no -( - $as_echo "71. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:183: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:183 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:183: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 71 ) # 71. limits.at:187: Field length limit PIC BX/TOO LONG + at_setup_line='limits.at:187' + at_desc='Field length limit PIC BX/TOO LONG' + $at_quiet $ECHO_N " 71: Field length limit PIC BX/TOO LONG $ECHO_C" + at_xfail=no + ( + echo "71. limits.at:187: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5775,34 +6043,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:199: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:199" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:199" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_71 -#AT_START_72 -at_fn_group_banner 72 'limits.at:205' \ - "Field length limit PIC N/VALID (SJIS)" " " -at_xfail=no -( - $as_echo "72. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:199: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:199 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:199: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 72 ) # 72. limits.at:205: Field length limit PIC N/VALID (SJIS) + at_setup_line='limits.at:205' + at_desc='Field length limit PIC N/VALID (SJIS)' + $at_quiet $ECHO_N " 72: Field length limit PIC N/VALID (SJIS) $ECHO_C" + at_xfail=no + ( + echo "72. limits.at:205: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5817,32 +6098,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:217: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:217" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:217" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_72 -#AT_START_73 -at_fn_group_banner 73 'limits.at:221' \ - "Field length limit PIC N/TOO LONG (SJIS)" " " -at_xfail=no -( - $as_echo "73. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:217: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:217 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:217: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 73 ) # 73. limits.at:221: Field length limit PIC N/TOO LONG (SJIS) + at_setup_line='limits.at:221' + at_desc='Field length limit PIC N/TOO LONG (SJIS)' + $at_quiet $ECHO_N " 73: Field length limit PIC N/TOO LONG (SJIS) $ECHO_C" + at_xfail=no + ( + echo "73. limits.at:221: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5857,34 +6152,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:233: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:233" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: National field cannot be larger than 8388608 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:233" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_73 -#AT_START_74 -at_fn_group_banner 74 'limits.at:239' \ - "Field length limit PIC BN/VALID (SJIS)" " " -at_xfail=no -( - $as_echo "74. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:233: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:233 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: National field cannot be larger than 8388608 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:233: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 74 ) # 74. limits.at:239: Field length limit PIC BN/VALID (SJIS) + at_setup_line='limits.at:239' + at_desc='Field length limit PIC BN/VALID (SJIS)' + $at_quiet $ECHO_N " 74: Field length limit PIC BN/VALID (SJIS) $ECHO_C" + at_xfail=no + ( + echo "74. limits.at:239: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5899,32 +6207,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:251: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:251" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/limits.at:251" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_74 -#AT_START_75 -at_fn_group_banner 75 'limits.at:255' \ - "Field length limit PIC BN/TOO LONG (SJIS)" " " -at_xfail=no -( - $as_echo "75. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:251: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:251 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "limits.at:251: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 75 ) # 75. limits.at:255: Field length limit PIC BN/TOO LONG (SJIS) + at_setup_line='limits.at:255' + at_desc='Field length limit PIC BN/TOO LONG (SJIS)' + $at_quiet $ECHO_N " 75: Field length limit PIC BN/TOO LONG (SJIS) $ECHO_C" + at_xfail=no + ( + echo "75. limits.at:255: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5939,34 +6261,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/limits.at:267: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "limits.at:267" -( $at_check_trace; ${COMPILE_LIMIT_TEST} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: NationalEdit field cannot be larger than 8388608 digits -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/limits.at:267" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_75 -#AT_START_76 -at_fn_group_banner 76 'national.at:1' \ - "FUNCTION NATIONAL single-byte" " " -at_xfail=no -( - $as_echo "76. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "limits.at:267: \${COMPILE_LIMIT_TEST} -o prog prog.cob" +echo limits.at:267 >$at_check_line_file +( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: NationalEdit field cannot be larger than 8388608 digits +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "limits.at:267: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 76 ) # 76. national.at:1: FUNCTION NATIONAL single-byte + at_setup_line='national.at:1' + at_desc='FUNCTION NATIONAL single-byte' + $at_quiet $ECHO_N " 76: FUNCTION NATIONAL single-byte $ECHO_C" + at_xfail=no + ( + echo "76. national.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5985,46 +6320,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:17: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:17" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:17" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:18: ./prog" -at_fn_check_prepare_trace "national.at:18" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "\`abcy" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:18" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_76 -#AT_START_77 -at_fn_group_banner 77 'national.at:22' \ - "FUNCTION NATIONAL multi-byte" " " -at_xfail=no -( - $as_echo "77. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "national.at:17: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:17 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:17: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:18: ./prog" +echo national.at:18 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "\`abcy" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:18: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 77 ) # 77. national.at:22: FUNCTION NATIONAL multi-byte + at_setup_line='national.at:22' + at_desc='FUNCTION NATIONAL multi-byte' + $at_quiet $ECHO_N " 77: FUNCTION NATIONAL multi-byte $ECHO_C" + at_xfail=no + ( + echo "77. national.at:22: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6043,46 +6403,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:38: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:38" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:38" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:39: ./prog" -at_fn_check_prepare_trace "national.at:39" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "\`abPQR" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:39" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_77 -#AT_START_78 -at_fn_group_banner 78 'national.at:43' \ - "FUNCTION NATIONAL KIGOU-exclamation" " " -at_xfail=no -( - $as_echo "78. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "national.at:38: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:38 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:38: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:39: ./prog" +echo national.at:39 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "\`abPQR" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:39: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 78 ) # 78. national.at:43: FUNCTION NATIONAL KIGOU-exclamation + at_setup_line='national.at:43' + at_desc='FUNCTION NATIONAL KIGOU-exclamation' + $at_quiet $ECHO_N " 78: FUNCTION NATIONAL KIGOU-exclamation $ECHO_C" + at_xfail=no + ( + echo "78. national.at:43: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6101,46 +6486,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:59: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:59" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:59" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:60: ./prog" -at_fn_check_prepare_trace "national.at:60" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "IIIII" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:60" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_78 -#AT_START_79 -at_fn_group_banner 79 'national.at:64' \ - "FUNCTION NATIONAL KIGOU-yen" " " -at_xfail=no -( - $as_echo "79. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "national.at:59: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:59 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:59: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:60: ./prog" +echo national.at:60 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "IIIII" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:60: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 79 ) # 79. national.at:64: FUNCTION NATIONAL KIGOU-yen + at_setup_line='national.at:64' + at_desc='FUNCTION NATIONAL KIGOU-yen' + $at_quiet $ECHO_N " 79: FUNCTION NATIONAL KIGOU-yen $ECHO_C" + at_xfail=no + ( + echo "79. national.at:64: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6159,46 +6569,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:80: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:80" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:80" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:81: ./prog" -at_fn_check_prepare_trace "national.at:81" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:81" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_79 -#AT_START_80 -at_fn_group_banner 80 'national.at:85' \ - "FUNCTION NATIONAL KIGOU-plus" " " -at_xfail=no -( - $as_echo "80. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "national.at:80: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:80 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:80: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:81: ./prog" +echo national.at:81 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:81: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 80 ) # 80. national.at:85: FUNCTION NATIONAL KIGOU-plus + at_setup_line='national.at:85' + at_desc='FUNCTION NATIONAL KIGOU-plus' + $at_quiet $ECHO_N " 80: FUNCTION NATIONAL KIGOU-plus $ECHO_C" + at_xfail=no + ( + echo "80. national.at:85: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6217,46 +6652,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:101: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:101" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:101" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:102: ./prog" -at_fn_check_prepare_trace "national.at:102" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "{@ " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:102" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_80 -#AT_START_81 -at_fn_group_banner 81 'national.at:106' \ - "FUNCTION NATIONAL (HanKana w/ Daku-on)" " " -at_xfail=no -( - $as_echo "81. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "national.at:101: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:101 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:101: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:102: ./prog" +echo national.at:102 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "{@ " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:102: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 81 ) # 81. national.at:106: FUNCTION NATIONAL (HanKana w/ Daku-on) + at_setup_line='national.at:106' + at_desc='FUNCTION NATIONAL (HanKana w/ Daku-on)' + $at_quiet $ECHO_N " 81: FUNCTION NATIONAL (HanKana w/ Daku-on) $ECHO_C" + at_xfail=no + ( + echo "81. national.at:106: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6275,46 +6735,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:122: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:122" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:122" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:123: ./prog" -at_fn_check_prepare_trace "national.at:123" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "fBKK@@@" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:123" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_81 -#AT_START_82 -at_fn_group_banner 82 'national.at:127' \ - "FUNCTION NATIONAL (HanKana w/ Han-daku-on)" " " -at_xfail=no -( - $as_echo "82. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "national.at:122: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:122 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:122: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:123: ./prog" +echo national.at:123 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "fBKK@@@" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:123: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 82 ) # 82. national.at:127: FUNCTION NATIONAL (HanKana w/ Han-daku-on) + at_setup_line='national.at:127' + at_desc='FUNCTION NATIONAL (HanKana w/ Han-daku-on)' + $at_quiet $ECHO_N " 82: FUNCTION NATIONAL (HanKana w/ Han-daku-on) $ECHO_C" + at_xfail=no + ( + echo "82. national.at:127: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6333,36 +6818,342 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/national.at:143: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "national.at:143" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:143" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/national.at:144: ./prog" -at_fn_check_prepare_trace "national.at:144" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "|s@@" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/national.at:144" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_82 +$at_traceoff +echo "national.at:143: \${COMPILE_JP_COMPAT} -x prog.cob" +echo national.at:143 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:143: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "national.at:144: ./prog" +echo national.at:144 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "|s@@" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "national.at:144: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + + * ) + echo "$as_me: no such test group: $at_group" >&2 + continue + ;; + esac + + # Be sure to come back to the suite directory, in particular + # since below we might `rm' the group directory we are in currently. + cd $at_suite_dir + + case $at_group in + banner-*) ;; + *) + if test ! -f $at_check_line_file; then + sed "s/^ */$as_me: warning: /" <<_ATEOF + A failure happened in a test group before any test could be + run. This means that test suite is improperly designed. Please + report this failure to . +_ATEOF + echo "$at_setup_line" >$at_check_line_file + fi + at_group_count=`expr 1 + $at_group_count` + $at_verbose $ECHO_N "$at_group. $at_setup_line: $ECHO_C" + echo $ECHO_N "$at_group. $at_setup_line: $ECHO_C" >> $at_group_log + case $at_xfail:$at_status in + yes:0) + at_msg="UNEXPECTED PASS" + at_xpass_list="$at_xpass_list $at_group" + at_errexit=$at_errexit_p + ;; + no:0) + at_msg="ok" + at_pass_list="$at_pass_list $at_group" + at_errexit=false + ;; + *:77) + at_msg="skipped (`cat $at_check_line_file`)" + at_skip_list="$at_skip_list $at_group" + at_errexit=false + ;; + yes:*) + at_msg="expected failure (`cat $at_check_line_file`)" + at_xfail_list="$at_xfail_list $at_group" + at_errexit=false + ;; + no:*) + at_msg="FAILED (`cat $at_check_line_file`)" + at_fail_list="$at_fail_list $at_group" + at_errexit=$at_errexit_p + ;; + esac + echo $at_msg + at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" + case $at_status in + 0|77) + # $at_times_file is only available if the group succeeded. + # We're not including the group log, so the success message + # is written in the global log separately. But we also + # write to the group log in case they're using -d. + if test -f $at_times_file; then + at_log_msg="$at_log_msg (`sed 1d $at_times_file`)" + rm -f $at_times_file + fi + echo "$at_log_msg" >> $at_group_log + echo "$at_log_msg" >&5 + + # Cleanup the group directory, unless the user wants the files. + $at_debug_p || rm -rf $at_group_dir + ;; + *) + # Upon failure, include the log into the testsuite's global + # log. The failure message is written in the group log. It + # is later included in the global log. + echo "$at_log_msg" >> $at_group_log + + # Upon failure, keep the group directory for autopsy, and + # create the debugging script. + { + echo "#! /bin/sh" + echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' + echo "cd $at_dir" + echo 'exec ${CONFIG_SHELL-'"$SHELL"'}' "$0" \ + '-v -d' "$at_debug_args" "$at_group" '${1+"$@"}' + echo 'exit 1' + } >$at_group_dir/run + chmod +x $at_group_dir/run + $at_errexit && break + ;; + esac + ;; + esac +done + +# Back to the top directory. +cd $at_dir + +# Compute the duration of the suite. +at_stop_date=`date` +at_stop_time=`(date +%s) 2>/dev/null` +echo "$as_me: ending at: $at_stop_date" >&5 +at_duration_s=`(expr $at_stop_time - $at_start_time) 2>/dev/null` +at_duration_m=`(expr $at_duration_s / 60) 2>/dev/null` +at_duration_h=`(expr $at_duration_m / 60) 2>/dev/null` +at_duration_s=`(expr $at_duration_s % 60) 2>/dev/null` +at_duration_m=`(expr $at_duration_m % 60) 2>/dev/null` +at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" +if test "$at_duration" != "h m s"; then + echo "$as_me: test suite duration: $at_duration" >&5 +fi + +# Wrap up the test suite with summary statistics. +at_skip_count=`set dummy $at_skip_list; shift; echo $#` +at_fail_count=`set dummy $at_fail_list; shift; echo $#` +at_xpass_count=`set dummy $at_xpass_list; shift; echo $#` +at_xfail_count=`set dummy $at_xfail_list; shift; echo $#` + +at_run_count=`expr $at_group_count - $at_skip_count` +at_unexpected_count=`expr $at_xpass_count + $at_fail_count` +at_total_fail_count=`expr $at_xfail_count + $at_fail_count` + +echo +cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX +echo +{ + echo + cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX + echo +} >&5 + +if test $at_run_count = 1; then + at_result="1 test" + at_were=was +else + at_result="$at_run_count tests" + at_were=were +fi +if $at_errexit_p && test $at_unexpected_count != 0; then + if test $at_xpass_count = 1; then + at_result="$at_result $at_were run, one passed" + else + at_result="$at_result $at_were run, one failed" + fi + at_result="$at_result unexpectedly and inhibited subsequent tests." +else + # Don't you just love exponential explosion of the number of cases? + case $at_xpass_count:$at_fail_count:$at_xfail_count in + # So far, so good. + 0:0:0) at_result="$at_result $at_were successful." ;; + 0:0:*) at_result="$at_result behaved as expected." ;; + + # Some unexpected failures + 0:*:0) at_result="$at_result $at_were run, +$at_fail_count failed unexpectedly." ;; + + # Some failures, both expected and unexpected + 0:*:1) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + 0:*:*) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + + # No unexpected failures, but some xpasses + *:0:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly." ;; + + # No expected failures, but failures and xpasses + *:1:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; + *:*:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + + # All of them. + *:*:1) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + *:*:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + esac + + if test $at_skip_count = 0 && test $at_run_count -gt 1; then + at_result="All $at_result" + fi +fi + +# Now put skips in the mix. +case $at_skip_count in + 0) ;; + 1) at_result="$at_result +1 test was skipped." ;; + *) at_result="$at_result +$at_skip_count tests were skipped." ;; +esac + +if test $at_unexpected_count = 0; then + echo "$at_result" + echo "$at_result" >&5 +else + echo "ERROR: $at_result" >&2 + echo "ERROR: $at_result" >&5 + { + echo + cat <<\_ASBOX +## ------------------------ ## +## Summary of the failures. ## +## ------------------------ ## +_ASBOX + + # Summary of failed and skipped tests. + if test $at_fail_count != 0; then + echo "Failed tests:" + $SHELL $0 $at_fail_list --list + echo + fi + if test $at_skip_count != 0; then + echo "Skipped tests:" + $SHELL $0 $at_skip_list --list + echo + fi + if test $at_xpass_count != 0; then + echo "Unexpected passes:" + $SHELL $0 $at_xpass_list --list + echo + fi + if test $at_fail_count != 0; then + cat <<\_ASBOX +## ---------------------- ## +## Detailed failed tests. ## +## ---------------------- ## +_ASBOX + echo + for at_group in $at_fail_list + do + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + cat $at_group_log + echo + done + echo + fi + if test -n "$at_top_srcdir"; then + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $at_top_builddir/config.log ## +_ASBOX + sed 's/^/| /' $at_top_builddir/config.log + echo + fi + } >&5 + + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $as_me.log was created. ## +_ASBOX + + echo + echo "Please send \`$as_me.log' and all information you think might help:" + echo + echo " To: " + echo " Subject: [OpenCOBOL 1.1] $as_me:$at_fail_list${at_fail_list:+ failed${at_xpass_list:+,}}$at_xpass_list${at_xpass_list:+ passed unexpectedly}" + echo + if test $at_debug_p = false; then + echo + echo 'You may investigate any problem if you feel able to do so, in which' + echo 'case the test suite provides a good starting point.' + echo + fi + exit 1 +fi + +exit 0 + + diff --git a/tests/i18n_utf8 b/tests/i18n_utf8 deleted file mode 100755 index 99e62f2a..00000000 --- a/tests/i18n_utf8 +++ /dev/null @@ -1,8613 +0,0 @@ -#! /bin/sh -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## - -# Be Bourne compatible -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' -elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then - set -o posix -fi -DUALCASE=1; export DUALCASE # for MKS sh - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false -fi - - -# Work around bugs in pre-3.0 UWIN ksh. -$as_unset ENV MAIL MAILPATH -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - $as_unset $as_var - fi -done - -# Required to use basename. -if expr a : '\(a\)' >/dev/null 2>&1; then - as_expr=expr -else - as_expr=false -fi - -if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - - -# Name of the executable. -as_me=`$as_basename "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)$' \| \ - . : '\(.\)' 2>/dev/null || -echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } - /^X\/\(\/\/\)$/{ s//\1/; q; } - /^X\/\(\/\).*/{ s//\1/; q; } - s/.*/./; q'` - - -# PATH needs CR, and LINENO needs CR and PATH. -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x$as_lineno_3" = "x$as_lineno_2" || { - # Find who we are. Look in the path if we contain no path at all - # relative or not. - case $0 in - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done - - ;; - esac - # We did not find ourselves, most probably we were run as `sh COMMAND' - # in which case we are not to be found in the path. - if test "x$as_myself" = x; then - as_myself=$0 - fi - if test ! -f "$as_myself"; then - { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 - { (exit 1); exit 1; }; } - fi - case $CONFIG_SHELL in - '') - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for as_base in sh bash ksh sh5; do - case $as_dir in - /*) - if ("$as_dir/$as_base" -c ' - as_lineno_1=$LINENO - as_lineno_2=$LINENO - as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then - $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } - $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } - CONFIG_SHELL=$as_dir/$as_base - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$0" ${1+"$@"} - fi;; - esac - done -done -;; - esac - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line before each line; the second 'sed' does the real - # work. The second script uses 'N' to pair each line-number line - # with the numbered line, and appends trailing '-' during - # substitution so that $LINENO is not a special case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) - sed '=' <$as_myself | - sed ' - N - s,$,-, - : loop - s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, - t loop - s,-$,, - s,^['$as_cr_digits']*\n,, - ' >$as_me.lineno && - chmod +x $as_me.lineno || - { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 - { (exit 1); exit 1; }; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensible to this). - . ./$as_me.lineno - # Exit status is that of the last command. - exit -} - - -case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in - *c*,-n*) ECHO_N= ECHO_C=' -' ECHO_T=' ' ;; - *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; - *) ECHO_N= ECHO_C='\c' ECHO_T= ;; -esac - -if expr a : '\(a\)' >/dev/null 2>&1; then - as_expr=expr -else - as_expr=false -fi - -rm -f conf$$ conf$$.exe conf$$.file -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - # We could just check for DJGPP; but this test a) works b) is more generic - # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). - if test -f conf$$.exe; then - # Don't use ln at all; we don't have any links - as_ln_s='cp -p' - else - as_ln_s='ln -s' - fi -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.file - -if mkdir -p . 2>/dev/null; then - as_mkdir_p=: -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -as_executable_p="test -f" - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -# IFS -# We need space, tab and new line, in precisely that order. -as_nl=' -' -IFS=" $as_nl" - -# CDPATH. -$as_unset CDPATH - - -SHELL=${CONFIG_SHELL-/bin/sh} - -# How were we run? -at_cli_args="$@" - -# Load the config file. -for at_file in atconfig atlocal -do - test -r $at_file || continue - . ./$at_file || { echo "$as_me: error: invalid content: $at_file" >&2 - { (exit 1); exit 1; }; } -done - -# atconfig delivers paths relative to the directory the test suite is -# in, but the groups themselves are run in testsuite-dir/group-dir. -if test -n "$at_top_srcdir"; then - builddir=../.. - for at_dir in srcdir top_srcdir top_builddir - do - at_val=`eval echo '${'at_$at_dir'}'` - eval "$at_dir=\$at_val/../.." - done -fi - -# Not all shells have the 'times' builtin; the subshell is needed to make -# sure we discard the 'times: not found' message from the shell. -at_times_p=false -(times) >/dev/null 2>&1 && at_times_p=: - -# CLI Arguments to pass to the debugging scripts. -at_debug_args= -# -e sets to true -at_errexit_p=false -# Shall we be verbose? -at_verbose=: -at_quiet=echo - -# Shall we keep the debug scripts? Must be `:' when the suite is -# run by a debug script, so that the script doesn't remove itself. -at_debug_p=false -# Display help message? -at_help_p=false -# List test groups? -at_list_p=false -# Test groups to run -at_groups= - -# The directory we are in. -at_dir=`pwd` -# The directory the whole suite works in. -# Should be absolutely to let the user `cd' at will. -at_suite_dir=$at_dir/$as_me.dir -# The file containing the suite. -at_suite_log=$at_dir/$as_me.log -# The file containing the location of the last AT_CHECK. -at_check_line_file=$at_suite_dir/at-check-line -# The file containing the exit status of the last command. -at_status_file=$at_suite_dir/at-status -# The files containing the output of the tested commands. -at_stdout=$at_suite_dir/at-stdout -at_stder1=$at_suite_dir/at-stder1 -at_stderr=$at_suite_dir/at-stderr -# The file containing dates. -at_times_file=$at_suite_dir/at-times - -# List of the tested programs. -at_tested='cobc' -# List of the all the test groups. -at_groups_all=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99' -# As many dots as there are digits in the last test group number. -# Used to normalize the test group numbers so that `ls' lists them in -# numerical order. -at_format='..' -# Description of all the test groups. -at_help_all='1;user-defined-word.at:1;Program name;; -2;user-defined-word.at:14;Field name;; -3;user-defined-word.at:33;Long field name;; -4;user-defined-word.at:58;Field lookup;; -5;user-defined-word.at:77;Section name;; -6;user-defined-word.at:99;Long section name;; -7;user-defined-word.at:121;Too long section name;; -8;user-defined-word.at:145;Nihongo Filename;; -9;pic-x.at:1;Value clause;; -10;pic-x.at:19;Move;; -11;pic-x.at:38;Move with trunc;; -12;pic-x.at:60;Move ALL with trunc and trimming;; -13;pic-x.at:80;Move with trunc and trimming 1;; -14;pic-x.at:103;Move with trunc and trimming 2;; -15;pic-x.at:126;Move from field with trunc and trimming 1;; -16;pic-x.at:147;Move with padding;; -17;pic-x.at:166;Move with justify;; -18;pic-x.at:185;Move to alnum EDITED;; -19;pic-x.at:204;Move to alnum EDITED (pic too short);; -20;pic-x.at:226;Move to alnum EDITED (pic too long);; -21;pic-x.at:245;Move to alnum EDITED (No char break);; -22;pic-x.at:264;Move to alnum EDITED (char break & junk chars);; -23;pic-x.at:284;Move group to group in bad alignment;; -24;pic-x.at:309;Redifinition breaking char pos.;; -25;pic-x.at:334;Ref mod(n:);; -26;pic-x.at:353;Ref mod(n:m);; -27;pic-x.at:372;STRING by size;; -28;pic-x.at:395;STRING with delimiter;; -29;pic-x.at:418;STRING with pointer;; -30;pic-x.at:442;INSPECT REPLACING;; -31;pic-x.at:461;INSPECT REPLACING by ZERO;; -32;pic-x.at:480;INSPECT TALLYING;; -33;pic-n.at:1;PIC N Value clause;; -34;pic-n.at:19;PIC N Value 2 bytes char;; -35;pic-n.at:37;PIC N Move;; -36;pic-n.at:56;PIC N Move 2 bytes char.;; -37;pic-n.at:76;PIC N Move with trunc;; -38;pic-n.at:98;PIC N Move with padding by full-width SPC;; -39;pic-n.at:117;PIC N Move 2 bytes char with padding;; -40;pic-n.at:137;PIC N Move with justify;; -41;pic-n.at:156;PIC N Move 2 bytes char with justify;; -42;pic-n.at:175;PIC N Move to NATIONAL EDITED;; -43;pic-n.at:194;PIC N Move with half-width alnum conv.;; -44;pic-n.at:213;PIC N Move with half-width kana conv.;; -45;pic-n.at:232;PIC N Ref mod(n:);; -46;pic-n.at:251;PIC N Ref mod(n:m);; -47;pic-n.at:270;PIC N STRING by size;; -48;pic-n.at:293;PIC N STRING with delimiter (causes warn);; -49;pic-n.at:316;PIC N STRING with NATIONAL delimiter;; -50;pic-n.at:339;PIC N STRING with pointer;; -51;pic-n.at:363;PIC N INSPECT REPLACING;; -52;pic-n.at:382;PIC N INSPECT REPLACING by ZERO;; -53;pic-n.at:401;PIC N INSPECT REPLACING by NATIONAL ZERO;; -54;pic-n.at:420;PIC N INSPECT TALLYING;; -55;pic-n.at:440;PIC N Move with half-width dakuten kana.;; -56;pic-n.at:459;PIC N Move with half-width han-dakuten kana.;; -57;pic-bn.at:1;PIC BN Value clause;; -58;pic-bn.at:19;PIC BN Move;; -59;pic-bn.at:38;PIC BN Refmod char by char;; -60;program-id.at:1;PROGRAM-ID NATIONAL C89 no warning;; -61;program-id.at:20;PROGRAM-ID NATIONAL C89 warning;; -62;program-id.at:42;PROGRAM-ID NATIONAL C89 ignore;; -63;program-id.at:56;PROGRAM-ID NATIONAL 32 character no over;; -64;program-id.at:71;PROGRAM-ID NATIONAL 32 character over;; -65;error-print.at:1;undefined not message;; -66;error-print.at:24;Encoding alphanumeric name item;; -67;error-print.at:41;Encoding national name item;; -68;stored-char-length.at:1;FUNCTION STORED-CHAR-LENGTH(PIC X);; -69;stored-char-length.at:22;FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPC;; -70;stored-char-length.at:43;FUNCTION STORED-CHAR-LENGTH(PIC X) /w wSPC;; -71;stored-char-length.at:64;FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPCs;; -72;stored-char-length.at:85;FUNCTION STORED-CHAR-LENGTH(PIC N);; -73;stored-char-length.at:106;FUNCTION STORED-CHAR-LENGTH(SINGLE-BYTE SPACE);; -74;stored-char-length.at:127;FUNCTION STORED-CHAR-LENGTH(DOUBLE-BYTE SPACE);; -75;warn-mixture-byte.at:1;STRING Alphanumeric to National;; -76;warn-mixture-byte.at:21;STRING National to Alphanumeric;; -77;limits.at:1;Field length limit PIC A/VALID;; -78;limits.at:17;Field length limit PIC A/TOO LONG;; -79;limits.at:35;Field length limit PIC X/VALID;; -80;limits.at:51;Field length limit PIC X/TOO LONG;; -81;limits.at:69;Field length limit PIC B9/VALID;; -82;limits.at:85;Field length limit PIC B9/TOO LONG;; -83;limits.at:103;Field length limit PIC B/VALID;; -84;limits.at:119;Field length limit PIC B/TOO LONG;; -85;limits.at:137;Field length limit PIC BA/VALID;; -86;limits.at:153;Field length limit PIC BA/TOO LONG;; -87;limits.at:171;Field length limit PIC BX/VALID;; -88;limits.at:187;Field length limit PIC BX/TOO LONG;; -89;limits.at:205;Field length limit PIC N/VALID (UTF-8);; -90;limits.at:221;Field length limit PIC N/TOO LONG (UTF-8);; -91;limits.at:239;Field length limit PIC BN/VALID (UTF-8);; -92;limits.at:255;Field length limit PIC BN/TOO LONG (UTF-8);; -93;national.at:1;FUNCTION NATIONAL single-byte;; -94;national.at:22;FUNCTION NATIONAL multi-byte;; -95;national.at:43;FUNCTION NATIONAL KIGOU-exclamation;; -96;national.at:64;FUNCTION NATIONAL KIGOU-yen;; -97;national.at:85;FUNCTION NATIONAL KIGOU-plus;; -98;national.at:106;FUNCTION NATIONAL (HanKana w/ Daku-on);; -99;national.at:127;FUNCTION NATIONAL (HanKana w/ Han-daku-on);; -' - -at_keywords= -at_prev= -for at_option -do - # If the previous option needs an argument, assign it. - if test -n "$at_prev"; then - at_option=$at_prev=$at_option - at_prev= - fi - - at_optarg=`expr "x$at_option" : 'x[^=]*=\(.*\)'` - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case $at_option in - --help | -h ) - at_help_p=: - ;; - - --list | -l ) - at_list_p=: - ;; - - --version | -V ) - echo "$as_me (OpenCOBOL 1.1)" - exit 0 - ;; - - --clean | -c ) - rm -rf $at_suite_dir $at_suite_log - exit 0 - ;; - - --debug | -d ) - at_debug_p=: - ;; - - --errexit | -e ) - at_debug_p=: - at_errexit_p=: - ;; - - --verbose | -v ) - at_verbose=echo; at_quiet=: - ;; - - --trace | -x ) - at_traceon='set -vx'; at_traceoff='set +vx' - ;; - - [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) - at_groups="$at_groups$at_option " - ;; - - # Ranges - [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) - at_range_start=`echo $at_option |tr -d '-'` - at_range=`echo " $at_groups_all " | \ - sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,'` - at_groups="$at_groups$at_range " - ;; - - -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) - at_range_end=`echo $at_option |tr -d '-'` - at_range=`echo " $at_groups_all " | \ - sed -e 's, '$at_range_end' .*$, '$at_range_end','` - at_groups="$at_groups$at_range " - ;; - - [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ - [0-9]-[0-9][0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9] | \ - [0-9][0-9]-[0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9][0-9][0-9] | \ - [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ - [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ - [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) - at_range_start=`echo $at_option |sed 's,-.*,,'` - at_range_end=`echo $at_option |sed 's,.*-,,'` - # FIXME: Maybe test to make sure start <= end? - at_range=`echo " $at_groups_all " | \ - sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,' \ - -e 's, '$at_range_end' .*$, '$at_range_end','` - at_groups="$at_groups$at_range " - ;; - - # Keywords. - --keywords | -k ) - at_prev=--keywords - ;; - --keywords=* ) - at_keywords="$at_keywords,$at_optarg" - ;; - - *=*) - at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - expr "x$at_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid variable name: $at_envvar" >&2 - { (exit 1); exit 1; }; } - at_value=`echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` - eval "$at_envvar='$at_value'" - export $at_envvar - # Propagate to debug scripts. - at_debug_args="$at_debug_args $at_option" - ;; - - *) echo "$as_me: invalid option: $at_option" >&2 - echo "Try \`$0 --help' for more information." >&2 - exit 1 - ;; - esac -done - -# Process the --keywords -if test -n "$at_keywords"; then - at_groups_selected=$at_help_all - for at_keyword in `IFS=,; set X $at_keywords; shift; echo ${1+$@}` - do - # It is on purpose that we match the test group titles too. - at_groups_selected=`echo "$at_groups_selected" | - grep -i "^[^;]*;[^;]*.*[; ]$at_keyword[ ;]"` - done - at_groups_selected=`echo "$at_groups_selected" | sed 's/;.*//'` - # Smash the end of lines. - at_groups_selected=`echo $at_groups_selected` - at_groups="$at_groups$at_groups_selected " -fi - -# Selected test groups. -test -z "$at_groups" && at_groups=$at_groups_all - -# Help message. -if $at_help_p; then - cat <<_ATEOF -Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] - -Run all the tests, or the selected TESTS, and save a detailed log file. -Upon failure, create debugging scripts. - -You should not change environment variables unless explicitly passed -as command line arguments. Set \`AUTOTEST_PATH' to select the executables -to exercise. Each relative directory is expanded as build and source -directories relatively to the top level of this distribution. E.g., - - $ $0 AUTOTEST_PATH=bin - -possibly amounts into - - PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH -_ATEOF -cat <<_ATEOF - -Operation modes: - -h, --help print the help message, then exit - -V, --version print version number, then exit - -c, --clean remove all the files this test suite might create and exit - -l, --list describes all the tests, or the selected TESTS -_ATEOF -cat <<_ATEOF - -Execution tuning: - -k, --keywords=KEYWORDS - select the tests matching all the comma separated KEYWORDS - accumulates - -e, --errexit abort as soon as a test fails; implies --debug - -v, --verbose force more detailed output - default for debugging scripts - -d, --debug inhibit clean up and debug script creation - default for debugging scripts - -x, --trace enable tests shell tracing -_ATEOF -cat <<_ATEOF - -Report bugs to . -_ATEOF - exit 0 -fi - -# List of tests. -if $at_list_p; then - cat <<_ATEOF -OpenCOBOL 1.1 test suite: I18n utf-8 Tests test groups: - - NUM: FILENAME:LINE TEST-GROUP-NAME - KEYWORDS - -_ATEOF - # " 1 42 45 " => "^(1|42|45);". - at_groups_pattern=`echo "$at_groups" | sed 's/^ *//;s/ *$//;s/ */|/g'` - echo "$at_help_all" | - awk 'BEGIN { FS = ";" } - { if ($1 !~ /^('"$at_groups_pattern"')$/) next } - { if ($1) printf " %3d: %-18s %s\n", $1, $2, $3 - if ($4) printf " %s\n", $4 } ' - exit 0 -fi - -# Don't take risks: use only absolute directories in PATH. -# -# For stand-alone test suites, AUTOTEST_PATH is relative to `.'. -# -# For embedded test suites, AUTOTEST_PATH is relative to the top level -# of the package. Then expand it into build/src parts, since users -# may create executables in both places. -# -# There might be directories that don't exist, but don't redirect -# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. -AUTOTEST_PATH=`echo $AUTOTEST_PATH | tr ':' $PATH_SEPARATOR` -at_path= -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $AUTOTEST_PATH $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - case $as_dir in - [\\/]* | ?:[\\/]* ) - at_path=$at_path$PATH_SEPARATOR$as_dir - ;; - * ) - if test -z "$at_top_builddir"; then - # Stand-alone test suite. - at_path=$at_path$PATH_SEPARATOR$as_dir - else - # Embedded test suite. - at_path=$at_path$PATH_SEPARATOR$at_top_builddir/$as_dir - at_path=$at_path$PATH_SEPARATOR$at_top_srcdir/$as_dir - fi - ;; -esac -done - - -# Now build and simplify PATH. -PATH= -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $at_path -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` -test -d "$as_dir" || continue -case $PATH in - $as_dir | \ - $as_dir$PATH_SEPARATOR* | \ - *$PATH_SEPARATOR$as_dir | \ - *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR* ) ;; - - '') PATH=$as_dir ;; - *) PATH=$PATH$PATH_SEPARATOR$as_dir ;; -esac -done - -export PATH - -# Setting up the FDs. -# 5 is the log file. Not to be overwritten if `-d'. - -$at_debug_p && at_suite_log=/dev/null -exec 5>$at_suite_log - -# Banners and logs. -cat <<\_ASBOX -## ------------------------------------------- ## -## OpenCOBOL 1.1 test suite: I18n utf-8 Tests. ## -## ------------------------------------------- ## -_ASBOX -{ - cat <<\_ASBOX -## ------------------------------------------- ## -## OpenCOBOL 1.1 test suite: I18n utf-8 Tests. ## -## ------------------------------------------- ## -_ASBOX - echo - - echo "$as_me: command line was:" - echo " $ $0 $at_cli_args" - echo - - # Try to find a few ChangeLogs in case it might help determining the - # exact version. Use the relative dir: if the top dir is a symlink, - # find will not follow it (and options to follow the links are not - # portable), which would result in no output here. - if test -n "$at_top_srcdir"; then - cat <<\_ASBOX -## ----------- ## -## ChangeLogs. ## -## ----------- ## -_ASBOX - echo - for at_file in `find "$at_top_srcdir" -name ChangeLog -print` - do - echo "$as_me: $at_file:" - sed 's/^/| /;10q' $at_file - echo - done - - { -cat <<_ASUNAME -## --------- ## -## Platform. ## -## --------- ## - -hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` - -/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -hostinfo = `(hostinfo) 2>/dev/null || echo unknown` -/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` -/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` - -_ASUNAME - -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - echo "PATH: $as_dir" -done - -} - echo - fi - - # Contents of the config files. - for at_file in atconfig atlocal - do - test -r $at_file || continue - echo "$as_me: $at_file:" - sed 's/^/| /' $at_file - echo - done - - cat <<\_ASBOX -## ---------------- ## -## Tested programs. ## -## ---------------- ## -_ASBOX - echo -} >&5 - -# Report what programs are being tested. -for at_program in : $at_tested -do - test "$at_program" = : && continue - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -f $as_dir/$at_program && break -done - - if test -f $as_dir/$at_program; then - { - echo "i18n_utf8.at:21: $as_dir/$at_program --version" - $as_dir/$at_program --version - echo - } >&5 2>&1 - else - { { echo "$as_me:$LINENO: error: cannot find $at_program" >&5 -echo "$as_me: error: cannot find $at_program" >&2;} - { (exit 1); exit 1; }; } - fi -done - -{ - cat <<\_ASBOX -## ------------------ ## -## Running the tests. ## -## ------------------ ## -_ASBOX -} >&5 - -at_start_date=`date` -at_start_time=`(date +%s) 2>/dev/null` -echo "$as_me: starting at: $at_start_date" >&5 -at_xpass_list= -at_xfail_list= -at_pass_list= -at_fail_list= -at_skip_list= -at_group_count=0 - -# Create the master directory if it doesn't already exist. -test -d $at_suite_dir || - mkdir $at_suite_dir || - { { echo "$as_me:$LINENO: error: cannot create $at_suite_dir" >&5 -echo "$as_me: error: cannot create $at_suite_dir" >&2;} - { (exit 1); exit 1; }; } - -# Can we diff with `/dev/null'? DU 5.0 refuses. -if diff /dev/null /dev/null >/dev/null 2>&1; then - at_devnull=/dev/null -else - at_devnull=$at_suite_dir/devnull - cp /dev/null $at_devnull -fi - -# Use `diff -u' when possible. -if diff -u $at_devnull $at_devnull >/dev/null 2>&1; then - at_diff='diff -u' -else - at_diff=diff -fi - - -for at_group in $at_groups -do - # Be sure to come back to the top test directory. - cd $at_suite_dir - - case $at_group in - banner-*) - at_group_log=$at_suite_log - ;; - - *) - # Skip tests we already run (using --keywords makes it easy to get - # duplication). - case " $at_pass_test $at_skip_test $at_fail_test " in - *" $at_group "* ) continue;; - esac - - # Normalize the test group number. - at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` - - # Create a fresh directory for the next test group, and enter. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - rm -rf $at_group_dir - mkdir $at_group_dir || - { { echo "$as_me:$LINENO: error: cannot create $at_group_dir" >&5 -echo "$as_me: error: cannot create $at_group_dir" >&2;} - { (exit 1); exit 1; }; } - cd $at_group_dir - ;; - esac - - echo 0 > $at_status_file - - # Clearly separate the test groups when verbose. - test $at_group_count != 0 && $at_verbose - - # In verbose mode, append to the log file *and* show on - # the standard output; in quiet mode only write to the log - if test $at_verbose = echo; then - at_tee_pipe="tee -a $at_group_log" - else - at_tee_pipe="cat >> $at_group_log" - fi - - case $at_group in - 1 ) # 1. user-defined-word.at:1: Program name - at_setup_line='user-defined-word.at:1' - at_desc='Program name' - $at_quiet $ECHO_N " 1: Program name $ECHO_C" - at_xfail=no - ( - echo "1. user-defined-word.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. 日本語のプログラム名. - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:10: \${COMPILE} -x prog.cob" -echo user-defined-word.at:10 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:10: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 2 ) # 2. user-defined-word.at:14: Field name - at_setup_line='user-defined-word.at:14' - at_desc='Field name' - $at_quiet $ECHO_N " 2: Field name $ECHO_C" - at_xfail=no - ( - echo "2. user-defined-word.at:14: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 Ｏ−文字列 PIC X(7) USAGE DISPLAY. - PROCEDURE DIVISION. - MOVE "Unicode" TO Ｏ−文字列. - DISPLAY Ｏ−文字列 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:28: \${COMPILE} -x prog.cob" -echo user-defined-word.at:28 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:28: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "user-defined-word.at:29: ./prog" -echo user-defined-word.at:29 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "Unicode" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:29: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 3 ) # 3. user-defined-word.at:33: Long field name - at_setup_line='user-defined-word.at:33' - at_desc='Long field name' - $at_quiet $ECHO_N " 3: Long field name $ECHO_C" - at_xfail=no - ( - echo "3. user-defined-word.at:33: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 項目ＡＢＣＤＥＦＧＨ０１２３４５６７８９ - PIC X(7). - PROCEDURE DIVISION. - MOVE "Unicode" - TO - 項目ＡＢＣＤＥＦＧＨ０１２３４５６７８９. - DISPLAY - 項目ＡＢＣＤＥＦＧＨ０１２３４５６７８９ - WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:52: \${COMPILE} -x prog.cob" -echo user-defined-word.at:52 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:52: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "user-defined-word.at:53: ./prog" -echo user-defined-word.at:53 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "Unicode" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:53: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 4 ) # 4. user-defined-word.at:58: Field lookup - at_setup_line='user-defined-word.at:58' - at_desc='Field lookup' - $at_quiet $ECHO_N " 4: Field lookup $ECHO_C" - at_xfail=no - ( - echo "4. user-defined-word.at:58: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 項目２ PIC X(1) VALUE "A". - 01 項目Ｒ PIC X(1) VALUE "B". - PROCEDURE DIVISION. - DISPLAY 項目２ 項目Ｒ WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:72: \${COMPILE} -x prog.cob" -echo user-defined-word.at:72 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:72: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "user-defined-word.at:73: ./prog" -echo user-defined-word.at:73 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "AB" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:73: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 5 ) # 5. user-defined-word.at:77: Section name - at_setup_line='user-defined-word.at:77' - at_desc='Section name' - $at_quiet $ECHO_N " 5: Section name $ECHO_C" - at_xfail=no - ( - echo "5. user-defined-word.at:77: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - PROCEDURE DIVISION. - PERFORM Ｓ−初期化. - PERFORM Ｓ−終了. - Ｓ−初期化 SECTION. - DISPLAY "Hello, " WITH NO ADVANCING. - Ｓ−終了 SECTION. - DISPLAY "and good bye." WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:94: \${COMPILE} -x prog.cob" -echo user-defined-word.at:94 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:94: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "user-defined-word.at:95: ./prog" -echo user-defined-word.at:95 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "Hello, and good bye." | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:95: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 6 ) # 6. user-defined-word.at:99: Long section name - at_setup_line='user-defined-word.at:99' - at_desc='Long section name' - $at_quiet $ECHO_N " 6: Long section name $ECHO_C" - at_xfail=no - ( - echo "6. user-defined-word.at:99: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - PROCEDURE DIVISION. - PERFORM s１２３４５６７８９０12345678901234567890. - PERFORM Ｓ−終了. - s１２３４５６７８９０12345678901234567890 SECTION. - DISPLAY "Hello, " WITH NO ADVANCING. - Ｓ−終了 SECTION. - DISPLAY "and good bye." WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:116: \${COMPILE} -x prog.cob" -echo user-defined-word.at:116 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:116: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "user-defined-word.at:117: ./prog" -echo user-defined-word.at:117 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "Hello, and good bye." | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:117: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 7 ) # 7. user-defined-word.at:121: Too long section name - at_setup_line='user-defined-word.at:121' - at_desc='Too long section name' - $at_quiet $ECHO_N " 7: Too long section name $ECHO_C" - at_xfail=no - ( - echo "7. user-defined-word.at:121: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - PROCEDURE DIVISION. - PERFORM s１２３４５６７８９０123456789012345678901. - PERFORM Ｓ−終了. - s１２３４５６７８９０123456789012345678901 SECTION. - DISPLAY "Hello, " WITH NO ADVANCING. - Ｓ−終了 SECTION. - DISPLAY "and good bye." WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:138: \${COMPILE} -x prog.cob" -echo user-defined-word.at:138 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:7: Error: User defined name must be less than 32 characters -prog.cob:9: Error: User defined name must be less than 32 characters -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "user-defined-word.at:138: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 8 ) # 8. user-defined-word.at:145: Nihongo Filename - at_setup_line='user-defined-word.at:145' - at_desc='Nihongo Filename' - $at_quiet $ECHO_N " 8: Nihongo Filename $ECHO_C" - at_xfail=no - ( - echo "8. user-defined-word.at:145: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - ENVIRONMENT DIVISION. - INPUT-OUTPUT SECTION. - FILE-CONTROL. - SELECT テストファイル ASSIGN TO "./テスト_ファイル" - ORGANIZATION IS INDEXED - ACCESS MODE IS SEQUENTIAL - RECORD KEY IS TEST-KEY. - DATA DIVISION. - FILE SECTION. - FD テストファイル. - 01 TEST-KEY PIC X(10). - PROCEDURE DIVISION. - OPEN OUTPUT テストファイル. - MOVE "TEST000000" TO TEST-KEY. - WRITE TEST-KEY. - CLOSE テストファイル. - OPEN INPUT テストファイル. - READ テストファイル - NOT AT END - DISPLAY "OK" NO ADVANCING - END-READ. - CLOSE テストファイル. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "user-defined-word.at:175: \${COMPILE} -x prog.cob" -echo user-defined-word.at:175 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:175: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "user-defined-word.at:176: ./prog" -echo user-defined-word.at:176 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "user-defined-word.at:176: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 9 ) # 9. pic-x.at:1: Value clause - at_setup_line='pic-x.at:1' - at_desc='Value clause' - $at_quiet $ECHO_N " 9: Value clause $ECHO_C" - at_xfail=no - ( - echo "9. pic-x.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(21) VALUE "日本語の文字列". - PROCEDURE DIVISION. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:14: \${COMPILE} -x prog.cob" -echo pic-x.at:14 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:14: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:15: ./prog" -echo pic-x.at:15 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語の文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:15: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 10 ) # 10. pic-x.at:19: Move - at_setup_line='pic-x.at:19' - at_desc='Move' - $at_quiet $ECHO_N " 10: Move $ECHO_C" - at_xfail=no - ( - echo "10. pic-x.at:19: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(21). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:33: \${COMPILE} -x prog.cob" -echo pic-x.at:33 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:33: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:34: ./prog" -echo pic-x.at:34 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語の文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:34: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 11 ) # 11. pic-x.at:38: Move with trunc - at_setup_line='pic-x.at:38' - at_desc='Move with trunc' - $at_quiet $ECHO_N " 11: Move with trunc $ECHO_C" - at_xfail=no - ( - echo "11. pic-x.at:38: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(9). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:52: \${COMPILE} -x prog.cob" -echo pic-x.at:52 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size -prog.cob:6: Warning: 'F0' defined here as PIC X(9) -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:52: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:56: ./prog" -echo pic-x.at:56 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:56: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 12 ) # 12. pic-x.at:60: Move ALL with trunc and trimming - at_setup_line='pic-x.at:60' - at_desc='Move ALL with trunc and trimming' - $at_quiet $ECHO_N " 12: Move ALL with trunc and trimming $ECHO_C" - at_xfail=no - ( - echo "12. pic-x.at:60: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(10). - PROCEDURE DIVISION. - MOVE ALL "喜" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:74: \${COMPILE} -x prog.cob" -echo pic-x.at:74 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:74: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:75: ./prog | od -x -An" -echo pic-x.at:75 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 96e5 e59c 9c96 96e5 e59c -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:75: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 13 ) # 13. pic-x.at:80: Move with trunc and trimming 1 - at_setup_line='pic-x.at:80' - at_desc='Move with trunc and trimming 1' - $at_quiet $ECHO_N " 13: Move with trunc and trimming 1 $ECHO_C" - at_xfail=no - ( - echo "13. pic-x.at:80: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(10). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:94: \${COMPILE} -x prog.cob" -echo pic-x.at:94 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size -prog.cob:6: Warning: 'F0' defined here as PIC X(10) -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:94: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:98: ./prog | od -x -An" -echo pic-x.at:98 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 97e6 e6a5 ac9c aae8 e39e -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:98: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 14 ) # 14. pic-x.at:103: Move with trunc and trimming 2 - at_setup_line='pic-x.at:103' - at_desc='Move with trunc and trimming 2' - $at_quiet $ECHO_N " 14: Move with trunc and trimming 2 $ECHO_C" - at_xfail=no - ( - echo "14. pic-x.at:103: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(11). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:117: \${COMPILE} -x prog.cob" -echo pic-x.at:117 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size -prog.cob:6: Warning: 'F0' defined here as PIC X(11) -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:117: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:121: ./prog | od -x -An" -echo pic-x.at:121 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 97e6 e6a5 ac9c aae8 e39e 0081 -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:121: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 15 ) # 15. pic-x.at:126: Move from field with trunc and trimming 1 - at_setup_line='pic-x.at:126' - at_desc='Move from field with trunc and trimming 1' - $at_quiet $ECHO_N " 15: Move from field with trunc and trimming 1 $ECHO_C" - at_xfail=no - ( - echo "15. pic-x.at:126: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 FS PIC X(21) VALUE "日本語の文字列". - 01 F0 PIC X(10). - PROCEDURE DIVISION. - MOVE FS TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:141: \${COMPILE} -x prog.cob" -echo pic-x.at:141 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:141: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:142: ./prog | od -x -An" -echo pic-x.at:142 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 97e6 e6a5 ac9c aae8 e39e -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:142: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 16 ) # 16. pic-x.at:147: Move with padding - at_setup_line='pic-x.at:147' - at_desc='Move with padding' - $at_quiet $ECHO_N " 16: Move with padding $ECHO_C" - at_xfail=no - ( - echo "16. pic-x.at:147: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(24). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:161: \${COMPILE} -x prog.cob" -echo pic-x.at:161 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:161: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:162: ./prog" -echo pic-x.at:162 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語の文字列 " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:162: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 17 ) # 17. pic-x.at:166: Move with justify - at_setup_line='pic-x.at:166' - at_desc='Move with justify' - $at_quiet $ECHO_N " 17: Move with justify $ECHO_C" - at_xfail=no - ( - echo "17. pic-x.at:166: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(22) JUSTIFIED RIGHT. - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:180: \${COMPILE} -x prog.cob" -echo pic-x.at:180 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:180: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:181: ./prog" -echo pic-x.at:181 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 日本語の文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:181: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 18 ) # 18. pic-x.at:185: Move to alnum EDITED - at_setup_line='pic-x.at:185' - at_desc='Move to alnum EDITED' - $at_quiet $ECHO_N " 18: Move to alnum EDITED $ECHO_C" - at_xfail=no - ( - echo "18. pic-x.at:185: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC XXXXXX/XXXXXXBXXXXXX0. - PROCEDURE DIVISION. - MOVE "日本中国文字" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:199: \${COMPILE} -x prog.cob" -echo pic-x.at:199 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:199: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:200: ./prog" -echo pic-x.at:200 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本/中国 文字0" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:200: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 19 ) # 19. pic-x.at:204: Move to alnum EDITED (pic too short) - at_setup_line='pic-x.at:204' - at_desc='Move to alnum EDITED (pic too short)' - $at_quiet $ECHO_N " 19: Move to alnum EDITED (pic too short) $ECHO_C" - at_xfail=no - ( - echo "19. pic-x.at:204: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC XXX/XXXBXXX0. - PROCEDURE DIVISION. - MOVE "日本中国文字" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:218: \${COMPILE} -x prog.cob" -echo pic-x.at:218 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size -prog.cob:6: Warning: 'F0' defined here as PIC XXX/XXXBXXX0 -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:218: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:222: ./prog" -echo pic-x.at:222 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日/本 中0" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:222: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 20 ) # 20. pic-x.at:226: Move to alnum EDITED (pic too long) - at_setup_line='pic-x.at:226' - at_desc='Move to alnum EDITED (pic too long)' - $at_quiet $ECHO_N " 20: Move to alnum EDITED (pic too long) $ECHO_C" - at_xfail=no - ( - echo "20. pic-x.at:226: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC XXX/XXXBXXX0. - PROCEDURE DIVISION. - MOVE "日本" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:240: \${COMPILE} -x prog.cob" -echo pic-x.at:240 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:240: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:241: ./prog" -echo pic-x.at:241 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日/本 0" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:241: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 21 ) # 21. pic-x.at:245: Move to alnum EDITED (No char break) - at_setup_line='pic-x.at:245' - at_desc='Move to alnum EDITED (No char break)' - $at_quiet $ECHO_N " 21: Move to alnum EDITED (No char break) $ECHO_C" - at_xfail=no - ( - echo "21. pic-x.at:245: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(3)BX(3). - PROCEDURE DIVISION. - MOVE "日本" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:259: \${COMPILE} -x prog.cob" -echo pic-x.at:259 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:259: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:260: ./prog" -echo pic-x.at:260 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日 本" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:260: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 22 ) # 22. pic-x.at:264: Move to alnum EDITED (char break & junk chars) - at_setup_line='pic-x.at:264' - at_desc='Move to alnum EDITED (char break & junk chars)' - $at_quiet $ECHO_N " 22: Move to alnum EDITED (char break & junk chars)$ECHO_C" - at_xfail=no - ( - echo "22. pic-x.at:264: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(2)BX(4). - PROCEDURE DIVISION. - MOVE "日本" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:278: \${COMPILE} -x prog.cob" -echo pic-x.at:278 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:278: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:279: ./prog | od -x -An" -echo pic-x.at:279 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 97e6 a520 9ce6 00ac -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:279: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 23 ) # 23. pic-x.at:284: Move group to group in bad alignment - at_setup_line='pic-x.at:284' - at_desc='Move group to group in bad alignment' - $at_quiet $ECHO_N " 23: Move group to group in bad alignment $ECHO_C" - at_xfail=no - ( - echo "23. pic-x.at:284: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0. - 03 XX0 PIC X(6) VALUE "日本". - 01 F1. - 03 XX1 PIC X(4). - 03 FILLER PIC X(2). - - PROCEDURE DIVISION. - MOVE F0 TO F1. - DISPLAY XX1 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:303: \${COMPILE} -x prog.cob" -echo pic-x.at:303 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:303: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:304: ./prog | od -x -An" -echo pic-x.at:304 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 97e6 e6a5 -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:304: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 24 ) # 24. pic-x.at:309: Redifinition breaking char pos. - at_setup_line='pic-x.at:309' - at_desc='Redifinition breaking char pos.' - $at_quiet $ECHO_N " 24: Redifinition breaking char pos. $ECHO_C" - at_xfail=no - ( - echo "24. pic-x.at:309: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0. - 03 XX0 PIC X(6) VALUE "日本". - 01 F1 REDEFINES F0. - 03 XX1 PIC X(4). - 03 FILLER PIC X(2). - - PROCEDURE DIVISION. - DISPLAY XX1 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:327: \${COMPILE} -x prog.cob" -echo pic-x.at:327 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:327: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:328: ./prog | od -x -An" -echo pic-x.at:328 >$at_check_line_file -( $at_traceon; ./prog | od -x -An ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 97e6 e6a5 -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:328: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 25 ) # 25. pic-x.at:334: Ref mod(n:) - at_setup_line='pic-x.at:334' - at_desc='Ref mod(n:)' - $at_quiet $ECHO_N " 25: Ref mod(n:) $ECHO_C" - at_xfail=no - ( - echo "25. pic-x.at:334: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(21). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0(13:) WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:348: \${COMPILE} -x prog.cob" -echo pic-x.at:348 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:348: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:349: ./prog" -echo pic-x.at:349 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:349: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 26 ) # 26. pic-x.at:353: Ref mod(n:m) - at_setup_line='pic-x.at:353' - at_desc='Ref mod(n:m)' - $at_quiet $ECHO_N " 26: Ref mod(n:m) $ECHO_C" - at_xfail=no - ( - echo "26. pic-x.at:353: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(21). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0(13:6) WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:367: \${COMPILE} -x prog.cob" -echo pic-x.at:367 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:367: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:368: ./prog" -echo pic-x.at:368 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "文字" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:368: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 27 ) # 27. pic-x.at:372: STRING by size - at_setup_line='pic-x.at:372' - at_desc='STRING by size' - $at_quiet $ECHO_N " 27: STRING by size $ECHO_C" - at_xfail=no - ( - echo "27. pic-x.at:372: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(6) VALUE "私の". - 01 F1 PIC X(9) VALUE "名前は". - 01 F2 PIC X(16) VALUE "ありません". - 01 FF PIC X(30). - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY SIZE - INTO FF. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:390: \${COMPILE} -x prog.cob" -echo pic-x.at:390 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:390: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:391: ./prog" -echo pic-x.at:391 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "私の名前はありません" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:391: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 28 ) # 28. pic-x.at:395: STRING with delimiter - at_setup_line='pic-x.at:395' - at_desc='STRING with delimiter' - $at_quiet $ECHO_N " 28: STRING with delimiter $ECHO_C" - at_xfail=no - ( - echo "28. pic-x.at:395: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(6) VALUE "私の". - 01 F1 PIC X(12) VALUE "名前△は". - 01 F2 PIC X(19) VALUE "△ありません". - 01 FF PIC X(12). - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY "△" - INTO FF. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:413: \${COMPILE} -x prog.cob" -echo pic-x.at:413 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:413: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:414: ./prog" -echo pic-x.at:414 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "私の名前" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:414: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 29 ) # 29. pic-x.at:418: STRING with pointer - at_setup_line='pic-x.at:418' - at_desc='STRING with pointer' - $at_quiet $ECHO_N " 29: STRING with pointer $ECHO_C" - at_xfail=no - ( - echo "29. pic-x.at:418: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(6) VALUE "私の". - 01 F1 PIC X(9) VALUE "名前は". - 01 F2 PIC X(16) VALUE "ありません". - 01 FF PIC X(30) VALUE "言えません○※△■×". - 01 FP PIC 99 VALUE 16. - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY SIZE - INTO FF WITH POINTER FP. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:437: \${COMPILE} -x prog.cob" -echo pic-x.at:437 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:437: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:438: ./prog" -echo pic-x.at:438 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "言えません私の名前は" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:438: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 30 ) # 30. pic-x.at:442: INSPECT REPLACING - at_setup_line='pic-x.at:442' - at_desc='INSPECT REPLACING' - $at_quiet $ECHO_N " 30: INSPECT REPLACING $ECHO_C" - at_xfail=no - ( - echo "30. pic-x.at:442: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(30) VALUE "１２３４５１２３４５". - PROCEDURE DIVISION. - INSPECT F0 REPLACING ALL "５" BY "０". - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:456: \${COMPILE} -x prog.cob" -echo pic-x.at:456 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:456: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:457: ./prog" -echo pic-x.at:457 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "１２３４０１２３４０" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:457: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 31 ) # 31. pic-x.at:461: INSPECT REPLACING by ZERO - at_setup_line='pic-x.at:461' - at_desc='INSPECT REPLACING by ZERO' - $at_quiet $ECHO_N " 31: INSPECT REPLACING by ZERO $ECHO_C" - at_xfail=no - ( - echo "31. pic-x.at:461: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(30) VALUE "１２３４５１２３４５". - PROCEDURE DIVISION. - INSPECT F0 REPLACING ALL "５" BY ZERO. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:475: \${COMPILE} -x prog.cob" -echo pic-x.at:475 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:475: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:476: ./prog" -echo pic-x.at:476 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "１２３４000１２３４000" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:476: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 32 ) # 32. pic-x.at:480: INSPECT TALLYING - at_setup_line='pic-x.at:480' - at_desc='INSPECT TALLYING' - $at_quiet $ECHO_N " 32: INSPECT TALLYING $ECHO_C" - at_xfail=no - ( - echo "32. pic-x.at:480: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC X(30) VALUE "１２３４５１２３４５". - 01 CN PIC 99. - PROCEDURE DIVISION. - INSPECT F0 TALLYING CN FOR ALL "４５". - DISPLAY CN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-x.at:495: \${COMPILE} -x prog.cob" -echo pic-x.at:495 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:495: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-x.at:496: ./prog" -echo pic-x.at:496 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "02" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-x.at:496: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 33 ) # 33. pic-n.at:1: PIC N Value clause - at_setup_line='pic-n.at:1' - at_desc='PIC N Value clause' - $at_quiet $ECHO_N " 33: PIC N Value clause $ECHO_C" - at_xfail=no - ( - echo "33. pic-n.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7) VALUE "日本語の文字列". - PROCEDURE DIVISION. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:14: \${COMPILE} -x prog.cob" -echo pic-n.at:14 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:14: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:15: ./prog" -echo pic-n.at:15 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語の文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:15: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 34 ) # 34. pic-n.at:19: PIC N Value 2 bytes char - at_setup_line='pic-n.at:19' - at_desc='PIC N Value 2 bytes char' - $at_quiet $ECHO_N " 34: PIC N Value 2 bytes char $ECHO_C" - at_xfail=no - ( - echo "34. pic-n.at:19: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2) VALUE "αβγ". - PROCEDURE DIVISION. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:32: \${COMPILE} -x prog.cob" -echo pic-n.at:32 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:32: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:33: ./prog" -echo pic-n.at:33 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "αβγ" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:33: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 35 ) # 35. pic-n.at:37: PIC N Move - at_setup_line='pic-n.at:37' - at_desc='PIC N Move' - $at_quiet $ECHO_N " 35: PIC N Move $ECHO_C" - at_xfail=no - ( - echo "35. pic-n.at:37: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:51: \${COMPILE} -x prog.cob" -echo pic-n.at:51 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:51: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:52: ./prog" -echo pic-n.at:52 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語の文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:52: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 36 ) # 36. pic-n.at:56: PIC N Move 2 bytes char. - at_setup_line='pic-n.at:56' - at_desc='PIC N Move 2 bytes char.' - $at_quiet $ECHO_N " 36: PIC N Move 2 bytes char. $ECHO_C" - at_xfail=no - ( - echo "36. pic-n.at:56: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2). - PROCEDURE DIVISION. - MOVE "αβγ" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:70: \${COMPILE} -x prog.cob" -echo pic-n.at:70 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:70: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:71: ./prog" -echo pic-n.at:71 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "αβγ" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:71: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 37 ) # 37. pic-n.at:76: PIC N Move with trunc - at_setup_line='pic-n.at:76' - at_desc='PIC N Move with trunc' - $at_quiet $ECHO_N " 37: PIC N Move with trunc $ECHO_C" - at_xfail=no - ( - echo "37. pic-n.at:76: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(3). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:90: \${COMPILE} -x prog.cob" -echo pic-n.at:90 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:8: Warning: Value size exceeds data size -prog.cob:6: Warning: 'F0' defined here as PIC N(3) -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:90: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:94: ./prog" -echo pic-n.at:94 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:94: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 38 ) # 38. pic-n.at:98: PIC N Move with padding by full-width SPC - at_setup_line='pic-n.at:98' - at_desc='PIC N Move with padding by full-width SPC' - $at_quiet $ECHO_N " 38: PIC N Move with padding by full-width SPC $ECHO_C" - at_xfail=no - ( - echo "38. pic-n.at:98: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(9). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:112: \${COMPILE} -x prog.cob" -echo pic-n.at:112 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:112: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:113: ./prog" -echo pic-n.at:113 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本語の文字列 " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:113: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 39 ) # 39. pic-n.at:117: PIC N Move 2 bytes char with padding - at_setup_line='pic-n.at:117' - at_desc='PIC N Move 2 bytes char with padding' - $at_quiet $ECHO_N " 39: PIC N Move 2 bytes char with padding $ECHO_C" - at_xfail=no - ( - echo "39. pic-n.at:117: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2). - PROCEDURE DIVISION. - MOVE "α" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:131: \${COMPILE} -x prog.cob" -echo pic-n.at:131 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:131: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:132: ./prog" -echo pic-n.at:132 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "α " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:132: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 40 ) # 40. pic-n.at:137: PIC N Move with justify - at_setup_line='pic-n.at:137' - at_desc='PIC N Move with justify' - $at_quiet $ECHO_N " 40: PIC N Move with justify $ECHO_C" - at_xfail=no - ( - echo "40. pic-n.at:137: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(9) JUSTIFIED RIGHT. - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:151: \${COMPILE} -x prog.cob" -echo pic-n.at:151 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:151: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:152: ./prog" -echo pic-n.at:152 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " 日本語の文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:152: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 41 ) # 41. pic-n.at:156: PIC N Move 2 bytes char with justify - at_setup_line='pic-n.at:156' - at_desc='PIC N Move 2 bytes char with justify' - $at_quiet $ECHO_N " 41: PIC N Move 2 bytes char with justify $ECHO_C" - at_xfail=no - ( - echo "41. pic-n.at:156: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2) JUSTIFIED RIGHT. - PROCEDURE DIVISION. - MOVE "α" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:170: \${COMPILE} -x prog.cob" -echo pic-n.at:170 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:170: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:171: ./prog" -echo pic-n.at:171 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo " α" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:171: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 42 ) # 42. pic-n.at:175: PIC N Move to NATIONAL EDITED - at_setup_line='pic-n.at:175' - at_desc='PIC N Move to NATIONAL EDITED' - $at_quiet $ECHO_N " 42: PIC N Move to NATIONAL EDITED $ECHO_C" - at_xfail=no - ( - echo "42. pic-n.at:175: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC NN/NNBNN0. - PROCEDURE DIVISION. - MOVE "日本中国文字" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:189: \${COMPILE} -x prog.cob" -echo pic-n.at:189 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:189: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:190: ./prog" -echo pic-n.at:190 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "日本／中国　文字０" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:190: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 43 ) # 43. pic-n.at:194: PIC N Move with half-width alnum conv. - at_setup_line='pic-n.at:194' - at_desc='PIC N Move with half-width alnum conv.' - $at_quiet $ECHO_N " 43: PIC N Move with half-width alnum conv. $ECHO_C" - at_xfail=no - ( - echo "43. pic-n.at:194: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "ABC0123" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:208: \${COMPILE} -x prog.cob" -echo pic-n.at:208 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:208: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:209: ./prog" -echo pic-n.at:209 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "ＡＢＣ０１２３" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:209: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 44 ) # 44. pic-n.at:213: PIC N Move with half-width kana conv. - at_setup_line='pic-n.at:213' - at_desc='PIC N Move with half-width kana conv.' - $at_quiet $ECHO_N " 44: PIC N Move with half-width kana conv. $ECHO_C" - at_xfail=no - ( - echo "44. pic-n.at:213: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "ｺﾒﾀﾞｺｰﾋｰ" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:227: \${COMPILE} -x prog.cob" -echo pic-n.at:227 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:227: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:228: ./prog" -echo pic-n.at:228 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "コメダコーヒー" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:228: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 45 ) # 45. pic-n.at:232: PIC N Ref mod(n:) - at_setup_line='pic-n.at:232' - at_desc='PIC N Ref mod(n:)' - $at_quiet $ECHO_N " 45: PIC N Ref mod(n:) $ECHO_C" - at_xfail=no - ( - echo "45. pic-n.at:232: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0(13:) WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:246: \${COMPILE} -x prog.cob" -echo pic-n.at:246 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:246: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:247: ./prog" -echo pic-n.at:247 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "文字列" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:247: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 46 ) # 46. pic-n.at:251: PIC N Ref mod(n:m) - at_setup_line='pic-n.at:251' - at_desc='PIC N Ref mod(n:m)' - $at_quiet $ECHO_N " 46: PIC N Ref mod(n:m) $ECHO_C" - at_xfail=no - ( - echo "46. pic-n.at:251: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "日本語の文字列" TO F0. - DISPLAY F0(13:6) WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:265: \${COMPILE} -x prog.cob" -echo pic-n.at:265 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:265: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:266: ./prog" -echo pic-n.at:266 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "文字" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:266: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 47 ) # 47. pic-n.at:270: PIC N STRING by size - at_setup_line='pic-n.at:270' - at_desc='PIC N STRING by size' - $at_quiet $ECHO_N " 47: PIC N STRING by size $ECHO_C" - at_xfail=no - ( - echo "47. pic-n.at:270: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2) VALUE "私の". - 01 F1 PIC N(3) VALUE "名前は". - 01 F2 PIC N(5) VALUE "ありません". - 01 FF PIC N(10). - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY SIZE - INTO FF. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:288: \${COMPILE} -x prog.cob" -echo pic-n.at:288 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:288: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:289: ./prog" -echo pic-n.at:289 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "私の名前はありません" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:289: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 48 ) # 48. pic-n.at:293: PIC N STRING with delimiter (causes warn) - at_setup_line='pic-n.at:293' - at_desc='PIC N STRING with delimiter (causes warn)' - $at_quiet $ECHO_N " 48: PIC N STRING with delimiter (causes warn) $ECHO_C" - at_xfail=no - ( - echo "48. pic-n.at:293: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2) VALUE "私の". - 01 F1 PIC N(4) VALUE "名前△は". - 01 F2 PIC N(6) VALUE "△ありません". - 01 FF PIC N(4). - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY "△" - INTO FF. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:311: \${COMPILE} -x prog.cob" -echo pic-n.at:311 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:311: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:312: ./prog" -echo pic-n.at:312 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "私の名前" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:312: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 49 ) # 49. pic-n.at:316: PIC N STRING with NATIONAL delimiter - at_setup_line='pic-n.at:316' - at_desc='PIC N STRING with NATIONAL delimiter' - $at_quiet $ECHO_N " 49: PIC N STRING with NATIONAL delimiter $ECHO_C" - at_xfail=no - ( - echo "49. pic-n.at:316: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2) VALUE "私の". - 01 F1 PIC N(4) VALUE "名前△は". - 01 F2 PIC N(6) VALUE "△ありません". - 01 FF PIC N(4). - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY N"△" - INTO FF. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:334: \${COMPILE} -x prog.cob" -echo pic-n.at:334 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:334: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:335: ./prog" -echo pic-n.at:335 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "私の名前" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:335: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 50 ) # 50. pic-n.at:339: PIC N STRING with pointer - at_setup_line='pic-n.at:339' - at_desc='PIC N STRING with pointer' - $at_quiet $ECHO_N " 50: PIC N STRING with pointer $ECHO_C" - at_xfail=no - ( - echo "50. pic-n.at:339: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(2) VALUE "私の". - 01 F1 PIC N(3) VALUE "名前は". - 01 F2 PIC N(5) VALUE "ありません". - 01 FF PIC N(10) VALUE "言えません◎○△■※". - 01 FP PIC 99 VALUE 16. - PROCEDURE DIVISION. - STRING F0 F1 F2 DELIMITED BY SIZE - INTO FF WITH POINTER FP. - DISPLAY FF WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:358: \${COMPILE} -x prog.cob" -echo pic-n.at:358 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:358: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:359: ./prog" -echo pic-n.at:359 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "言えません私の名前は" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:359: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 51 ) # 51. pic-n.at:363: PIC N INSPECT REPLACING - at_setup_line='pic-n.at:363' - at_desc='PIC N INSPECT REPLACING' - $at_quiet $ECHO_N " 51: PIC N INSPECT REPLACING $ECHO_C" - at_xfail=no - ( - echo "51. pic-n.at:363: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(10) VALUE "１２３４５１２３４５". - PROCEDURE DIVISION. - INSPECT F0 REPLACING ALL "５" BY "０". - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:377: \${COMPILE} -x prog.cob" -echo pic-n.at:377 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:377: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:378: ./prog" -echo pic-n.at:378 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "１２３４０１２３４０" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:378: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 52 ) # 52. pic-n.at:382: PIC N INSPECT REPLACING by ZERO - at_setup_line='pic-n.at:382' - at_desc='PIC N INSPECT REPLACING by ZERO' - $at_quiet $ECHO_N " 52: PIC N INSPECT REPLACING by ZERO $ECHO_C" - at_xfail=no - ( - echo "52. pic-n.at:382: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(10) VALUE "１２３４５１２３４５". - PROCEDURE DIVISION. - INSPECT F0 REPLACING ALL "５" BY ZERO. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:396: \${COMPILE} -x prog.cob" -echo pic-n.at:396 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:396: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:397: ./prog" -echo pic-n.at:397 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "１２３４000１２３４000" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:397: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 53 ) # 53. pic-n.at:401: PIC N INSPECT REPLACING by NATIONAL ZERO - at_setup_line='pic-n.at:401' - at_desc='PIC N INSPECT REPLACING by NATIONAL ZERO' - $at_quiet $ECHO_N " 53: PIC N INSPECT REPLACING by NATIONAL ZERO $ECHO_C" - at_xfail=no - ( - echo "53. pic-n.at:401: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(10) VALUE "１２３４５１２３４５". - PROCEDURE DIVISION. - INSPECT F0 REPLACING ALL N"５" BY ZERO. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:415: \${COMPILE} -x prog.cob" -echo pic-n.at:415 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:415: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:416: ./prog" -echo pic-n.at:416 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "１２３４０１２３４０" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:416: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 54 ) # 54. pic-n.at:420: PIC N INSPECT TALLYING - at_setup_line='pic-n.at:420' - at_desc='PIC N INSPECT TALLYING' - $at_quiet $ECHO_N " 54: PIC N INSPECT TALLYING $ECHO_C" - at_xfail=no - ( - echo "54. pic-n.at:420: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(10) VALUE "１２３４５１２３４５". - 01 CN PIC 99. - PROCEDURE DIVISION. - INSPECT F0 TALLYING CN FOR ALL "４５". - DISPLAY CN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:435: \${COMPILE} -x prog.cob" -echo pic-n.at:435 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:435: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:436: ./prog" -echo pic-n.at:436 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "02" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:436: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 55 ) # 55. pic-n.at:440: PIC N Move with half-width dakuten kana. - at_setup_line='pic-n.at:440' - at_desc='PIC N Move with half-width dakuten kana.' - $at_quiet $ECHO_N " 55: PIC N Move with half-width dakuten kana. $ECHO_C" - at_xfail=no - ( - echo "55. pic-n.at:440: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "ﾞﾀﾞ･ｳﾞｨﾝﾁ" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:454: \${COMPILE} -x prog.cob" -echo pic-n.at:454 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:454: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:455: ./prog" -echo pic-n.at:455 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "゛ダ・ヴィンチ" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:455: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 56 ) # 56. pic-n.at:459: PIC N Move with half-width han-dakuten kana. - at_setup_line='pic-n.at:459' - at_desc='PIC N Move with half-width han-dakuten kana.' - $at_quiet $ECHO_N " 56: PIC N Move with half-width han-dakuten kana. $ECHO_C" - at_xfail=no - ( - echo "56. pic-n.at:459: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC N(7). - PROCEDURE DIVISION. - MOVE "ﾟﾎﾟﾝﾃﾞﾘﾝｸﾞ" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-n.at:473: \${COMPILE} -x prog.cob" -echo pic-n.at:473 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:473: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-n.at:474: ./prog" -echo pic-n.at:474 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "゜ポンデリング" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-n.at:474: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 57 ) # 57. pic-bn.at:1: PIC BN Value clause - at_setup_line='pic-bn.at:1' - at_desc='PIC BN Value clause' - $at_quiet $ECHO_N " 57: PIC BN Value clause $ECHO_C" - at_xfail=no - ( - echo "57. pic-bn.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC BN(3) VALUE "日本語". - PROCEDURE DIVISION. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-bn.at:14: \${COMPILE} -x prog.cob" -echo pic-bn.at:14 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-bn.at:14: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-bn.at:15: ./prog" -echo pic-bn.at:15 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "　日本語" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-bn.at:15: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 58 ) # 58. pic-bn.at:19: PIC BN Move - at_setup_line='pic-bn.at:19' - at_desc='PIC BN Move' - $at_quiet $ECHO_N " 58: PIC BN Move $ECHO_C" - at_xfail=no - ( - echo "58. pic-bn.at:19: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC BN(3). - PROCEDURE DIVISION. - MOVE "日本語" TO F0. - DISPLAY F0 WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-bn.at:33: \${COMPILE} -x prog.cob" -echo pic-bn.at:33 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-bn.at:33: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-bn.at:34: ./prog" -echo pic-bn.at:34 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "　日本語" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-bn.at:34: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 59 ) # 59. pic-bn.at:38: PIC BN Refmod char by char - at_setup_line='pic-bn.at:38' - at_desc='PIC BN Refmod char by char' - $at_quiet $ECHO_N " 59: PIC BN Refmod char by char $ECHO_C" - at_xfail=no - ( - echo "59. pic-bn.at:38: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 F0 PIC BN(3) VALUE "日本語". - PROCEDURE DIVISION. - DISPLAY F0(1:3) WITH NO ADVANCING. - DISPLAY F0(4:3) WITH NO ADVANCING. - DISPLAY F0(7:3) WITH NO ADVANCING. - DISPLAY F0(10:3) WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "pic-bn.at:54: \${COMPILE} -x prog.cob" -echo pic-bn.at:54 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-bn.at:54: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "pic-bn.at:55: ./prog" -echo pic-bn.at:55 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "　日本語" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "pic-bn.at:55: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 60 ) # 60. program-id.at:1: PROGRAM-ID NATIONAL C89 no warning - at_setup_line='program-id.at:1' - at_desc='PROGRAM-ID NATIONAL C89 no warning' - $at_quiet $ECHO_N " 60: PROGRAM-ID NATIONAL C89 no warning $ECHO_C" - at_xfail=no - ( - echo "60. program-id.at:1: testing ..." - $at_traceon - - -cat >test.conf <<'_ATEOF' - -include "default.conf" -c89-identifier-length-check: yes -_ATEOF - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. 東京都. - DATA DIVISION. - PROCEDURE DIVISION. - END PROGRAM 東京都. -_ATEOF - - -$at_traceoff -echo "program-id.at:16: \${COMPILE} -conf=test.conf -x prog.cob" -echo program-id.at:16 >$at_check_line_file -( $at_traceon; ${COMPILE} -conf=test.conf -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "program-id.at:16: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 61 ) # 61. program-id.at:20: PROGRAM-ID NATIONAL C89 warning - at_setup_line='program-id.at:20' - at_desc='PROGRAM-ID NATIONAL C89 warning' - $at_quiet $ECHO_N " 61: PROGRAM-ID NATIONAL C89 warning $ECHO_C" - at_xfail=no - ( - echo "61. program-id.at:20: testing ..." - $at_traceon - - -cat >test.conf <<'_ATEOF' - -include "default.conf" -c89-identifier-length-check: yes -_ATEOF - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. 東京湾岸港湾局. - DATA DIVISION. - PROCEDURE DIVISION. - END PROGRAM 東京湾岸港湾局. -_ATEOF - - -$at_traceoff -echo "program-id.at:35: \${COMPILE} -conf=test.conf -x prog.cob" -echo program-id.at:35 >$at_check_line_file -( $at_traceon; ${COMPILE} -conf=test.conf -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:3: Warning: PROGRAM-ID length exceeds C89 function name limit -prog.cob:6: Warning: PROGRAM-ID length exceeds C89 function name limit -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "program-id.at:35: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 62 ) # 62. program-id.at:42: PROGRAM-ID NATIONAL C89 ignore - at_setup_line='program-id.at:42' - at_desc='PROGRAM-ID NATIONAL C89 ignore' - $at_quiet $ECHO_N " 62: PROGRAM-ID NATIONAL C89 ignore $ECHO_C" - at_xfail=no - ( - echo "62. program-id.at:42: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. 東京湾岸港湾局. - DATA DIVISION. - PROCEDURE DIVISION. - END PROGRAM 東京湾岸港湾局. -_ATEOF - - -$at_traceoff -echo "program-id.at:52: \${COMPILE} -x prog.cob" -echo program-id.at:52 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "program-id.at:52: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 63 ) # 63. program-id.at:56: PROGRAM-ID NATIONAL 32 character no over - at_setup_line='program-id.at:56' - at_desc='PROGRAM-ID NATIONAL 32 character no over' - $at_quiet $ECHO_N " 63: PROGRAM-ID NATIONAL 32 character no over $ECHO_C" - at_xfail=no - ( - echo "63. program-id.at:56: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. あいうえおかきくけこさしすせそ - -たちつてとなにぬねのはひふへほ. - DATA DIVISION. - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "program-id.at:67: \${COMPILE} -x prog.cob" -echo program-id.at:67 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "program-id.at:67: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 64 ) # 64. program-id.at:71: PROGRAM-ID NATIONAL 32 character over - at_setup_line='program-id.at:71' - at_desc='PROGRAM-ID NATIONAL 32 character over' - $at_quiet $ECHO_N " 64: PROGRAM-ID NATIONAL 32 character over $ECHO_C" - at_xfail=no - ( - echo "64. program-id.at:71: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. あいうえおかきくけこさしすせそ - -たちつてとなにぬねのはひふへほまみ. - DATA DIVISION. - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "program-id.at:82: \${COMPILE} -x prog.cob" -echo program-id.at:82 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:3: Error: User defined name must be less than 32 characters -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "program-id.at:82: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 65 ) # 65. error-print.at:1: undefined not message - at_setup_line='error-print.at:1' - at_desc='undefined not message' - $at_quiet $ECHO_N " 65: undefined not message $ECHO_C" - at_xfail=no - ( - echo "65. error-print.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - identification division. - program-id. prog. - data division. - working-storage section. - 01 wk-01. - 03 wk-02 pic x(4). - 03 ｗｋ－０３ redefines wk-02 pic n(2). - 01 cnt pic 9(1). - procedure division. - inspect ｗｋ－０３ tallying cnt - for characters before initial space. - stop run. -_ATEOF - - -$at_traceoff -echo "error-print.at:18: \${COMPILE} -x prog.cob" -echo error-print.at:18 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:8: Error: Size of 'ｗｋ－０３' larger than size of 'wk-02' -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "error-print.at:18: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 66 ) # 66. error-print.at:24: Encoding alphanumeric name item - at_setup_line='error-print.at:24' - at_desc='Encoding alphanumeric name item' - $at_quiet $ECHO_N " 66: Encoding alphanumeric name item $ECHO_C" - at_xfail=no - ( - echo "66. error-print.at:24: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - PROCEDURE DIVISION. - DISPLAY A___E38182___A. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "error-print.at:35: \${COMPILE} -x prog.cob" -echo error-print.at:35 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: 'A___E38182___A' undefined -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "error-print.at:35: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 67 ) # 67. error-print.at:41: Encoding national name item - at_setup_line='error-print.at:41' - at_desc='Encoding national name item' - $at_quiet $ECHO_N " 67: Encoding national name item $ECHO_C" - at_xfail=no - ( - echo "67. error-print.at:41: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - PROCEDURE DIVISION. - DISPLAY A___あ___A. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "error-print.at:52: \${COMPILE} -x prog.cob" -echo error-print.at:52 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: 'A___あ___A' undefined -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "error-print.at:52: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 68 ) # 68. stored-char-length.at:1: FUNCTION STORED-CHAR-LENGTH(PIC X) - at_setup_line='stored-char-length.at:1' - at_desc='FUNCTION STORED-CHAR-LENGTH(PIC X)' - $at_quiet $ECHO_N " 68: FUNCTION STORED-CHAR-LENGTH(PIC X) $ECHO_C" - at_xfail=no - ( - echo "68. stored-char-length.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 77 NSTR PIC X(30) USAGE DISPLAY. - 77 NLEN PIC 9(2) USAGE DISPLAY. - PROCEDURE DIVISION. - MOVE ".プリウスα" TO NSTR. - MOVE FUNCTION STORED-CHAR-LENGTH(NSTR) TO NLEN. - DISPLAY NLEN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:17: \${COMPILE} -x prog.cob" -echo stored-char-length.at:17 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:17: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:18: ./prog" -echo stored-char-length.at:18 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "06" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:18: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 69 ) # 69. stored-char-length.at:22: FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPC - at_setup_line='stored-char-length.at:22' - at_desc='FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPC' - $at_quiet $ECHO_N " 69: FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPC $ECHO_C" - at_xfail=no - ( - echo "69. stored-char-length.at:22: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 77 NSTR PIC X(30) USAGE DISPLAY. - 77 NLEN PIC 9(2) USAGE DISPLAY. - PROCEDURE DIVISION. - MOVE ".プリウスα " TO NSTR. - MOVE FUNCTION STORED-CHAR-LENGTH(NSTR) TO NLEN. - DISPLAY NLEN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:38: \${COMPILE} -x prog.cob" -echo stored-char-length.at:38 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:38: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:39: ./prog" -echo stored-char-length.at:39 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "06" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:39: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 70 ) # 70. stored-char-length.at:43: FUNCTION STORED-CHAR-LENGTH(PIC X) /w wSPC - at_setup_line='stored-char-length.at:43' - at_desc='FUNCTION STORED-CHAR-LENGTH(PIC X) /w wSPC' - $at_quiet $ECHO_N " 70: FUNCTION STORED-CHAR-LENGTH(PIC X) /w wSPC $ECHO_C" - at_xfail=no - ( - echo "70. stored-char-length.at:43: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 77 NSTR PIC X(30) USAGE DISPLAY. - 77 NLEN PIC 9(2) USAGE DISPLAY. - PROCEDURE DIVISION. - MOVE ".プリウスα　" TO NSTR. - MOVE FUNCTION STORED-CHAR-LENGTH(NSTR) TO NLEN. - DISPLAY NLEN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:59: \${COMPILE} -x prog.cob" -echo stored-char-length.at:59 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:59: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:60: ./prog" -echo stored-char-length.at:60 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "06" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:60: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 71 ) # 71. stored-char-length.at:64: FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPCs - at_setup_line='stored-char-length.at:64' - at_desc='FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPCs' - $at_quiet $ECHO_N " 71: FUNCTION STORED-CHAR-LENGTH(PIC X) /w SPCs $ECHO_C" - at_xfail=no - ( - echo "71. stored-char-length.at:64: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 77 NSTR PIC X(30) USAGE DISPLAY. - 77 NLEN PIC 9(2) USAGE DISPLAY. - PROCEDURE DIVISION. - MOVE ".プリウスα　 " TO NSTR. - MOVE FUNCTION STORED-CHAR-LENGTH(NSTR) TO NLEN. - DISPLAY NLEN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:80: \${COMPILE} -x prog.cob" -echo stored-char-length.at:80 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:80: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:81: ./prog" -echo stored-char-length.at:81 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "06" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:81: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 72 ) # 72. stored-char-length.at:85: FUNCTION STORED-CHAR-LENGTH(PIC N) - at_setup_line='stored-char-length.at:85' - at_desc='FUNCTION STORED-CHAR-LENGTH(PIC N)' - $at_quiet $ECHO_N " 72: FUNCTION STORED-CHAR-LENGTH(PIC N) $ECHO_C" - at_xfail=no - ( - echo "72. stored-char-length.at:85: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 77 NSTR PIC N(10) USAGE DISPLAY. - 77 NLEN PIC 9(2) USAGE DISPLAY. - PROCEDURE DIVISION. - MOVE ".プリウスα" TO NSTR. - MOVE FUNCTION STORED-CHAR-LENGTH(NSTR) TO NLEN. - DISPLAY NLEN WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:101: \${COMPILE} -x prog.cob" -echo stored-char-length.at:101 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:101: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:102: ./prog" -echo stored-char-length.at:102 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "06" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:102: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 73 ) # 73. stored-char-length.at:106: FUNCTION STORED-CHAR-LENGTH(SINGLE-BYTE SPACE) - at_setup_line='stored-char-length.at:106' - at_desc='FUNCTION STORED-CHAR-LENGTH(SINGLE-BYTE SPACE)' - $at_quiet $ECHO_N " 73: FUNCTION STORED-CHAR-LENGTH(SINGLE-BYTE SPACE)$ECHO_C" - at_xfail=no - ( - echo "73. stored-char-length.at:106: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 Y PIC X(24). - PROCEDURE DIVISION. - MOVE "1234567 12" TO Y. - DISPLAY FUNCTION STORED-CHAR-LENGTH ( Y ) - END-DISPLAY. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:121: \${COMPILE} -o prog prog.cob" -echo stored-char-length.at:121 >$at_check_line_file -( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:121: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:122: ./prog" -echo stored-char-length.at:122 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "00000012 -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:122: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 74 ) # 74. stored-char-length.at:127: FUNCTION STORED-CHAR-LENGTH(DOUBLE-BYTE SPACE) - at_setup_line='stored-char-length.at:127' - at_desc='FUNCTION STORED-CHAR-LENGTH(DOUBLE-BYTE SPACE)' - $at_quiet $ECHO_N " 74: FUNCTION STORED-CHAR-LENGTH(DOUBLE-BYTE SPACE)$ECHO_C" - at_xfail=no - ( - echo "74. stored-char-length.at:127: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 Y PIC X(24). - PROCEDURE DIVISION. - MOVE "１２　４" TO Y. - DISPLAY FUNCTION STORED-CHAR-LENGTH ( Y ) - END-DISPLAY. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "stored-char-length.at:142: \${COMPILE} -o prog prog.cob" -echo stored-char-length.at:142 >$at_check_line_file -( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:142: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "stored-char-length.at:143: ./prog" -echo stored-char-length.at:143 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "00000004 -" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "stored-char-length.at:143: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 75 ) # 75. warn-mixture-byte.at:1: STRING Alphanumeric to National - at_setup_line='warn-mixture-byte.at:1' - at_desc='STRING Alphanumeric to National' - $at_quiet $ECHO_N " 75: STRING Alphanumeric to National $ECHO_C" - at_xfail=no - ( - echo "75. warn-mixture-byte.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 X PIC X(6) value "procob". - 01 Y PIC N(6). - PROCEDURE DIVISION. - STRING X DELIMITED BY SIZE INTO Y. - DISPLAY Y NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "warn-mixture-byte.at:16: \${COMPILE} -x prog.cob" -echo warn-mixture-byte.at:16 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "warn-mixture-byte.at:16: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "warn-mixture-byte.at:17: ./prog" -echo warn-mixture-byte.at:17 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "procob " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "warn-mixture-byte.at:17: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 76 ) # 76. warn-mixture-byte.at:21: STRING National to Alphanumeric - at_setup_line='warn-mixture-byte.at:21' - at_desc='STRING National to Alphanumeric' - $at_quiet $ECHO_N " 76: STRING National to Alphanumeric $ECHO_C" - at_xfail=no - ( - echo "76. warn-mixture-byte.at:21: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 X PIC N(6) VALUE "ｐｒｏｃｏｂ". - 01 Y PIC X(18). - PROCEDURE DIVISION. - STRING X DELIMITED BY SIZE INTO Y. - DISPLAY Y NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "warn-mixture-byte.at:36: \${COMPILE} -x prog.cob" -echo warn-mixture-byte.at:36 >$at_check_line_file -( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "warn-mixture-byte.at:36: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "warn-mixture-byte.at:37: ./prog" -echo warn-mixture-byte.at:37 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "ｐｒｏｃｏｂ" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "warn-mixture-byte.at:37: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 77 ) # 77. limits.at:1: Field length limit PIC A/VALID - at_setup_line='limits.at:1' - at_desc='Field length limit PIC A/VALID' - $at_quiet $ECHO_N " 77: Field length limit PIC A/VALID $ECHO_C" - at_xfail=no - ( - echo "77. limits.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC A(16777216). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:13: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:13 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:13: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 78 ) # 78. limits.at:17: Field length limit PIC A/TOO LONG - at_setup_line='limits.at:17' - at_desc='Field length limit PIC A/TOO LONG' - $at_quiet $ECHO_N " 78: Field length limit PIC A/TOO LONG $ECHO_C" - at_xfail=no - ( - echo "78. limits.at:17: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC A(16777217). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:29: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:29 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: Alphabetic field cannot be larger than 16777216 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:29: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 79 ) # 79. limits.at:35: Field length limit PIC X/VALID - at_setup_line='limits.at:35' - at_desc='Field length limit PIC X/VALID' - $at_quiet $ECHO_N " 79: Field length limit PIC X/VALID $ECHO_C" - at_xfail=no - ( - echo "79. limits.at:35: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC X(16777216). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:47: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:47 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:47: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 80 ) # 80. limits.at:51: Field length limit PIC X/TOO LONG - at_setup_line='limits.at:51' - at_desc='Field length limit PIC X/TOO LONG' - $at_quiet $ECHO_N " 80: Field length limit PIC X/TOO LONG $ECHO_C" - at_xfail=no - ( - echo "80. limits.at:51: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC X(16777217). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:63: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:63 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumeric field cannot be larger than 16777216 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:63: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 81 ) # 81. limits.at:69: Field length limit PIC B9/VALID - at_setup_line='limits.at:69' - at_desc='Field length limit PIC B9/VALID' - $at_quiet $ECHO_N " 81: Field length limit PIC B9/VALID $ECHO_C" - at_xfail=no - ( - echo "81. limits.at:69: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC B9(159). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:81: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:81 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:81: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 82 ) # 82. limits.at:85: Field length limit PIC B9/TOO LONG - at_setup_line='limits.at:85' - at_desc='Field length limit PIC B9/TOO LONG' - $at_quiet $ECHO_N " 82: Field length limit PIC B9/TOO LONG $ECHO_C" - at_xfail=no - ( - echo "82. limits.at:85: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC B9(160). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:97: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:97 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: NumericEdit field cannot be larger than 160 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:97: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 83 ) # 83. limits.at:103: Field length limit PIC B/VALID - at_setup_line='limits.at:103' - at_desc='Field length limit PIC B/VALID' - $at_quiet $ECHO_N " 83: Field length limit PIC B/VALID $ECHO_C" - at_xfail=no - ( - echo "83. limits.at:103: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC B(16777216). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:115: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:115 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:115: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 84 ) # 84. limits.at:119: Field length limit PIC B/TOO LONG - at_setup_line='limits.at:119' - at_desc='Field length limit PIC B/TOO LONG' - $at_quiet $ECHO_N " 84: Field length limit PIC B/TOO LONG $ECHO_C" - at_xfail=no - ( - echo "84. limits.at:119: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC B(16777217). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:131: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:131 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:131: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 85 ) # 85. limits.at:137: Field length limit PIC BA/VALID - at_setup_line='limits.at:137' - at_desc='Field length limit PIC BA/VALID' - $at_quiet $ECHO_N " 85: Field length limit PIC BA/VALID $ECHO_C" - at_xfail=no - ( - echo "85. limits.at:137: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC BA(16777215). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:149: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:149 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:149: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 86 ) # 86. limits.at:153: Field length limit PIC BA/TOO LONG - at_setup_line='limits.at:153' - at_desc='Field length limit PIC BA/TOO LONG' - $at_quiet $ECHO_N " 86: Field length limit PIC BA/TOO LONG $ECHO_C" - at_xfail=no - ( - echo "86. limits.at:153: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC BA(16777216). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:165: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:165 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:165: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 87 ) # 87. limits.at:171: Field length limit PIC BX/VALID - at_setup_line='limits.at:171' - at_desc='Field length limit PIC BX/VALID' - $at_quiet $ECHO_N " 87: Field length limit PIC BX/VALID $ECHO_C" - at_xfail=no - ( - echo "87. limits.at:171: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC BX(16777215). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:183: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:183 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:183: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 88 ) # 88. limits.at:187: Field length limit PIC BX/TOO LONG - at_setup_line='limits.at:187' - at_desc='Field length limit PIC BX/TOO LONG' - $at_quiet $ECHO_N " 88: Field length limit PIC BX/TOO LONG $ECHO_C" - at_xfail=no - ( - echo "88. limits.at:187: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-X PIC BX(16777216). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:199: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:199 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: AlphaNumericEdit field cannot be larger than 16777216 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:199: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 89 ) # 89. limits.at:205: Field length limit PIC N/VALID (UTF-8) - at_setup_line='limits.at:205' - at_desc='Field length limit PIC N/VALID (UTF-8)' - $at_quiet $ECHO_N " 89: Field length limit PIC N/VALID (UTF-8) $ECHO_C" - at_xfail=no - ( - echo "89. limits.at:205: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-N PIC N(5592405). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:217: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:217 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:217: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 90 ) # 90. limits.at:221: Field length limit PIC N/TOO LONG (UTF-8) - at_setup_line='limits.at:221' - at_desc='Field length limit PIC N/TOO LONG (UTF-8)' - $at_quiet $ECHO_N " 90: Field length limit PIC N/TOO LONG (UTF-8) $ECHO_C" - at_xfail=no - ( - echo "90. limits.at:221: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 INVALID-N PIC N(5592406). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:233: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:233 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: National field cannot be larger than 5592405 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:233: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 91 ) # 91. limits.at:239: Field length limit PIC BN/VALID (UTF-8) - at_setup_line='limits.at:239' - at_desc='Field length limit PIC BN/VALID (UTF-8)' - $at_quiet $ECHO_N " 91: Field length limit PIC BN/VALID (UTF-8) $ECHO_C" - at_xfail=no - ( - echo "91. limits.at:239: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 VALID-BN PIC BN(5592404). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:251: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:251 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "limits.at:251: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 92 ) # 92. limits.at:255: Field length limit PIC BN/TOO LONG (UTF-8) - at_setup_line='limits.at:255' - at_desc='Field length limit PIC BN/TOO LONG (UTF-8)' - $at_quiet $ECHO_N " 92: Field length limit PIC BN/TOO LONG (UTF-8) $ECHO_C" - at_xfail=no - ( - echo "92. limits.at:255: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 INVALID-BN PIC BN(5592405). - PROCEDURE DIVISION. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "limits.at:267: \${COMPILE_LIMIT_TEST} -o prog prog.cob" -echo limits.at:267 >$at_check_line_file -( $at_traceon; ${COMPILE_LIMIT_TEST} -o prog prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -echo >>$at_stderr; echo "prog.cob:6: Error: NationalEdit field cannot be larger than 5592405 digits -" | $at_diff - $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 1) ;; - *) echo "limits.at:267: exit code was $at_status, expected 1" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 93 ) # 93. national.at:1: FUNCTION NATIONAL single-byte - at_setup_line='national.at:1' - at_desc='FUNCTION NATIONAL single-byte' - $at_quiet $ECHO_N " 93: FUNCTION NATIONAL single-byte $ECHO_C" - at_xfail=no - ( - echo "93. national.at:1: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(5). - 01 O-STR PIC X(15). - PROCEDURE DIVISION. - MOVE "ABCDZ" TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:17: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:17 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:17: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:18: ./prog" -echo national.at:18 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "ＡＢＣＤＺ" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:18: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 94 ) # 94. national.at:22: FUNCTION NATIONAL multi-byte - at_setup_line='national.at:22' - at_desc='FUNCTION NATIONAL multi-byte' - $at_quiet $ECHO_N " 94: FUNCTION NATIONAL multi-byte $ECHO_C" - at_xfail=no - ( - echo "94. national.at:22: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(12). - 01 O-STR PIC X(18). - PROCEDURE DIVISION. - MOVE "AＢC１2３" TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:38: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:38 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:38: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:39: ./prog" -echo national.at:39 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "ＡＢＣ１２３" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:39: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 95 ) # 95. national.at:43: FUNCTION NATIONAL KIGOU-exclamation - at_setup_line='national.at:43' - at_desc='FUNCTION NATIONAL KIGOU-exclamation' - $at_quiet $ECHO_N " 95: FUNCTION NATIONAL KIGOU-exclamation $ECHO_C" - at_xfail=no - ( - echo "95. national.at:43: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(5). - 01 O-STR PIC X(15). - PROCEDURE DIVISION. - MOVE "!!!!!" TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:59: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:59 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:59: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:60: ./prog" -echo national.at:60 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "！！！！！" | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:60: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 96 ) # 96. national.at:64: FUNCTION NATIONAL KIGOU-yen - at_setup_line='national.at:64' - at_desc='FUNCTION NATIONAL KIGOU-yen' - $at_quiet $ECHO_N " 96: FUNCTION NATIONAL KIGOU-yen $ECHO_C" - at_xfail=no - ( - echo "96. national.at:64: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(1). - 01 O-STR PIC X(15). - PROCEDURE DIVISION. - MOVE "\" TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:80: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:80 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:80: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:81: ./prog" -echo national.at:81 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "￥ " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:81: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 97 ) # 97. national.at:85: FUNCTION NATIONAL KIGOU-plus - at_setup_line='national.at:85' - at_desc='FUNCTION NATIONAL KIGOU-plus' - $at_quiet $ECHO_N " 97: FUNCTION NATIONAL KIGOU-plus $ECHO_C" - at_xfail=no - ( - echo "97. national.at:85: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(2). - 01 O-STR PIC X(15). - PROCEDURE DIVISION. - MOVE "+ " TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:101: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:101 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:101: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:102: ./prog" -echo national.at:102 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "＋　 " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:102: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 98 ) # 98. national.at:106: FUNCTION NATIONAL (HanKana w/ Daku-on) - at_setup_line='national.at:106' - at_desc='FUNCTION NATIONAL (HanKana w/ Daku-on)' - $at_quiet $ECHO_N " 98: FUNCTION NATIONAL (HanKana w/ Daku-on) $ECHO_C" - at_xfail=no - ( - echo "98. national.at:106: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(24). - 01 O-STR PIC X(24). - PROCEDURE DIVISION. - MOVE "ﾚﾃﾞｨｶﾞｶﾞ" TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:122: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:122 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:122: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:123: ./prog" -echo national.at:123 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "レディガガ " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:123: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - 99 ) # 99. national.at:127: FUNCTION NATIONAL (HanKana w/ Han-daku-on) - at_setup_line='national.at:127' - at_desc='FUNCTION NATIONAL (HanKana w/ Han-daku-on)' - $at_quiet $ECHO_N " 99: FUNCTION NATIONAL (HanKana w/ Han-daku-on) $ECHO_C" - at_xfail=no - ( - echo "99. national.at:127: testing ..." - $at_traceon - - -cat >prog.cob <<'_ATEOF' - - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 I-STR PIC X(15). - 01 O-STR PIC X(15). - PROCEDURE DIVISION. - MOVE "ﾎﾟﾋﾟﾝ" TO I-STR. - MOVE FUNCTION NATIONAL(I-STR) TO O-STR. - DISPLAY O-STR WITH NO ADVANCING. - STOP RUN. -_ATEOF - - -$at_traceoff -echo "national.at:143: \${COMPILE_JP_COMPAT} -x prog.cob" -echo national.at:143 >$at_check_line_file -( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -$at_diff $at_devnull $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:143: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - -$at_traceoff -echo "national.at:144: ./prog" -echo national.at:144 >$at_check_line_file -( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 -at_status=$? -grep '^ *+' $at_stder1 >&2 -grep -v '^ *+' $at_stder1 >$at_stderr -at_failed=false -$at_diff $at_devnull $at_stderr || at_failed=: -echo >>$at_stdout; echo "ポピン " | $at_diff - $at_stdout || at_failed=: -case $at_status in - 77) echo 77 > $at_status_file - exit 77;; - 0) ;; - *) echo "national.at:144: exit code was $at_status, expected 0" - at_failed=:;; -esac -if $at_failed; then - - echo 1 > $at_status_file - exit 1 -fi - -$at_traceon - - - $at_traceoff - $at_times_p && times >$at_times_file - ) 5>&1 2>&1 | eval $at_tee_pipe - at_status=`cat $at_status_file` - ;; - - - * ) - echo "$as_me: no such test group: $at_group" >&2 - continue - ;; - esac - - # Be sure to come back to the suite directory, in particular - # since below we might `rm' the group directory we are in currently. - cd $at_suite_dir - - case $at_group in - banner-*) ;; - *) - if test ! -f $at_check_line_file; then - sed "s/^ */$as_me: warning: /" <<_ATEOF - A failure happened in a test group before any test could be - run. This means that test suite is improperly designed. Please - report this failure to . -_ATEOF - echo "$at_setup_line" >$at_check_line_file - fi - at_group_count=`expr 1 + $at_group_count` - $at_verbose $ECHO_N "$at_group. $at_setup_line: $ECHO_C" - echo $ECHO_N "$at_group. $at_setup_line: $ECHO_C" >> $at_group_log - case $at_xfail:$at_status in - yes:0) - at_msg="UNEXPECTED PASS" - at_xpass_list="$at_xpass_list $at_group" - at_errexit=$at_errexit_p - ;; - no:0) - at_msg="ok" - at_pass_list="$at_pass_list $at_group" - at_errexit=false - ;; - *:77) - at_msg="skipped (`cat $at_check_line_file`)" - at_skip_list="$at_skip_list $at_group" - at_errexit=false - ;; - yes:*) - at_msg="expected failure (`cat $at_check_line_file`)" - at_xfail_list="$at_xfail_list $at_group" - at_errexit=false - ;; - no:*) - at_msg="FAILED (`cat $at_check_line_file`)" - at_fail_list="$at_fail_list $at_group" - at_errexit=$at_errexit_p - ;; - esac - echo $at_msg - at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" - case $at_status in - 0|77) - # $at_times_file is only available if the group succeeded. - # We're not including the group log, so the success message - # is written in the global log separately. But we also - # write to the group log in case they're using -d. - if test -f $at_times_file; then - at_log_msg="$at_log_msg (`sed 1d $at_times_file`)" - rm -f $at_times_file - fi - echo "$at_log_msg" >> $at_group_log - echo "$at_log_msg" >&5 - - # Cleanup the group directory, unless the user wants the files. - $at_debug_p || rm -rf $at_group_dir - ;; - *) - # Upon failure, include the log into the testsuite's global - # log. The failure message is written in the group log. It - # is later included in the global log. - echo "$at_log_msg" >> $at_group_log - - # Upon failure, keep the group directory for autopsy, and - # create the debugging script. - { - echo "#! /bin/sh" - echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' - echo "cd $at_dir" - echo 'exec ${CONFIG_SHELL-'"$SHELL"'}' "$0" \ - '-v -d' "$at_debug_args" "$at_group" '${1+"$@"}' - echo 'exit 1' - } >$at_group_dir/run - chmod +x $at_group_dir/run - $at_errexit && break - ;; - esac - ;; - esac -done - -# Back to the top directory. -cd $at_dir - -# Compute the duration of the suite. -at_stop_date=`date` -at_stop_time=`(date +%s) 2>/dev/null` -echo "$as_me: ending at: $at_stop_date" >&5 -at_duration_s=`(expr $at_stop_time - $at_start_time) 2>/dev/null` -at_duration_m=`(expr $at_duration_s / 60) 2>/dev/null` -at_duration_h=`(expr $at_duration_m / 60) 2>/dev/null` -at_duration_s=`(expr $at_duration_s % 60) 2>/dev/null` -at_duration_m=`(expr $at_duration_m % 60) 2>/dev/null` -at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" -if test "$at_duration" != "h m s"; then - echo "$as_me: test suite duration: $at_duration" >&5 -fi - -# Wrap up the test suite with summary statistics. -at_skip_count=`set dummy $at_skip_list; shift; echo $#` -at_fail_count=`set dummy $at_fail_list; shift; echo $#` -at_xpass_count=`set dummy $at_xpass_list; shift; echo $#` -at_xfail_count=`set dummy $at_xfail_list; shift; echo $#` - -at_run_count=`expr $at_group_count - $at_skip_count` -at_unexpected_count=`expr $at_xpass_count + $at_fail_count` -at_total_fail_count=`expr $at_xfail_count + $at_fail_count` - -echo -cat <<\_ASBOX -## ------------- ## -## Test results. ## -## ------------- ## -_ASBOX -echo -{ - echo - cat <<\_ASBOX -## ------------- ## -## Test results. ## -## ------------- ## -_ASBOX - echo -} >&5 - -if test $at_run_count = 1; then - at_result="1 test" - at_were=was -else - at_result="$at_run_count tests" - at_were=were -fi -if $at_errexit_p && test $at_unexpected_count != 0; then - if test $at_xpass_count = 1; then - at_result="$at_result $at_were run, one passed" - else - at_result="$at_result $at_were run, one failed" - fi - at_result="$at_result unexpectedly and inhibited subsequent tests." -else - # Don't you just love exponential explosion of the number of cases? - case $at_xpass_count:$at_fail_count:$at_xfail_count in - # So far, so good. - 0:0:0) at_result="$at_result $at_were successful." ;; - 0:0:*) at_result="$at_result behaved as expected." ;; - - # Some unexpected failures - 0:*:0) at_result="$at_result $at_were run, -$at_fail_count failed unexpectedly." ;; - - # Some failures, both expected and unexpected - 0:*:1) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - 0:*:*) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - - # No unexpected failures, but some xpasses - *:0:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly." ;; - - # No expected failures, but failures and xpasses - *:1:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; - *:*:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; - - # All of them. - *:*:1) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - *:*:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - esac - - if test $at_skip_count = 0 && test $at_run_count -gt 1; then - at_result="All $at_result" - fi -fi - -# Now put skips in the mix. -case $at_skip_count in - 0) ;; - 1) at_result="$at_result -1 test was skipped." ;; - *) at_result="$at_result -$at_skip_count tests were skipped." ;; -esac - -if test $at_unexpected_count = 0; then - echo "$at_result" - echo "$at_result" >&5 -else - echo "ERROR: $at_result" >&2 - echo "ERROR: $at_result" >&5 - { - echo - cat <<\_ASBOX -## ------------------------ ## -## Summary of the failures. ## -## ------------------------ ## -_ASBOX - - # Summary of failed and skipped tests. - if test $at_fail_count != 0; then - echo "Failed tests:" - $SHELL $0 $at_fail_list --list - echo - fi - if test $at_skip_count != 0; then - echo "Skipped tests:" - $SHELL $0 $at_skip_list --list - echo - fi - if test $at_xpass_count != 0; then - echo "Unexpected passes:" - $SHELL $0 $at_xpass_list --list - echo - fi - if test $at_fail_count != 0; then - cat <<\_ASBOX -## ---------------------- ## -## Detailed failed tests. ## -## ---------------------- ## -_ASBOX - echo - for at_group in $at_fail_list - do - # Normalize the test group number. - at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` - # Create a fresh directory for the next test group, and enter. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - cat $at_group_log - echo - done - echo - fi - if test -n "$at_top_srcdir"; then - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $at_top_builddir/config.log ## -_ASBOX - sed 's/^/| /' $at_top_builddir/config.log - echo - fi - } >&5 - - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $as_me.log was created. ## -_ASBOX - - echo - echo "Please send \`$as_me.log' and all information you think might help:" - echo - echo " To: " - echo " Subject: [OpenCOBOL 1.1] $as_me:$at_fail_list${at_fail_list:+ failed${at_xpass_list:+,}}$at_xpass_list${at_xpass_list:+ passed unexpectedly}" - echo - if test $at_debug_p = false; then - echo - echo 'You may investigate any problem if you feel able to do so, in which' - echo 'case the test suite provides a good starting point.' - echo - fi - exit 1 -fi - -exit 0 - - diff --git a/tests/jp-compat b/tests/jp-compat index 14fa079d..20d9eee8 100755 --- a/tests/jp-compat +++ b/tests/jp-compat @@ -1,418 +1,75 @@ #! /bin/sh -# Generated from jp-compat.at by GNU Autoconf 2.68. -# -# Copyright (C) 2009, 2010 Free Software Foundation, Inc. -# -# This test suite is free software; the Free Software Foundation gives -# unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix fi +DUALCASE=1; export DUALCASE # for MKS sh - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } + as_unset=false fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : - -else - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - # We cannot yet assume a decent shell, so we have to provide a - # neutralization value for shells without unset; and this also - # works around shells that cannot unset nonexistent variables. - # Preserve -v and -x to the replacement shell. - BASH_ENV=/dev/null - ENV=/dev/null - (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV - export CONFIG_SHELL - case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; - esac - exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"} -fi - - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var else - $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, -$0: including any error possibly output before this -$0: message. Then install a modern shell, or manually run -$0: the script under such a shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + $as_unset $as_var fi - $as_echo "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error +done -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi -as_me=`$as_basename -- "$0" || + +# Name of the executable. +as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + +# PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' @@ -420,107 +77,146 @@ as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + + + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop - s/-\n.*// + s,-$,, + s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + chmod +x $as_me.lineno || + { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 + { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno # Exit status is that of the last command. exit } -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null + as_expr=false fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links as_ln_s='cp -p' + else + as_ln_s='ln -s' fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln else as_ln_s='cp -p' fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null +rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' + as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x +as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" @@ -529,7 +225,14 @@ as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" +# CDPATH. +$as_unset CDPATH SHELL=${CONFIG_SHELL-/bin/sh} @@ -537,6 +240,24 @@ SHELL=${CONFIG_SHELL-/bin/sh} # How were we run? at_cli_args="$@" +# Load the config file. +for at_file in atconfig atlocal +do + test -r $at_file || continue + . ./$at_file || { echo "$as_me: error: invalid content: $at_file" >&2 + { (exit 1); exit 1; }; } +done + +# atconfig delivers paths relative to the directory the test suite is +# in, but the groups themselves are run in testsuite-dir/group-dir. +if test -n "$at_top_srcdir"; then + builddir=../.. + for at_dir in srcdir top_srcdir top_builddir + do + at_val=`eval echo '${'at_$at_dir'}'` + eval "$at_dir=\$at_val/../.." + done +fi # Not all shells have the 'times' builtin; the subshell is needed to make # sure we discard the 'times: not found' message from the shell. @@ -547,53 +268,48 @@ at_times_p=false at_debug_args= # -e sets to true at_errexit_p=false -# Shall we be verbose? ':' means no, empty means yes. +# Shall we be verbose? at_verbose=: -at_quiet= -# Running several jobs in parallel, 0 means as many as test groups. -at_jobs=1 -at_traceon=: -at_trace_echo=: -at_check_filter_trace=: +at_quiet=echo # Shall we keep the debug scripts? Must be `:' when the suite is # run by a debug script, so that the script doesn't remove itself. at_debug_p=false # Display help message? at_help_p=false -# Display the version message? -at_version_p=false # List test groups? at_list_p=false -# --clean -at_clean=false # Test groups to run at_groups= -# Whether to rerun failed tests. -at_recheck= -# Whether a write failure occurred -at_write_fail=0 -# The directory we run the suite in. Default to . if no -C option. +# The directory we are in. at_dir=`pwd` -# An absolute reference to this testsuite script. -case $as_myself in - [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;; - * ) at_myself=$at_dir/$as_myself ;; -esac -# Whether -C is in effect. -at_change_dir=false +# The directory the whole suite works in. +# Should be absolutely to let the user `cd' at will. +at_suite_dir=$at_dir/$as_me.dir +# The file containing the suite. +at_suite_log=$at_dir/$as_me.log +# The file containing the location of the last AT_CHECK. +at_check_line_file=$at_suite_dir/at-check-line +# The file containing the exit status of the last command. +at_status_file=$at_suite_dir/at-status +# The files containing the output of the tested commands. +at_stdout=$at_suite_dir/at-stdout +at_stder1=$at_suite_dir/at-stder1 +at_stderr=$at_suite_dir/at-stderr +# The file containing dates. +at_times_file=$at_suite_dir/at-times -# Whether to enable colored test results. -at_color=no # List of the tested programs. at_tested='cobc' -# As many question marks as there are digits in the last test group number. +# List of the all the test groups. +at_groups_all=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49' +# As many dots as there are digits in the last test group number. # Used to normalize the test group numbers so that `ls' lists them in # numerical order. -at_format='??' +at_format='..' # Description of all the test groups. -at_help_all="1;split-keys.at:1;SPLIT KEYS (ALTERNATE KEY);; +at_help_all='1;split-keys.at:1;SPLIT KEYS (ALTERNATE KEY);; 2;split-keys.at:53;SPLIT KEYS (ALTERNATE KEY - NOT YET);; 3;split-keys.at:107;SPLIT KEYS (RECORD KEY);; 4;split-keys.at:171;SPLIT KEYS (RECORD KEY - NOT YET);; @@ -642,34 +358,9 @@ at_help_all="1;split-keys.at:1;SPLIT KEYS (ALTERNATE KEY);; 47;file-control.at:355;Allow file delete (INDEXED);; 48;file-control.at:391;Allow file delete (INDEXED) - not available;; 49;file-userfh.at:1;USERFH - READ LOCK;; -" -# List of the all the test groups. -at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'` - -# at_fn_validate_ranges NAME... -# ----------------------------- -# Validate and normalize the test group number contained in each variable -# NAME. Leading zeroes are treated as decimal. -at_fn_validate_ranges () -{ - for at_grp - do - eval at_value=\$$at_grp - if test $at_value -lt 1 || test $at_value -gt 49; then - $as_echo "invalid test group: $at_value" >&2 - exit 1 - fi - case $at_value in - 0*) # We want to treat leading 0 as decimal, like expr and test, but - # AS_VAR_ARITH treats it as octal if it uses $(( )). - # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the - # expr fork, but it is not worth the effort to determine if the - # shell supports XSI when the user can just avoid leading 0. - eval $at_grp='`expr $at_value + 0`' ;; - esac - done -} +' +at_keywords= at_prev= for at_option do @@ -679,10 +370,7 @@ do at_prev= fi - case $at_option in - *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;; - *) at_optarg= ;; - esac + at_optarg=`expr "x$at_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. @@ -696,24 +384,13 @@ do ;; --version | -V ) - at_version_p=: + echo "$as_me (OpenCOBOL 1.1)" + exit 0 ;; --clean | -c ) - at_clean=: - ;; - - --color ) - at_color=always - ;; - --color=* ) - case $at_optarg in - no | never | none) at_color=never ;; - auto | tty | if-tty) at_color=auto ;; - always | yes | force) at_color=always ;; - *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'` - as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;; - esac + rm -rf $at_suite_dir $at_suite_log + exit 0 ;; --debug | -d ) @@ -726,35 +403,30 @@ do ;; --verbose | -v ) - at_verbose=; at_quiet=: + at_verbose=echo; at_quiet=: ;; --trace | -x ) - at_traceon='set -x' - at_trace_echo=echo - at_check_filter_trace=at_fn_filter_trace + at_traceon='set -vx'; at_traceoff='set +vx' ;; [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) - at_fn_validate_ranges at_option - as_fn_append at_groups "$at_option$as_nl" + at_groups="$at_groups$at_option " ;; # Ranges [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) - at_range_start=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_start - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,$p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_start=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,'` + at_groups="$at_groups$at_range " ;; -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) - at_range_end=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '1,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_end=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ @@ -763,45 +435,13 @@ do [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) - at_range_start=`expr $at_option : '\(.*\)-'` - at_range_end=`expr $at_option : '.*-\(.*\)'` - if test $at_range_start -gt $at_range_end; then - at_tmp=$at_range_end - at_range_end=$at_range_start - at_range_start=$at_tmp - fi - at_fn_validate_ranges at_range_start at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" - ;; - - # Directory selection. - --directory | -C ) - at_prev=--directory - ;; - --directory=* ) - at_change_dir=: - at_dir=$at_optarg - if test x- = "x$at_dir" ; then - at_dir=./- - fi - ;; - - # Parallel execution. - --jobs | -j ) - at_jobs=0 - ;; - --jobs=* | -j[0-9]* ) - if test -n "$at_optarg"; then - at_jobs=$at_optarg - else - at_jobs=`expr X$at_option : 'X-j\(.*\)'` - fi - case $at_jobs in *[!0-9]*) - at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'` - as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;; - esac + at_range_start=`echo $at_option |sed 's,-.*,,'` + at_range_end=`echo $at_option |sed 's,.*-,,'` + # FIXME: Maybe test to make sure start <= end? + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,' \ + -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; # Keywords. @@ -809,113 +449,67 @@ do at_prev=--keywords ;; --keywords=* ) - at_groups_selected=$at_help_all - at_save_IFS=$IFS - IFS=, - set X $at_optarg - shift - IFS=$at_save_IFS - for at_keyword - do - at_invert= - case $at_keyword in - '!'*) - at_invert="-v" - at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'` - ;; - esac - # It is on purpose that we match the test group titles too. - at_groups_selected=`$as_echo "$at_groups_selected" | - grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"` - done - # Smash the keywords. - at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'` - as_fn_append at_groups "$at_groups_selected$as_nl" - ;; - --recheck) - at_recheck=: + at_keywords="$at_keywords,$at_optarg" ;; *=*) - at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $at_envvar in - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error $? "invalid variable name: \`$at_envvar'" ;; - esac - at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` - # Export now, but save eval for later and for debug scripts. - export $at_envvar - as_fn_append at_debug_args " $at_envvar='$at_value'" - ;; - - *) $as_echo "$as_me: invalid option: $at_option" >&2 - $as_echo "Try \`$0 --help' for more information." >&2 + at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + expr "x$at_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid variable name: $at_envvar" >&2 + { (exit 1); exit 1; }; } + at_value=`echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` + eval "$at_envvar='$at_value'" + export $at_envvar + # Propagate to debug scripts. + at_debug_args="$at_debug_args $at_option" + ;; + + *) echo "$as_me: invalid option: $at_option" >&2 + echo "Try \`$0 --help' for more information." >&2 exit 1 ;; esac done -# Verify our last option didn't require an argument -if test -n "$at_prev"; then : - as_fn_error $? "\`$at_prev' requires an argument" +# Process the --keywords +if test -n "$at_keywords"; then + at_groups_selected=$at_help_all + for at_keyword in `IFS=,; set X $at_keywords; shift; echo ${1+$@}` + do + # It is on purpose that we match the test group titles too. + at_groups_selected=`echo "$at_groups_selected" | + grep -i "^[^;]*;[^;]*.*[; ]$at_keyword[ ;]"` + done + at_groups_selected=`echo "$at_groups_selected" | sed 's/;.*//'` + # Smash the end of lines. + at_groups_selected=`echo $at_groups_selected` + at_groups="$at_groups$at_groups_selected " fi -# The file containing the suite. -at_suite_log=$at_dir/$as_me.log - # Selected test groups. -if test -z "$at_groups$at_recheck"; then - at_groups=$at_groups_all -else - if test -n "$at_recheck" && test -r "$at_suite_log"; then - at_oldfails=`sed -n ' - /^Failed tests:$/,/^Skipped tests:$/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^Unexpected passes:$/,/^## Detailed failed tests/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^## Detailed failed tests/q - ' "$at_suite_log"` - as_fn_append at_groups "$at_oldfails$as_nl" - fi - # Sort the tests, removing duplicates. - at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'` -fi - -if test x"$at_color" = xalways \ - || { test x"$at_color" = xauto && test -t 1; }; then - at_red=`printf '\033[0;31m'` - at_grn=`printf '\033[0;32m'` - at_lgn=`printf '\033[1;32m'` - at_blu=`printf '\033[1;34m'` - at_std=`printf '\033[m'` -else - at_red= at_grn= at_lgn= at_blu= at_std= -fi +test -z "$at_groups" && at_groups=$at_groups_all # Help message. if $at_help_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] -Run all the tests, or the selected TESTS, given by numeric ranges, and -save a detailed log file. Upon failure, create debugging scripts. +Run all the tests, or the selected TESTS, and save a detailed log file. +Upon failure, create debugging scripts. -Do not change environment variables directly. Instead, set them via -command line arguments. Set \`AUTOTEST_PATH' to select the executables +You should not change environment variables unless explicitly passed +as command line arguments. Set \`AUTOTEST_PATH' to select the executables to exercise. Each relative directory is expanded as build and source -directories relative to the top level of this distribution. -E.g., from within the build directory /tmp/foo-1.0, invoking this: +directories relatively to the top level of this distribution. E.g., $ $0 AUTOTEST_PATH=bin -is equivalent to the following, assuming the source directory is /src/foo-1.0: +possibly amounts into - PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0 + PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Operation modes: -h, --help print the help message, then exit @@ -923,278 +517,145 @@ Operation modes: -c, --clean remove all the files this test suite might create and exit -l, --list describes all the tests, or the selected TESTS _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Execution tuning: - -C, --directory=DIR - change to directory DIR before starting - --color[=never|auto|always] - enable colored test results on terminal, or always - -j, --jobs[=N] - Allow N jobs at once; infinite jobs with no arg (default 1) -k, --keywords=KEYWORDS - select the tests matching all the comma-separated KEYWORDS - multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD - --recheck select all tests that failed or passed unexpectedly last time + select the tests matching all the comma separated KEYWORDS + accumulates -e, --errexit abort as soon as a test fails; implies --debug -v, --verbose force more detailed output - default for debugging scripts - -d, --debug inhibit clean up and top-level logging - default for debugging scripts + default for debugging scripts + -d, --debug inhibit clean up and debug script creation + default for debugging scripts -x, --trace enable tests shell tracing _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Report bugs to . _ATEOF - exit $at_write_fail + exit 0 fi # List of tests. if $at_list_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF OpenCOBOL 1.1 test suite: JP products compatibility test groups: - NUM: FILE-NAME:LINE TEST-GROUP-NAME + NUM: FILENAME:LINE TEST-GROUP-NAME KEYWORDS _ATEOF - # Pass an empty line as separator between selected groups and help. - $as_echo "$at_groups$as_nl$as_nl$at_help_all" | - awk 'NF == 1 && FS != ";" { - selected[$ 1] = 1 - next - } - /^$/ { FS = ";" } - NF > 0 { - if (selected[$ 1]) { - printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3 - if ($ 4) { - lmax = 79 - indent = " " - line = indent - len = length (line) - n = split ($ 4, a, " ") - for (i = 1; i <= n; i++) { - l = length (a[i]) + 1 - if (i > 1 && len + l > lmax) { - print line - line = indent " " a[i] - len = length (line) - } else { - line = line " " a[i] - len += l - } - } - if (n) - print line - } - } - }' || at_write_fail=1 - exit $at_write_fail -fi -if $at_version_p; then - $as_echo "$as_me (OpenCOBOL 1.1)" && - cat <<\_ATEOF || at_write_fail=1 - -Copyright (C) 2010 Free Software Foundation, Inc. -This test suite is free software; the Free Software Foundation gives -unlimited permission to copy, distribute and modify it. -_ATEOF - exit $at_write_fail -fi - -# Should we print banners? Yes if more than one test is run. -case $at_groups in #( - *$as_nl* ) - at_print_banners=: ;; #( - * ) at_print_banners=false ;; -esac -# Text for banner N, set to a single space once printed. - -# Take any -C into account. -if $at_change_dir ; then - test x != "x$at_dir" && cd "$at_dir" \ - || as_fn_error $? "unable to change directory" - at_dir=`pwd` -fi - -# Load the config files for any default variable assignments. -for at_file in atconfig atlocal -do - test -r $at_file || continue - . ./$at_file || as_fn_error $? "invalid content: $at_file" -done - -# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix: -: "${at_top_build_prefix=$at_top_builddir}" - -# Perform any assignments requested during argument parsing. -eval "$at_debug_args" - -# atconfig delivers names relative to the directory the test suite is -# in, but the groups themselves are run in testsuite-dir/group-dir. -if test -n "$at_top_srcdir"; then - builddir=../.. - for at_dir_var in srcdir top_srcdir top_build_prefix - do - eval at_val=\$at_$at_dir_var - case $at_val in - [\\/$]* | ?:[\\/]* ) at_prefix= ;; - *) at_prefix=../../ ;; - esac - eval "$at_dir_var=\$at_prefix\$at_val" - done -fi - -## -------------------- ## -## Directory structure. ## -## -------------------- ## - -# This is the set of directories and files used by this script -# (non-literals are capitalized): -# -# TESTSUITE - the testsuite -# TESTSUITE.log - summarizes the complete testsuite run -# TESTSUITE.dir/ - created during a run, remains after -d or failed test -# + at-groups/ - during a run: status of all groups in run -# | + NNN/ - during a run: meta-data about test group NNN -# | | + check-line - location (source file and line) of current AT_CHECK -# | | + status - exit status of current AT_CHECK -# | | + stdout - stdout of current AT_CHECK -# | | + stder1 - stderr, including trace -# | | + stderr - stderr, with trace filtered out -# | | + test-source - portion of testsuite that defines group -# | | + times - timestamps for computing duration -# | | + pass - created if group passed -# | | + xpass - created if group xpassed -# | | + fail - created if group failed -# | | + xfail - created if group xfailed -# | | + skip - created if group skipped -# + at-stop - during a run: end the run if this file exists -# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction -# + 0..NNN/ - created for each group NNN, remains after -d or failed test -# | + TESTSUITE.log - summarizes the group results -# | + ... - files created during the group - -# The directory the whole suite works in. -# Should be absolute to let the user `cd' at will. -at_suite_dir=$at_dir/$as_me.dir -# The file containing the suite ($at_dir might have changed since earlier). -at_suite_log=$at_dir/$as_me.log -# The directory containing helper files per test group. -at_helper_dir=$at_suite_dir/at-groups -# Stop file: if it exists, do not start new jobs. -at_stop_file=$at_suite_dir/at-stop -# The fifo used for the job dispatcher. -at_job_fifo=$at_suite_dir/at-job-fifo - -if $at_clean; then - test -d "$at_suite_dir" && - find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -f -r "$at_suite_dir" "$at_suite_log" - exit $? + # " 1 42 45 " => "^(1|42|45);". + at_groups_pattern=`echo "$at_groups" | sed 's/^ *//;s/ *$//;s/ */|/g'` + echo "$at_help_all" | + awk 'BEGIN { FS = ";" } + { if ($1 !~ /^('"$at_groups_pattern"')$/) next } + { if ($1) printf " %3d: %-18s %s\n", $1, $2, $3 + if ($4) printf " %s\n", $4 } ' + exit 0 fi # Don't take risks: use only absolute directories in PATH. # -# For stand-alone test suites (ie. atconfig was not found), -# AUTOTEST_PATH is relative to `.'. +# For stand-alone test suites, AUTOTEST_PATH is relative to `.'. # # For embedded test suites, AUTOTEST_PATH is relative to the top level # of the package. Then expand it into build/src parts, since users # may create executables in both places. -AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"` +# +# There might be directories that don't exist, but don't redirect +# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. +AUTOTEST_PATH=`echo $AUTOTEST_PATH | tr ':' $PATH_SEPARATOR` at_path= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $AUTOTEST_PATH $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR -case $as_dir in + case $as_dir in [\\/]* | ?:[\\/]* ) - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir ;; * ) - if test -z "$at_top_build_prefix"; then + if test -z "$at_top_builddir"; then # Stand-alone test suite. - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir else # Embedded test suite. - as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR" - as_fn_append at_path "$at_top_srcdir/$as_dir" + at_path=$at_path$PATH_SEPARATOR$at_top_builddir/$as_dir + at_path=$at_path$PATH_SEPARATOR$at_top_srcdir/$as_dir fi ;; esac - done -IFS=$as_save_IFS +done # Now build and simplify PATH. -# -# There might be directories that don't exist, but don't redirect -# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. -at_new_path= +PATH= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $at_path do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -d "$as_dir" || continue -case $as_dir in - [\\/]* | ?:[\\/]* ) ;; - * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;; -esac -case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in - *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;; - $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;; - *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;; + as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` +test -d "$as_dir" || continue +case $PATH in + $as_dir | \ + $as_dir$PATH_SEPARATOR* | \ + *$PATH_SEPARATOR$as_dir | \ + *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR* ) ;; + + '') PATH=$as_dir ;; + *) PATH=$PATH$PATH_SEPARATOR$as_dir ;; esac - done -IFS=$as_save_IFS +done -PATH=$at_new_path export PATH # Setting up the FDs. - - - # 5 is the log file. Not to be overwritten if `-d'. -if $at_debug_p; then - at_suite_log=/dev/null -else - : >"$at_suite_log" -fi -exec 5>>"$at_suite_log" + +$at_debug_p && at_suite_log=/dev/null +exec 5>$at_suite_log # Banners and logs. -$as_echo "## ---------------------------------------------------- ## +cat <<\_ASBOX +## ---------------------------------------------------- ## ## OpenCOBOL 1.1 test suite: JP products compatibility. ## -## ---------------------------------------------------- ##" +## ---------------------------------------------------- ## +_ASBOX { - $as_echo "## ---------------------------------------------------- ## + cat <<\_ASBOX +## ---------------------------------------------------- ## ## OpenCOBOL 1.1 test suite: JP products compatibility. ## -## ---------------------------------------------------- ##" +## ---------------------------------------------------- ## +_ASBOX echo - $as_echo "$as_me: command line was:" - $as_echo " \$ $0 $at_cli_args" + echo "$as_me: command line was:" + echo " $ $0 $at_cli_args" echo - # If ChangeLog exists, list a few lines in case it might help determining - # the exact version. - if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then - $as_echo "## ---------- ## -## ChangeLog. ## -## ---------- ##" - echo - sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog" + # Try to find a few ChangeLogs in case it might help determining the + # exact version. Use the relative dir: if the top dir is a symlink, + # find will not follow it (and options to follow the links are not + # portable), which would result in no output here. + if test -n "$at_top_srcdir"; then + cat <<\_ASBOX +## ----------- ## +## ChangeLogs. ## +## ----------- ## +_ASBOX echo - fi + for at_file in `find "$at_top_srcdir" -name ChangeLog -print` + do + echo "$as_me: $at_file:" + sed 's/^/| /;10q' $at_file + echo + done - { + { cat <<_ASUNAME ## --------- ## ## Platform. ## @@ -1212,7 +673,7 @@ uname -v = `(uname -v) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` @@ -1224,836 +685,176 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" - done -IFS=$as_save_IFS + echo "PATH: $as_dir" +done } - echo + echo + fi # Contents of the config files. for at_file in atconfig atlocal do test -r $at_file || continue - $as_echo "$as_me: $at_file:" + echo "$as_me: $at_file:" sed 's/^/| /' $at_file echo done -} >&5 + cat <<\_ASBOX +## ---------------- ## +## Tested programs. ## +## ---------------- ## +_ASBOX + echo +} >&5 -## ------------------------- ## -## Autotest shell functions. ## -## ------------------------- ## +# Report what programs are being tested. +for at_program in : $at_tested +do + test "$at_program" = : && continue + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -f $as_dir/$at_program && break +done -# at_fn_banner NUMBER -# ------------------- -# Output banner NUMBER, provided the testsuite is running multiple groups and -# this particular banner has not yet been printed. -at_fn_banner () -{ - $at_print_banners || return 0 - eval at_banner_text=\$at_banner_text_$1 - test "x$at_banner_text" = "x " && return 0 - eval "at_banner_text_$1=\" \"" - if test -z "$at_banner_text"; then - $at_first || echo - else - $as_echo "$as_nl$at_banner_text$as_nl" - fi -} # at_fn_banner - -# at_fn_check_prepare_notrace REASON LINE -# --------------------------------------- -# Perform AT_CHECK preparations for the command at LINE for an untraceable -# command; REASON is the reason for disabling tracing. -at_fn_check_prepare_notrace () -{ - $at_trace_echo "Not enabling shell tracing (command contains $1)" - $as_echo "$2" >"$at_check_line_file" - at_check_trace=: at_check_filter=: - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_trace LINE -# ------------------------------ -# Perform AT_CHECK preparations for the command at LINE for a traceable -# command. -at_fn_check_prepare_trace () -{ - $as_echo "$1" >"$at_check_line_file" - at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_dynamic COMMAND LINE -# ---------------------------------------- -# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate -# preparation function. -at_fn_check_prepare_dynamic () -{ - case $1 in - *$as_nl*) - at_fn_check_prepare_notrace 'an embedded newline' "$2" ;; - *) - at_fn_check_prepare_trace "$2" ;; - esac -} - -# at_fn_filter_trace -# ------------------ -# Remove the lines in the file "$at_stderr" generated by "set -x" and print -# them to stderr. -at_fn_filter_trace () -{ - mv "$at_stderr" "$at_stder1" - grep '^ *+' "$at_stder1" >&2 - grep -v '^ *+' "$at_stder1" >"$at_stderr" -} - -# at_fn_log_failure FILE-LIST -# --------------------------- -# Copy the files in the list on stdout with a "> " prefix, and exit the shell -# with a failure exit code. -at_fn_log_failure () -{ - for file - do $as_echo "$file:"; sed 's/^/> /' "$file"; done - echo 1 > "$at_status_file" - exit 1 -} - -# at_fn_check_skip EXIT-CODE LINE -# ------------------------------- -# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit -# the test group subshell with that same exit code. Use LINE in any report -# about test failure. -at_fn_check_skip () -{ - case $1 in - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$2: hard failure"; exit 99;; - 77) echo 77 > "$at_status_file"; exit 77;; - esac -} - -# at_fn_check_status EXPECTED EXIT-CODE LINE -# ------------------------------------------ -# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing. -# Otherwise, if it is 77 or 99, exit the test group subshell with that same -# exit code; if it is anything else print an error message referring to LINE, -# and fail the test. -at_fn_check_status () -{ - case $2 in - $1 ) ;; - 77) echo 77 > "$at_status_file"; exit 77;; - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$3: hard failure"; exit 99;; - *) $as_echo "$3: exit code was $2, expected $1" - at_failed=:;; - esac -} - -# at_fn_diff_devnull FILE -# ----------------------- -# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff -# invocations. -at_fn_diff_devnull () -{ - test -s "$1" || return 0 - $at_diff "$at_devnull" "$1" -} - -# at_fn_test NUMBER -# ----------------- -# Parse out test NUMBER from the tail of this file. -at_fn_test () -{ - eval at_sed=\$at_sed$1 - sed "$at_sed" "$at_myself" > "$at_test_source" -} - -# at_fn_create_debugging_script -# ----------------------------- -# Create the debugging script $at_group_dir/run which will reproduce the -# current test group. -at_fn_create_debugging_script () -{ - { - echo "#! /bin/sh" && - echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' && - $as_echo "cd '$at_dir'" && - $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" && - echo 'exit 1' - } >"$at_group_dir/run" && - chmod +x "$at_group_dir/run" -} - -## -------------------------------- ## -## End of autotest shell functions. ## -## -------------------------------- ## -{ - $as_echo "## ---------------- ## -## Tested programs. ## -## ---------------- ##" - echo -} >&5 - -# Report what programs are being tested. -for at_program in : $at_tested -do - test "$at_program" = : && continue - case $at_program in - [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;; - * ) - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -f "$as_dir/$at_program" && break - done -IFS=$as_save_IFS - - at_program_=$as_dir/$at_program ;; - esac - if test -f "$at_program_"; then + if test -f $as_dir/$at_program; then { - $as_echo "$at_srcdir/jp-compat.at:21: $at_program_ --version" - "$at_program_" --version &5 2>&1 else - as_fn_error $? "cannot find $at_program" "$LINENO" 5 + { { echo "$as_me:$LINENO: error: cannot find $at_program" >&5 +echo "$as_me: error: cannot find $at_program" >&2;} + { (exit 1); exit 1; }; } fi done { - $as_echo "## ------------------ ## + cat <<\_ASBOX +## ------------------ ## ## Running the tests. ## -## ------------------ ##" +## ------------------ ## +_ASBOX } >&5 at_start_date=`date` -at_start_time=`date +%s 2>/dev/null` -$as_echo "$as_me: starting at: $at_start_date" >&5 +at_start_time=`(date +%s) 2>/dev/null` +echo "$as_me: starting at: $at_start_date" >&5 +at_xpass_list= +at_xfail_list= +at_pass_list= +at_fail_list= +at_skip_list= +at_group_count=0 # Create the master directory if it doesn't already exist. -as_dir="$at_suite_dir"; as_fn_mkdir_p || - as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5 +test -d $at_suite_dir || + mkdir $at_suite_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_suite_dir" >&5 +echo "$as_me: error: cannot create $at_suite_dir" >&2;} + { (exit 1); exit 1; }; } # Can we diff with `/dev/null'? DU 5.0 refuses. if diff /dev/null /dev/null >/dev/null 2>&1; then at_devnull=/dev/null else at_devnull=$at_suite_dir/devnull - >"$at_devnull" + cp /dev/null $at_devnull fi # Use `diff -u' when possible. -if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff" -then +if diff -u $at_devnull $at_devnull >/dev/null 2>&1; then at_diff='diff -u' else at_diff=diff fi -# Get the last needed group. -for at_group in : $at_groups; do :; done - -# Extract the start and end lines of each test group at the tail -# of this file -awk ' -BEGIN { FS="" } -/^#AT_START_/ { - start = NR -} -/^#AT_STOP_/ { - test = substr ($ 0, 10) - print "at_sed" test "=\"1," start "d;" (NR-1) "q\"" - if (test == "'"$at_group"'") exit -}' "$at_myself" > "$at_suite_dir/at-source-lines" && -. "$at_suite_dir/at-source-lines" || - as_fn_error $? "cannot create test line number cache" "$LINENO" 5 -rm -f "$at_suite_dir/at-source-lines" - -# Set number of jobs for `-j'; avoid more jobs than test groups. -set X $at_groups; shift; at_max_jobs=$# -if test $at_max_jobs -eq 0; then - at_jobs=1 -fi -if test $at_jobs -ne 1 && - { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then - at_jobs=$at_max_jobs -fi - -# If parallel mode, don't output banners, don't split summary lines. -if test $at_jobs -ne 1; then - at_print_banners=false - at_quiet=: -fi - -# Set up helper dirs. -rm -rf "$at_helper_dir" && -mkdir "$at_helper_dir" && -cd "$at_helper_dir" && -{ test -z "$at_groups" || mkdir $at_groups; } || -as_fn_error $? "testsuite directory setup failed" "$LINENO" 5 - -# Functions for running a test group. We leave the actual -# test group execution outside of a shell function in order -# to avoid hitting zsh 4.x exit status bugs. - -# at_fn_group_prepare -# ------------------- -# Prepare for running a test group. -at_fn_group_prepare () -{ - # The directory for additional per-group helper files. - at_job_dir=$at_helper_dir/$at_group - # The file containing the location of the last AT_CHECK. - at_check_line_file=$at_job_dir/check-line - # The file containing the exit status of the last command. - at_status_file=$at_job_dir/status - # The files containing the output of the tested commands. - at_stdout=$at_job_dir/stdout - at_stder1=$at_job_dir/stder1 - at_stderr=$at_job_dir/stderr - # The file containing the code for a test group. - at_test_source=$at_job_dir/test-source - # The file containing dates. - at_times_file=$at_job_dir/times +for at_group in $at_groups +do # Be sure to come back to the top test directory. - cd "$at_suite_dir" + cd $at_suite_dir - # Clearly separate the test groups when verbose. - $at_first || $at_verbose echo - - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - - # Create a fresh directory for the next test group, and enter. - # If one already exists, the user may have invoked ./run from - # within that directory; we remove the contents, but not the - # directory itself, so that we aren't pulling the rug out from - # under the shell's notion of the current directory. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \; - rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??* -fi || - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5 -$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;} - # Be tolerant if the above `rm' was not able to remove the directory. - as_dir="$at_group_dir"; as_fn_mkdir_p - - echo 0 > "$at_status_file" - - # In verbose mode, append to the log file *and* show on - # the standard output; in quiet mode only write to the log. - if test -z "$at_verbose"; then - at_tee_pipe='tee -a "$at_group_log"' - else - at_tee_pipe='cat >> "$at_group_log"' - fi -} - -# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER] -# ------------------------------------------------- -# Declare the test group ORDINAL, located at LINE with group description DESC, -# and residing under BANNER. Use PAD to align the status column. -at_fn_group_banner () -{ - at_setup_line="$2" - test -n "$5" && at_fn_banner $5 - at_desc="$3" - case $1 in - [0-9]) at_desc_line=" $1: ";; - [0-9][0-9]) at_desc_line=" $1: " ;; - *) at_desc_line="$1: " ;; - esac - as_fn_append at_desc_line "$3$4" - $at_quiet $as_echo_n "$at_desc_line" - echo "# -*- compilation -*-" >> "$at_group_log" -} - -# at_fn_group_postprocess -# ----------------------- -# Perform cleanup after running a test group. -at_fn_group_postprocess () -{ - # Be sure to come back to the suite directory, in particular - # since below we might `rm' the group directory we are in currently. - cd "$at_suite_dir" - - if test ! -f "$at_check_line_file"; then - sed "s/^ */$as_me: WARNING: /" <<_ATEOF - A failure happened in a test group before any test could be - run. This means that test suite is improperly designed. Please - report this failure to . -_ATEOF - $as_echo "$at_setup_line" >"$at_check_line_file" - at_status=99 - fi - $at_verbose $as_echo_n "$at_group. $at_setup_line: " - $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log" - case $at_xfail:$at_status in - yes:0) - at_msg="UNEXPECTED PASS" - at_res=xpass - at_errexit=$at_errexit_p - at_color=$at_red - ;; - no:0) - at_msg="ok" - at_res=pass - at_errexit=false - at_color=$at_grn - ;; - *:77) - at_msg='skipped ('`cat "$at_check_line_file"`')' - at_res=skip - at_errexit=false - at_color=$at_blu - ;; - no:* | *:99) - at_msg='FAILED ('`cat "$at_check_line_file"`')' - at_res=fail - at_errexit=$at_errexit_p - at_color=$at_red - ;; - yes:*) - at_msg='expected failure ('`cat "$at_check_line_file"`')' - at_res=xfail - at_errexit=false - at_color=$at_lgn - ;; - esac - echo "$at_res" > "$at_job_dir/$at_res" - # In parallel mode, output the summary line only afterwards. - if test $at_jobs -ne 1 && test -n "$at_verbose"; then - $as_echo "$at_desc_line $at_color$at_msg$at_std" - else - # Make sure there is a separator even with long titles. - $as_echo " $at_color$at_msg$at_std" - fi - at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" - case $at_status in - 0|77) - # $at_times_file is only available if the group succeeded. - # We're not including the group log, so the success message - # is written in the global log separately. But we also - # write to the group log in case they're using -d. - if test -f "$at_times_file"; then - at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')' - rm -f "$at_times_file" - fi - $as_echo "$at_log_msg" >> "$at_group_log" - $as_echo "$at_log_msg" >&5 - - # Cleanup the group directory, unless the user wants the files - # or the success was unexpected. - if $at_debug_p || test $at_res = xpass; then - at_fn_create_debugging_script - if test $at_res = xpass && $at_errexit; then - echo stop > "$at_stop_file" - fi - else - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -fr "$at_group_dir" - fi - rm -f "$at_test_source" - fi + case $at_group in + banner-*) + at_group_log=$at_suite_log ;; + *) - # Upon failure, include the log into the testsuite's global - # log. The failure message is written in the group log. It - # is later included in the global log. - $as_echo "$at_log_msg" >> "$at_group_log" - - # Upon failure, keep the group directory for autopsy, and create - # the debugging script. With -e, do not start any further tests. - at_fn_create_debugging_script - if $at_errexit; then - echo stop > "$at_stop_file" - fi + # Skip tests we already run (using --keywords makes it easy to get + # duplication). + case " $at_pass_test $at_skip_test $at_fail_test " in + *" $at_group "* ) continue;; + esac + + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + rm -rf $at_group_dir + mkdir $at_group_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_group_dir" >&5 +echo "$as_me: error: cannot create $at_group_dir" >&2;} + { (exit 1); exit 1; }; } + cd $at_group_dir ;; esac -} + echo 0 > $at_status_file -## ------------ ## -## Driver loop. ## -## ------------ ## - - -if (set -m && set +m && set +b) >/dev/null 2>&1; then - set +b - at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=- -else - at_job_control_on=: at_job_control_off=: at_job_group= -fi - -for at_signal in 1 2 15; do - trap 'set +x; set +e - $at_job_control_off - at_signal='"$at_signal"' - echo stop > "$at_stop_file" - trap "" $at_signal - at_pgids= - for at_pgid in `jobs -p 2>/dev/null`; do - at_pgids="$at_pgids $at_job_group$at_pgid" - done - test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null - wait - if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then - echo >&2 - fi - at_signame=`kill -l $at_signal 2>&1 || echo $at_signal` - set x $at_signame - test 1 -gt 2 && at_signame=$at_signal - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5 -$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;} - as_fn_arith 128 + $at_signal && exit_status=$as_val - as_fn_exit $exit_status' $at_signal -done - -rm -f "$at_stop_file" -at_first=: - -if test $at_jobs -ne 1 && - rm -f "$at_job_fifo" && - test -n "$at_job_group" && - ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null -then - # FIFO job dispatcher. - - trap 'at_pids= - for at_pid in `jobs -p`; do - at_pids="$at_pids $at_job_group$at_pid" - done - if test -n "$at_pids"; then - at_sig=TSTP - test "${TMOUT+set}" = set && at_sig=STOP - kill -$at_sig $at_pids 2>/dev/null - fi - kill -STOP $$ - test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP - - echo - # Turn jobs into a list of numbers, starting from 1. - at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p` - - set X $at_joblist - shift - for at_group in $at_groups; do - $at_job_control_on 2>/dev/null - ( - # Start one test group. - $at_job_control_off - if $at_first; then - exec 7>"$at_job_fifo" - else - exec 6<&- - fi - trap 'set +x; set +e - trap "" PIPE - echo stop > "$at_stop_file" - echo >&7 - as_fn_exit 141' PIPE - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source" - then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - echo >&7 - ) & - $at_job_control_off - if $at_first; then - at_first=false - exec 6<"$at_job_fifo" 7>"$at_job_fifo" - fi - shift # Consume one token. - if test $# -gt 0; then :; else - read at_token <&6 || break - set x $* - fi - test -f "$at_stop_file" && break - done - exec 7>&- - # Read back the remaining ($at_jobs - 1) tokens. - set X $at_joblist - shift - if test $# -gt 0; then - shift - for at_job - do - read at_token - done <&6 - fi - exec 6<&- - wait -else - # Run serially, avoid forks and other potential surprises. - for at_group in $at_groups; do - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source"; then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - test -f "$at_stop_file" && break - at_first=false - done -fi - -# Wrap up the test suite with summary statistics. -cd "$at_helper_dir" - -# Use ?..???? when the list must remain sorted, the faster * otherwise. -at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'` -at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'` -at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'` -at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do - echo $f; done | sed '/?/d; s,/xpass,,'` -at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do - echo $f; done | sed '/?/d; s,/fail,,'` - -set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list -shift; at_group_count=$# -set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$* -set X $at_xfail_list; shift; at_xfail_count=$# -set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$* -set X $at_skip_list; shift; at_skip_count=$# - -as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val -as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val -as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val - -# Back to the top directory. -cd "$at_dir" -rm -rf "$at_helper_dir" - -# Compute the duration of the suite. -at_stop_date=`date` -at_stop_time=`date +%s 2>/dev/null` -$as_echo "$as_me: ending at: $at_stop_date" >&5 -case $at_start_time,$at_stop_time in - [0-9]*,[0-9]*) - as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val - as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val - as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val - as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val - as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val - at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" - $as_echo "$as_me: test suite duration: $at_duration" >&5 - ;; -esac - -echo -$as_echo "## ------------- ## -## Test results. ## -## ------------- ##" -echo -{ - echo - $as_echo "## ------------- ## -## Test results. ## -## ------------- ##" - echo -} >&5 + # Clearly separate the test groups when verbose. + test $at_group_count != 0 && $at_verbose -if test $at_run_count = 1; then - at_result="1 test" - at_were=was -else - at_result="$at_run_count tests" - at_were=were -fi -if $at_errexit_p && test $at_unexpected_count != 0; then - if test $at_xpass_count = 1; then - at_result="$at_result $at_were run, one passed" + # In verbose mode, append to the log file *and* show on + # the standard output; in quiet mode only write to the log + if test $at_verbose = echo; then + at_tee_pipe="tee -a $at_group_log" else - at_result="$at_result $at_were run, one failed" - fi - at_result="$at_result unexpectedly and inhibited subsequent tests." - at_color=$at_red -else - # Don't you just love exponential explosion of the number of cases? - at_color=$at_red - case $at_xpass_count:$at_fail_count:$at_xfail_count in - # So far, so good. - 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;; - 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;; - - # Some unexpected failures - 0:*:0) at_result="$at_result $at_were run, -$at_fail_count failed unexpectedly." ;; - - # Some failures, both expected and unexpected - 0:*:1) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - 0:*:*) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - - # No unexpected failures, but some xpasses - *:0:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly." ;; - - # No expected failures, but failures and xpasses - *:1:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; - *:*:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; - - # All of them. - *:*:1) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - *:*:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - esac - - if test $at_skip_count = 0 && test $at_run_count -gt 1; then - at_result="All $at_result" + at_tee_pipe="cat >> $at_group_log" fi -fi -# Now put skips in the mix. -case $at_skip_count in - 0) ;; - 1) at_result="$at_result -1 test was skipped." ;; - *) at_result="$at_result -$at_skip_count tests were skipped." ;; + case $at_group in + 1 ) # 1. split-keys.at:1: SPLIT KEYS (ALTERNATE KEY) + at_setup_line='split-keys.at:1' + at_desc='SPLIT KEYS (ALTERNATE KEY)' + $at_quiet $ECHO_N " 1: SPLIT KEYS (ALTERNATE KEY) $ECHO_C" + at_xfail=no + ( + echo "1. split-keys.at:1: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:3: test \$COB_HAS_ISAM = \"yes\" || exit 77" +echo split-keys.at:3 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "yes" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:3: exit code was $at_status, expected 0" + at_failed=:;; esac +if $at_failed; then -if test $at_unexpected_count = 0; then - echo "$at_color$at_result$at_std" - echo "$at_result" >&5 -else - echo "${at_color}ERROR: $at_result$at_std" >&2 - echo "ERROR: $at_result" >&5 - { - echo - $as_echo "## ------------------------ ## -## Summary of the failures. ## -## ------------------------ ##" - - # Summary of failed and skipped tests. - if test $at_fail_count != 0; then - echo "Failed tests:" - $SHELL "$at_myself" $at_fail_list --list - echo - fi - if test $at_skip_count != 0; then - echo "Skipped tests:" - $SHELL "$at_myself" $at_skip_list --list - echo - fi - if test $at_xpass_count != 0; then - echo "Unexpected passes:" - $SHELL "$at_myself" $at_xpass_list --list - echo - fi - if test $at_fail_count != 0; then - $as_echo "## ---------------------- ## -## Detailed failed tests. ## -## ---------------------- ##" - echo - for at_group in $at_fail_list - do - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - cat "$at_suite_dir/$at_group_normalized/$as_me.log" - echo - done - echo - fi - if test -n "$at_top_srcdir"; then - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## ${at_top_build_prefix}config.log ## -_ASBOX - sed 's/^/| /' ${at_top_build_prefix}config.log - echo - fi - } >&5 - - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $as_me.log was created. ## -_ASBOX - - echo - if $at_debug_p; then - at_msg='per-test log files' - else - at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'" - fi - $as_echo "Please send $at_msg and all information you think might help: - - To: - Subject: [OpenCOBOL 1.1] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly} - -You may investigate any problem if you feel able to do so, in which -case the test suite provides a good starting point. Its output may -be found below \`${at_testdir+${at_testdir}/}$as_me.dir'. -" + echo 1 > $at_status_file exit 1 fi -exit 0 - -## ------------- ## -## Actual tests. ## -## ------------- ## -#AT_START_1 -at_fn_group_banner 1 'split-keys.at:1' \ - "SPLIT KEYS (ALTERNATE KEY)" " " -at_xfail=no -( - $as_echo "1. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:3: test \$COB_HAS_ISAM = \"yes\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"yes\" || exit 77" "split-keys.at:3" -( $at_check_trace; test $COB_HAS_ISAM = "yes" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:3" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2101,60 +902,97 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:48: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:48" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:48" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/split-keys.at:49: ./prog" -at_fn_check_prepare_trace "split-keys.at:49" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "BBBB" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:49" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_1 -#AT_START_2 -at_fn_group_banner 2 'split-keys.at:53' \ - "SPLIT KEYS (ALTERNATE KEY - NOT YET)" " " -at_xfail=no -( - $as_echo "2. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:55: test \$COB_HAS_ISAM = \"no\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"no\" || exit 77" "split-keys.at:55" -( $at_check_trace; test $COB_HAS_ISAM = "no" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:55" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "split-keys.at:48: \${COMPILE} -o prog prog.cob" +echo split-keys.at:48 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:48: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "split-keys.at:49: ./prog" +echo split-keys.at:49 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "BBBB" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:49: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 2 ) # 2. split-keys.at:53: SPLIT KEYS (ALTERNATE KEY - NOT YET) + at_setup_line='split-keys.at:53' + at_desc='SPLIT KEYS (ALTERNATE KEY - NOT YET)' + $at_quiet $ECHO_N " 2: SPLIT KEYS (ALTERNATE KEY - NOT YET) $ECHO_C" + at_xfail=no + ( + echo "2. split-keys.at:53: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:55: test \$COB_HAS_ISAM = \"no\" || exit 77" +echo split-keys.at:55 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "no" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:55: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2202,49 +1040,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:100: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:100" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:12: Warning: 'SPLIT KEYS' not implemented +$at_traceoff +echo "split-keys.at:100: \${COMPILE} -o prog prog.cob" +echo split-keys.at:100 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:12: Warning: 'SPLIT KEYS' not implemented prog.cob:38: Warning: 'SPLIT KEYS' not implemented -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:100" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_2 -#AT_START_3 -at_fn_group_banner 3 'split-keys.at:107' \ - "SPLIT KEYS (RECORD KEY)" " " -at_xfail=no -( - $as_echo "3. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:109: test \$COB_HAS_ISAM = \"yes\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"yes\" || exit 77" "split-keys.at:109" -( $at_check_trace; test $COB_HAS_ISAM = "yes" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:109" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:100: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 3 ) # 3. split-keys.at:107: SPLIT KEYS (RECORD KEY) + at_setup_line='split-keys.at:107' + at_desc='SPLIT KEYS (RECORD KEY)' + $at_quiet $ECHO_N " 3: SPLIT KEYS (RECORD KEY) $ECHO_C" + at_xfail=no + ( + echo "3. split-keys.at:107: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:109: test \$COB_HAS_ISAM = \"yes\" || exit 77" +echo split-keys.at:109 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "yes" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:109: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2304,60 +1167,97 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:166: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:166" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:166" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/split-keys.at:167: ./prog" -at_fn_check_prepare_trace "split-keys.at:167" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ALT2" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:167" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_3 -#AT_START_4 -at_fn_group_banner 4 'split-keys.at:171' \ - "SPLIT KEYS (RECORD KEY - NOT YET)" " " -at_xfail=no -( - $as_echo "4. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:173: test \$COB_HAS_ISAM = \"no\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"no\" || exit 77" "split-keys.at:173" -( $at_check_trace; test $COB_HAS_ISAM = "no" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:173" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "split-keys.at:166: \${COMPILE} -o prog prog.cob" +echo split-keys.at:166 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:166: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "split-keys.at:167: ./prog" +echo split-keys.at:167 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ALT2" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:167: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 4 ) # 4. split-keys.at:171: SPLIT KEYS (RECORD KEY - NOT YET) + at_setup_line='split-keys.at:171' + at_desc='SPLIT KEYS (RECORD KEY - NOT YET)' + $at_quiet $ECHO_N " 4: SPLIT KEYS (RECORD KEY - NOT YET) $ECHO_C" + at_xfail=no + ( + echo "4. split-keys.at:171: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:173: test \$COB_HAS_ISAM = \"no\" || exit 77" +echo split-keys.at:173 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "no" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:173: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2417,50 +1317,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:230: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:230" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:12: Warning: 'SPLIT KEYS' not implemented +$at_traceoff +echo "split-keys.at:230: \${COMPILE} -o prog prog.cob" +echo split-keys.at:230 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:12: Warning: 'SPLIT KEYS' not implemented prog.cob:7: Error: RECORD KEY clause is required for file 'TEST-FILE' prog.cob:50: Warning: 'SPLIT KEYS' not implemented -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/split-keys.at:230" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_4 -#AT_START_5 -at_fn_group_banner 5 'split-keys.at:238' \ - "SPLIT KEYS (START Syntax - EQUAL)" " " -at_xfail=no -( - $as_echo "5. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:240: test \$COB_HAS_ISAM = \"yes\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"yes\" || exit 77" "split-keys.at:240" -( $at_check_trace; test $COB_HAS_ISAM = "yes" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:240" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "split-keys.at:230: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 5 ) # 5. split-keys.at:238: SPLIT KEYS (START Syntax - EQUAL) + at_setup_line='split-keys.at:238' + at_desc='SPLIT KEYS (START Syntax - EQUAL)' + $at_quiet $ECHO_N " 5: SPLIT KEYS (START Syntax - EQUAL) $ECHO_C" + at_xfail=no + ( + echo "5. split-keys.at:238: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:240: test \$COB_HAS_ISAM = \"yes\" || exit 77" +echo split-keys.at:240 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "yes" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:240: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2520,60 +1445,97 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:297: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:297" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:297" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/split-keys.at:298: ./prog" -at_fn_check_prepare_trace "split-keys.at:298" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ALT2" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:298" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_5 -#AT_START_6 -at_fn_group_banner 6 'split-keys.at:302' \ - "SPLIT KEYS (START Syntax - EQUAL - NOT YET)" " " -at_xfail=no -( - $as_echo "6. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:304: test \$COB_HAS_ISAM = \"no\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"no\" || exit 77" "split-keys.at:304" -( $at_check_trace; test $COB_HAS_ISAM = "no" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:304" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "split-keys.at:297: \${COMPILE} -o prog prog.cob" +echo split-keys.at:297 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:297: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "split-keys.at:298: ./prog" +echo split-keys.at:298 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ALT2" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:298: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 6 ) # 6. split-keys.at:302: SPLIT KEYS (START Syntax - EQUAL - NOT YET) + at_setup_line='split-keys.at:302' + at_desc='SPLIT KEYS (START Syntax - EQUAL - NOT YET)' + $at_quiet $ECHO_N " 6: SPLIT KEYS (START Syntax - EQUAL - NOT YET) $ECHO_C" + at_xfail=no + ( + echo "6. split-keys.at:302: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:304: test \$COB_HAS_ISAM = \"no\" || exit 77" +echo split-keys.at:304 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "no" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:304: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2633,50 +1595,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:361: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:361" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Warning: 'SPLIT KEYS' not implemented +$at_traceoff +echo "split-keys.at:361: \${COMPILE} -o prog prog.cob" +echo split-keys.at:361 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Warning: 'SPLIT KEYS' not implemented prog.cob:7: Error: RECORD KEY clause is required for file 'TEST-FILE' prog.cob:49: Warning: 'SPLIT KEYS' not implemented -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/split-keys.at:361" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_6 -#AT_START_7 -at_fn_group_banner 7 'split-keys.at:369' \ - "SPLIT KEYS (START Syntax - GREATER THAN)" " " -at_xfail=no -( - $as_echo "7. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:371: test \$COB_HAS_ISAM = \"yes\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"yes\" || exit 77" "split-keys.at:371" -( $at_check_trace; test $COB_HAS_ISAM = "yes" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:371" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "split-keys.at:361: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 7 ) # 7. split-keys.at:369: SPLIT KEYS (START Syntax - GREATER THAN) + at_setup_line='split-keys.at:369' + at_desc='SPLIT KEYS (START Syntax - GREATER THAN)' + $at_quiet $ECHO_N " 7: SPLIT KEYS (START Syntax - GREATER THAN) $ECHO_C" + at_xfail=no + ( + echo "7. split-keys.at:369: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:371: test \$COB_HAS_ISAM = \"yes\" || exit 77" +echo split-keys.at:371 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "yes" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:371: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2736,60 +1723,97 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:428: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:428" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:428" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/split-keys.at:429: ./prog" -at_fn_check_prepare_trace "split-keys.at:429" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ALT3" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:429" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_7 -#AT_START_8 -at_fn_group_banner 8 'split-keys.at:433' \ - "SPLIT KEYS (START Syntax - GREATER THAN - NOT YET)" "" -at_xfail=no -( - $as_echo "8. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:435: test \$COB_HAS_ISAM = \"no\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"no\" || exit 77" "split-keys.at:435" -( $at_check_trace; test $COB_HAS_ISAM = "no" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:435" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "split-keys.at:428: \${COMPILE} -o prog prog.cob" +echo split-keys.at:428 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:428: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "split-keys.at:429: ./prog" +echo split-keys.at:429 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ALT3" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:429: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 8 ) # 8. split-keys.at:433: SPLIT KEYS (START Syntax - GREATER THAN - NOT YET) + at_setup_line='split-keys.at:433' + at_desc='SPLIT KEYS (START Syntax - GREATER THAN - NOT YET)' + $at_quiet $ECHO_N " 8: SPLIT KEYS (START Syntax - GREATER THAN - NOT YET)$ECHO_C" + at_xfail=no + ( + echo "8. split-keys.at:433: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:435: test \$COB_HAS_ISAM = \"no\" || exit 77" +echo split-keys.at:435 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "no" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:435: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2849,50 +1873,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:492: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:492" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Warning: 'SPLIT KEYS' not implemented +$at_traceoff +echo "split-keys.at:492: \${COMPILE} -o prog prog.cob" +echo split-keys.at:492 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Warning: 'SPLIT KEYS' not implemented prog.cob:7: Error: RECORD KEY clause is required for file 'TEST-FILE' prog.cob:49: Warning: 'SPLIT KEYS' not implemented -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/split-keys.at:492" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_8 -#AT_START_9 -at_fn_group_banner 9 'split-keys.at:500' \ - "SPLIT KEYS (key unmatch)" " " -at_xfail=no -( - $as_echo "9. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/split-keys.at:502: test \$COB_HAS_ISAM = \"yes\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"yes\" || exit 77" "split-keys.at:502" -( $at_check_trace; test $COB_HAS_ISAM = "yes" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/split-keys.at:502" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "split-keys.at:492: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 9 ) # 9. split-keys.at:500: SPLIT KEYS (key unmatch) + at_setup_line='split-keys.at:500' + at_desc='SPLIT KEYS (key unmatch)' + $at_quiet $ECHO_N " 9: SPLIT KEYS (key unmatch) $ECHO_C" + at_xfail=no + ( + echo "9. split-keys.at:500: testing ..." + $at_traceon + + +$at_traceoff +echo "split-keys.at:502: test \$COB_HAS_ISAM = \"yes\" || exit 77" +echo split-keys.at:502 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "yes" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "split-keys.at:502: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2954,34 +2003,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/split-keys.at:561: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "split-keys.at:561" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:49: Error: Undefined compound keys -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/split-keys.at:561" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_9 -#AT_START_10 -at_fn_group_banner 10 'end-program-wrong.at:1' \ - "Allow wrong pgm-name in END-PROGRAM" " " -at_xfail=no -( - $as_echo "10. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "split-keys.at:561: \${COMPILE} -o prog prog.cob" +echo split-keys.at:561 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:49: Error: Undefined compound keys +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "split-keys.at:561: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 10 ) # 10. end-program-wrong.at:1: Allow wrong pgm-name in END-PROGRAM + at_setup_line='end-program-wrong.at:1' + at_desc='Allow wrong pgm-name in END-PROGRAM' + $at_quiet $ECHO_N " 10: Allow wrong pgm-name in END-PROGRAM $ECHO_C" + at_xfail=no + ( + echo "10. end-program-wrong.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2995,32 +2057,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/end-program-wrong.at:12: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "end-program-wrong.at:12" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/end-program-wrong.at:12" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_10 -#AT_START_11 -at_fn_group_banner 11 'evaluate-also-missing.at:1' \ - "Allow missing ALSO in EVALUATE-WHEN" " " -at_xfail=no -( - $as_echo "11. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "end-program-wrong.at:12: \${COMPILE_JP_COMPAT} prog.cob" +echo end-program-wrong.at:12 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "end-program-wrong.at:12: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 11 ) # 11. evaluate-also-missing.at:1: Allow missing ALSO in EVALUATE-WHEN + at_setup_line='evaluate-also-missing.at:1' + at_desc='Allow missing ALSO in EVALUATE-WHEN' + $at_quiet $ECHO_N " 11: Allow missing ALSO in EVALUATE-WHEN $ECHO_C" + at_xfail=no + ( + echo "11. evaluate-also-missing.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3042,46 +2118,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/evaluate-also-missing.at:20: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "evaluate-also-missing.at:20" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/evaluate-also-missing.at:20" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/evaluate-also-missing.at:21: ./prog" -at_fn_check_prepare_trace "evaluate-also-missing.at:21" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/evaluate-also-missing.at:21" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_11 -#AT_START_12 -at_fn_group_banner 12 'evaluate-also-missing.at:25' \ - "Allow missing both ALSO and class condition IS in EVALUATE" "" -at_xfail=no -( - $as_echo "12. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "evaluate-also-missing.at:20: \${COMPILE_JP_COMPAT} prog.cob" +echo evaluate-also-missing.at:20 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "evaluate-also-missing.at:20: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "evaluate-also-missing.at:21: ./prog" +echo evaluate-also-missing.at:21 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "evaluate-also-missing.at:21: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 12 ) # 12. evaluate-also-missing.at:25: Allow missing both ALSO and class condition IS in EVALUATE + at_setup_line='evaluate-also-missing.at:25' + at_desc='Allow missing both ALSO and class condition IS in EVALUATE' + $at_quiet $ECHO_N " 12: Allow missing both ALSO and class condition IS in EVALUATE$ECHO_C" + at_xfail=no + ( + echo "12. evaluate-also-missing.at:25: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3106,46 +2207,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/evaluate-also-missing.at:47: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "evaluate-also-missing.at:47" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/evaluate-also-missing.at:47" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/evaluate-also-missing.at:48: ./prog" -at_fn_check_prepare_trace "evaluate-also-missing.at:48" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/evaluate-also-missing.at:48" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_12 -#AT_START_13 -at_fn_group_banner 13 'empty-imperative.at:1' \ - "Allow empty EVALUATE-WHEN OTHER" " " -at_xfail=no -( - $as_echo "13. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "evaluate-also-missing.at:47: \${COMPILE_JP_COMPAT} prog.cob" +echo evaluate-also-missing.at:47 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "evaluate-also-missing.at:47: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "evaluate-also-missing.at:48: ./prog" +echo evaluate-also-missing.at:48 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "evaluate-also-missing.at:48: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 13 ) # 13. empty-imperative.at:1: Allow empty EVALUATE-WHEN OTHER + at_setup_line='empty-imperative.at:1' + at_desc='Allow empty EVALUATE-WHEN OTHER' + $at_quiet $ECHO_N " 13: Allow empty EVALUATE-WHEN OTHER $ECHO_C" + at_xfail=no + ( + echo "13. empty-imperative.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3166,46 +2292,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:19: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "empty-imperative.at:19" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:19" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:20: ./prog" -at_fn_check_prepare_trace "empty-imperative.at:20" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:20" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_13 -#AT_START_14 -at_fn_group_banner 14 'empty-imperative.at:24' \ - "Allow empty ELSE" " " -at_xfail=no -( - $as_echo "14. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "empty-imperative.at:19: \${COMPILE_JP_COMPAT} prog.cob" +echo empty-imperative.at:19 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:19: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "empty-imperative.at:20: ./prog" +echo empty-imperative.at:20 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:20: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 14 ) # 14. empty-imperative.at:24: Allow empty ELSE + at_setup_line='empty-imperative.at:24' + at_desc='Allow empty ELSE' + $at_quiet $ECHO_N " 14: Allow empty ELSE $ECHO_C" + at_xfail=no + ( + echo "14. empty-imperative.at:24: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3225,46 +2376,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:41: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "empty-imperative.at:41" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:41" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:42: ./prog" -at_fn_check_prepare_trace "empty-imperative.at:42" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:42" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_14 -#AT_START_15 -at_fn_group_banner 15 'empty-imperative.at:46' \ - "Allow empty EVALUATE- before WHEN OTHER" " " -at_xfail=no -( - $as_echo "15. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "empty-imperative.at:41: \${COMPILE_JP_COMPAT} prog.cob" +echo empty-imperative.at:41 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:41: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "empty-imperative.at:42: ./prog" +echo empty-imperative.at:42 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:42: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 15 ) # 15. empty-imperative.at:46: Allow empty EVALUATE- before WHEN OTHER + at_setup_line='empty-imperative.at:46' + at_desc='Allow empty EVALUATE- before WHEN OTHER' + $at_quiet $ECHO_N " 15: Allow empty EVALUATE- before WHEN OTHER $ECHO_C" + at_xfail=no + ( + echo "15. empty-imperative.at:46: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3286,46 +2462,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:65: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "empty-imperative.at:65" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:65" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:66: ./prog" -at_fn_check_prepare_trace "empty-imperative.at:66" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:66" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_15 -#AT_START_16 -at_fn_group_banner 16 'empty-imperative.at:70' \ - "Allow empty EVALUATE- semantics" " " -at_xfail=no -( - $as_echo "16. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "empty-imperative.at:65: \${COMPILE_JP_COMPAT} prog.cob" +echo empty-imperative.at:65 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:65: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "empty-imperative.at:66: ./prog" +echo empty-imperative.at:66 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:66: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 16 ) # 16. empty-imperative.at:70: Allow empty EVALUATE- semantics + at_setup_line='empty-imperative.at:70' + at_desc='Allow empty EVALUATE- semantics' + $at_quiet $ECHO_N " 16: Allow empty EVALUATE- semantics $ECHO_C" + at_xfail=no + ( + echo "16. empty-imperative.at:70: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3346,46 +2547,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:88: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "empty-imperative.at:88" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:88" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:89: ./prog" -at_fn_check_prepare_trace "empty-imperative.at:89" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:89" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_16 -#AT_START_17 -at_fn_group_banner 17 'empty-imperative.at:93' \ - "Allow empty EVALUATE- semantics 2" " " -at_xfail=no -( - $as_echo "17. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "empty-imperative.at:88: \${COMPILE_JP_COMPAT} prog.cob" +echo empty-imperative.at:88 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:88: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "empty-imperative.at:89: ./prog" +echo empty-imperative.at:89 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:89: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 17 ) # 17. empty-imperative.at:93: Allow empty EVALUATE- semantics 2 + at_setup_line='empty-imperative.at:93' + at_desc='Allow empty EVALUATE- semantics 2' + $at_quiet $ECHO_N " 17: Allow empty EVALUATE- semantics 2 $ECHO_C" + at_xfail=no + ( + echo "17. empty-imperative.at:93: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3408,46 +2634,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:113: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "empty-imperative.at:113" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:113" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:114: ./prog" -at_fn_check_prepare_trace "empty-imperative.at:114" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:114" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_17 -#AT_START_18 -at_fn_group_banner 18 'empty-imperative.at:118' \ - "Allow empty EVALUATE- semantics 3" " " -at_xfail=no -( - $as_echo "18. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "empty-imperative.at:113: \${COMPILE_JP_COMPAT} prog.cob" +echo empty-imperative.at:113 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:113: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "empty-imperative.at:114: ./prog" +echo empty-imperative.at:114 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:114: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 18 ) # 18. empty-imperative.at:118: Allow empty EVALUATE- semantics 3 + at_setup_line='empty-imperative.at:118' + at_desc='Allow empty EVALUATE- semantics 3' + $at_quiet $ECHO_N " 18: Allow empty EVALUATE- semantics 3 $ECHO_C" + at_xfail=no + ( + echo "18. empty-imperative.at:118: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3468,97 +2719,148 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:136: \${COMPILE_JP_COMPAT} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "empty-imperative.at:136" -( $at_check_trace; ${COMPILE_JP_COMPAT} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:136" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/empty-imperative.at:137: ./prog" -at_fn_check_prepare_trace "empty-imperative.at:137" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/empty-imperative.at:137" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_18 -#AT_START_19 -at_fn_group_banner 19 'spl-registers.at:1' \ - "PROGRAM-STATUS" " " -at_xfail=no -( - $as_echo "19. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "empty-imperative.at:136: \${COMPILE_JP_COMPAT} prog.cob" +echo empty-imperative.at:136 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:136: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "empty-imperative.at:137: ./prog" +echo empty-imperative.at:137 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "empty-imperative.at:137: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 19 ) # 19. spl-registers.at:1: PROGRAM-STATUS + at_setup_line='spl-registers.at:1' + at_desc='PROGRAM-STATUS' + $at_quiet $ECHO_N " 19: PROGRAM-STATUS $ECHO_C" + at_xfail=no + ( + echo "19. spl-registers.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - PROCEDURE DIVISION. - MOVE 99 TO PROGRAM-STATUS. - EXIT PROGRAM. -_ATEOF + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + PROCEDURE DIVISION. + MOVE 99 TO PROGRAM-STATUS. + EXIT PROGRAM. +_ATEOF + + +$at_traceoff +echo "spl-registers.at:11: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:11 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:11: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:12: ./prog" +echo spl-registers.at:12 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 99) ;; + *) echo "spl-registers.at:12: exit code was $at_status, expected 99" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; -{ set +x -$as_echo "$at_srcdir/spl-registers.at:11: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:11" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:11" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:12: ./prog" -at_fn_check_prepare_trace "spl-registers.at:12" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 99 $at_status "$at_srcdir/spl-registers.at:12" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_19 -#AT_START_20 -at_fn_group_banner 20 'spl-registers.at:16' \ - "SORT-STATUS (alias SORT-RETURN)" " " -at_xfail=no -( - $as_echo "20. $at_setup_line: testing $at_desc ..." - $at_traceon + 20 ) # 20. spl-registers.at:16: SORT-STATUS (alias SORT-RETURN) + at_setup_line='spl-registers.at:16' + at_desc='SORT-STATUS (alias SORT-RETURN)' + $at_quiet $ECHO_N " 20: SORT-STATUS (alias SORT-RETURN) $ECHO_C" + at_xfail=no + ( + echo "20. spl-registers.at:16: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3572,46 +2874,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/spl-registers.at:27: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:27" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:27" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:28: ./prog" -at_fn_check_prepare_trace "spl-registers.at:28" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+000000016" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:28" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_20 -#AT_START_21 -at_fn_group_banner 21 'spl-registers.at:32' \ - "SORT-STATUS (Break in input section)" " " -at_xfail=no -( - $as_echo "21. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "spl-registers.at:27: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:27 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:27: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:28: ./prog" +echo spl-registers.at:28 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+000000016" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:28: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 21 ) # 21. spl-registers.at:32: SORT-STATUS (Break in input section) + at_setup_line='spl-registers.at:32' + at_desc='SORT-STATUS (Break in input section)' + $at_quiet $ECHO_N " 21: SORT-STATUS (Break in input section) $ECHO_C" + at_xfail=no + ( + echo "21. spl-registers.at:32: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3669,74 +2996,122 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/spl-registers.at:87: echo -n 030303020301020302020201010301020101 >input.txt" -at_fn_check_prepare_trace "spl-registers.at:87" -( $at_check_trace; echo -n 030303020301020302020201010301020101 >input.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:87" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:88: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:88" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:88" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:89: ./prog" -at_fn_check_prepare_trace "spl-registers.at:89" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "WARNING - Implicit CLOSE of INPUT-FILE1 (\"./input.txt\") -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:89" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:92: if test -f output.txt ; then echo -n NG ; else echo -n OK ; fi" -at_fn_check_prepare_trace "spl-registers.at:92" -( $at_check_trace; if test -f output.txt ; then echo -n NG ; else echo -n OK ; fi -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:92" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_21 -#AT_START_22 -at_fn_group_banner 22 'spl-registers.at:96' \ - "SORT-STATUS (Break in output section)" " " -at_xfail=no -( - $as_echo "22. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "spl-registers.at:87: echo -n 030303020301020302020201010301020101 >input.txt" +echo spl-registers.at:87 >$at_check_line_file +( $at_traceon; echo -n 030303020301020302020201010301020101 >input.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:87: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:88: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:88 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:88: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:89: ./prog" +echo spl-registers.at:89 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "WARNING - Implicit CLOSE of INPUT-FILE1 (\"./input.txt\") +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:89: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:92: if test -f output.txt ; then echo -n NG ; else echo -n OK ; fi" +echo spl-registers.at:92 >$at_check_line_file +( $at_traceon; if test -f output.txt ; then echo -n NG ; else echo -n OK ; fi ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:92: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 22 ) # 22. spl-registers.at:96: SORT-STATUS (Break in output section) + at_setup_line='spl-registers.at:96' + at_desc='SORT-STATUS (Break in output section)' + $at_quiet $ECHO_N " 22: SORT-STATUS (Break in output section) $ECHO_C" + at_xfail=no + ( + echo "22. spl-registers.at:96: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3794,74 +3169,122 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/spl-registers.at:151: echo -n 030303020301020302020201010301020101 >input.txt" -at_fn_check_prepare_trace "spl-registers.at:151" -( $at_check_trace; echo -n 030303020301020302020201010301020101 >input.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:151" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:152: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:152" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:152" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:153: ./prog" -at_fn_check_prepare_trace "spl-registers.at:153" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:153" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:156: cat output.txt" -at_fn_check_prepare_trace "spl-registers.at:156" -( $at_check_trace; cat output.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0103" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:156" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_22 -#AT_START_23 -at_fn_group_banner 23 'spl-registers.at:160' \ - "SORT-STATUS (Break in section with THRU)" " " -at_xfail=no -( - $as_echo "23. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "spl-registers.at:151: echo -n 030303020301020302020201010301020101 >input.txt" +echo spl-registers.at:151 >$at_check_line_file +( $at_traceon; echo -n 030303020301020302020201010301020101 >input.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:151: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:152: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:152 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:152: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:153: ./prog" +echo spl-registers.at:153 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:153: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:156: cat output.txt" +echo spl-registers.at:156 >$at_check_line_file +( $at_traceon; cat output.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0103" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:156: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 23 ) # 23. spl-registers.at:160: SORT-STATUS (Break in section with THRU) + at_setup_line='spl-registers.at:160' + at_desc='SORT-STATUS (Break in section with THRU)' + $at_quiet $ECHO_N " 23: SORT-STATUS (Break in section with THRU) $ECHO_C" + at_xfail=no + ( + echo "23. spl-registers.at:160: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3923,74 +3346,122 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/spl-registers.at:219: echo -n 030303020301020302020201010301020101 >input.txt" -at_fn_check_prepare_trace "spl-registers.at:219" -( $at_check_trace; echo -n 030303020301020302020201010301020101 >input.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:219" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:220: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:220" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:220" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:221: ./prog" -at_fn_check_prepare_trace "spl-registers.at:221" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:221" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:224: cat output.txt" -at_fn_check_prepare_trace "spl-registers.at:224" -( $at_check_trace; cat output.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0103" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:224" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_23 -#AT_START_24 -at_fn_group_banner 24 'spl-registers.at:228' \ - "SORT-STATUS break in MERGE" " " -at_xfail=no -( - $as_echo "24. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "spl-registers.at:219: echo -n 030303020301020302020201010301020101 >input.txt" +echo spl-registers.at:219 >$at_check_line_file +( $at_traceon; echo -n 030303020301020302020201010301020101 >input.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:219: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:220: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:220 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:220: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:221: ./prog" +echo spl-registers.at:221 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:221: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:224: cat output.txt" +echo spl-registers.at:224 >$at_check_line_file +( $at_traceon; cat output.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0103" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:224: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 24 ) # 24. spl-registers.at:228: SORT-STATUS break in MERGE + at_setup_line='spl-registers.at:228' + at_desc='SORT-STATUS break in MERGE' + $at_quiet $ECHO_N " 24: SORT-STATUS break in MERGE $ECHO_C" + at_xfail=no + ( + echo "24. spl-registers.at:228: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4043,87 +3514,147 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/spl-registers.at:278: echo -n 030303020301020302020201010301020101 >input.txt" -at_fn_check_prepare_trace "spl-registers.at:278" -( $at_check_trace; echo -n 030303020301020302020201010301020101 >input.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:278" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:279: echo -n 030603040305020502060204010601040104 >input2.txt" -at_fn_check_prepare_trace "spl-registers.at:279" -( $at_check_trace; echo -n 030603040305020502060204010601040104 >input2.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:279" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:280: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:280" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:280" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:281: ./prog" -at_fn_check_prepare_trace "spl-registers.at:281" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:281" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:284: cat output.txt" -at_fn_check_prepare_trace "spl-registers.at:284" -( $at_check_trace; cat output.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0103" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:284" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_24 -#AT_START_25 -at_fn_group_banner 25 'spl-registers.at:288' \ - "SORT-STATUS break with No SORT-STATUS in pgm" " " -at_xfail=no -( - $as_echo "25. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "spl-registers.at:278: echo -n 030303020301020302020201010301020101 >input.txt" +echo spl-registers.at:278 >$at_check_line_file +( $at_traceon; echo -n 030303020301020302020201010301020101 >input.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:278: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:279: echo -n 030603040305020502060204010601040104 >input2.txt" +echo spl-registers.at:279 >$at_check_line_file +( $at_traceon; echo -n 030603040305020502060204010601040104 >input2.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:279: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:280: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:280 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:280: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:281: ./prog" +echo spl-registers.at:281 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:281: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:284: cat output.txt" +echo spl-registers.at:284 >$at_check_line_file +( $at_traceon; cat output.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0103" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:284: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 25 ) # 25. spl-registers.at:288: SORT-STATUS break with No SORT-STATUS in pgm + at_setup_line='spl-registers.at:288' + at_desc='SORT-STATUS break with No SORT-STATUS in pgm' + $at_quiet $ECHO_N " 25: SORT-STATUS break with No SORT-STATUS in pgm $ECHO_C" + at_xfail=no + ( + echo "25. spl-registers.at:288: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4181,75 +3712,123 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/spl-registers.at:343: echo -n 030303020301020302020201010301020101 >input.txt" -at_fn_check_prepare_trace "spl-registers.at:343" -( $at_check_trace; echo -n 030303020301020302020201010301020101 >input.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:343" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:344: \${COMPILE_JP_COMPAT} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "spl-registers.at:344" -( $at_check_trace; ${COMPILE_JP_COMPAT} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:344" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:345: ./prog" -at_fn_check_prepare_trace "spl-registers.at:345" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:42: libcob: SORT-STATUS is set to 16. +$at_traceoff +echo "spl-registers.at:343: echo -n 030303020301020302020201010301020101 >input.txt" +echo spl-registers.at:343 >$at_check_line_file +( $at_traceon; echo -n 030303020301020302020201010301020101 >input.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:343: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:344: \${COMPILE_JP_COMPAT} -o prog prog.cob" +echo spl-registers.at:344 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:344: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:345: ./prog" +echo spl-registers.at:345 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:42: libcob: SORT-STATUS is set to 16. WARNING - Implicit CLOSE of OUTPUT-FILE1 (\"./output.txt\") -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/spl-registers.at:345" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/spl-registers.at:349: cat output.txt" -at_fn_check_prepare_trace "spl-registers.at:349" -( $at_check_trace; cat output.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0103" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/spl-registers.at:349" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_25 -#AT_START_26 -at_fn_group_banner 26 'special-names.at:1' \ - "ACCEPT ARGUMENT-NUMBER" " " -at_xfail=no -( - $as_echo "26. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "spl-registers.at:345: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "spl-registers.at:349: cat output.txt" +echo spl-registers.at:349 >$at_check_line_file +( $at_traceon; cat output.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0103" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "spl-registers.at:349: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 26 ) # 26. special-names.at:1: ACCEPT ARGUMENT-NUMBER + at_setup_line='special-names.at:1' + at_desc='ACCEPT ARGUMENT-NUMBER' + $at_quiet $ECHO_N " 26: ACCEPT ARGUMENT-NUMBER $ECHO_C" + at_xfail=no + ( + echo "26. special-names.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4270,46 +3849,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/special-names.at:19: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "special-names.at:19" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:19" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/special-names.at:20: ./prog this is arg" -at_fn_check_prepare_trace "special-names.at:20" -( $at_check_trace; ./prog this is arg -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "03" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:20" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_26 -#AT_START_27 -at_fn_group_banner 27 'special-names.at:24' \ - "ACCEPT ARGUMENT-VALUE" " " -at_xfail=no -( - $as_echo "27. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "special-names.at:19: \${COMPILE_JP_COMPAT} -x prog.cob" +echo special-names.at:19 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:19: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "special-names.at:20: ./prog this is arg" +echo special-names.at:20 >$at_check_line_file +( $at_traceon; ./prog this is arg ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "03" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:20: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 27 ) # 27. special-names.at:24: ACCEPT ARGUMENT-VALUE + at_setup_line='special-names.at:24' + at_desc='ACCEPT ARGUMENT-VALUE' + $at_quiet $ECHO_N " 27: ACCEPT ARGUMENT-VALUE $ECHO_C" + at_xfail=no + ( + echo "27. special-names.at:24: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4331,46 +3935,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/special-names.at:43: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "special-names.at:43" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:43" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/special-names.at:44: ./prog this is arg" -at_fn_check_prepare_trace "special-names.at:44" -( $at_check_trace; ./prog this is arg -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "arg " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:44" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_27 -#AT_START_28 -at_fn_group_banner 28 'special-names.at:48' \ - "ACCEPT ENVIRONMENT-VALUE" " " -at_xfail=no -( - $as_echo "28. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "special-names.at:43: \${COMPILE_JP_COMPAT} -x prog.cob" +echo special-names.at:43 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:43: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "special-names.at:44: ./prog this is arg" +echo special-names.at:44 >$at_check_line_file +( $at_traceon; ./prog this is arg ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "arg " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:44: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 28 ) # 28. special-names.at:48: ACCEPT ENVIRONMENT-VALUE + at_setup_line='special-names.at:48' + at_desc='ACCEPT ENVIRONMENT-VALUE' + $at_quiet $ECHO_N " 28: ACCEPT ENVIRONMENT-VALUE $ECHO_C" + at_xfail=no + ( + echo "28. special-names.at:48: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4392,46 +4021,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/special-names.at:67: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "special-names.at:67" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:67" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/special-names.at:68: export TESTENV=envvalue && ./prog" -at_fn_check_prepare_trace "special-names.at:68" -( $at_check_trace; export TESTENV=envvalue && ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "envvalue" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:68" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_28 -#AT_START_29 -at_fn_group_banner 29 'special-names.at:72' \ - "DISPLAY ARGUMENT-NUMBER" " " -at_xfail=no -( - $as_echo "29. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "special-names.at:67: \${COMPILE_JP_COMPAT} -x prog.cob" +echo special-names.at:67 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:67: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "special-names.at:68: export TESTENV=envvalue && ./prog" +echo special-names.at:68 >$at_check_line_file +( $at_traceon; export TESTENV=envvalue && ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "envvalue" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:68: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 29 ) # 29. special-names.at:72: DISPLAY ARGUMENT-NUMBER + at_setup_line='special-names.at:72' + at_desc='DISPLAY ARGUMENT-NUMBER' + $at_quiet $ECHO_N " 29: DISPLAY ARGUMENT-NUMBER $ECHO_C" + at_xfail=no + ( + echo "29. special-names.at:72: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4453,46 +4107,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/special-names.at:91: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "special-names.at:91" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:91" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/special-names.at:92: ./prog this is arg" -at_fn_check_prepare_trace "special-names.at:92" -( $at_check_trace; ./prog this is arg -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "arg " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:92" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_29 -#AT_START_30 -at_fn_group_banner 30 'special-names.at:96' \ - "DISPLAY ENVIRONMENT-NAME" " " -at_xfail=no -( - $as_echo "30. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "special-names.at:91: \${COMPILE_JP_COMPAT} -x prog.cob" +echo special-names.at:91 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:91: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "special-names.at:92: ./prog this is arg" +echo special-names.at:92 >$at_check_line_file +( $at_traceon; ./prog this is arg ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "arg " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:92: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 30 ) # 30. special-names.at:96: DISPLAY ENVIRONMENT-NAME + at_setup_line='special-names.at:96' + at_desc='DISPLAY ENVIRONMENT-NAME' + $at_quiet $ECHO_N " 30: DISPLAY ENVIRONMENT-NAME $ECHO_C" + at_xfail=no + ( + echo "30. special-names.at:96: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4514,46 +4193,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/special-names.at:115: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "special-names.at:115" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:115" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/special-names.at:116: export TESTENV=envvalue && ./prog" -at_fn_check_prepare_trace "special-names.at:116" -( $at_check_trace; export TESTENV=envvalue && ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "envvalue" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:116" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_30 -#AT_START_31 -at_fn_group_banner 31 'special-names.at:120' \ - "DISPLAY ENVIRONMENT-VALUE" " " -at_xfail=no -( - $as_echo "31. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "special-names.at:115: \${COMPILE_JP_COMPAT} -x prog.cob" +echo special-names.at:115 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:115: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "special-names.at:116: export TESTENV=envvalue && ./prog" +echo special-names.at:116 >$at_check_line_file +( $at_traceon; export TESTENV=envvalue && ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "envvalue" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:116: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 31 ) # 31. special-names.at:120: DISPLAY ENVIRONMENT-VALUE + at_setup_line='special-names.at:120' + at_desc='DISPLAY ENVIRONMENT-VALUE' + $at_quiet $ECHO_N " 31: DISPLAY ENVIRONMENT-VALUE $ECHO_C" + at_xfail=no + ( + echo "31. special-names.at:120: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4579,46 +4283,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/special-names.at:143: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "special-names.at:143" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:143" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/special-names.at:144: export TESTENV=envvalue && ./prog" -at_fn_check_prepare_trace "special-names.at:144" -( $at_check_trace; export TESTENV=envvalue && ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "envvalue:newvalue" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/special-names.at:144" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_31 -#AT_START_32 -at_fn_group_banner 32 'intr-funcs.at:1' \ - "FUNCTION LENG (fixed)" " " -at_xfail=no -( - $as_echo "32. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "special-names.at:143: \${COMPILE_JP_COMPAT} -x prog.cob" +echo special-names.at:143 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:143: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "special-names.at:144: export TESTENV=envvalue && ./prog" +echo special-names.at:144 >$at_check_line_file +( $at_traceon; export TESTENV=envvalue && ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "envvalue:newvalue" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "special-names.at:144: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 32 ) # 32. intr-funcs.at:1: FUNCTION LENG (fixed) + at_setup_line='intr-funcs.at:1' + at_desc='FUNCTION LENG (fixed)' + $at_quiet $ECHO_N " 32: FUNCTION LENG (fixed) $ECHO_C" + at_xfail=no + ( + echo "32. intr-funcs.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4636,46 +4365,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:16: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "intr-funcs.at:16" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:16" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:17: ./prog" -at_fn_check_prepare_trace "intr-funcs.at:17" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "08" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:17" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_32 -#AT_START_33 -at_fn_group_banner 33 'intr-funcs.at:21' \ - "FUNCTION LENG (occur. depending)" " " -at_xfail=no -( - $as_echo "33. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "intr-funcs.at:16: \${COMPILE_JP_COMPAT} -x prog.cob" +echo intr-funcs.at:16 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:16: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "intr-funcs.at:17: ./prog" +echo intr-funcs.at:17 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "08" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:17: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 33 ) # 33. intr-funcs.at:21: FUNCTION LENG (occur. depending) + at_setup_line='intr-funcs.at:21' + at_desc='FUNCTION LENG (occur. depending)' + $at_quiet $ECHO_N " 33: FUNCTION LENG (occur. depending) $ECHO_C" + at_xfail=no + ( + echo "33. intr-funcs.at:21: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4696,46 +4450,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:39: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "intr-funcs.at:39" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:39" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:40: ./prog" -at_fn_check_prepare_trace "intr-funcs.at:40" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "04" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:40" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_33 -#AT_START_34 -at_fn_group_banner 34 'intr-funcs.at:44' \ - "FUNCTION LENGTH-AN (fixed)" " " -at_xfail=no -( - $as_echo "34. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "intr-funcs.at:39: \${COMPILE_JP_COMPAT} -x prog.cob" +echo intr-funcs.at:39 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:39: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "intr-funcs.at:40: ./prog" +echo intr-funcs.at:40 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "04" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:40: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 34 ) # 34. intr-funcs.at:44: FUNCTION LENGTH-AN (fixed) + at_setup_line='intr-funcs.at:44' + at_desc='FUNCTION LENGTH-AN (fixed)' + $at_quiet $ECHO_N " 34: FUNCTION LENGTH-AN (fixed) $ECHO_C" + at_xfail=no + ( + echo "34. intr-funcs.at:44: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4753,46 +4532,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:59: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "intr-funcs.at:59" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:59" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:60: ./prog" -at_fn_check_prepare_trace "intr-funcs.at:60" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "08" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:60" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_34 -#AT_START_35 -at_fn_group_banner 35 'intr-funcs.at:64' \ - "FUNCTION LENGTH-AN (occur. depending)" " " -at_xfail=no -( - $as_echo "35. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "intr-funcs.at:59: \${COMPILE_JP_COMPAT} -x prog.cob" +echo intr-funcs.at:59 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:59: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "intr-funcs.at:60: ./prog" +echo intr-funcs.at:60 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "08" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:60: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 35 ) # 35. intr-funcs.at:64: FUNCTION LENGTH-AN (occur. depending) + at_setup_line='intr-funcs.at:64' + at_desc='FUNCTION LENGTH-AN (occur. depending)' + $at_quiet $ECHO_N " 35: FUNCTION LENGTH-AN (occur. depending) $ECHO_C" + at_xfail=no + ( + echo "35. intr-funcs.at:64: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4813,46 +4617,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:82: \${COMPILE_JP_COMPAT} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "intr-funcs.at:82" -( $at_check_trace; ${COMPILE_JP_COMPAT} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:82" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/intr-funcs.at:83: ./prog" -at_fn_check_prepare_trace "intr-funcs.at:83" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "04" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/intr-funcs.at:83" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_35 -#AT_START_36 -at_fn_group_banner 36 'file-control.at:1' \ - "Allow no file open (I-O, SEQUENTIAL)" " " -at_xfail=no -( - $as_echo "36. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "intr-funcs.at:82: \${COMPILE_JP_COMPAT} -x prog.cob" +echo intr-funcs.at:82 >$at_check_line_file +( $at_traceon; ${COMPILE_JP_COMPAT} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:82: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "intr-funcs.at:83: ./prog" +echo intr-funcs.at:83 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "04" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "intr-funcs.at:83: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 36 ) # 36. file-control.at:1: Allow no file open (I-O, SEQUENTIAL) + at_setup_line='file-control.at:1' + at_desc='Allow no file open (I-O, SEQUENTIAL)' + $at_quiet $ECHO_N " 36: Allow no file open (I-O, SEQUENTIAL) $ECHO_C" + at_xfail=no + ( + echo "36. file-control.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4880,47 +4709,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:26: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:26" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:26" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:27: export OC_IO_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:27" -( $at_check_trace; export OC_IO_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:27" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_36 -#AT_START_37 -at_fn_group_banner 37 'file-control.at:32' \ - "Allow no file open (I-O, LINE SEQ)" " " -at_xfail=no -( - $as_echo "37. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:26: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:26 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:26: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:27: export OC_IO_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:27 >$at_check_line_file +( $at_traceon; export OC_IO_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:27: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 37 ) # 37. file-control.at:32: Allow no file open (I-O, LINE SEQ) + at_setup_line='file-control.at:32' + at_desc='Allow no file open (I-O, LINE SEQ)' + $at_quiet $ECHO_N " 37: Allow no file open (I-O, LINE SEQ) $ECHO_C" + at_xfail=no + ( + echo "37. file-control.at:32: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4948,47 +4802,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:57: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:57" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:57" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:58: export OC_IO_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:58" -( $at_check_trace; export OC_IO_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:58" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_37 -#AT_START_38 -at_fn_group_banner 38 'file-control.at:63' \ - "Allow no file open (I-O, RELATIVE)" " " -at_xfail=no -( - $as_echo "38. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:57: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:57 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:57: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:58: export OC_IO_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:58 >$at_check_line_file +( $at_traceon; export OC_IO_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:58: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 38 ) # 38. file-control.at:63: Allow no file open (I-O, RELATIVE) + at_setup_line='file-control.at:63' + at_desc='Allow no file open (I-O, RELATIVE)' + $at_quiet $ECHO_N " 38: Allow no file open (I-O, RELATIVE) $ECHO_C" + at_xfail=no + ( + echo "38. file-control.at:63: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5018,47 +4897,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:90: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:90" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:90" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:91: export OC_IO_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:91" -( $at_check_trace; export OC_IO_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:91" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_38 -#AT_START_39 -at_fn_group_banner 39 'file-control.at:96' \ - "Allow no file open (I-O, INDEXED)" " " -at_xfail=no -( - $as_echo "39. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:90: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:90 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:90: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:91: export OC_IO_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:91 >$at_check_line_file +( $at_traceon; export OC_IO_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:91: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 39 ) # 39. file-control.at:96: Allow no file open (I-O, INDEXED) + at_setup_line='file-control.at:96' + at_desc='Allow no file open (I-O, INDEXED)' + $at_quiet $ECHO_N " 39: Allow no file open (I-O, INDEXED) $ECHO_C" + at_xfail=no + ( + echo "39. file-control.at:96: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5088,47 +4992,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:123: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:123" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:123" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:124: export OC_IO_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:124" -( $at_check_trace; export OC_IO_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:124" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_39 -#AT_START_40 -at_fn_group_banner 40 'file-control.at:129' \ - "Allow no file open (EXTEND, SEQUENTIAL)" " " -at_xfail=no -( - $as_echo "40. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:123: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:123 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:123: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:124: export OC_IO_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:124 >$at_check_line_file +( $at_traceon; export OC_IO_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:124: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 40 ) # 40. file-control.at:129: Allow no file open (EXTEND, SEQUENTIAL) + at_setup_line='file-control.at:129' + at_desc='Allow no file open (EXTEND, SEQUENTIAL)' + $at_quiet $ECHO_N " 40: Allow no file open (EXTEND, SEQUENTIAL) $ECHO_C" + at_xfail=no + ( + echo "40. file-control.at:129: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5156,47 +5085,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:154: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:154" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:154" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:155: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:155" -( $at_check_trace; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:155" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_40 -#AT_START_41 -at_fn_group_banner 41 'file-control.at:160' \ - "Allow no file open (EXTEND, LINE SEQ)" " " -at_xfail=no -( - $as_echo "41. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:154: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:154 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:154: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:155: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:155 >$at_check_line_file +( $at_traceon; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:155: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 41 ) # 41. file-control.at:160: Allow no file open (EXTEND, LINE SEQ) + at_setup_line='file-control.at:160' + at_desc='Allow no file open (EXTEND, LINE SEQ)' + $at_quiet $ECHO_N " 41: Allow no file open (EXTEND, LINE SEQ) $ECHO_C" + at_xfail=no + ( + echo "41. file-control.at:160: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5224,47 +5178,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:185: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:185" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:185" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:186: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:186" -( $at_check_trace; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:186" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_41 -#AT_START_42 -at_fn_group_banner 42 'file-control.at:191' \ - "Allow no file open (EXTEND, RELATIVE)" " " -at_xfail=no -( - $as_echo "42. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:185: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:185 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:185: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:186: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:186 >$at_check_line_file +( $at_traceon; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:186: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 42 ) # 42. file-control.at:191: Allow no file open (EXTEND, RELATIVE) + at_setup_line='file-control.at:191' + at_desc='Allow no file open (EXTEND, RELATIVE)' + $at_quiet $ECHO_N " 42: Allow no file open (EXTEND, RELATIVE) $ECHO_C" + at_xfail=no + ( + echo "42. file-control.at:191: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5294,47 +5273,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:218: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:218" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:218" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:219: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:219" -( $at_check_trace; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:219" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_42 -#AT_START_43 -at_fn_group_banner 43 'file-control.at:224' \ - "Allow no file open (EXTEND, INDEXED)" " " -at_xfail=no -( - $as_echo "43. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:218: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:218 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:218: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:219: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:219 >$at_check_line_file +( $at_traceon; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:219: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 43 ) # 43. file-control.at:224: Allow no file open (EXTEND, INDEXED) + at_setup_line='file-control.at:224' + at_desc='Allow no file open (EXTEND, INDEXED)' + $at_quiet $ECHO_N " 43: Allow no file open (EXTEND, INDEXED) $ECHO_C" + at_xfail=no + ( + echo "43. file-control.at:224: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5364,47 +5368,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:251: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:251" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:251" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:252: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:252" -( $at_check_trace; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:252" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_43 -#AT_START_44 -at_fn_group_banner 44 'file-control.at:257' \ - "Allow file delete (SEQUENTIAL)" " " -at_xfail=no -( - $as_echo "44. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:251: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:251 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:251: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:252: export OC_EXTEND_CREATES=yes && \${COBCRUN} prog" +echo file-control.at:252 >$at_check_line_file +( $at_traceon; export OC_EXTEND_CREATES=yes && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:252: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 44 ) # 44. file-control.at:257: Allow file delete (SEQUENTIAL) + at_setup_line='file-control.at:257' + at_desc='Allow file delete (SEQUENTIAL)' + $at_quiet $ECHO_N " 44: Allow file delete (SEQUENTIAL) $ECHO_C" + at_xfail=no + ( + echo "44. file-control.at:257: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5433,47 +5462,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:283: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:283" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:283" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:284: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:284" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:284" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_44 -#AT_START_45 -at_fn_group_banner 45 'file-control.at:289' \ - "Allow file delete (LINE SEQ)" " " -at_xfail=no -( - $as_echo "45. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:283: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:283 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:283: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:284: \${COBCRUN} prog" +echo file-control.at:284 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:284: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 45 ) # 45. file-control.at:289: Allow file delete (LINE SEQ) + at_setup_line='file-control.at:289' + at_desc='Allow file delete (LINE SEQ)' + $at_quiet $ECHO_N " 45: Allow file delete (LINE SEQ) $ECHO_C" + at_xfail=no + ( + echo "45. file-control.at:289: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5502,47 +5556,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:315: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:315" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:315" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:316: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:316" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:316" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_45 -#AT_START_46 -at_fn_group_banner 46 'file-control.at:321' \ - "Allow file delete (RELATIVE)" " " -at_xfail=no -( - $as_echo "46. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:315: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:315 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:315: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:316: \${COBCRUN} prog" +echo file-control.at:316 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:316: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 46 ) # 46. file-control.at:321: Allow file delete (RELATIVE) + at_setup_line='file-control.at:321' + at_desc='Allow file delete (RELATIVE)' + $at_quiet $ECHO_N " 46: Allow file delete (RELATIVE) $ECHO_C" + at_xfail=no + ( + echo "46. file-control.at:321: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5573,61 +5652,98 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:349: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:349" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:349" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:350: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:350" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:350" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_46 -#AT_START_47 -at_fn_group_banner 47 'file-control.at:355' \ - "Allow file delete (INDEXED)" " " -at_xfail=no -( - $as_echo "47. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/file-control.at:357: test \$COB_HAS_ISAM = \"yes\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"yes\" || exit 77" "file-control.at:357" -( $at_check_trace; test $COB_HAS_ISAM = "yes" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:357" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "file-control.at:349: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:349 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:349: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:350: \${COBCRUN} prog" +echo file-control.at:350 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:350: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 47 ) # 47. file-control.at:355: Allow file delete (INDEXED) + at_setup_line='file-control.at:355' + at_desc='Allow file delete (INDEXED)' + $at_quiet $ECHO_N " 47: Allow file delete (INDEXED) $ECHO_C" + at_xfail=no + ( + echo "47. file-control.at:355: testing ..." + $at_traceon + + +$at_traceoff +echo "file-control.at:357: test \$COB_HAS_ISAM = \"yes\" || exit 77" +echo file-control.at:357 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "yes" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:357: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -5658,61 +5774,98 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:385: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:385" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:385" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:386: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:386" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:386" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_47 -#AT_START_48 -at_fn_group_banner 48 'file-control.at:391' \ - "Allow file delete (INDEXED) - not available" " " -at_xfail=no -( - $as_echo "48. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/file-control.at:393: test \$COB_HAS_ISAM = \"no\" || exit 77" -at_fn_check_prepare_dynamic "test $COB_HAS_ISAM = \"no\" || exit 77" "file-control.at:393" -( $at_check_trace; test $COB_HAS_ISAM = "no" || exit 77 -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:393" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "file-control.at:385: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:385 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:385: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:386: \${COBCRUN} prog" +echo file-control.at:386 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:386: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 48 ) # 48. file-control.at:391: Allow file delete (INDEXED) - not available + at_setup_line='file-control.at:391' + at_desc='Allow file delete (INDEXED) - not available' + $at_quiet $ECHO_N " 48: Allow file delete (INDEXED) - not available $ECHO_C" + at_xfail=no + ( + echo "48. file-control.at:391: testing ..." + $at_traceon + + +$at_traceoff +echo "file-control.at:393: test \$COB_HAS_ISAM = \"no\" || exit 77" +echo file-control.at:393 >$at_check_line_file +( $at_traceon; test $COB_HAS_ISAM = "no" || exit 77 ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:393: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -5743,47 +5896,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-control.at:421: \${COMPILE_MODULE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:421" -( $at_check_trace; ${COMPILE_MODULE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:421" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-control.at:422: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-control.at:422" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "91 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-control.at:422" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_48 -#AT_START_49 -at_fn_group_banner 49 'file-userfh.at:1' \ - "USERFH - READ LOCK" " " -at_xfail=no -( - $as_echo "49. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "file-control.at:421: \${COMPILE_MODULE} -o prog prog.cob" +echo file-control.at:421 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:421: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-control.at:422: \${COBCRUN} prog" +echo file-control.at:422 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "91 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-control.at:422: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 49 ) # 49. file-userfh.at:1: USERFH - READ LOCK + at_setup_line='file-userfh.at:1' + at_desc='USERFH - READ LOCK' + $at_quiet $ECHO_N " 49: USERFH - READ LOCK $ECHO_C" + at_xfail=no + ( + echo "49. file-userfh.at:1: testing ..." + $at_traceon cat >hoge.c <<'_ATEOF' @@ -5826,62 +6004,392 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/file-userfh.at:39: echo -n 12341234 >input.txt" -at_fn_check_prepare_trace "file-userfh.at:39" -( $at_check_trace; echo -n 12341234 >input.txt -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-userfh.at:39" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-userfh.at:40: \${CC} -shared -o hoge.so hoge.c -fPIC" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-userfh.at:40" -( $at_check_trace; ${CC} -shared -o hoge.so hoge.c -fPIC -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-userfh.at:40" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-userfh.at:41: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "file-userfh.at:41" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-userfh.at:41" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/file-userfh.at:42: export OC_USERFH=hoge && ./prog" -at_fn_check_prepare_trace "file-userfh.at:42" -( $at_check_trace; export OC_USERFH=hoge && ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "257" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/file-userfh.at:42" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_49 +$at_traceoff +echo "file-userfh.at:39: echo -n 12341234 >input.txt" +echo file-userfh.at:39 >$at_check_line_file +( $at_traceon; echo -n 12341234 >input.txt ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-userfh.at:39: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-userfh.at:40: \${CC} -shared -I\${abs_top_srcdir} -o hoge.so hoge.c -fPIC" +echo file-userfh.at:40 >$at_check_line_file +( $at_traceon; ${CC} -shared -I${abs_top_srcdir} -o hoge.so hoge.c -fPIC ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-userfh.at:40: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-userfh.at:41: \${COMPILE} -x prog.cob" +echo file-userfh.at:41 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-userfh.at:41: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "file-userfh.at:42: export OC_USERFH=hoge && ./prog" +echo file-userfh.at:42 >$at_check_line_file +( $at_traceon; export OC_USERFH=hoge && ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "257" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "file-userfh.at:42: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + + * ) + echo "$as_me: no such test group: $at_group" >&2 + continue + ;; + esac + + # Be sure to come back to the suite directory, in particular + # since below we might `rm' the group directory we are in currently. + cd $at_suite_dir + + case $at_group in + banner-*) ;; + *) + if test ! -f $at_check_line_file; then + sed "s/^ */$as_me: warning: /" <<_ATEOF + A failure happened in a test group before any test could be + run. This means that test suite is improperly designed. Please + report this failure to . +_ATEOF + echo "$at_setup_line" >$at_check_line_file + fi + at_group_count=`expr 1 + $at_group_count` + $at_verbose $ECHO_N "$at_group. $at_setup_line: $ECHO_C" + echo $ECHO_N "$at_group. $at_setup_line: $ECHO_C" >> $at_group_log + case $at_xfail:$at_status in + yes:0) + at_msg="UNEXPECTED PASS" + at_xpass_list="$at_xpass_list $at_group" + at_errexit=$at_errexit_p + ;; + no:0) + at_msg="ok" + at_pass_list="$at_pass_list $at_group" + at_errexit=false + ;; + *:77) + at_msg="skipped (`cat $at_check_line_file`)" + at_skip_list="$at_skip_list $at_group" + at_errexit=false + ;; + yes:*) + at_msg="expected failure (`cat $at_check_line_file`)" + at_xfail_list="$at_xfail_list $at_group" + at_errexit=false + ;; + no:*) + at_msg="FAILED (`cat $at_check_line_file`)" + at_fail_list="$at_fail_list $at_group" + at_errexit=$at_errexit_p + ;; + esac + echo $at_msg + at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" + case $at_status in + 0|77) + # $at_times_file is only available if the group succeeded. + # We're not including the group log, so the success message + # is written in the global log separately. But we also + # write to the group log in case they're using -d. + if test -f $at_times_file; then + at_log_msg="$at_log_msg (`sed 1d $at_times_file`)" + rm -f $at_times_file + fi + echo "$at_log_msg" >> $at_group_log + echo "$at_log_msg" >&5 + + # Cleanup the group directory, unless the user wants the files. + $at_debug_p || rm -rf $at_group_dir + ;; + *) + # Upon failure, include the log into the testsuite's global + # log. The failure message is written in the group log. It + # is later included in the global log. + echo "$at_log_msg" >> $at_group_log + + # Upon failure, keep the group directory for autopsy, and + # create the debugging script. + { + echo "#! /bin/sh" + echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' + echo "cd $at_dir" + echo 'exec ${CONFIG_SHELL-'"$SHELL"'}' "$0" \ + '-v -d' "$at_debug_args" "$at_group" '${1+"$@"}' + echo 'exit 1' + } >$at_group_dir/run + chmod +x $at_group_dir/run + $at_errexit && break + ;; + esac + ;; + esac +done + +# Back to the top directory. +cd $at_dir + +# Compute the duration of the suite. +at_stop_date=`date` +at_stop_time=`(date +%s) 2>/dev/null` +echo "$as_me: ending at: $at_stop_date" >&5 +at_duration_s=`(expr $at_stop_time - $at_start_time) 2>/dev/null` +at_duration_m=`(expr $at_duration_s / 60) 2>/dev/null` +at_duration_h=`(expr $at_duration_m / 60) 2>/dev/null` +at_duration_s=`(expr $at_duration_s % 60) 2>/dev/null` +at_duration_m=`(expr $at_duration_m % 60) 2>/dev/null` +at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" +if test "$at_duration" != "h m s"; then + echo "$as_me: test suite duration: $at_duration" >&5 +fi + +# Wrap up the test suite with summary statistics. +at_skip_count=`set dummy $at_skip_list; shift; echo $#` +at_fail_count=`set dummy $at_fail_list; shift; echo $#` +at_xpass_count=`set dummy $at_xpass_list; shift; echo $#` +at_xfail_count=`set dummy $at_xfail_list; shift; echo $#` + +at_run_count=`expr $at_group_count - $at_skip_count` +at_unexpected_count=`expr $at_xpass_count + $at_fail_count` +at_total_fail_count=`expr $at_xfail_count + $at_fail_count` + +echo +cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX +echo +{ + echo + cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX + echo +} >&5 + +if test $at_run_count = 1; then + at_result="1 test" + at_were=was +else + at_result="$at_run_count tests" + at_were=were +fi +if $at_errexit_p && test $at_unexpected_count != 0; then + if test $at_xpass_count = 1; then + at_result="$at_result $at_were run, one passed" + else + at_result="$at_result $at_were run, one failed" + fi + at_result="$at_result unexpectedly and inhibited subsequent tests." +else + # Don't you just love exponential explosion of the number of cases? + case $at_xpass_count:$at_fail_count:$at_xfail_count in + # So far, so good. + 0:0:0) at_result="$at_result $at_were successful." ;; + 0:0:*) at_result="$at_result behaved as expected." ;; + + # Some unexpected failures + 0:*:0) at_result="$at_result $at_were run, +$at_fail_count failed unexpectedly." ;; + + # Some failures, both expected and unexpected + 0:*:1) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + 0:*:*) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + + # No unexpected failures, but some xpasses + *:0:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly." ;; + + # No expected failures, but failures and xpasses + *:1:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; + *:*:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + + # All of them. + *:*:1) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + *:*:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + esac + + if test $at_skip_count = 0 && test $at_run_count -gt 1; then + at_result="All $at_result" + fi +fi + +# Now put skips in the mix. +case $at_skip_count in + 0) ;; + 1) at_result="$at_result +1 test was skipped." ;; + *) at_result="$at_result +$at_skip_count tests were skipped." ;; +esac + +if test $at_unexpected_count = 0; then + echo "$at_result" + echo "$at_result" >&5 +else + echo "ERROR: $at_result" >&2 + echo "ERROR: $at_result" >&5 + { + echo + cat <<\_ASBOX +## ------------------------ ## +## Summary of the failures. ## +## ------------------------ ## +_ASBOX + + # Summary of failed and skipped tests. + if test $at_fail_count != 0; then + echo "Failed tests:" + $SHELL $0 $at_fail_list --list + echo + fi + if test $at_skip_count != 0; then + echo "Skipped tests:" + $SHELL $0 $at_skip_list --list + echo + fi + if test $at_xpass_count != 0; then + echo "Unexpected passes:" + $SHELL $0 $at_xpass_list --list + echo + fi + if test $at_fail_count != 0; then + cat <<\_ASBOX +## ---------------------- ## +## Detailed failed tests. ## +## ---------------------- ## +_ASBOX + echo + for at_group in $at_fail_list + do + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + cat $at_group_log + echo + done + echo + fi + if test -n "$at_top_srcdir"; then + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $at_top_builddir/config.log ## +_ASBOX + sed 's/^/| /' $at_top_builddir/config.log + echo + fi + } >&5 + + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $as_me.log was created. ## +_ASBOX + + echo + echo "Please send \`$as_me.log' and all information you think might help:" + echo + echo " To: " + echo " Subject: [OpenCOBOL 1.1] $as_me:$at_fail_list${at_fail_list:+ failed${at_xpass_list:+,}}$at_xpass_list${at_xpass_list:+ passed unexpectedly}" + echo + if test $at_debug_p = false; then + echo + echo 'You may investigate any problem if you feel able to do so, in which' + echo 'case the test suite provides a good starting point.' + echo + fi + exit 1 +fi + +exit 0 + + diff --git a/tests/package.m4 b/tests/package.m4 index 1fcd8168..8cea011f 100644 --- a/tests/package.m4 +++ b/tests/package.m4 @@ -1,6 +1,6 @@ # Signature of the current package. m4_define([AT_PACKAGE_NAME], [OpenCOBOL]) -m4_define([AT_PACKAGE_TARNAME], [opensource-cobol-1.3J]) +m4_define([AT_PACKAGE_TARNAME], [opensource-cobol-1.3.1J]) m4_define([AT_PACKAGE_VERSION], [1.1]) m4_define([AT_PACKAGE_STRING], [OpenCOBOL 1.1]) m4_define([AT_PACKAGE_BUGREPORT], [open-cobol-list@lists.sourceforge.net]) diff --git a/tests/run b/tests/run index 9505d160..6e4e19d0 100755 --- a/tests/run +++ b/tests/run @@ -1,418 +1,75 @@ #! /bin/sh -# Generated from run.at by GNU Autoconf 2.68. -# -# Copyright (C) 2009, 2010 Free Software Foundation, Inc. -# -# This test suite is free software; the Free Software Foundation gives -# unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix fi +DUALCASE=1; export DUALCASE # for MKS sh - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } + as_unset=false fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : - -else - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - # We cannot yet assume a decent shell, so we have to provide a - # neutralization value for shells without unset; and this also - # works around shells that cannot unset nonexistent variables. - # Preserve -v and -x to the replacement shell. - BASH_ENV=/dev/null - ENV=/dev/null - (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV - export CONFIG_SHELL - case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; - esac - exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"} -fi - - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var else - $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, -$0: including any error possibly output before this -$0: message. Then install a modern shell, or manually run -$0: the script under such a shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + $as_unset $as_var fi - $as_echo "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error +done -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi -as_me=`$as_basename -- "$0" || + +# Name of the executable. +as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + +# PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' @@ -420,107 +77,146 @@ as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + + + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop - s/-\n.*// + s,-$,, + s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + chmod +x $as_me.lineno || + { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 + { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno # Exit status is that of the last command. exit } -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null + as_expr=false fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links as_ln_s='cp -p' + else + as_ln_s='ln -s' fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln else as_ln_s='cp -p' fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null +rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' + as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x +as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" @@ -529,7 +225,14 @@ as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" +# CDPATH. +$as_unset CDPATH SHELL=${CONFIG_SHELL-/bin/sh} @@ -537,6 +240,24 @@ SHELL=${CONFIG_SHELL-/bin/sh} # How were we run? at_cli_args="$@" +# Load the config file. +for at_file in atconfig atlocal +do + test -r $at_file || continue + . ./$at_file || { echo "$as_me: error: invalid content: $at_file" >&2 + { (exit 1); exit 1; }; } +done + +# atconfig delivers paths relative to the directory the test suite is +# in, but the groups themselves are run in testsuite-dir/group-dir. +if test -n "$at_top_srcdir"; then + builddir=../.. + for at_dir in srcdir top_srcdir top_builddir + do + at_val=`eval echo '${'at_$at_dir'}'` + eval "$at_dir=\$at_val/../.." + done +fi # Not all shells have the 'times' builtin; the subshell is needed to make # sure we discard the 'times: not found' message from the shell. @@ -547,53 +268,48 @@ at_times_p=false at_debug_args= # -e sets to true at_errexit_p=false -# Shall we be verbose? ':' means no, empty means yes. +# Shall we be verbose? at_verbose=: -at_quiet= -# Running several jobs in parallel, 0 means as many as test groups. -at_jobs=1 -at_traceon=: -at_trace_echo=: -at_check_filter_trace=: +at_quiet=echo # Shall we keep the debug scripts? Must be `:' when the suite is # run by a debug script, so that the script doesn't remove itself. at_debug_p=false # Display help message? at_help_p=false -# Display the version message? -at_version_p=false # List test groups? at_list_p=false -# --clean -at_clean=false # Test groups to run at_groups= -# Whether to rerun failed tests. -at_recheck= -# Whether a write failure occurred -at_write_fail=0 -# The directory we run the suite in. Default to . if no -C option. +# The directory we are in. at_dir=`pwd` -# An absolute reference to this testsuite script. -case $as_myself in - [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;; - * ) at_myself=$at_dir/$as_myself ;; -esac -# Whether -C is in effect. -at_change_dir=false +# The directory the whole suite works in. +# Should be absolutely to let the user `cd' at will. +at_suite_dir=$at_dir/$as_me.dir +# The file containing the suite. +at_suite_log=$at_dir/$as_me.log +# The file containing the location of the last AT_CHECK. +at_check_line_file=$at_suite_dir/at-check-line +# The file containing the exit status of the last command. +at_status_file=$at_suite_dir/at-status +# The files containing the output of the tested commands. +at_stdout=$at_suite_dir/at-stdout +at_stder1=$at_suite_dir/at-stder1 +at_stderr=$at_suite_dir/at-stderr +# The file containing dates. +at_times_file=$at_suite_dir/at-times -# Whether to enable colored test results. -at_color=no # List of the tested programs. at_tested='cobc' -# As many question marks as there are digits in the last test group number. +# List of the all the test groups. +at_groups_all=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197' +# As many dots as there are digits in the last test group number. # Used to normalize the test group numbers so that `ls' lists them in # numerical order. -at_format='???' +at_format='...' # Description of all the test groups. -at_help_all="1;fundamental.at:23;DISPLAY literals;; +at_help_all='1;fundamental.at:23;DISPLAY literals;; 2;fundamental.at:60;DISPLAY literals, DECIMAL-POINT is COMMA;; 3;fundamental.at:88;Hexadecimal literal;; 4;fundamental.at:124;DISPLAY data items with VALUE clause;; @@ -790,34 +506,9 @@ at_help_all="1;fundamental.at:23;DISPLAY literals;; 195;functions.at:1570;FUNCTION UPPER-CASE with reference modding;; 196;functions.at:1591;FUNCTION VARIANCE;; 197;functions.at:1611;FUNCTION WHEN-COMPILED;; -" -# List of the all the test groups. -at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'` - -# at_fn_validate_ranges NAME... -# ----------------------------- -# Validate and normalize the test group number contained in each variable -# NAME. Leading zeroes are treated as decimal. -at_fn_validate_ranges () -{ - for at_grp - do - eval at_value=\$$at_grp - if test $at_value -lt 1 || test $at_value -gt 197; then - $as_echo "invalid test group: $at_value" >&2 - exit 1 - fi - case $at_value in - 0*) # We want to treat leading 0 as decimal, like expr and test, but - # AS_VAR_ARITH treats it as octal if it uses $(( )). - # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the - # expr fork, but it is not worth the effort to determine if the - # shell supports XSI when the user can just avoid leading 0. - eval $at_grp='`expr $at_value + 0`' ;; - esac - done -} +' +at_keywords= at_prev= for at_option do @@ -827,10 +518,7 @@ do at_prev= fi - case $at_option in - *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;; - *) at_optarg= ;; - esac + at_optarg=`expr "x$at_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. @@ -844,24 +532,13 @@ do ;; --version | -V ) - at_version_p=: + echo "$as_me (OpenCOBOL 1.1)" + exit 0 ;; --clean | -c ) - at_clean=: - ;; - - --color ) - at_color=always - ;; - --color=* ) - case $at_optarg in - no | never | none) at_color=never ;; - auto | tty | if-tty) at_color=auto ;; - always | yes | force) at_color=always ;; - *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'` - as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;; - esac + rm -rf $at_suite_dir $at_suite_log + exit 0 ;; --debug | -d ) @@ -874,35 +551,30 @@ do ;; --verbose | -v ) - at_verbose=; at_quiet=: + at_verbose=echo; at_quiet=: ;; --trace | -x ) - at_traceon='set -x' - at_trace_echo=echo - at_check_filter_trace=at_fn_filter_trace + at_traceon='set -vx'; at_traceoff='set +vx' ;; [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) - at_fn_validate_ranges at_option - as_fn_append at_groups "$at_option$as_nl" + at_groups="$at_groups$at_option " ;; # Ranges [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) - at_range_start=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_start - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,$p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_start=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,'` + at_groups="$at_groups$at_range " ;; -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) - at_range_end=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '1,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_end=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ @@ -911,45 +583,13 @@ do [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) - at_range_start=`expr $at_option : '\(.*\)-'` - at_range_end=`expr $at_option : '.*-\(.*\)'` - if test $at_range_start -gt $at_range_end; then - at_tmp=$at_range_end - at_range_end=$at_range_start - at_range_start=$at_tmp - fi - at_fn_validate_ranges at_range_start at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" - ;; - - # Directory selection. - --directory | -C ) - at_prev=--directory - ;; - --directory=* ) - at_change_dir=: - at_dir=$at_optarg - if test x- = "x$at_dir" ; then - at_dir=./- - fi - ;; - - # Parallel execution. - --jobs | -j ) - at_jobs=0 - ;; - --jobs=* | -j[0-9]* ) - if test -n "$at_optarg"; then - at_jobs=$at_optarg - else - at_jobs=`expr X$at_option : 'X-j\(.*\)'` - fi - case $at_jobs in *[!0-9]*) - at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'` - as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;; - esac + at_range_start=`echo $at_option |sed 's,-.*,,'` + at_range_end=`echo $at_option |sed 's,.*-,,'` + # FIXME: Maybe test to make sure start <= end? + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,' \ + -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; # Keywords. @@ -957,113 +597,67 @@ do at_prev=--keywords ;; --keywords=* ) - at_groups_selected=$at_help_all - at_save_IFS=$IFS - IFS=, - set X $at_optarg - shift - IFS=$at_save_IFS - for at_keyword - do - at_invert= - case $at_keyword in - '!'*) - at_invert="-v" - at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'` - ;; - esac - # It is on purpose that we match the test group titles too. - at_groups_selected=`$as_echo "$at_groups_selected" | - grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"` - done - # Smash the keywords. - at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'` - as_fn_append at_groups "$at_groups_selected$as_nl" - ;; - --recheck) - at_recheck=: + at_keywords="$at_keywords,$at_optarg" ;; *=*) - at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $at_envvar in - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error $? "invalid variable name: \`$at_envvar'" ;; - esac - at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` - # Export now, but save eval for later and for debug scripts. - export $at_envvar - as_fn_append at_debug_args " $at_envvar='$at_value'" - ;; - - *) $as_echo "$as_me: invalid option: $at_option" >&2 - $as_echo "Try \`$0 --help' for more information." >&2 + at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + expr "x$at_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid variable name: $at_envvar" >&2 + { (exit 1); exit 1; }; } + at_value=`echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` + eval "$at_envvar='$at_value'" + export $at_envvar + # Propagate to debug scripts. + at_debug_args="$at_debug_args $at_option" + ;; + + *) echo "$as_me: invalid option: $at_option" >&2 + echo "Try \`$0 --help' for more information." >&2 exit 1 ;; esac done -# Verify our last option didn't require an argument -if test -n "$at_prev"; then : - as_fn_error $? "\`$at_prev' requires an argument" +# Process the --keywords +if test -n "$at_keywords"; then + at_groups_selected=$at_help_all + for at_keyword in `IFS=,; set X $at_keywords; shift; echo ${1+$@}` + do + # It is on purpose that we match the test group titles too. + at_groups_selected=`echo "$at_groups_selected" | + grep -i "^[^;]*;[^;]*.*[; ]$at_keyword[ ;]"` + done + at_groups_selected=`echo "$at_groups_selected" | sed 's/;.*//'` + # Smash the end of lines. + at_groups_selected=`echo $at_groups_selected` + at_groups="$at_groups$at_groups_selected " fi -# The file containing the suite. -at_suite_log=$at_dir/$as_me.log - # Selected test groups. -if test -z "$at_groups$at_recheck"; then - at_groups=$at_groups_all -else - if test -n "$at_recheck" && test -r "$at_suite_log"; then - at_oldfails=`sed -n ' - /^Failed tests:$/,/^Skipped tests:$/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^Unexpected passes:$/,/^## Detailed failed tests/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^## Detailed failed tests/q - ' "$at_suite_log"` - as_fn_append at_groups "$at_oldfails$as_nl" - fi - # Sort the tests, removing duplicates. - at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'` -fi - -if test x"$at_color" = xalways \ - || { test x"$at_color" = xauto && test -t 1; }; then - at_red=`printf '\033[0;31m'` - at_grn=`printf '\033[0;32m'` - at_lgn=`printf '\033[1;32m'` - at_blu=`printf '\033[1;34m'` - at_std=`printf '\033[m'` -else - at_red= at_grn= at_lgn= at_blu= at_std= -fi +test -z "$at_groups" && at_groups=$at_groups_all # Help message. if $at_help_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] -Run all the tests, or the selected TESTS, given by numeric ranges, and -save a detailed log file. Upon failure, create debugging scripts. +Run all the tests, or the selected TESTS, and save a detailed log file. +Upon failure, create debugging scripts. -Do not change environment variables directly. Instead, set them via -command line arguments. Set \`AUTOTEST_PATH' to select the executables +You should not change environment variables unless explicitly passed +as command line arguments. Set \`AUTOTEST_PATH' to select the executables to exercise. Each relative directory is expanded as build and source -directories relative to the top level of this distribution. -E.g., from within the build directory /tmp/foo-1.0, invoking this: +directories relatively to the top level of this distribution. E.g., $ $0 AUTOTEST_PATH=bin -is equivalent to the following, assuming the source directory is /src/foo-1.0: +possibly amounts into - PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0 + PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Operation modes: -h, --help print the help message, then exit @@ -1071,278 +665,145 @@ Operation modes: -c, --clean remove all the files this test suite might create and exit -l, --list describes all the tests, or the selected TESTS _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Execution tuning: - -C, --directory=DIR - change to directory DIR before starting - --color[=never|auto|always] - enable colored test results on terminal, or always - -j, --jobs[=N] - Allow N jobs at once; infinite jobs with no arg (default 1) -k, --keywords=KEYWORDS - select the tests matching all the comma-separated KEYWORDS - multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD - --recheck select all tests that failed or passed unexpectedly last time + select the tests matching all the comma separated KEYWORDS + accumulates -e, --errexit abort as soon as a test fails; implies --debug -v, --verbose force more detailed output - default for debugging scripts - -d, --debug inhibit clean up and top-level logging - default for debugging scripts + default for debugging scripts + -d, --debug inhibit clean up and debug script creation + default for debugging scripts -x, --trace enable tests shell tracing _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Report bugs to . _ATEOF - exit $at_write_fail + exit 0 fi # List of tests. if $at_list_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF OpenCOBOL 1.1 test suite: Run Tests test groups: - NUM: FILE-NAME:LINE TEST-GROUP-NAME + NUM: FILENAME:LINE TEST-GROUP-NAME KEYWORDS _ATEOF - # Pass an empty line as separator between selected groups and help. - $as_echo "$at_groups$as_nl$as_nl$at_help_all" | - awk 'NF == 1 && FS != ";" { - selected[$ 1] = 1 - next - } - /^$/ { FS = ";" } - NF > 0 { - if (selected[$ 1]) { - printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3 - if ($ 4) { - lmax = 79 - indent = " " - line = indent - len = length (line) - n = split ($ 4, a, " ") - for (i = 1; i <= n; i++) { - l = length (a[i]) + 1 - if (i > 1 && len + l > lmax) { - print line - line = indent " " a[i] - len = length (line) - } else { - line = line " " a[i] - len += l - } - } - if (n) - print line - } - } - }' || at_write_fail=1 - exit $at_write_fail -fi -if $at_version_p; then - $as_echo "$as_me (OpenCOBOL 1.1)" && - cat <<\_ATEOF || at_write_fail=1 - -Copyright (C) 2010 Free Software Foundation, Inc. -This test suite is free software; the Free Software Foundation gives -unlimited permission to copy, distribute and modify it. -_ATEOF - exit $at_write_fail -fi - -# Should we print banners? Yes if more than one test is run. -case $at_groups in #( - *$as_nl* ) - at_print_banners=: ;; #( - * ) at_print_banners=false ;; -esac -# Text for banner N, set to a single space once printed. - -# Take any -C into account. -if $at_change_dir ; then - test x != "x$at_dir" && cd "$at_dir" \ - || as_fn_error $? "unable to change directory" - at_dir=`pwd` -fi - -# Load the config files for any default variable assignments. -for at_file in atconfig atlocal -do - test -r $at_file || continue - . ./$at_file || as_fn_error $? "invalid content: $at_file" -done - -# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix: -: "${at_top_build_prefix=$at_top_builddir}" - -# Perform any assignments requested during argument parsing. -eval "$at_debug_args" - -# atconfig delivers names relative to the directory the test suite is -# in, but the groups themselves are run in testsuite-dir/group-dir. -if test -n "$at_top_srcdir"; then - builddir=../.. - for at_dir_var in srcdir top_srcdir top_build_prefix - do - eval at_val=\$at_$at_dir_var - case $at_val in - [\\/$]* | ?:[\\/]* ) at_prefix= ;; - *) at_prefix=../../ ;; - esac - eval "$at_dir_var=\$at_prefix\$at_val" - done -fi - -## -------------------- ## -## Directory structure. ## -## -------------------- ## - -# This is the set of directories and files used by this script -# (non-literals are capitalized): -# -# TESTSUITE - the testsuite -# TESTSUITE.log - summarizes the complete testsuite run -# TESTSUITE.dir/ - created during a run, remains after -d or failed test -# + at-groups/ - during a run: status of all groups in run -# | + NNN/ - during a run: meta-data about test group NNN -# | | + check-line - location (source file and line) of current AT_CHECK -# | | + status - exit status of current AT_CHECK -# | | + stdout - stdout of current AT_CHECK -# | | + stder1 - stderr, including trace -# | | + stderr - stderr, with trace filtered out -# | | + test-source - portion of testsuite that defines group -# | | + times - timestamps for computing duration -# | | + pass - created if group passed -# | | + xpass - created if group xpassed -# | | + fail - created if group failed -# | | + xfail - created if group xfailed -# | | + skip - created if group skipped -# + at-stop - during a run: end the run if this file exists -# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction -# + 0..NNN/ - created for each group NNN, remains after -d or failed test -# | + TESTSUITE.log - summarizes the group results -# | + ... - files created during the group - -# The directory the whole suite works in. -# Should be absolute to let the user `cd' at will. -at_suite_dir=$at_dir/$as_me.dir -# The file containing the suite ($at_dir might have changed since earlier). -at_suite_log=$at_dir/$as_me.log -# The directory containing helper files per test group. -at_helper_dir=$at_suite_dir/at-groups -# Stop file: if it exists, do not start new jobs. -at_stop_file=$at_suite_dir/at-stop -# The fifo used for the job dispatcher. -at_job_fifo=$at_suite_dir/at-job-fifo - -if $at_clean; then - test -d "$at_suite_dir" && - find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -f -r "$at_suite_dir" "$at_suite_log" - exit $? + # " 1 42 45 " => "^(1|42|45);". + at_groups_pattern=`echo "$at_groups" | sed 's/^ *//;s/ *$//;s/ */|/g'` + echo "$at_help_all" | + awk 'BEGIN { FS = ";" } + { if ($1 !~ /^('"$at_groups_pattern"')$/) next } + { if ($1) printf " %3d: %-18s %s\n", $1, $2, $3 + if ($4) printf " %s\n", $4 } ' + exit 0 fi # Don't take risks: use only absolute directories in PATH. # -# For stand-alone test suites (ie. atconfig was not found), -# AUTOTEST_PATH is relative to `.'. +# For stand-alone test suites, AUTOTEST_PATH is relative to `.'. # # For embedded test suites, AUTOTEST_PATH is relative to the top level # of the package. Then expand it into build/src parts, since users # may create executables in both places. -AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"` +# +# There might be directories that don't exist, but don't redirect +# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. +AUTOTEST_PATH=`echo $AUTOTEST_PATH | tr ':' $PATH_SEPARATOR` at_path= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $AUTOTEST_PATH $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR -case $as_dir in + case $as_dir in [\\/]* | ?:[\\/]* ) - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir ;; * ) - if test -z "$at_top_build_prefix"; then + if test -z "$at_top_builddir"; then # Stand-alone test suite. - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir else # Embedded test suite. - as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR" - as_fn_append at_path "$at_top_srcdir/$as_dir" + at_path=$at_path$PATH_SEPARATOR$at_top_builddir/$as_dir + at_path=$at_path$PATH_SEPARATOR$at_top_srcdir/$as_dir fi ;; esac - done -IFS=$as_save_IFS +done # Now build and simplify PATH. -# -# There might be directories that don't exist, but don't redirect -# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. -at_new_path= +PATH= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $at_path do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -d "$as_dir" || continue -case $as_dir in - [\\/]* | ?:[\\/]* ) ;; - * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;; + as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` +test -d "$as_dir" || continue +case $PATH in + $as_dir | \ + $as_dir$PATH_SEPARATOR* | \ + *$PATH_SEPARATOR$as_dir | \ + *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR* ) ;; + + '') PATH=$as_dir ;; + *) PATH=$PATH$PATH_SEPARATOR$as_dir ;; esac -case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in - *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;; - $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;; - *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;; -esac - done -IFS=$as_save_IFS +done -PATH=$at_new_path export PATH # Setting up the FDs. - - - # 5 is the log file. Not to be overwritten if `-d'. -if $at_debug_p; then - at_suite_log=/dev/null -else - : >"$at_suite_log" -fi -exec 5>>"$at_suite_log" + +$at_debug_p && at_suite_log=/dev/null +exec 5>$at_suite_log # Banners and logs. -$as_echo "## ------------------------------------ ## +cat <<\_ASBOX +## ------------------------------------ ## ## OpenCOBOL 1.1 test suite: Run Tests. ## -## ------------------------------------ ##" +## ------------------------------------ ## +_ASBOX { - $as_echo "## ------------------------------------ ## + cat <<\_ASBOX +## ------------------------------------ ## ## OpenCOBOL 1.1 test suite: Run Tests. ## -## ------------------------------------ ##" +## ------------------------------------ ## +_ASBOX echo - $as_echo "$as_me: command line was:" - $as_echo " \$ $0 $at_cli_args" + echo "$as_me: command line was:" + echo " $ $0 $at_cli_args" echo - # If ChangeLog exists, list a few lines in case it might help determining - # the exact version. - if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then - $as_echo "## ---------- ## -## ChangeLog. ## -## ---------- ##" - echo - sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog" + # Try to find a few ChangeLogs in case it might help determining the + # exact version. Use the relative dir: if the top dir is a symlink, + # find will not follow it (and options to follow the links are not + # portable), which would result in no output here. + if test -n "$at_top_srcdir"; then + cat <<\_ASBOX +## ----------- ## +## ChangeLogs. ## +## ----------- ## +_ASBOX echo - fi + for at_file in `find "$at_top_srcdir" -name ChangeLog -print` + do + echo "$as_me: $at_file:" + sed 's/^/| /;10q' $at_file + echo + done - { + { cat <<_ASUNAME ## --------- ## ## Platform. ## @@ -1360,7 +821,7 @@ uname -v = `(uname -v) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` @@ -1372,822 +833,150 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" - done -IFS=$as_save_IFS + echo "PATH: $as_dir" +done } - echo + echo + fi # Contents of the config files. for at_file in atconfig atlocal do test -r $at_file || continue - $as_echo "$as_me: $at_file:" + echo "$as_me: $at_file:" sed 's/^/| /' $at_file echo done -} >&5 + cat <<\_ASBOX +## ---------------- ## +## Tested programs. ## +## ---------------- ## +_ASBOX + echo +} >&5 -## ------------------------- ## -## Autotest shell functions. ## -## ------------------------- ## +# Report what programs are being tested. +for at_program in : $at_tested +do + test "$at_program" = : && continue + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -f $as_dir/$at_program && break +done -# at_fn_banner NUMBER -# ------------------- -# Output banner NUMBER, provided the testsuite is running multiple groups and -# this particular banner has not yet been printed. -at_fn_banner () -{ - $at_print_banners || return 0 - eval at_banner_text=\$at_banner_text_$1 - test "x$at_banner_text" = "x " && return 0 - eval "at_banner_text_$1=\" \"" - if test -z "$at_banner_text"; then - $at_first || echo + if test -f $as_dir/$at_program; then + { + echo "run.at:21: $as_dir/$at_program --version" + $as_dir/$at_program --version + echo + } >&5 2>&1 else - $as_echo "$as_nl$at_banner_text$as_nl" + { { echo "$as_me:$LINENO: error: cannot find $at_program" >&5 +echo "$as_me: error: cannot find $at_program" >&2;} + { (exit 1); exit 1; }; } fi -} # at_fn_banner +done -# at_fn_check_prepare_notrace REASON LINE -# --------------------------------------- -# Perform AT_CHECK preparations for the command at LINE for an untraceable -# command; REASON is the reason for disabling tracing. -at_fn_check_prepare_notrace () { - $at_trace_echo "Not enabling shell tracing (command contains $1)" - $as_echo "$2" >"$at_check_line_file" - at_check_trace=: at_check_filter=: - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_trace LINE -# ------------------------------ -# Perform AT_CHECK preparations for the command at LINE for a traceable -# command. -at_fn_check_prepare_trace () -{ - $as_echo "$1" >"$at_check_line_file" - at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_dynamic COMMAND LINE -# ---------------------------------------- -# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate -# preparation function. -at_fn_check_prepare_dynamic () -{ - case $1 in - *$as_nl*) - at_fn_check_prepare_notrace 'an embedded newline' "$2" ;; - *) - at_fn_check_prepare_trace "$2" ;; - esac -} - -# at_fn_filter_trace -# ------------------ -# Remove the lines in the file "$at_stderr" generated by "set -x" and print -# them to stderr. -at_fn_filter_trace () -{ - mv "$at_stderr" "$at_stder1" - grep '^ *+' "$at_stder1" >&2 - grep -v '^ *+' "$at_stder1" >"$at_stderr" -} - -# at_fn_log_failure FILE-LIST -# --------------------------- -# Copy the files in the list on stdout with a "> " prefix, and exit the shell -# with a failure exit code. -at_fn_log_failure () -{ - for file - do $as_echo "$file:"; sed 's/^/> /' "$file"; done - echo 1 > "$at_status_file" - exit 1 -} - -# at_fn_check_skip EXIT-CODE LINE -# ------------------------------- -# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit -# the test group subshell with that same exit code. Use LINE in any report -# about test failure. -at_fn_check_skip () -{ - case $1 in - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$2: hard failure"; exit 99;; - 77) echo 77 > "$at_status_file"; exit 77;; - esac -} - -# at_fn_check_status EXPECTED EXIT-CODE LINE -# ------------------------------------------ -# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing. -# Otherwise, if it is 77 or 99, exit the test group subshell with that same -# exit code; if it is anything else print an error message referring to LINE, -# and fail the test. -at_fn_check_status () -{ - case $2 in - $1 ) ;; - 77) echo 77 > "$at_status_file"; exit 77;; - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$3: hard failure"; exit 99;; - *) $as_echo "$3: exit code was $2, expected $1" - at_failed=:;; - esac -} - -# at_fn_diff_devnull FILE -# ----------------------- -# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff -# invocations. -at_fn_diff_devnull () -{ - test -s "$1" || return 0 - $at_diff "$at_devnull" "$1" -} - -# at_fn_test NUMBER -# ----------------- -# Parse out test NUMBER from the tail of this file. -at_fn_test () -{ - eval at_sed=\$at_sed$1 - sed "$at_sed" "$at_myself" > "$at_test_source" -} - -# at_fn_create_debugging_script -# ----------------------------- -# Create the debugging script $at_group_dir/run which will reproduce the -# current test group. -at_fn_create_debugging_script () -{ - { - echo "#! /bin/sh" && - echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' && - $as_echo "cd '$at_dir'" && - $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" && - echo 'exit 1' - } >"$at_group_dir/run" && - chmod +x "$at_group_dir/run" -} - -## -------------------------------- ## -## End of autotest shell functions. ## -## -------------------------------- ## -{ - $as_echo "## ---------------- ## -## Tested programs. ## -## ---------------- ##" - echo -} >&5 - -# Report what programs are being tested. -for at_program in : $at_tested -do - test "$at_program" = : && continue - case $at_program in - [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;; - * ) - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -f "$as_dir/$at_program" && break - done -IFS=$as_save_IFS - - at_program_=$as_dir/$at_program ;; - esac - if test -f "$at_program_"; then - { - $as_echo "$at_srcdir/run.at:21: $at_program_ --version" - "$at_program_" --version &5 2>&1 - else - as_fn_error $? "cannot find $at_program" "$LINENO" 5 - fi -done - -{ - $as_echo "## ------------------ ## -## Running the tests. ## -## ------------------ ##" -} >&5 + cat <<\_ASBOX +## ------------------ ## +## Running the tests. ## +## ------------------ ## +_ASBOX +} >&5 at_start_date=`date` -at_start_time=`date +%s 2>/dev/null` -$as_echo "$as_me: starting at: $at_start_date" >&5 +at_start_time=`(date +%s) 2>/dev/null` +echo "$as_me: starting at: $at_start_date" >&5 +at_xpass_list= +at_xfail_list= +at_pass_list= +at_fail_list= +at_skip_list= +at_group_count=0 # Create the master directory if it doesn't already exist. -as_dir="$at_suite_dir"; as_fn_mkdir_p || - as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5 +test -d $at_suite_dir || + mkdir $at_suite_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_suite_dir" >&5 +echo "$as_me: error: cannot create $at_suite_dir" >&2;} + { (exit 1); exit 1; }; } # Can we diff with `/dev/null'? DU 5.0 refuses. if diff /dev/null /dev/null >/dev/null 2>&1; then at_devnull=/dev/null else at_devnull=$at_suite_dir/devnull - >"$at_devnull" + cp /dev/null $at_devnull fi # Use `diff -u' when possible. -if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff" -then +if diff -u $at_devnull $at_devnull >/dev/null 2>&1; then at_diff='diff -u' else at_diff=diff fi -# Get the last needed group. -for at_group in : $at_groups; do :; done - -# Extract the start and end lines of each test group at the tail -# of this file -awk ' -BEGIN { FS="" } -/^#AT_START_/ { - start = NR -} -/^#AT_STOP_/ { - test = substr ($ 0, 10) - print "at_sed" test "=\"1," start "d;" (NR-1) "q\"" - if (test == "'"$at_group"'") exit -}' "$at_myself" > "$at_suite_dir/at-source-lines" && -. "$at_suite_dir/at-source-lines" || - as_fn_error $? "cannot create test line number cache" "$LINENO" 5 -rm -f "$at_suite_dir/at-source-lines" - -# Set number of jobs for `-j'; avoid more jobs than test groups. -set X $at_groups; shift; at_max_jobs=$# -if test $at_max_jobs -eq 0; then - at_jobs=1 -fi -if test $at_jobs -ne 1 && - { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then - at_jobs=$at_max_jobs -fi - -# If parallel mode, don't output banners, don't split summary lines. -if test $at_jobs -ne 1; then - at_print_banners=false - at_quiet=: -fi - -# Set up helper dirs. -rm -rf "$at_helper_dir" && -mkdir "$at_helper_dir" && -cd "$at_helper_dir" && -{ test -z "$at_groups" || mkdir $at_groups; } || -as_fn_error $? "testsuite directory setup failed" "$LINENO" 5 - -# Functions for running a test group. We leave the actual -# test group execution outside of a shell function in order -# to avoid hitting zsh 4.x exit status bugs. - -# at_fn_group_prepare -# ------------------- -# Prepare for running a test group. -at_fn_group_prepare () -{ - # The directory for additional per-group helper files. - at_job_dir=$at_helper_dir/$at_group - # The file containing the location of the last AT_CHECK. - at_check_line_file=$at_job_dir/check-line - # The file containing the exit status of the last command. - at_status_file=$at_job_dir/status - # The files containing the output of the tested commands. - at_stdout=$at_job_dir/stdout - at_stder1=$at_job_dir/stder1 - at_stderr=$at_job_dir/stderr - # The file containing the code for a test group. - at_test_source=$at_job_dir/test-source - # The file containing dates. - at_times_file=$at_job_dir/times +for at_group in $at_groups +do # Be sure to come back to the top test directory. - cd "$at_suite_dir" - - # Clearly separate the test groups when verbose. - $at_first || $at_verbose echo - - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - - # Create a fresh directory for the next test group, and enter. - # If one already exists, the user may have invoked ./run from - # within that directory; we remove the contents, but not the - # directory itself, so that we aren't pulling the rug out from - # under the shell's notion of the current directory. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \; - rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??* -fi || - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5 -$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;} - # Be tolerant if the above `rm' was not able to remove the directory. - as_dir="$at_group_dir"; as_fn_mkdir_p - - echo 0 > "$at_status_file" - - # In verbose mode, append to the log file *and* show on - # the standard output; in quiet mode only write to the log. - if test -z "$at_verbose"; then - at_tee_pipe='tee -a "$at_group_log"' - else - at_tee_pipe='cat >> "$at_group_log"' - fi -} - -# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER] -# ------------------------------------------------- -# Declare the test group ORDINAL, located at LINE with group description DESC, -# and residing under BANNER. Use PAD to align the status column. -at_fn_group_banner () -{ - at_setup_line="$2" - test -n "$5" && at_fn_banner $5 - at_desc="$3" - case $1 in - [0-9]) at_desc_line=" $1: ";; - [0-9][0-9]) at_desc_line=" $1: " ;; - *) at_desc_line="$1: " ;; - esac - as_fn_append at_desc_line "$3$4" - $at_quiet $as_echo_n "$at_desc_line" - echo "# -*- compilation -*-" >> "$at_group_log" -} - -# at_fn_group_postprocess -# ----------------------- -# Perform cleanup after running a test group. -at_fn_group_postprocess () -{ - # Be sure to come back to the suite directory, in particular - # since below we might `rm' the group directory we are in currently. - cd "$at_suite_dir" + cd $at_suite_dir - if test ! -f "$at_check_line_file"; then - sed "s/^ */$as_me: WARNING: /" <<_ATEOF - A failure happened in a test group before any test could be - run. This means that test suite is improperly designed. Please - report this failure to . -_ATEOF - $as_echo "$at_setup_line" >"$at_check_line_file" - at_status=99 - fi - $at_verbose $as_echo_n "$at_group. $at_setup_line: " - $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log" - case $at_xfail:$at_status in - yes:0) - at_msg="UNEXPECTED PASS" - at_res=xpass - at_errexit=$at_errexit_p - at_color=$at_red - ;; - no:0) - at_msg="ok" - at_res=pass - at_errexit=false - at_color=$at_grn - ;; - *:77) - at_msg='skipped ('`cat "$at_check_line_file"`')' - at_res=skip - at_errexit=false - at_color=$at_blu - ;; - no:* | *:99) - at_msg='FAILED ('`cat "$at_check_line_file"`')' - at_res=fail - at_errexit=$at_errexit_p - at_color=$at_red - ;; - yes:*) - at_msg='expected failure ('`cat "$at_check_line_file"`')' - at_res=xfail - at_errexit=false - at_color=$at_lgn - ;; - esac - echo "$at_res" > "$at_job_dir/$at_res" - # In parallel mode, output the summary line only afterwards. - if test $at_jobs -ne 1 && test -n "$at_verbose"; then - $as_echo "$at_desc_line $at_color$at_msg$at_std" - else - # Make sure there is a separator even with long titles. - $as_echo " $at_color$at_msg$at_std" - fi - at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" - case $at_status in - 0|77) - # $at_times_file is only available if the group succeeded. - # We're not including the group log, so the success message - # is written in the global log separately. But we also - # write to the group log in case they're using -d. - if test -f "$at_times_file"; then - at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')' - rm -f "$at_times_file" - fi - $as_echo "$at_log_msg" >> "$at_group_log" - $as_echo "$at_log_msg" >&5 - - # Cleanup the group directory, unless the user wants the files - # or the success was unexpected. - if $at_debug_p || test $at_res = xpass; then - at_fn_create_debugging_script - if test $at_res = xpass && $at_errexit; then - echo stop > "$at_stop_file" - fi - else - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -fr "$at_group_dir" - fi - rm -f "$at_test_source" - fi - ;; - *) - # Upon failure, include the log into the testsuite's global - # log. The failure message is written in the group log. It - # is later included in the global log. - $as_echo "$at_log_msg" >> "$at_group_log" - - # Upon failure, keep the group directory for autopsy, and create - # the debugging script. With -e, do not start any further tests. - at_fn_create_debugging_script - if $at_errexit; then - echo stop > "$at_stop_file" - fi + case $at_group in + banner-*) + at_group_log=$at_suite_log ;; - esac -} - - -## ------------ ## -## Driver loop. ## -## ------------ ## - - -if (set -m && set +m && set +b) >/dev/null 2>&1; then - set +b - at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=- -else - at_job_control_on=: at_job_control_off=: at_job_group= -fi - -for at_signal in 1 2 15; do - trap 'set +x; set +e - $at_job_control_off - at_signal='"$at_signal"' - echo stop > "$at_stop_file" - trap "" $at_signal - at_pgids= - for at_pgid in `jobs -p 2>/dev/null`; do - at_pgids="$at_pgids $at_job_group$at_pgid" - done - test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null - wait - if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then - echo >&2 - fi - at_signame=`kill -l $at_signal 2>&1 || echo $at_signal` - set x $at_signame - test 1 -gt 2 && at_signame=$at_signal - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5 -$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;} - as_fn_arith 128 + $at_signal && exit_status=$as_val - as_fn_exit $exit_status' $at_signal -done - -rm -f "$at_stop_file" -at_first=: - -if test $at_jobs -ne 1 && - rm -f "$at_job_fifo" && - test -n "$at_job_group" && - ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null -then - # FIFO job dispatcher. - - trap 'at_pids= - for at_pid in `jobs -p`; do - at_pids="$at_pids $at_job_group$at_pid" - done - if test -n "$at_pids"; then - at_sig=TSTP - test "${TMOUT+set}" = set && at_sig=STOP - kill -$at_sig $at_pids 2>/dev/null - fi - kill -STOP $$ - test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP - - echo - # Turn jobs into a list of numbers, starting from 1. - at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p` - - set X $at_joblist - shift - for at_group in $at_groups; do - $at_job_control_on 2>/dev/null - ( - # Start one test group. - $at_job_control_off - if $at_first; then - exec 7>"$at_job_fifo" - else - exec 6<&- - fi - trap 'set +x; set +e - trap "" PIPE - echo stop > "$at_stop_file" - echo >&7 - as_fn_exit 141' PIPE - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source" - then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - echo >&7 - ) & - $at_job_control_off - if $at_first; then - at_first=false - exec 6<"$at_job_fifo" 7>"$at_job_fifo" - fi - shift # Consume one token. - if test $# -gt 0; then :; else - read at_token <&6 || break - set x $* - fi - test -f "$at_stop_file" && break - done - exec 7>&- - # Read back the remaining ($at_jobs - 1) tokens. - set X $at_joblist - shift - if test $# -gt 0; then - shift - for at_job - do - read at_token - done <&6 - fi - exec 6<&- - wait -else - # Run serially, avoid forks and other potential surprises. - for at_group in $at_groups; do - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source"; then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - test -f "$at_stop_file" && break - at_first=false - done -fi - -# Wrap up the test suite with summary statistics. -cd "$at_helper_dir" - -# Use ?..???? when the list must remain sorted, the faster * otherwise. -at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'` -at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'` -at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'` -at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do - echo $f; done | sed '/?/d; s,/xpass,,'` -at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do - echo $f; done | sed '/?/d; s,/fail,,'` - -set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list -shift; at_group_count=$# -set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$* -set X $at_xfail_list; shift; at_xfail_count=$# -set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$* -set X $at_skip_list; shift; at_skip_count=$# - -as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val -as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val -as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val -# Back to the top directory. -cd "$at_dir" -rm -rf "$at_helper_dir" - -# Compute the duration of the suite. -at_stop_date=`date` -at_stop_time=`date +%s 2>/dev/null` -$as_echo "$as_me: ending at: $at_stop_date" >&5 -case $at_start_time,$at_stop_time in - [0-9]*,[0-9]*) - as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val - as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val - as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val - as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val - as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val - at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" - $as_echo "$as_me: test suite duration: $at_duration" >&5 - ;; -esac - -echo -$as_echo "## ------------- ## -## Test results. ## -## ------------- ##" -echo -{ - echo - $as_echo "## ------------- ## -## Test results. ## -## ------------- ##" - echo -} >&5 - -if test $at_run_count = 1; then - at_result="1 test" - at_were=was -else - at_result="$at_run_count tests" - at_were=were -fi -if $at_errexit_p && test $at_unexpected_count != 0; then - if test $at_xpass_count = 1; then - at_result="$at_result $at_were run, one passed" - else - at_result="$at_result $at_were run, one failed" - fi - at_result="$at_result unexpectedly and inhibited subsequent tests." - at_color=$at_red -else - # Don't you just love exponential explosion of the number of cases? - at_color=$at_red - case $at_xpass_count:$at_fail_count:$at_xfail_count in - # So far, so good. - 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;; - 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;; - - # Some unexpected failures - 0:*:0) at_result="$at_result $at_were run, -$at_fail_count failed unexpectedly." ;; - - # Some failures, both expected and unexpected - 0:*:1) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - 0:*:*) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - - # No unexpected failures, but some xpasses - *:0:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly." ;; - - # No expected failures, but failures and xpasses - *:1:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; - *:*:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + *) + # Skip tests we already run (using --keywords makes it easy to get + # duplication). + case " $at_pass_test $at_skip_test $at_fail_test " in + *" $at_group "* ) continue;; + esac - # All of them. - *:*:1) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - *:*:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + rm -rf $at_group_dir + mkdir $at_group_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_group_dir" >&5 +echo "$as_me: error: cannot create $at_group_dir" >&2;} + { (exit 1); exit 1; }; } + cd $at_group_dir + ;; esac - if test $at_skip_count = 0 && test $at_run_count -gt 1; then - at_result="All $at_result" - fi -fi - -# Now put skips in the mix. -case $at_skip_count in - 0) ;; - 1) at_result="$at_result -1 test was skipped." ;; - *) at_result="$at_result -$at_skip_count tests were skipped." ;; -esac - -if test $at_unexpected_count = 0; then - echo "$at_color$at_result$at_std" - echo "$at_result" >&5 -else - echo "${at_color}ERROR: $at_result$at_std" >&2 - echo "ERROR: $at_result" >&5 - { - echo - $as_echo "## ------------------------ ## -## Summary of the failures. ## -## ------------------------ ##" - - # Summary of failed and skipped tests. - if test $at_fail_count != 0; then - echo "Failed tests:" - $SHELL "$at_myself" $at_fail_list --list - echo - fi - if test $at_skip_count != 0; then - echo "Skipped tests:" - $SHELL "$at_myself" $at_skip_list --list - echo - fi - if test $at_xpass_count != 0; then - echo "Unexpected passes:" - $SHELL "$at_myself" $at_xpass_list --list - echo - fi - if test $at_fail_count != 0; then - $as_echo "## ---------------------- ## -## Detailed failed tests. ## -## ---------------------- ##" - echo - for at_group in $at_fail_list - do - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - cat "$at_suite_dir/$at_group_normalized/$as_me.log" - echo - done - echo - fi - if test -n "$at_top_srcdir"; then - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## ${at_top_build_prefix}config.log ## -_ASBOX - sed 's/^/| /' ${at_top_build_prefix}config.log - echo - fi - } >&5 + echo 0 > $at_status_file - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $as_me.log was created. ## -_ASBOX + # Clearly separate the test groups when verbose. + test $at_group_count != 0 && $at_verbose - echo - if $at_debug_p; then - at_msg='per-test log files' + # In verbose mode, append to the log file *and* show on + # the standard output; in quiet mode only write to the log + if test $at_verbose = echo; then + at_tee_pipe="tee -a $at_group_log" else - at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'" + at_tee_pipe="cat >> $at_group_log" fi - $as_echo "Please send $at_msg and all information you think might help: - To: - Subject: [OpenCOBOL 1.1] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly} - -You may investigate any problem if you feel able to do so, in which -case the test suite provides a good starting point. Its output may -be found below \`${at_testdir+${at_testdir}/}$as_me.dir'. -" - exit 1 -fi - -exit 0 - -## ------------- ## -## Actual tests. ## -## ------------- ## -#AT_START_1 -at_fn_group_banner 1 'fundamental.at:23' \ - "DISPLAY literals" " " -at_xfail=no -( - $as_echo "1. $at_setup_line: testing $at_desc ..." - $at_traceon + case $at_group in + 1 ) # 1. fundamental.at:23: DISPLAY literals + at_setup_line='fundamental.at:23' + at_desc='DISPLAY literals' + $at_quiet $ECHO_N " 1: DISPLAY literals $ECHO_C" + at_xfail=no + ( + echo "1. fundamental.at:23: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2213,53 +1002,78 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:46: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:46" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:46" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "fundamental.at:46: \${COMPILE} prog.cob" +echo fundamental.at:46 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:46: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/fundamental.at:47: ./prog" -at_fn_check_prepare_trace "fundamental.at:47" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "abc +$at_traceon + +$at_traceoff +echo "fundamental.at:47: ./prog" +echo fundamental.at:47 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "abc 123 +123 -123 12.3 +12.3 -12.3 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:47" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:47: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_1 -#AT_START_2 -at_fn_group_banner 2 'fundamental.at:60' \ - "DISPLAY literals, DECIMAL-POINT is COMMA" " " -at_xfail=no -( - $as_echo "2. $at_setup_line: testing $at_desc ..." - $at_traceon + 2 ) # 2. fundamental.at:60: DISPLAY literals, DECIMAL-POINT is COMMA + at_setup_line='fundamental.at:60' + at_desc='DISPLAY literals, DECIMAL-POINT is COMMA' + $at_quiet $ECHO_N " 2: DISPLAY literals, DECIMAL-POINT is COMMA $ECHO_C" + at_xfail=no + ( + echo "2. fundamental.at:60: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2281,49 +1095,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:79: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:79" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:79" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "fundamental.at:79: \${COMPILE} prog.cob" +echo fundamental.at:79 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:79: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/fundamental.at:80: ./prog" -at_fn_check_prepare_trace "fundamental.at:80" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "12,3 +$at_traceon + +$at_traceoff +echo "fundamental.at:80: ./prog" +echo fundamental.at:80 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "12,3 +12,3 -12,3 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:80" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_2 -#AT_START_3 -at_fn_group_banner 3 'fundamental.at:88' \ - "Hexadecimal literal" " " -at_xfail=no -( - $as_echo "3. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:80: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 3 ) # 3. fundamental.at:88: Hexadecimal literal + at_setup_line='fundamental.at:88' + at_desc='Hexadecimal literal' + $at_quiet $ECHO_N " 3: Hexadecimal literal $ECHO_C" + at_xfail=no + ( + echo "3. fundamental.at:88: testing ..." + $at_traceon cat >dump.c <<'_ATEOF' @@ -2341,18 +1180,30 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:103: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:103" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:103" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "fundamental.at:103: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo fundamental.at:103 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:103: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -2368,48 +1219,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:116: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:116" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:116" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/fundamental.at:117: ./prog" -at_fn_check_prepare_trace "fundamental.at:117" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "123 +$at_traceoff +echo "fundamental.at:116: \${COMPILE} prog.cob" +echo fundamental.at:116 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:116: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "fundamental.at:117: ./prog" +echo fundamental.at:117 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "123 00010200 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:117" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:117: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_3 -#AT_START_4 -at_fn_group_banner 4 'fundamental.at:124' \ - "DISPLAY data items with VALUE clause" " " -at_xfail=no -( - $as_echo "4. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 4 ) # 4. fundamental.at:124: DISPLAY data items with VALUE clause + at_setup_line='fundamental.at:124' + at_desc='DISPLAY data items with VALUE clause' + $at_quiet $ECHO_N " 4: DISPLAY data items with VALUE clause $ECHO_C" + at_xfail=no + ( + echo "4. fundamental.at:124: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2444,53 +1320,78 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:156: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:156" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:156" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "fundamental.at:156: \${COMPILE} prog.cob" +echo fundamental.at:156 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:156: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/fundamental.at:157: ./prog" -at_fn_check_prepare_trace "fundamental.at:157" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "abc +$at_traceon + +$at_traceoff +echo "fundamental.at:157: ./prog" +echo fundamental.at:157 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "abc 123 +123 -123 12.3 +12.3 -12.3 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:157" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:157: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_4 -#AT_START_5 -at_fn_group_banner 5 'fundamental.at:169' \ - "DISPLAY data items with MOVE statement" " " -at_xfail=no -( - $as_echo "5. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 5 ) # 5. fundamental.at:169: DISPLAY data items with MOVE statement + at_setup_line='fundamental.at:169' + at_desc='DISPLAY data items with MOVE statement' + $at_quiet $ECHO_N " 5: DISPLAY data items with MOVE statement $ECHO_C" + at_xfail=no + ( + echo "5. fundamental.at:169: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2525,53 +1426,78 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:201: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:201" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:201" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "fundamental.at:201: \${COMPILE} prog.cob" +echo fundamental.at:201 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:201: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/fundamental.at:202: ./prog" -at_fn_check_prepare_trace "fundamental.at:202" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "abc +$at_traceon + +$at_traceoff +echo "fundamental.at:202: ./prog" +echo fundamental.at:202 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "abc 123 +123 -123 12.3 +12.3 -12.3 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:202" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:202: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_5 -#AT_START_6 -at_fn_group_banner 6 'fundamental.at:215' \ - "GLOBAL at same level" " " -at_xfail=no -( - $as_echo "6. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 6 ) # 6. fundamental.at:215: GLOBAL at same level + at_setup_line='fundamental.at:215' + at_desc='GLOBAL at same level' + $at_quiet $ECHO_N " 6: GLOBAL at same level $ECHO_C" + at_xfail=no + ( + echo "6. fundamental.at:215: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2612,49 +1538,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:253: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:253" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:253" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/fundamental.at:254: ./prog" -at_fn_check_prepare_trace "fundamental.at:254" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "prog1 +$at_traceoff +echo "fundamental.at:253: \${COMPILE} prog.cob" +echo fundamental.at:253 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:253: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "fundamental.at:254: ./prog" +echo fundamental.at:254 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "prog1 prog2 prog1 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:254" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:254: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_6 -#AT_START_7 -at_fn_group_banner 7 'fundamental.at:263' \ - "GLOBAL at lower level" " " -at_xfail=no -( - $as_echo "7. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 7 ) # 7. fundamental.at:263: GLOBAL at lower level + at_setup_line='fundamental.at:263' + at_desc='GLOBAL at lower level' + $at_quiet $ECHO_N " 7: GLOBAL at lower level $ECHO_C" + at_xfail=no + ( + echo "7. fundamental.at:263: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2695,49 +1646,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/fundamental.at:301: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "fundamental.at:301" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:301" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/fundamental.at:302: ./prog" -at_fn_check_prepare_trace "fundamental.at:302" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "prog1 +$at_traceoff +echo "fundamental.at:301: \${COMPILE} prog.cob" +echo fundamental.at:301 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:301: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "fundamental.at:302: ./prog" +echo fundamental.at:302 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "prog1 prog2 prog2 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/fundamental.at:302" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "fundamental.at:302: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + echo 1 > $at_status_file + exit 1 +fi - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_7 -#AT_START_8 -at_fn_group_banner 8 'subscripts.at:28' \ - "non-numeric subscript" " " -at_xfail=no -( - $as_echo "8. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 8 ) # 8. subscripts.at:28: non-numeric subscript + at_setup_line='subscripts.at:28' + at_desc='non-numeric subscript' + $at_quiet $ECHO_N " 8: non-numeric subscript $ECHO_C" + at_xfail=no + ( + echo "8. subscripts.at:28: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2758,35 +1734,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:46: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:46" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'I' is not an integer value +$at_traceoff +echo "subscripts.at:46: \${COMPILE_ONLY} prog.cob" +echo subscripts.at:46 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'I' is not an integer value prog.cob:12: Error: 'I' is not a numeric value -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:46" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:46: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_8 -#AT_START_9 -at_fn_group_banner 9 'subscripts.at:56' \ - "The range of subscripts" " " -at_xfail=no -( - $as_echo "9. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 9 ) # 9. subscripts.at:56: The range of subscripts + at_setup_line='subscripts.at:56' + at_desc='The range of subscripts' + $at_quiet $ECHO_N " 9: The range of subscripts $ECHO_C" + at_xfail=no + ( + echo "9. subscripts.at:56: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2819,37 +1808,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:86: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:86" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: Subscript of 'X' out of bounds: 0 +$at_traceoff +echo "subscripts.at:86: \${COMPILE_ONLY} prog.cob" +echo subscripts.at:86 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: Subscript of 'X' out of bounds: 0 prog.cob:16: Error: Subscript of 'X' out of bounds: 3 prog.cob:18: Error: Subscript of 'Y' out of bounds: 0 prog.cob:24: Error: Subscript of 'Y' out of bounds: 4 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:86" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:86: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_9 -#AT_START_10 -at_fn_group_banner 10 'subscripts.at:96' \ - "Subscript out of bounds (1)" " " -at_xfail=no -( - $as_echo "10. $at_setup_line: testing $at_desc ..." - $at_traceon + 10 ) # 10. subscripts.at:96: Subscript out of bounds (1) + at_setup_line='subscripts.at:96' + at_desc='Subscript out of bounds (1)' + $at_quiet $ECHO_N " 10: Subscript out of bounds (1) $ECHO_C" + at_xfail=no + ( + echo "10. subscripts.at:96: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2868,47 +1870,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:112: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:112" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:112" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:112: \${COMPILE} -o prog prog.cob" +echo subscripts.at:112 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:112: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "subscripts.at:113: ./prog" +echo subscripts.at:113 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: libcob: Subscript of 'X' out of bounds: 0 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:113: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/subscripts.at:113: ./prog" -at_fn_check_prepare_trace "subscripts.at:113" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: libcob: Subscript of 'X' out of bounds: 0 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:113" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_10 -#AT_START_11 -at_fn_group_banner 11 'subscripts.at:120' \ - "Subscript out of bounds (2)" " " -at_xfail=no -( - $as_echo "11. $at_setup_line: testing $at_desc ..." - $at_traceon + 11 ) # 11. subscripts.at:120: Subscript out of bounds (2) + at_setup_line='subscripts.at:120' + at_desc='Subscript out of bounds (2)' + $at_quiet $ECHO_N " 11: Subscript out of bounds (2) $ECHO_C" + at_xfail=no + ( + echo "11. subscripts.at:120: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2927,47 +1954,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:136: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:136" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:136" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:136: \${COMPILE} -o prog prog.cob" +echo subscripts.at:136 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:136: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then -{ set +x -$as_echo "$at_srcdir/subscripts.at:137: ./prog" -at_fn_check_prepare_trace "subscripts.at:137" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: libcob: Subscript of 'X' out of bounds: 11 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:137" -$at_failed && at_fn_log_failure -$at_traceon; } + echo 1 > $at_status_file + exit 1 +fi +$at_traceon + +$at_traceoff +echo "subscripts.at:137: ./prog" +echo subscripts.at:137 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: libcob: Subscript of 'X' out of bounds: 11 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:137: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_11 -#AT_START_12 -at_fn_group_banner 12 'subscripts.at:144' \ - "Value of DEPENDING ON N out of bounds (lower)" " " -at_xfail=no -( - $as_echo "12. $at_setup_line: testing $at_desc ..." - $at_traceon + 12 ) # 12. subscripts.at:144: Value of DEPENDING ON N out of bounds (lower) + at_setup_line='subscripts.at:144' + at_desc='Value of DEPENDING ON N out of bounds (lower)' + $at_quiet $ECHO_N " 12: Value of DEPENDING ON N out of bounds (lower)$ECHO_C" + at_xfail=no + ( + echo "12. subscripts.at:144: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2986,47 +2038,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:160: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:160" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:160" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:160: \${COMPILE} -o prog prog.cob" +echo subscripts.at:160 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:160: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "subscripts.at:161: ./prog" +echo subscripts.at:161 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: libcob: OCCURS DEPENDING ON 'N' out of bounds: 3 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:161: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/subscripts.at:161: ./prog" -at_fn_check_prepare_trace "subscripts.at:161" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: libcob: OCCURS DEPENDING ON 'N' out of bounds: 3 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:161" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_12 -#AT_START_13 -at_fn_group_banner 13 'subscripts.at:168' \ - "Value of DEPENDING ON N out of bounds (upper)" " " -at_xfail=no -( - $as_echo "13. $at_setup_line: testing $at_desc ..." - $at_traceon + 13 ) # 13. subscripts.at:168: Value of DEPENDING ON N out of bounds (upper) + at_setup_line='subscripts.at:168' + at_desc='Value of DEPENDING ON N out of bounds (upper)' + $at_quiet $ECHO_N " 13: Value of DEPENDING ON N out of bounds (upper)$ECHO_C" + at_xfail=no + ( + echo "13. subscripts.at:168: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3045,47 +2122,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:184: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:184" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:184" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:184: \${COMPILE} -o prog prog.cob" +echo subscripts.at:184 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:184: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "subscripts.at:185: ./prog" +echo subscripts.at:185 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: libcob: OCCURS DEPENDING ON 'N' out of bounds: 7 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:185: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/subscripts.at:185: ./prog" -at_fn_check_prepare_trace "subscripts.at:185" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: libcob: OCCURS DEPENDING ON 'N' out of bounds: 7 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:185" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_13 -#AT_START_14 -at_fn_group_banner 14 'subscripts.at:192' \ - "Subscript bounds with ODO (lower)" " " -at_xfail=no -( - $as_echo "14. $at_setup_line: testing $at_desc ..." - $at_traceon + 14 ) # 14. subscripts.at:192: Subscript bounds with ODO (lower) + at_setup_line='subscripts.at:192' + at_desc='Subscript bounds with ODO (lower)' + $at_quiet $ECHO_N " 14: Subscript bounds with ODO (lower) $ECHO_C" + at_xfail=no + ( + echo "14. subscripts.at:192: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3104,34 +2206,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:208: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:208" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: Subscript of 'X' out of bounds: 0 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:208" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:208: \${COMPILE} -o prog prog.cob" +echo subscripts.at:208 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: Subscript of 'X' out of bounds: 0 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:208: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_14 -#AT_START_15 -at_fn_group_banner 15 'subscripts.at:215' \ - "Subscript bounds with ODO (upper)" " " -at_xfail=no -( - $as_echo "15. $at_setup_line: testing $at_desc ..." - $at_traceon + 15 ) # 15. subscripts.at:215: Subscript bounds with ODO (upper) + at_setup_line='subscripts.at:215' + at_desc='Subscript bounds with ODO (upper)' + $at_quiet $ECHO_N " 15: Subscript bounds with ODO (upper) $ECHO_C" + at_xfail=no + ( + echo "15. subscripts.at:215: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3150,34 +2265,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:231: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:231" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: Subscript of 'X' out of bounds: 7 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:231" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:231: \${COMPILE} -o prog prog.cob" +echo subscripts.at:231 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: Subscript of 'X' out of bounds: 7 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:231: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_15 -#AT_START_16 -at_fn_group_banner 16 'subscripts.at:238' \ - "Subscript bounds with ODO" " " -at_xfail=no -( - $as_echo "16. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 16 ) # 16. subscripts.at:238: Subscript bounds with ODO + at_setup_line='subscripts.at:238' + at_desc='Subscript bounds with ODO' + $at_quiet $ECHO_N " 16: Subscript bounds with ODO $ECHO_C" + at_xfail=no + ( + echo "16. subscripts.at:238: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3196,47 +2324,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:254: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:254" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:254" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:254: \${COMPILE} -o prog prog.cob" +echo subscripts.at:254 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:254: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "subscripts.at:255: ./prog" +echo subscripts.at:255 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: libcob: Subscript of 'X' out of bounds: 5 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:255: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/subscripts.at:255: ./prog" -at_fn_check_prepare_trace "subscripts.at:255" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: libcob: Subscript of 'X' out of bounds: 5 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:255" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_16 -#AT_START_17 -at_fn_group_banner 17 'subscripts.at:264' \ - "Subscript by arithmetic expression" " " -at_xfail=no -( - $as_echo "17. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 17 ) # 17. subscripts.at:264: Subscript by arithmetic expression + at_setup_line='subscripts.at:264' + at_desc='Subscript by arithmetic expression' + $at_quiet $ECHO_N " 17: Subscript by arithmetic expression $ECHO_C" + at_xfail=no + ( + echo "17. subscripts.at:264: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3256,46 +2409,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:281: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:281" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:281" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "subscripts.at:281: \${COMPILE} -o prog prog.cob" +echo subscripts.at:281 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:281: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "subscripts.at:282: ./prog" +echo subscripts.at:282 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "24" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "subscripts.at:282: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/subscripts.at:282: ./prog" -at_fn_check_prepare_trace "subscripts.at:282" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "24" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/subscripts.at:282" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_17 -#AT_START_18 -at_fn_group_banner 18 'ref-mod.at:35' \ - "Separate sign positions" " " -at_xfail=no -( - $as_echo "18. $at_setup_line: testing $at_desc ..." - $at_traceon + 18 ) # 18. ref-mod.at:35: Separate sign positions + at_setup_line='ref-mod.at:35' + at_desc='Separate sign positions' + $at_quiet $ECHO_N " 18: Separate sign positions $ECHO_C" + at_xfail=no + ( + echo "18. ref-mod.at:35: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3315,46 +2493,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:52: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:52" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:52: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:52: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "ref-mod.at:53: ./prog" +echo ref-mod.at:53 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-11-" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:53: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/ref-mod.at:53: ./prog" -at_fn_check_prepare_trace "ref-mod.at:53" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-11-" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:53" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_18 -#AT_START_19 -at_fn_group_banner 19 'ref-mod.at:60' \ - "Static reference modification" " " -at_xfail=no -( - $as_echo "19. $at_setup_line: testing $at_desc ..." - $at_traceon + 19 ) # 19. ref-mod.at:60: Static reference modification + at_setup_line='ref-mod.at:60' + at_desc='Static reference modification' + $at_quiet $ECHO_N " 19: Static reference modification $ECHO_C" + at_xfail=no + ( + echo "19. ref-mod.at:60: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3377,50 +2580,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:80: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:80" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:80" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:80: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:80 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:80: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/ref-mod.at:81: ./prog" -at_fn_check_prepare_trace "ref-mod.at:81" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a:ab:abc:abcd:abcd +$at_traceon + +$at_traceoff +echo "ref-mod.at:81: ./prog" +echo ref-mod.at:81 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a:ab:abc:abcd:abcd b:bc:bcd:bcd c:cd:cd d:d -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:81" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:81: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_19 -#AT_START_20 -at_fn_group_banner 20 'ref-mod.at:90' \ - "Dynamic reference modification" " " -at_xfail=no -( - $as_echo "20. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 20 ) # 20. ref-mod.at:90: Dynamic reference modification + at_setup_line='ref-mod.at:90' + at_desc='Dynamic reference modification' + $at_quiet $ECHO_N " 20: Dynamic reference modification $ECHO_C" + at_xfail=no + ( + echo "20. ref-mod.at:90: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3444,50 +2672,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:111: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:111" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:111" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:111: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:111 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:111: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/ref-mod.at:112: ./prog" -at_fn_check_prepare_trace "ref-mod.at:112" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a +$at_traceon + +$at_traceoff +echo "ref-mod.at:112: ./prog" +echo ref-mod.at:112 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a d a abcd -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:112" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:112: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_20 -#AT_START_21 -at_fn_group_banner 21 'ref-mod.at:121' \ - "Static out of bounds" " " -at_xfail=no -( - $as_echo "21. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 21 ) # 21. ref-mod.at:121: Static out of bounds + at_setup_line='ref-mod.at:121' + at_desc='Static out of bounds' + $at_quiet $ECHO_N " 21: Static out of bounds $ECHO_C" + at_xfail=no + ( + echo "21. ref-mod.at:121: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3510,37 +2763,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:141: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:141" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: Offset of 'X' out of bounds: 0 +$at_traceoff +echo "ref-mod.at:141: \${COMPILE_ONLY} prog.cob" +echo ref-mod.at:141 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: Offset of 'X' out of bounds: 0 prog.cob:10: Error: Offset of 'X' out of bounds: 5 prog.cob:12: Error: Length of 'X' out of bounds: 0 prog.cob:14: Error: Length of 'X' out of bounds: 5 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/ref-mod.at:141" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "ref-mod.at:141: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_21 -#AT_START_22 -at_fn_group_banner 22 'ref-mod.at:150' \ - "Offset underflow" " " -at_xfail=no -( - $as_echo "22. $at_setup_line: testing $at_desc ..." - $at_traceon + 22 ) # 22. ref-mod.at:150: Offset underflow + at_setup_line='ref-mod.at:150' + at_desc='Offset underflow' + $at_quiet $ECHO_N " 22: Offset underflow $ECHO_C" + at_xfail=no + ( + echo "22. ref-mod.at:150: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3558,47 +2824,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:165: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:165" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:165" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:165: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:165 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:165: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "ref-mod.at:166: ./prog" +echo ref-mod.at:166 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: libcob: Offset of 'X' out of bounds: 0 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "ref-mod.at:166: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/ref-mod.at:166: ./prog" -at_fn_check_prepare_trace "ref-mod.at:166" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: libcob: Offset of 'X' out of bounds: 0 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/ref-mod.at:166" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_22 -#AT_START_23 -at_fn_group_banner 23 'ref-mod.at:172' \ - "Offset overflow" " " -at_xfail=no -( - $as_echo "23. $at_setup_line: testing $at_desc ..." - $at_traceon + 23 ) # 23. ref-mod.at:172: Offset overflow + at_setup_line='ref-mod.at:172' + at_desc='Offset overflow' + $at_quiet $ECHO_N " 23: Offset overflow $ECHO_C" + at_xfail=no + ( + echo "23. ref-mod.at:172: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3616,47 +2907,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:187: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:187" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:187" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:187: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:187 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:187: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "ref-mod.at:188: ./prog" +echo ref-mod.at:188 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: libcob: Offset of 'X' out of bounds: 5 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "ref-mod.at:188: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/ref-mod.at:188: ./prog" -at_fn_check_prepare_trace "ref-mod.at:188" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: libcob: Offset of 'X' out of bounds: 5 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/ref-mod.at:188" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_23 -#AT_START_24 -at_fn_group_banner 24 'ref-mod.at:194' \ - "Length underflow" " " -at_xfail=no -( - $as_echo "24. $at_setup_line: testing $at_desc ..." - $at_traceon + 24 ) # 24. ref-mod.at:194: Length underflow + at_setup_line='ref-mod.at:194' + at_desc='Length underflow' + $at_quiet $ECHO_N " 24: Length underflow $ECHO_C" + at_xfail=no + ( + echo "24. ref-mod.at:194: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3674,47 +2990,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:209: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:209" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:209" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:209: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:209 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:209: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "ref-mod.at:210: ./prog" +echo ref-mod.at:210 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: libcob: Length of 'X' out of bounds: 0 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "ref-mod.at:210: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/ref-mod.at:210: ./prog" -at_fn_check_prepare_trace "ref-mod.at:210" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: libcob: Length of 'X' out of bounds: 0 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/ref-mod.at:210" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_24 -#AT_START_25 -at_fn_group_banner 25 'ref-mod.at:216' \ - "Length overflow" " " -at_xfail=no -( - $as_echo "25. $at_setup_line: testing $at_desc ..." - $at_traceon + 25 ) # 25. ref-mod.at:216: Length overflow + at_setup_line='ref-mod.at:216' + at_desc='Length overflow' + $at_quiet $ECHO_N " 25: Length overflow $ECHO_C" + at_xfail=no + ( + echo "25. ref-mod.at:216: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3732,47 +3073,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/ref-mod.at:231: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "ref-mod.at:231" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/ref-mod.at:231" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "ref-mod.at:231: \${COMPILE} -o prog prog.cob" +echo ref-mod.at:231 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "ref-mod.at:231: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "ref-mod.at:232: ./prog" +echo ref-mod.at:232 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: libcob: Length of 'X' out of bounds: 5 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "ref-mod.at:232: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/ref-mod.at:232: ./prog" -at_fn_check_prepare_trace "ref-mod.at:232" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: libcob: Length of 'X' out of bounds: 5 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/ref-mod.at:232" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_25 -#AT_START_26 -at_fn_group_banner 26 'accept.at:23' \ - "ACCEPT" " " -at_xfail=no -( - $as_echo "26. $at_setup_line: testing $at_desc ..." - $at_traceon + 26 ) # 26. accept.at:23: ACCEPT + at_setup_line='accept.at:23' + at_desc='ACCEPT' + $at_quiet $ECHO_N " 26: ACCEPT $ECHO_C" + at_xfail=no + ( + echo "26. accept.at:23: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3807,50 +3173,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/accept.at:55: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "accept.at:55" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/accept.at:55" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "accept.at:55: \${COMPILE} -o prog prog.cob" +echo accept.at:55 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "accept.at:55: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/accept.at:56: ./prog" -at_fn_check_prepare_trace "accept.at:56" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "(999999 ) +$at_traceon + +$at_traceoff +echo "accept.at:56: ./prog" +echo accept.at:56 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "(999999 ) (99999999) (99999 ) (9999999 ) -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/accept.at:56" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "accept.at:56: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_26 -#AT_START_27 -at_fn_group_banner 27 'initialize.at:27' \ - "INITIALIZE group entry with OCCURS" " " -at_xfail=no -( - $as_echo "27. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 27 ) # 27. initialize.at:27: INITIALIZE group entry with OCCURS + at_setup_line='initialize.at:27' + at_desc='INITIALIZE group entry with OCCURS' + $at_quiet $ECHO_N " 27: INITIALIZE group entry with OCCURS $ECHO_C" + at_xfail=no + ( + echo "27. initialize.at:27: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3872,46 +3263,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/initialize.at:46: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "initialize.at:46" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:46" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "initialize.at:46: \${COMPILE} -o prog prog.cob" +echo initialize.at:46 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:46: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "initialize.at:47: ./prog" +echo initialize.at:47 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:47: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/initialize.at:47: ./prog" -at_fn_check_prepare_trace "initialize.at:47" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:47" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_27 -#AT_START_28 -at_fn_group_banner 28 'initialize.at:52' \ - "INITIALIZE OCCURS with numeric edited" " " -at_xfail=no -( - $as_echo "28. $at_setup_line: testing $at_desc ..." - $at_traceon + 28 ) # 28. initialize.at:52: INITIALIZE OCCURS with numeric edited + at_setup_line='initialize.at:52' + at_desc='INITIALIZE OCCURS with numeric edited' + $at_quiet $ECHO_N " 28: INITIALIZE OCCURS with numeric edited $ECHO_C" + at_xfail=no + ( + echo "28. initialize.at:52: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3931,46 +3347,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/initialize.at:69: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "initialize.at:69" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:69" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "initialize.at:69: \${COMPILE} -o prog prog.cob" +echo initialize.at:69 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:69: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "initialize.at:70: ./prog" +echo initialize.at:70 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 0 0 0 0 0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:70: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/initialize.at:70: ./prog" -at_fn_check_prepare_trace "initialize.at:70" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 0 0 0 0 0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:70" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_28 -#AT_START_29 -at_fn_group_banner 29 'initialize.at:75' \ - "INITIALIZE complex group (1)" " " -at_xfail=no -( - $as_echo "29. $at_setup_line: testing $at_desc ..." - $at_traceon + 29 ) # 29. initialize.at:75: INITIALIZE complex group (1) + at_setup_line='initialize.at:75' + at_desc='INITIALIZE complex group (1)' + $at_quiet $ECHO_N " 29: INITIALIZE complex group (1) $ECHO_C" + at_xfail=no + ( + echo "29. initialize.at:75: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3992,46 +3433,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/initialize.at:94: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "initialize.at:94" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:94" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "initialize.at:94: \${COMPILE} -o prog prog.cob" +echo initialize.at:94 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:94: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "initialize.at:95: ./prog" +echo initialize.at:95 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 000" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:95: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/initialize.at:95: ./prog" -at_fn_check_prepare_trace "initialize.at:95" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 000" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:95" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_29 -#AT_START_30 -at_fn_group_banner 30 'initialize.at:99' \ - "INITIALIZE complex group (2)" " " -at_xfail=no -( - $as_echo "30. $at_setup_line: testing $at_desc ..." - $at_traceon + 30 ) # 30. initialize.at:99: INITIALIZE complex group (2) + at_setup_line='initialize.at:99' + at_desc='INITIALIZE complex group (2)' + $at_quiet $ECHO_N " 30: INITIALIZE complex group (2) $ECHO_C" + at_xfail=no + ( + echo "30. initialize.at:99: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4053,46 +3519,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/initialize.at:118: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "initialize.at:118" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:118" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "initialize.at:118: \${COMPILE} -o prog prog.cob" +echo initialize.at:118 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:118: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "initialize.at:119: ./prog" +echo initialize.at:119 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0 0 " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:119: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/initialize.at:119: ./prog" -at_fn_check_prepare_trace "initialize.at:119" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0 0 " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:119" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_30 -#AT_START_31 -at_fn_group_banner 31 'initialize.at:123' \ - "INITIALIZE with REDEFINES" " " -at_xfail=no -( - $as_echo "31. $at_setup_line: testing $at_desc ..." - $at_traceon + 31 ) # 31. initialize.at:123: INITIALIZE with REDEFINES + at_setup_line='initialize.at:123' + at_desc='INITIALIZE with REDEFINES' + $at_quiet $ECHO_N " 31: INITIALIZE with REDEFINES $ECHO_C" + at_xfail=no + ( + echo "31. initialize.at:123: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4113,76 +3604,114 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/initialize.at:141: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "initialize.at:141" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:141" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/initialize.at:142: ./prog" -at_fn_check_prepare_trace "initialize.at:142" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/initialize.at:142" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_31 -#AT_START_32 -at_fn_group_banner 32 'misc.at:21' \ - "Source file not found" " " -at_xfail=no -( - $as_echo "32. $at_setup_line: testing $at_desc ..." - $at_traceon - - -{ set +x -$as_echo "$at_srcdir/misc.at:23: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:23" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "cobc: prog.cob: No such file or directory -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/misc.at:23" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_32 -#AT_START_33 -at_fn_group_banner 33 'misc.at:30' \ - "Comma separator without space" " " -at_xfail=no -( - $as_echo "33. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "initialize.at:141: \${COMPILE} -o prog prog.cob" +echo initialize.at:141 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:141: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "initialize.at:142: ./prog" +echo initialize.at:142 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "initialize.at:142: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 32 ) # 32. misc.at:21: Source file not found + at_setup_line='misc.at:21' + at_desc='Source file not found' + $at_quiet $ECHO_N " 32: Source file not found $ECHO_C" + at_xfail=no + ( + echo "32. misc.at:21: testing ..." + $at_traceon + + +$at_traceoff +echo "misc.at:23: \${COMPILE_ONLY} prog.cob" +echo misc.at:23 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "cobc: prog.cob: No such file or directory +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "misc.at:23: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 33 ) # 33. misc.at:30: Comma separator without space + at_setup_line='misc.at:30' + at_desc='Comma separator without space' + $at_quiet $ECHO_N " 33: Comma separator without space $ECHO_C" + at_xfail=no + ( + echo "33. misc.at:30: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4196,46 +3725,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:41: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:41" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:41" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:42: ./prog" -at_fn_check_prepare_trace "misc.at:42" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "111" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:42" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_33 -#AT_START_34 -at_fn_group_banner 34 'misc.at:47' \ - "LOCAL-STORAGE" " " -at_xfail=no -( - $as_echo "34. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:41: \${COMPILE} -o prog prog.cob" +echo misc.at:41 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:41: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:42: ./prog" +echo misc.at:42 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "111" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:42: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 34 ) # 34. misc.at:47: LOCAL-STORAGE + at_setup_line='misc.at:47' + at_desc='LOCAL-STORAGE' + $at_quiet $ECHO_N " 34: LOCAL-STORAGE $ECHO_C" + at_xfail=no + ( + echo "34. misc.at:47: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -4270,63 +3824,100 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:77: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:77" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:77" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:78: \${COMPILE} -o prog caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:78" -( $at_check_trace; ${COMPILE} -o prog caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:78" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:79: ./prog" -at_fn_check_prepare_trace "misc.at:79" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "WRK-X = abc +$at_traceoff +echo "misc.at:77: \${COMPILE_MODULE} callee.cob" +echo misc.at:77 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:77: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:78: \${COMPILE} -o prog caller.cob" +echo misc.at:78 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:78: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:79: ./prog" +echo misc.at:79 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "WRK-X = abc LCL-X = abc WRK-X = 000 LCL-X = abc -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:79" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_34 -#AT_START_35 -at_fn_group_banner 35 'misc.at:89' \ - "EXTERNAL data item" " " -at_xfail=no -( - $as_echo "35. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:79: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 35 ) # 35. misc.at:89: EXTERNAL data item + at_setup_line='misc.at:89' + at_desc='EXTERNAL data item' + $at_quiet $ECHO_N " 35: EXTERNAL data item $ECHO_C" + at_xfail=no + ( + echo "35. misc.at:89: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -4363,61 +3954,98 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:121: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:121" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:121" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:122: \${COMPILE} -o prog caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:122" -( $at_check_trace; ${COMPILE} -o prog caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:122" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:123: ./prog" -at_fn_check_prepare_trace "misc.at:123" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Hello +$at_traceoff +echo "misc.at:121: \${COMPILE_MODULE} callee.cob" +echo misc.at:121 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:121: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:122: \${COMPILE} -o prog caller.cob" +echo misc.at:122 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:122: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:123: ./prog" +echo misc.at:123 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Hello World -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:123" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_35 -#AT_START_36 -at_fn_group_banner 36 'misc.at:131' \ - "EXTERNAL AS data item" " " -at_xfail=no -( - $as_echo "36. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:123: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 36 ) # 36. misc.at:131: EXTERNAL AS data item + at_setup_line='misc.at:131' + at_desc='EXTERNAL AS data item' + $at_quiet $ECHO_N " 36: EXTERNAL AS data item $ECHO_C" + at_xfail=no + ( + echo "36. misc.at:131: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -4457,62 +4085,99 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:166: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:166" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:166" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:167: \${COMPILE} -o prog caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:167" -( $at_check_trace; ${COMPILE} -o prog caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:167" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:168: ./prog" -at_fn_check_prepare_trace "misc.at:168" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Extrn +$at_traceoff +echo "misc.at:166: \${COMPILE_MODULE} callee.cob" +echo misc.at:166 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:166: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:167: \${COMPILE} -o prog caller.cob" +echo misc.at:167 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:167: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:168: ./prog" +echo misc.at:168 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Extrn Hello World -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:168" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_36 -#AT_START_37 -at_fn_group_banner 37 'misc.at:177' \ - "cobcrun validation" " " -at_xfail=no -( - $as_echo "37. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:168: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 37 ) # 37. misc.at:177: cobcrun validation + at_setup_line='misc.at:177' + at_desc='cobcrun validation' + $at_quiet $ECHO_N " 37: cobcrun validation $ECHO_C" + at_xfail=no + ( + echo "37. misc.at:177: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -4549,61 +4214,98 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:209: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:209" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:209" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:210: \${COMPILE_MODULE} caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:210" -( $at_check_trace; ${COMPILE_MODULE} caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:210" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:211: \${COBCRUN} caller" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:211" -( $at_check_trace; ${COBCRUN} caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Hello +$at_traceoff +echo "misc.at:209: \${COMPILE_MODULE} callee.cob" +echo misc.at:209 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:209: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:210: \${COMPILE_MODULE} caller.cob" +echo misc.at:210 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:210: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:211: \${COBCRUN} caller" +echo misc.at:211 >$at_check_line_file +( $at_traceon; ${COBCRUN} caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Hello World -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:211" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:211: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_37 -#AT_START_38 -at_fn_group_banner 38 'misc.at:221' \ - "MOVE to itself" " " -at_xfail=no -( - $as_echo "38. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 38 ) # 38. misc.at:221: MOVE to itself + at_setup_line='misc.at:221' + at_desc='MOVE to itself' + $at_quiet $ECHO_N " 38: MOVE to itself $ECHO_C" + at_xfail=no + ( + echo "38. misc.at:221: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4621,46 +4323,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:236: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:236" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:236" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:236: \${COMPILE} -o prog prog.cob" +echo misc.at:236 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:236: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:237: ./prog" +echo misc.at:237 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "12" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:237: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:237: ./prog" -at_fn_check_prepare_trace "misc.at:237" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "12" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:237" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_38 -#AT_START_39 -at_fn_group_banner 39 'misc.at:241' \ - "MOVE with refmod" " " -at_xfail=no -( - $as_echo "39. $at_setup_line: testing $at_desc ..." - $at_traceon + 39 ) # 39. misc.at:241: MOVE with refmod + at_setup_line='misc.at:241' + at_desc='MOVE with refmod' + $at_quiet $ECHO_N " 39: MOVE with refmod $ECHO_C" + at_xfail=no + ( + echo "39. misc.at:241: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4678,46 +4405,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:256: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:256" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:256" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:256: \${COMPILE} -o prog prog.cob" +echo misc.at:256 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:256: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:257: ./prog" +echo misc.at:257 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1000" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:257: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:257: ./prog" -at_fn_check_prepare_trace "misc.at:257" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1000" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:257" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_39 -#AT_START_40 -at_fn_group_banner 40 'misc.at:261' \ - "MOVE with refmod (variable)" " " -at_xfail=no -( - $as_echo "40. $at_setup_line: testing $at_desc ..." - $at_traceon + 40 ) # 40. misc.at:261: MOVE with refmod (variable) + at_setup_line='misc.at:261' + at_desc='MOVE with refmod (variable)' + $at_quiet $ECHO_N " 40: MOVE with refmod (variable) $ECHO_C" + at_xfail=no + ( + echo "40. misc.at:261: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4737,46 +4489,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:278: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:278" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:278" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:278: \${COMPILE} -o prog prog.cob" +echo misc.at:278 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:278: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:279: ./prog" +echo misc.at:279 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:279: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/misc.at:279: ./prog" -at_fn_check_prepare_trace "misc.at:279" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:279" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_40 -#AT_START_41 -at_fn_group_banner 41 'misc.at:283' \ - "MOVE with group refmod" " " -at_xfail=no -( - $as_echo "41. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 41 ) # 41. misc.at:283: MOVE with group refmod + at_setup_line='misc.at:283' + at_desc='MOVE with group refmod' + $at_quiet $ECHO_N " 41: MOVE with group refmod $ECHO_C" + at_xfail=no + ( + echo "41. misc.at:283: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4795,46 +4572,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:299: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:299" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:299" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:299: \${COMPILE} -o prog prog.cob" +echo misc.at:299 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:299: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:300: ./prog" +echo misc.at:300 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1299" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:300: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:300: ./prog" -at_fn_check_prepare_trace "misc.at:300" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1299" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:300" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_41 -#AT_START_42 -at_fn_group_banner 42 'misc.at:304' \ - "MOVE indexes" " " -at_xfail=no -( - $as_echo "42. $at_setup_line: testing $at_desc ..." - $at_traceon + 42 ) # 42. misc.at:304: MOVE indexes + at_setup_line='misc.at:304' + at_desc='MOVE indexes' + $at_quiet $ECHO_N " 42: MOVE indexes $ECHO_C" + at_xfail=no + ( + echo "42. misc.at:304: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4854,46 +4656,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:321: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:321" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:321" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:322: ./prog" -at_fn_check_prepare_trace "misc.at:322" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:322" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_42 -#AT_START_43 -at_fn_group_banner 43 'misc.at:326' \ - "MOVE X'00'" " " -at_xfail=no -( - $as_echo "43. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:321: \${COMPILE} -o prog prog.cob" +echo misc.at:321 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:321: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:322: ./prog" +echo misc.at:322 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:322: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 43 ) # 43. misc.at:326: MOVE X'00' + at_setup_line='misc.at:326' + at_desc='MOVE X'00'' + $at_quiet $ECHO_N " 43: MOVE X'00' $ECHO_C" + at_xfail=no + ( + echo "43. misc.at:326: testing ..." + $at_traceon cat >dump.c <<'_ATEOF' @@ -4908,18 +4735,30 @@ int dump (unsigned char *data) _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:338: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:338" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:338" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:338: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo misc.at:338 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:338: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -4937,46 +4776,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:353: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:353" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:353" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:353: \${COMPILE} -o prog prog.cob" +echo misc.at:353 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:353: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:354: ./prog" +echo misc.at:354 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "000102" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:354: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:354: ./prog" -at_fn_check_prepare_trace "misc.at:354" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "000102" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:354" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_43 -#AT_START_44 -at_fn_group_banner 44 'misc.at:361' \ - "Level 01 subscripts" " " -at_xfail=no -( - $as_echo "44. $at_setup_line: testing $at_desc ..." - $at_traceon + 44 ) # 44. misc.at:361: Level 01 subscripts + at_setup_line='misc.at:361' + at_desc='Level 01 subscripts' + $at_quiet $ECHO_N " 44: Level 01 subscripts $ECHO_C" + at_xfail=no + ( + echo "44. misc.at:361: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4991,34 +4855,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:373: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:373" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: Level 01 item 'X' cannot have OCCURS clause -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/misc.at:373" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:373: \${COMPILE_ONLY} prog.cob" +echo misc.at:373 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: Level 01 item 'X' cannot have OCCURS clause +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "misc.at:373: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_44 -#AT_START_45 -at_fn_group_banner 45 'misc.at:382' \ - "Class check with reference modification" " " -at_xfail=no -( - $as_echo "45. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 45 ) # 45. misc.at:382: Class check with reference modification + at_setup_line='misc.at:382' + at_desc='Class check with reference modification' + $at_quiet $ECHO_N " 45: Class check with reference modification $ECHO_C" + at_xfail=no + ( + echo "45. misc.at:382: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5037,46 +4914,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:398: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:398" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:398" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:398: \${COMPILE} -o prog prog.cob" +echo misc.at:398 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:398: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:399: ./prog" +echo misc.at:399 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:399: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:399: ./prog" -at_fn_check_prepare_trace "misc.at:399" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:399" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_45 -#AT_START_46 -at_fn_group_banner 46 'misc.at:403' \ - "Index and parenthesized expression" " " -at_xfail=no -( - $as_echo "46. $at_setup_line: testing $at_desc ..." - $at_traceon + 46 ) # 46. misc.at:403: Index and parenthesized expression + at_setup_line='misc.at:403' + at_desc='Index and parenthesized expression' + $at_quiet $ECHO_N " 46: Index and parenthesized expression $ECHO_C" + at_xfail=no + ( + echo "46. misc.at:403: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5095,32 +4997,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:419: \${COMPILE_ONLY} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:419" -( $at_check_trace; ${COMPILE_ONLY} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:419" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:419: \${COMPILE_ONLY} -o prog prog.cob" +echo misc.at:419 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:419: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_46 -#AT_START_47 -at_fn_group_banner 47 'misc.at:423' \ - "Alphanumeric and binary numeric" " " -at_xfail=no -( - $as_echo "47. $at_setup_line: testing $at_desc ..." - $at_traceon + 47 ) # 47. misc.at:423: Alphanumeric and binary numeric + at_setup_line='misc.at:423' + at_desc='Alphanumeric and binary numeric' + $at_quiet $ECHO_N " 47: Alphanumeric and binary numeric $ECHO_C" + at_xfail=no + ( + echo "47. misc.at:423: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5139,46 +5055,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:439: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:439" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:439" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:440: ./prog" -at_fn_check_prepare_trace "misc.at:440" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:440" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_47 -#AT_START_48 -at_fn_group_banner 48 'misc.at:447' \ - "Dynamic call with static linking" " " -at_xfail=no -( - $as_echo "48. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:439: \${COMPILE} -o prog prog.cob" +echo misc.at:439 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:439: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:440: ./prog" +echo misc.at:440 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:440: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 48 ) # 48. misc.at:447: Dynamic call with static linking + at_setup_line='misc.at:447' + at_desc='Dynamic call with static linking' + $at_quiet $ECHO_N " 48: Dynamic call with static linking $ECHO_C" + at_xfail=no + ( + echo "48. misc.at:447: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -5191,82 +5132,131 @@ cat >callee.cob <<'_ATEOF' _ATEOF -cat >caller.cob <<'_ATEOF' +cat >caller.cob <<'_ATEOF' + + IDENTIFICATION DIVISION. + PROGRAM-ID. caller. + PROCEDURE DIVISION. + CALL "callee" + END-CALL. +_ATEOF + + +$at_traceoff +echo "misc.at:465: \${COMPILE_MODULE} -c callee.cob" +echo misc.at:465 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -c callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:465: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:466: \${COMPILE} -c caller.cob" +echo misc.at:466 >$at_check_line_file +( $at_traceon; ${COMPILE} -c caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:466: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:467: \${COMPILE} -o prog caller.o callee.o" +echo misc.at:467 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog caller.o callee.o ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:467: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:468: ./prog" +echo misc.at:468 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:468: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - IDENTIFICATION DIVISION. - PROGRAM-ID. caller. - PROCEDURE DIVISION. - CALL "callee" - END-CALL. -_ATEOF + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; -{ set +x -$as_echo "$at_srcdir/misc.at:465: \${COMPILE_MODULE} -c callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:465" -( $at_check_trace; ${COMPILE_MODULE} -c callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:465" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:466: \${COMPILE} -c caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:466" -( $at_check_trace; ${COMPILE} -c caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:466" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:467: \${COMPILE} -o prog caller.o callee.o" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:467" -( $at_check_trace; ${COMPILE} -o prog caller.o callee.o -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:467" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:468: ./prog" -at_fn_check_prepare_trace "misc.at:468" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:468" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_48 -#AT_START_49 -at_fn_group_banner 49 'misc.at:472' \ - "CALL m1. CALL m2. CALL m1." " " -at_xfail=no -( - $as_echo "49. $at_setup_line: testing $at_desc ..." - $at_traceon + 49 ) # 49. misc.at:472: CALL m1. CALL m2. CALL m1. + at_setup_line='misc.at:472' + at_desc='CALL m1. CALL m2. CALL m1.' + $at_quiet $ECHO_N " 49: CALL m1. CALL m2. CALL m1. $ECHO_C" + at_xfail=no + ( + echo "49. misc.at:472: testing ..." + $at_traceon cat >m1.cob <<'_ATEOF' @@ -5314,76 +5304,125 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:513: \${COMPILE_MODULE} m1.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:513" -( $at_check_trace; ${COMPILE_MODULE} m1.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:513" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:514: \${COMPILE_MODULE} m2.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:514" -( $at_check_trace; ${COMPILE_MODULE} m2.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:514" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:515: \${COMPILE} -o caller caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:515" -( $at_check_trace; ${COMPILE} -o caller caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:515" -$at_failed && at_fn_log_failure -$at_traceon; } - - -{ set +x -$as_echo "$at_srcdir/misc.at:517: ./caller" -at_fn_check_prepare_trace "misc.at:517" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0003 +$at_traceoff +echo "misc.at:513: \${COMPILE_MODULE} m1.cob" +echo misc.at:513 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} m1.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:513: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:514: \${COMPILE_MODULE} m2.cob" +echo misc.at:514 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} m2.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:514: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:515: \${COMPILE} -o caller caller.cob" +echo misc.at:515 >$at_check_line_file +( $at_traceon; ${COMPILE} -o caller caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:515: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + +$at_traceoff +echo "misc.at:517: ./caller" +echo misc.at:517 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0003 0007 0003 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:517" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_49 -#AT_START_50 -at_fn_group_banner 50 'misc.at:525' \ - "CALL binary literal parameter/LENGTH OF" " " -at_xfail=no -( - $as_echo "50. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:517: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 50 ) # 50. misc.at:525: CALL binary literal parameter/LENGTH OF + at_setup_line='misc.at:525' + at_desc='CALL binary literal parameter/LENGTH OF' + $at_quiet $ECHO_N " 50: CALL binary literal parameter/LENGTH OF $ECHO_C" + at_xfail=no + ( + echo "50. misc.at:525: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -5426,92 +5465,152 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:561: \${COMPILE_MODULE} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:561" -( $at_check_trace; ${COMPILE_MODULE} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:561" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:562: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:562" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:562" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:563: ./prog" -at_fn_check_prepare_trace "misc.at:563" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00000001 +$at_traceoff +echo "misc.at:561: \${COMPILE_MODULE} dump.c" +echo misc.at:561 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:561: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:562: \${COMPILE} -o prog prog.cob" +echo misc.at:562 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:562: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:563: ./prog" +echo misc.at:563 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00000001 00000009 00000004 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:563" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:568: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:568" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:568" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:569: ./prog" -at_fn_check_prepare_trace "misc.at:569" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00000001 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:563: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:568: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo misc.at:568 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:568: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:569: ./prog" +echo misc.at:569 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00000001 00000009 00000004 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:569" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:569: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_50 -#AT_START_51 -at_fn_group_banner 51 'misc.at:580' \ - "INSPECT REPLACING LEADING ZEROS BY SPACES" " " -at_xfail=no -( - $as_echo "51. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 51 ) # 51. misc.at:580: INSPECT REPLACING LEADING ZEROS BY SPACES + at_setup_line='misc.at:580' + at_desc='INSPECT REPLACING LEADING ZEROS BY SPACES' + $at_quiet $ECHO_N " 51: INSPECT REPLACING LEADING ZEROS BY SPACES $ECHO_C" + at_xfail=no + ( + echo "51. misc.at:580: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5529,46 +5628,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:595: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:595" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:595" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:595: \${COMPILE} prog.cob" +echo misc.at:595 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:595: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:596: ./prog" +echo misc.at:596 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " 1" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:596: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:596: ./prog" -at_fn_check_prepare_trace "misc.at:596" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " 1" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:596" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_51 -#AT_START_52 -at_fn_group_banner 52 'misc.at:600' \ - "INSPECT: No repeat conversion check" " " -at_xfail=no -( - $as_echo "52. $at_setup_line: testing $at_desc ..." - $at_traceon + 52 ) # 52. misc.at:600: INSPECT: No repeat conversion check + at_setup_line='misc.at:600' + at_desc='INSPECT: No repeat conversion check' + $at_quiet $ECHO_N " 52: INSPECT: No repeat conversion check $ECHO_C" + at_xfail=no + ( + echo "52. misc.at:600: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5586,46 +5710,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:615: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:615" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:615" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:615: \${COMPILE} prog.cob" +echo misc.at:615 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:615: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:616: ./prog" +echo misc.at:616 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "CDB" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:616: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:616: ./prog" -at_fn_check_prepare_trace "misc.at:616" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "CDB" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:616" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_52 -#AT_START_53 -at_fn_group_banner 53 'misc.at:621' \ - "INSPECT: REPLACING figurative constant" " " -at_xfail=no -( - $as_echo "53. $at_setup_line: testing $at_desc ..." - $at_traceon + 53 ) # 53. misc.at:621: INSPECT: REPLACING figurative constant + at_setup_line='misc.at:621' + at_desc='INSPECT: REPLACING figurative constant' + $at_quiet $ECHO_N " 53: INSPECT: REPLACING figurative constant $ECHO_C" + at_xfail=no + ( + echo "53. misc.at:621: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5643,46 +5792,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:636: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:636" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:636" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:636: \${COMPILE} prog.cob" +echo misc.at:636 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:636: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:637: ./prog" +echo misc.at:637 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " A" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:637: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:637: ./prog" -at_fn_check_prepare_trace "misc.at:637" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " A" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:637" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_53 -#AT_START_54 -at_fn_group_banner 54 'misc.at:642' \ - "INSPECT: TALLYING BEFORE" " " -at_xfail=no -( - $as_echo "54. $at_setup_line: testing $at_desc ..." - $at_traceon + 54 ) # 54. misc.at:642: INSPECT: TALLYING BEFORE + at_setup_line='misc.at:642' + at_desc='INSPECT: TALLYING BEFORE' + $at_quiet $ECHO_N " 54: INSPECT: TALLYING BEFORE $ECHO_C" + at_xfail=no + ( + echo "54. misc.at:642: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5709,46 +5883,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:666: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:666" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:666" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:666: \${COMPILE} prog.cob" +echo misc.at:666 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:666: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:667: ./prog" +echo misc.at:667 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "003000" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:667: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:667: ./prog" -at_fn_check_prepare_trace "misc.at:667" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "003000" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:667" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_54 -#AT_START_55 -at_fn_group_banner 55 'misc.at:672' \ - "INSPECT: TALLYING AFTER" " " -at_xfail=no -( - $as_echo "55. $at_setup_line: testing $at_desc ..." - $at_traceon + 55 ) # 55. misc.at:672: INSPECT: TALLYING AFTER + at_setup_line='misc.at:672' + at_desc='INSPECT: TALLYING AFTER' + $at_quiet $ECHO_N " 55: INSPECT: TALLYING AFTER $ECHO_C" + at_xfail=no + ( + echo "55. misc.at:672: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5775,46 +5974,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:696: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:696" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:696" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:696: \${COMPILE} prog.cob" +echo misc.at:696 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:696: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:697: ./prog" +echo misc.at:697 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "000003" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:697: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:697: ./prog" -at_fn_check_prepare_trace "misc.at:697" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "000003" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:697" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_55 -#AT_START_56 -at_fn_group_banner 56 'misc.at:701' \ - "INSPECT REPLACING TRAILING ZEROS BY SPACES" " " -at_xfail=no -( - $as_echo "56. $at_setup_line: testing $at_desc ..." - $at_traceon + 56 ) # 56. misc.at:701: INSPECT REPLACING TRAILING ZEROS BY SPACES + at_setup_line='misc.at:701' + at_desc='INSPECT REPLACING TRAILING ZEROS BY SPACES' + $at_quiet $ECHO_N " 56: INSPECT REPLACING TRAILING ZEROS BY SPACES $ECHO_C" + at_xfail=no + ( + echo "56. misc.at:701: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5832,46 +6056,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:716: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:716" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:716" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:716: \${COMPILE} prog.cob" +echo misc.at:716 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:716: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:717: ./prog" +echo misc.at:717 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "1 " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:717: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:717: ./prog" -at_fn_check_prepare_trace "misc.at:717" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "1 " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:717" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_56 -#AT_START_57 -at_fn_group_banner 57 'misc.at:721' \ - "INSPECT REPLACING complex" " " -at_xfail=no -( - $as_echo "57. $at_setup_line: testing $at_desc ..." - $at_traceon + 57 ) # 57. misc.at:721: INSPECT REPLACING complex + at_setup_line='misc.at:721' + at_desc='INSPECT REPLACING complex' + $at_quiet $ECHO_N " 57: INSPECT REPLACING complex $ECHO_C" + at_xfail=no + ( + echo "57. misc.at:721: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5892,45 +6141,70 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:739: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:739" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:739" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:739: \${COMPILE} prog.cob" +echo misc.at:739 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:739: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:740: ./prog" +echo misc.at:740 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ZZZYYCDXXXXX" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:740: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then -{ set +x -$as_echo "$at_srcdir/misc.at:740: ./prog" -at_fn_check_prepare_trace "misc.at:740" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ZZZYYCDXXXXX" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:740" -$at_failed && at_fn_log_failure -$at_traceon; } + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_57 -#AT_START_58 -at_fn_group_banner 58 'misc.at:743' \ - "SWITCHES" " " -at_xfail=no -( - $as_echo "58. $at_setup_line: testing $at_desc ..." - $at_traceon + 58 ) # 58. misc.at:743: SWITCHES + at_setup_line='misc.at:743' + at_desc='SWITCHES' + $at_quiet $ECHO_N " 58: SWITCHES $ECHO_C" + at_xfail=no + ( + echo "58. misc.at:743: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5983,46 +6257,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:793: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:793" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:793" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:793: \${COMPILE} prog.cob" +echo misc.at:793 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:793: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:794: COB_SWITCH_1=ON COB_SWITCH_2=OFF ./prog" +echo misc.at:794 >$at_check_line_file +( $at_traceon; COB_SWITCH_1=ON COB_SWITCH_2=OFF ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ONOFFOFFON" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:794: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:794: COB_SWITCH_1=ON COB_SWITCH_2=OFF ./prog" -at_fn_check_prepare_trace "misc.at:794" -( $at_check_trace; COB_SWITCH_1=ON COB_SWITCH_2=OFF ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ONOFFOFFON" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:794" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_58 -#AT_START_59 -at_fn_group_banner 59 'misc.at:801' \ - "Nested PERFORM" " " -at_xfail=no -( - $as_echo "59. $at_setup_line: testing $at_desc ..." - $at_traceon + 59 ) # 59. misc.at:801: Nested PERFORM + at_setup_line='misc.at:801' + at_desc='Nested PERFORM' + $at_quiet $ECHO_N " 59: Nested PERFORM $ECHO_C" + at_xfail=no + ( + echo "59. misc.at:801: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6041,46 +6340,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:817: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:817" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:817" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:817: \${COMPILE} -o prog prog.cob" +echo misc.at:817 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:817: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:818: ./prog" +echo misc.at:818 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "XXXX" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:818: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:818: ./prog" -at_fn_check_prepare_trace "misc.at:818" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "XXXX" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:818" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_59 -#AT_START_60 -at_fn_group_banner 60 'misc.at:826' \ - "EXIT PERFORM" " " -at_xfail=no -( - $as_echo "60. $at_setup_line: testing $at_desc ..." - $at_traceon + 60 ) # 60. misc.at:826: EXIT PERFORM + at_setup_line='misc.at:826' + at_desc='EXIT PERFORM' + $at_quiet $ECHO_N " 60: EXIT PERFORM $ECHO_C" + at_xfail=no + ( + echo "60. misc.at:826: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6099,46 +6423,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:842: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:842" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:842" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:842: \${COMPILE} -o prog prog.cob" +echo misc.at:842 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:842: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:843: ./prog" +echo misc.at:843 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:843: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:843: ./prog" -at_fn_check_prepare_trace "misc.at:843" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:843" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_60 -#AT_START_61 -at_fn_group_banner 61 'misc.at:850' \ - "EXIT PERFORM CYCLE" " " -at_xfail=no -( - $as_echo "61. $at_setup_line: testing $at_desc ..." - $at_traceon + 61 ) # 61. misc.at:850: EXIT PERFORM CYCLE + at_setup_line='misc.at:850' + at_desc='EXIT PERFORM CYCLE' + $at_quiet $ECHO_N " 61: EXIT PERFORM CYCLE $ECHO_C" + at_xfail=no + ( + echo "61. misc.at:850: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6157,46 +6506,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:866: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:866" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:866" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:866: \${COMPILE} -o prog prog.cob" +echo misc.at:866 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:866: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:867: ./prog" +echo misc.at:867 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:867: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:867: ./prog" -at_fn_check_prepare_trace "misc.at:867" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:867" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_61 -#AT_START_62 -at_fn_group_banner 62 'misc.at:874' \ - "EXIT PARAGRAPH" " " -at_xfail=no -( - $as_echo "62. $at_setup_line: testing $at_desc ..." - $at_traceon + 62 ) # 62. misc.at:874: EXIT PARAGRAPH + at_setup_line='misc.at:874' + at_desc='EXIT PARAGRAPH' + $at_quiet $ECHO_N " 62: EXIT PARAGRAPH $ECHO_C" + at_xfail=no + ( + echo "62. misc.at:874: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6222,46 +6596,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:897: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:897" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:897" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:897: \${COMPILE} -o prog prog.cob" +echo misc.at:897 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:897: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:898: ./prog" +echo misc.at:898 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0003" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:898: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:898: ./prog" -at_fn_check_prepare_trace "misc.at:898" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0003" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:898" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_62 -#AT_START_63 -at_fn_group_banner 63 'misc.at:905' \ - "EXIT SECTION" " " -at_xfail=no -( - $as_echo "63. $at_setup_line: testing $at_desc ..." - $at_traceon + 63 ) # 63. misc.at:905: EXIT SECTION + at_setup_line='misc.at:905' + at_desc='EXIT SECTION' + $at_quiet $ECHO_N " 63: EXIT SECTION $ECHO_C" + at_xfail=no + ( + echo "63. misc.at:905: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6292,46 +6691,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:933: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:933" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:933" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:933: \${COMPILE} -o prog prog.cob" +echo misc.at:933 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:933: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:934: ./prog" +echo misc.at:934 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0003" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:934: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:934: ./prog" -at_fn_check_prepare_trace "misc.at:934" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0003" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:934" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_63 -#AT_START_64 -at_fn_group_banner 64 'misc.at:939' \ - "88 with FILLER" " " -at_xfail=no -( - $as_echo "64. $at_setup_line: testing $at_desc ..." - $at_traceon + 64 ) # 64. misc.at:939: 88 with FILLER + at_setup_line='misc.at:939' + at_desc='88 with FILLER' + $at_quiet $ECHO_N " 64: 88 with FILLER $ECHO_C" + at_xfail=no + ( + echo "64. misc.at:939: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6356,46 +6780,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:961: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:961" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:961" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:961: \${COMPILE} -o prog prog.cob" +echo misc.at:961 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:961: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:962: ./prog" +echo misc.at:962 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:962: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:962: ./prog" -at_fn_check_prepare_trace "misc.at:962" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:962" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_64 -#AT_START_65 -at_fn_group_banner 65 'misc.at:966' \ - "Non-overflow after overflow" " " -at_xfail=no -( - $as_echo "65. $at_setup_line: testing $at_desc ..." - $at_traceon + 65 ) # 65. misc.at:966: Non-overflow after overflow + at_setup_line='misc.at:966' + at_desc='Non-overflow after overflow' + $at_quiet $ECHO_N " 65: Non-overflow after overflow $ECHO_C" + at_xfail=no + ( + echo "65. misc.at:966: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6417,46 +6866,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:985: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:985" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:985" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:985: \${COMPILE} -o prog prog.cob" +echo misc.at:985 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:985: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:986: ./prog" +echo misc.at:986 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "99" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:986: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:986: ./prog" -at_fn_check_prepare_trace "misc.at:986" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "99" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:986" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_65 -#AT_START_66 -at_fn_group_banner 66 'misc.at:993' \ - "PERFORM ... CONTINUE" " " -at_xfail=no -( - $as_echo "66. $at_setup_line: testing $at_desc ..." - $at_traceon + 66 ) # 66. misc.at:993: PERFORM ... CONTINUE + at_setup_line='misc.at:993' + at_desc='PERFORM ... CONTINUE' + $at_quiet $ECHO_N " 66: PERFORM ... CONTINUE $ECHO_C" + at_xfail=no + ( + echo "66. misc.at:993: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6470,32 +6944,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1004: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1004" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1004" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1004: \${COMPILE_ONLY} prog.cob" +echo misc.at:1004 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1004: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_66 -#AT_START_67 -at_fn_group_banner 67 'misc.at:1009' \ - "STRING with subscript reference" " " -at_xfail=no -( - $as_echo "67. $at_setup_line: testing $at_desc ..." - $at_traceon + 67 ) # 67. misc.at:1009: STRING with subscript reference + at_setup_line='misc.at:1009' + at_desc='STRING with subscript reference' + $at_quiet $ECHO_N " 67: STRING with subscript reference $ECHO_C" + at_xfail=no + ( + echo "67. misc.at:1009: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6515,46 +7003,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1026: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1026" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1026" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1026: \${COMPILE} -o prog prog.cob" +echo misc.at:1026 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1026: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1027: ./prog" +echo misc.at:1027 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "abc" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1027: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1027: ./prog" -at_fn_check_prepare_trace "misc.at:1027" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "abc" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1027" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_67 -#AT_START_68 -at_fn_group_banner 68 'misc.at:1032' \ - "UNSTRING DELIMITED ALL LOW-VALUE" " " -at_xfail=no -( - $as_echo "68. $at_setup_line: testing $at_desc ..." - $at_traceon + 68 ) # 68. misc.at:1032: UNSTRING DELIMITED ALL LOW-VALUE + at_setup_line='misc.at:1032' + at_desc='UNSTRING DELIMITED ALL LOW-VALUE' + $at_quiet $ECHO_N " 68: UNSTRING DELIMITED ALL LOW-VALUE $ECHO_C" + at_xfail=no + ( + echo "68. misc.at:1032: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6581,48 +7094,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1056: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1056" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1056" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1056: \${COMPILE} -o prog prog.cob" +echo misc.at:1056 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1056: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/misc.at:1057: ./prog" -at_fn_check_prepare_trace "misc.at:1057" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ABC +$at_traceon + +$at_traceoff +echo "misc.at:1057: ./prog" +echo misc.at:1057 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ABC DEF -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1057" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1057: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_68 -#AT_START_69 -at_fn_group_banner 69 'misc.at:1065' \ - "READ INTO AT-END sequence" " " -at_xfail=no -( - $as_echo "69. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 69 ) # 69. misc.at:1065: READ INTO AT-END sequence + at_setup_line='misc.at:1065' + at_desc='READ INTO AT-END sequence' + $at_quiet $ECHO_N " 69: READ INTO AT-END sequence $ECHO_C" + at_xfail=no + ( + echo "69. misc.at:1065: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6653,46 +7191,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1093: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1093" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1093" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1093: \${COMPILE} -o prog prog.cob" +echo misc.at:1093 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1093: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1094: ./prog" +echo misc.at:1094 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0000000000" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1094: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1094: ./prog" -at_fn_check_prepare_trace "misc.at:1094" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0000000000" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1094" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_69 -#AT_START_70 -at_fn_group_banner 70 'misc.at:1099' \ - "First READ on empty SEQUENTIAL INDEXED file" " " -at_xfail=no -( - $as_echo "70. $at_setup_line: testing $at_desc ..." - $at_traceon + 70 ) # 70. misc.at:1099: First READ on empty SEQUENTIAL INDEXED file + at_setup_line='misc.at:1099' + at_desc='First READ on empty SEQUENTIAL INDEXED file' + $at_quiet $ECHO_N " 70: First READ on empty SEQUENTIAL INDEXED file $ECHO_C" + at_xfail=no + ( + echo "70. misc.at:1099: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6724,46 +7287,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1128: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1128" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1128" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1128: \${COMPILE} -o prog prog.cob" +echo misc.at:1128 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1128: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1129: ./prog" +echo misc.at:1129 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1129: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1129: ./prog" -at_fn_check_prepare_trace "misc.at:1129" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1129" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_70 -#AT_START_71 -at_fn_group_banner 71 'misc.at:1134' \ - "REWRITE a RELATIVE file with RANDOM access" " " -at_xfail=no -( - $as_echo "71. $at_setup_line: testing $at_desc ..." - $at_traceon + 71 ) # 71. misc.at:1134: REWRITE a RELATIVE file with RANDOM access + at_setup_line='misc.at:1134' + at_desc='REWRITE a RELATIVE file with RANDOM access' + $at_quiet $ECHO_N " 71: REWRITE a RELATIVE file with RANDOM access $ECHO_C" + at_xfail=no + ( + echo "71. misc.at:1134: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6811,48 +7399,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1179: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1179" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1179" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1180: ./prog" -at_fn_check_prepare_trace "misc.at:1180" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "A +$at_traceoff +echo "misc.at:1179: \${COMPILE} -o prog prog.cob" +echo misc.at:1179 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1179: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1180: ./prog" +echo misc.at:1180 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "A C -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1180" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1180: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_71 -#AT_START_72 -at_fn_group_banner 72 'misc.at:1188' \ - "SORT: table sort" " " -at_xfail=no -( - $as_echo "72. $at_setup_line: testing $at_desc ..." - $at_traceon + 72 ) # 72. misc.at:1188: SORT: table sort + at_setup_line='misc.at:1188' + at_desc='SORT: table sort' + $at_quiet $ECHO_N " 72: SORT: table sort $ECHO_C" + at_xfail=no + ( + echo "72. misc.at:1188: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6882,50 +7495,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1215: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1215" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1215" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1215: \${COMPILE} -o prog prog.cob" +echo misc.at:1215 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1215: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/misc.at:1216: ./prog" -at_fn_check_prepare_trace "misc.at:1216" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a3b2c5d4e1 +$at_traceon + +$at_traceoff +echo "misc.at:1216: ./prog" +echo misc.at:1216 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a3b2c5d4e1 c5d4a3b2e1 a3b2c5d4e1 e1d4c5b2a3 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1216" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1216: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_72 -#AT_START_73 -at_fn_group_banner 73 'misc.at:1225' \ - "SORT: EBCDIC table sort" " " -at_xfail=no -( - $as_echo "73. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 73 ) # 73. misc.at:1225: SORT: EBCDIC table sort + at_setup_line='misc.at:1225' + at_desc='SORT: EBCDIC table sort' + $at_quiet $ECHO_N " 73: SORT: EBCDIC table sort $ECHO_C" + at_xfail=no + ( + echo "73. misc.at:1225: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6962,50 +7600,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1259: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1259" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1259" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1259: \${COMPILE} -o prog prog.cob" +echo misc.at:1259 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1259: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/misc.at:1260: ./prog" -at_fn_check_prepare_trace "misc.at:1260" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "12345abcde +$at_traceon + +$at_traceoff +echo "misc.at:1260: ./prog" +echo misc.at:1260 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "12345abcde edcba54321 abcde12345 54321edcba -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1260" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1260: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_73 -#AT_START_74 -at_fn_group_banner 74 'misc.at:1269' \ - "SORT nonexistent file" " " -at_xfail=no -( - $as_echo "74. $at_setup_line: testing $at_desc ..." - $at_traceon + 74 ) # 74. misc.at:1269: SORT nonexistent file + at_setup_line='misc.at:1269' + at_desc='SORT nonexistent file' + $at_quiet $ECHO_N " 74: SORT nonexistent file $ECHO_C" + at_xfail=no + ( + echo "74. misc.at:1269: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7035,58 +7698,96 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1296: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1296" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1296" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1296: \${COMPILE} -o prog prog.cob" +echo misc.at:1296 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1296: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1297: ./prog" +echo misc.at:1297 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1297: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1298: cat SORT-OUT" +echo misc.at:1298 >$at_check_line_file +( $at_traceon; cat SORT-OUT ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1298: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/misc.at:1297: ./prog" -at_fn_check_prepare_trace "misc.at:1297" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1297" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1298: cat SORT-OUT" -at_fn_check_prepare_trace "misc.at:1298" -( $at_check_trace; cat SORT-OUT -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1298" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_74 -#AT_START_75 -at_fn_group_banner 75 'misc.at:1303' \ - "PIC ZZZ-, ZZZ+" " " -at_xfail=no -( - $as_echo "75. $at_setup_line: testing $at_desc ..." - $at_traceon + 75 ) # 75. misc.at:1303: PIC ZZZ-, ZZZ+ + at_setup_line='misc.at:1303' + at_desc='PIC ZZZ-, ZZZ+' + $at_quiet $ECHO_N " 75: PIC ZZZ-, ZZZ+ $ECHO_C" + at_xfail=no + ( + echo "75. misc.at:1303: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7114,52 +7815,77 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1328: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1328" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1328" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1328: \${COMPILE} -o prog prog.cob" +echo misc.at:1328 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1328: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/misc.at:1329: ./prog" -at_fn_check_prepare_trace "misc.at:1329" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "( 1-) +$at_traceon + +$at_traceoff +echo "misc.at:1329: ./prog" +echo misc.at:1329 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "( 1-) ( ) ( 1 ) ( 1-) ( ) ( 1+) -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1329" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1329: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_75 -#AT_START_76 -at_fn_group_banner 76 'misc.at:1341' \ - "Larger REDEFINES lengths" " " -at_xfail=no -( - $as_echo "76. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 76 ) # 76. misc.at:1341: Larger REDEFINES lengths + at_setup_line='misc.at:1341' + at_desc='Larger REDEFINES lengths' + $at_quiet $ECHO_N " 76: Larger REDEFINES lengths $ECHO_C" + at_xfail=no + ( + echo "76. misc.at:1341: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7189,53 +7915,77 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1368: \${COMPILE} -std=mf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1368" -( $at_check_trace; ${COMPILE} -std=mf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Warning: Size of 'XMAIN0502' larger than size of 'XMAIN0501' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1368" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1371: ./prog" -at_fn_check_prepare_trace "misc.at:1371" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "8 +$at_traceoff +echo "misc.at:1368: \${COMPILE} -std=mf -o prog prog.cob" +echo misc.at:1368 >$at_check_line_file +( $at_traceon; ${COMPILE} -std=mf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Warning: Size of 'XMAIN0502' larger than size of 'XMAIN0501' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1368: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1371: ./prog" +echo misc.at:1371 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "8 9 5 4 5 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1371" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_76 -#AT_START_77 -at_fn_group_banner 77 'misc.at:1381' \ - "PERFORM type OSVS" " " -at_xfail=no -( - $as_echo "77. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1371: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 77 ) # 77. misc.at:1381: PERFORM type OSVS + at_setup_line='misc.at:1381' + at_desc='PERFORM type OSVS' + $at_quiet $ECHO_N " 77: PERFORM type OSVS $ECHO_C" + at_xfail=no + ( + echo "77. misc.at:1381: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -7273,47 +8023,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1414: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1414" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1414" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1415: ./prog" -at_fn_check_prepare_trace "misc.at:1415" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1415" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_77 -#AT_START_78 -at_fn_group_banner 78 'misc.at:1422' \ - "Sticky LINKAGE" " " -at_xfail=no -( - $as_echo "78. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1414: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo misc.at:1414 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1414: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1415: ./prog" +echo misc.at:1415 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1415: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 78 ) # 78. misc.at:1422: Sticky LINKAGE + at_setup_line='misc.at:1422' + at_desc='Sticky LINKAGE' + $at_quiet $ECHO_N " 78: Sticky LINKAGE $ECHO_C" + at_xfail=no + ( + echo "78. misc.at:1422: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -7362,60 +8137,97 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1464: \${COMPILE_MODULE} -conf=test.conf callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1464" -( $at_check_trace; ${COMPILE_MODULE} -conf=test.conf callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1464" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1465: \${COMPILE} -conf=test.conf -o caller caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1465" -( $at_check_trace; ${COMPILE} -conf=test.conf -o caller caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1465" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1466: ./caller" -at_fn_check_prepare_trace "misc.at:1466" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOKOK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1466" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_78 -#AT_START_79 -at_fn_group_banner 79 'misc.at:1472' \ - "COB_PRE_LOAD test" " " -at_xfail=no -( - $as_echo "79. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1464: \${COMPILE_MODULE} -conf=test.conf callee.cob" +echo misc.at:1464 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -conf=test.conf callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1464: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1465: \${COMPILE} -conf=test.conf -o caller caller.cob" +echo misc.at:1465 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o caller caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1465: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1466: ./caller" +echo misc.at:1466 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOKOK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1466: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 79 ) # 79. misc.at:1472: COB_PRE_LOAD test + at_setup_line='misc.at:1472' + at_desc='COB_PRE_LOAD test' + $at_quiet $ECHO_N " 79: COB_PRE_LOAD test $ECHO_C" + at_xfail=no + ( + echo "79. misc.at:1472: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -7428,69 +8240,106 @@ cat >callee.cob <<'_ATEOF' _ATEOF -cat >caller.cob <<'_ATEOF' +cat >caller.cob <<'_ATEOF' + + IDENTIFICATION DIVISION. + PROGRAM-ID. caller. + PROCEDURE DIVISION. + CALL "callee2" + END-CALL. +_ATEOF + + +$at_traceoff +echo "misc.at:1490: \${COMPILE_MODULE} callee.cob" +echo misc.at:1490 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1490: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1491: \${COMPILE} caller.cob" +echo misc.at:1491 >$at_check_line_file +( $at_traceon; ${COMPILE} caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1491: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1492: export COB_PRE_LOAD=callee; ./caller" +echo misc.at:1492 >$at_check_line_file +( $at_traceon; export COB_PRE_LOAD=callee; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1492: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - IDENTIFICATION DIVISION. - PROGRAM-ID. caller. - PROCEDURE DIVISION. - CALL "callee2" - END-CALL. -_ATEOF + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; -{ set +x -$as_echo "$at_srcdir/misc.at:1490: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1490" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1490" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1491: \${COMPILE} caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1491" -( $at_check_trace; ${COMPILE} caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1491" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1492: export COB_PRE_LOAD=callee; ./caller" -at_fn_check_prepare_trace "misc.at:1492" -( $at_check_trace; export COB_PRE_LOAD=callee; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1492" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_79 -#AT_START_80 -at_fn_group_banner 80 'misc.at:1496' \ - "COB_LOAD_CASE=UPPER test" " " -at_xfail=no -( - $as_echo "80. $at_setup_line: testing $at_desc ..." - $at_traceon + 80 ) # 80. misc.at:1496: COB_LOAD_CASE=UPPER test + at_setup_line='misc.at:1496' + at_desc='COB_LOAD_CASE=UPPER test' + $at_quiet $ECHO_N " 80: COB_LOAD_CASE=UPPER test $ECHO_C" + at_xfail=no + ( + echo "80. misc.at:1496: testing ..." + $at_traceon cat >CALLEE.cob <<'_ATEOF' @@ -7513,59 +8362,96 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1514: \${COMPILE_MODULE} CALLEE.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1514" -( $at_check_trace; ${COMPILE_MODULE} CALLEE.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1514" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1515: \${COMPILE} caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1515" -( $at_check_trace; ${COMPILE} caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1515" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1516: export COB_LOAD_CASE=UPPER; ./caller" -at_fn_check_prepare_trace "misc.at:1516" -( $at_check_trace; export COB_LOAD_CASE=UPPER; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1516" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_80 -#AT_START_81 -at_fn_group_banner 81 'misc.at:1520' \ - "88 level with FALSE IS clause" " " -at_xfail=no -( - $as_echo "81. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1514: \${COMPILE_MODULE} CALLEE.cob" +echo misc.at:1514 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} CALLEE.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1514: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1515: \${COMPILE} caller.cob" +echo misc.at:1515 >$at_check_line_file +( $at_traceon; ${COMPILE} caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1515: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1516: export COB_LOAD_CASE=UPPER; ./caller" +echo misc.at:1516 >$at_check_line_file +( $at_traceon; export COB_LOAD_CASE=UPPER; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1516: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 81 ) # 81. misc.at:1520: 88 level with FALSE IS clause + at_setup_line='misc.at:1520' + at_desc='88 level with FALSE IS clause' + $at_quiet $ECHO_N " 81: 88 level with FALSE IS clause $ECHO_C" + at_xfail=no + ( + echo "81. misc.at:1520: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7586,47 +8472,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1538: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1538" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1538" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1538: \${COMPILE} prog.cob" +echo misc.at:1538 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1538: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1539: ./prog" +echo misc.at:1539 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOKOK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1539: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1539: ./prog" -at_fn_check_prepare_trace "misc.at:1539" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOKOK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1539" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_81 -#AT_START_82 -at_fn_group_banner 82 'misc.at:1545' \ - "ALLOCATE/FREE with BASED item" " " -at_xfail=no -( - $as_echo "82. $at_setup_line: testing $at_desc ..." - $at_traceon + 82 ) # 82. misc.at:1545: ALLOCATE/FREE with BASED item + at_setup_line='misc.at:1545' + at_desc='ALLOCATE/FREE with BASED item' + $at_quiet $ECHO_N " 82: ALLOCATE/FREE with BASED item $ECHO_C" + at_xfail=no + ( + echo "82. misc.at:1545: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7646,47 +8557,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1562: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1562" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1562" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1562: \${COMPILE} prog.cob" +echo misc.at:1562 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1562: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1563: ./prog" +echo misc.at:1563 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "ABCDEF +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1563: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1563: ./prog" -at_fn_check_prepare_trace "misc.at:1563" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "ABCDEF -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1563" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_82 -#AT_START_83 -at_fn_group_banner 83 'misc.at:1569' \ - "INITIZIALIZE with reference modification" " " -at_xfail=no -( - $as_echo "83. $at_setup_line: testing $at_desc ..." - $at_traceon + 83 ) # 83. misc.at:1569: INITIZIALIZE with reference modification + at_setup_line='misc.at:1569' + at_desc='INITIZIALIZE with reference modification' + $at_quiet $ECHO_N " 83: INITIZIALIZE with reference modification $ECHO_C" + at_xfail=no + ( + echo "83. misc.at:1569: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7705,47 +8641,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1585: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1585" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1585" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1586: ./prog" -at_fn_check_prepare_trace "misc.at:1586" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo " CDEF -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1586" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_83 -#AT_START_84 -at_fn_group_banner 84 'misc.at:1592' \ - "CALL with OMITTED parameter" " " -at_xfail=no -( - $as_echo "84. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1585: \${COMPILE} prog.cob" +echo misc.at:1585 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1585: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1586: ./prog" +echo misc.at:1586 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo " CDEF +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1586: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 84 ) # 84. misc.at:1592: CALL with OMITTED parameter + at_setup_line='misc.at:1592' + at_desc='CALL with OMITTED parameter' + $at_quiet $ECHO_N " 84: CALL with OMITTED parameter $ECHO_C" + at_xfail=no + ( + echo "84. misc.at:1592: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -7780,60 +8741,97 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1622: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1622" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1622" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1623: \${COMPILE} -o caller caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1623" -( $at_check_trace; ${COMPILE} -o caller caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1623" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1624: ./caller" -at_fn_check_prepare_trace "misc.at:1624" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOKOK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1624" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_84 -#AT_START_85 -at_fn_group_banner 85 'misc.at:1630' \ - "ANY LENGTH" " " -at_xfail=no -( - $as_echo "85. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1622: \${COMPILE_MODULE} callee.cob" +echo misc.at:1622 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1622: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1623: \${COMPILE} -o caller caller.cob" +echo misc.at:1623 >$at_check_line_file +( $at_traceon; ${COMPILE} -o caller caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1623: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1624: ./caller" +echo misc.at:1624 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOKOK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1624: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 85 ) # 85. misc.at:1630: ANY LENGTH + at_setup_line='misc.at:1630' + at_desc='ANY LENGTH' + $at_quiet $ECHO_N " 85: ANY LENGTH $ECHO_C" + at_xfail=no + ( + echo "85. misc.at:1630: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -7869,61 +8867,98 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1661: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1661" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1661" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1662: \${COMPILE} -o caller caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1662" -( $at_check_trace; ${COMPILE} -o caller caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1662" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1663: ./caller" -at_fn_check_prepare_trace "misc.at:1663" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "06 +$at_traceoff +echo "misc.at:1661: \${COMPILE_MODULE} callee.cob" +echo misc.at:1661 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1661: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1662: \${COMPILE} -o caller caller.cob" +echo misc.at:1662 >$at_check_line_file +( $at_traceon; ${COMPILE} -o caller caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1662: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1663: ./caller" +echo misc.at:1663 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "06 OKOKOK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1663" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1663: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_85 -#AT_START_86 -at_fn_group_banner 86 'misc.at:1670' \ - "BASED item non-ALLOCATED (debug)" " " -at_xfail=no -( - $as_echo "86. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 86 ) # 86. misc.at:1670: BASED item non-ALLOCATED (debug) + at_setup_line='misc.at:1670' + at_desc='BASED item non-ALLOCATED (debug)' + $at_quiet $ECHO_N " 86: BASED item non-ALLOCATED (debug) $ECHO_C" + at_xfail=no + ( + echo "86. misc.at:1670: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -7940,47 +8975,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1684: \${COMPILE} -debug -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1684" -( $at_check_trace; ${COMPILE} -debug -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1684" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1684: \${COMPILE} -debug -o prog prog.cob" +echo misc.at:1684 >$at_check_line_file +( $at_traceon; ${COMPILE} -debug -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1684: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1685: ./prog" +echo misc.at:1685 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: libcob: BASED/LINKAGE item 'X' has NULL address +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "misc.at:1685: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/misc.at:1685: ./prog" -at_fn_check_prepare_trace "misc.at:1685" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: libcob: BASED/LINKAGE item 'X' has NULL address -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/misc.at:1685" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_86 -#AT_START_87 -at_fn_group_banner 87 'misc.at:1691' \ - "READ - KEY ignored with sequential READ" " " -at_xfail=no -( - $as_echo "87. $at_setup_line: testing $at_desc ..." - $at_traceon + 87 ) # 87. misc.at:1691: READ - KEY ignored with sequential READ + at_setup_line='misc.at:1691' + at_desc='READ - KEY ignored with sequential READ' + $at_quiet $ECHO_N " 87: READ - KEY ignored with sequential READ $ECHO_C" + at_xfail=no + ( + echo "87. misc.at:1691: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8010,34 +9070,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1718: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1718" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:20: Warning: KEY ignored with sequential READ -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1718" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "misc.at:1718: \${COMPILE} -o prog prog.cob" +echo misc.at:1718 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:20: Warning: KEY ignored with sequential READ +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1718: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_87 -#AT_START_88 -at_fn_group_banner 88 'misc.at:1724' \ - "SORT - missing fcd in variable-length WRITE" " " -at_xfail=no -( - $as_echo "88. $at_setup_line: testing $at_desc ..." - $at_traceon + 88 ) # 88. misc.at:1724: SORT - missing fcd in variable-length WRITE + at_setup_line='misc.at:1724' + at_desc='SORT - missing fcd in variable-length WRITE' + $at_quiet $ECHO_N " 88: SORT - missing fcd in variable-length WRITE $ECHO_C" + at_xfail=no + ( + echo "88. misc.at:1724: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8122,46 +9195,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1806: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1806" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1806" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1807: ./prog" -at_fn_check_prepare_trace "misc.at:1807" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "027021013" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1807" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_88 -#AT_START_89 -at_fn_group_banner 89 'misc.at:1811' \ - "READ - missing fcd in variable-length WRITE" " " -at_xfail=no -( - $as_echo "89. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1806: \${COMPILE} -o prog prog.cob" +echo misc.at:1806 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1806: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1807: ./prog" +echo misc.at:1807 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "027021013" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1807: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 89 ) # 89. misc.at:1811: READ - missing fcd in variable-length WRITE + at_setup_line='misc.at:1811' + at_desc='READ - missing fcd in variable-length WRITE' + $at_quiet $ECHO_N " 89: READ - missing fcd in variable-length WRITE $ECHO_C" + at_xfail=no + ( + echo "89. misc.at:1811: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8213,46 +9311,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/misc.at:1860: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "misc.at:1860" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1860" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/misc.at:1861: ./prog" -at_fn_check_prepare_trace "misc.at:1861" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "021027013" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/misc.at:1861" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_89 -#AT_START_90 -at_fn_group_banner 90 'extensions.at:24' \ - "COMP-5" " " -at_xfail=no -( - $as_echo "90. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "misc.at:1860: \${COMPILE} -o prog prog.cob" +echo misc.at:1860 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1860: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "misc.at:1861: ./prog" +echo misc.at:1861 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "021027013" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "misc.at:1861: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 90 ) # 90. extensions.at:24: COMP-5 + at_setup_line='extensions.at:24' + at_desc='COMP-5' + $at_quiet $ECHO_N " 90: COMP-5 $ECHO_C" + at_xfail=no + ( + echo "90. extensions.at:24: testing ..." + $at_traceon cat >dump.c <<'_ATEOF' @@ -8274,18 +9397,30 @@ int dump (unsigned char *data, int *p) _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:43: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:43" -( $at_check_trace; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:43" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:43: \${CC} \${SHROPT} -o dump.\${SHREXT} dump.c" +echo extensions.at:43 >$at_check_line_file +( $at_traceon; ${CC} ${SHROPT} -o dump.${SHREXT} dump.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:43: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon cat >prog.cob <<'_ATEOF' @@ -8305,48 +9440,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:60: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:60" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:60" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:61: ./prog" -at_fn_check_prepare_trace "extensions.at:61" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00001234 +$at_traceoff +echo "extensions.at:60: \${COMPILE} -o prog prog.cob" +echo extensions.at:60 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:60: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:61: ./prog" +echo extensions.at:61 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00001234 00004660 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:61" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:61: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_90 -#AT_START_91 -at_fn_group_banner 91 'extensions.at:71' \ - "Hexadecimal numeric literal" " " -at_xfail=no -( - $as_echo "91. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 91 ) # 91. extensions.at:71: Hexadecimal numeric literal + at_setup_line='extensions.at:71' + at_desc='Hexadecimal numeric literal' + $at_quiet $ECHO_N " 91: Hexadecimal numeric literal $ECHO_C" + at_xfail=no + ( + echo "91. extensions.at:71: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8366,48 +9526,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:88: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:88" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:88" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:88: \${COMPILE} -o prog prog.cob" +echo extensions.at:88 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:88: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/extensions.at:89: ./prog" -at_fn_check_prepare_trace "extensions.at:89" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00074565 +$at_traceon + +$at_traceoff +echo "extensions.at:89: ./prog" +echo extensions.at:89 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00074565 16777215 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:89" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:89: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_91 -#AT_START_92 -at_fn_group_banner 92 'extensions.at:99' \ - "Semi-parenthesized condition" " " -at_xfail=no -( - $as_echo "92. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 92 ) # 92. extensions.at:99: Semi-parenthesized condition + at_setup_line='extensions.at:99' + at_desc='Semi-parenthesized condition' + $at_quiet $ECHO_N " 92: Semi-parenthesized condition $ECHO_C" + at_xfail=no + ( + echo "92. extensions.at:99: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8423,46 +9608,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:112: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:112" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:112" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:112: \${COMPILE} -o prog prog.cob" +echo extensions.at:112 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:112: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:113: ./prog" +echo extensions.at:113 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:113: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:113: ./prog" -at_fn_check_prepare_trace "extensions.at:113" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:113" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_92 -#AT_START_93 -at_fn_group_banner 93 'extensions.at:120' \ - "ADDRESS OF" " " -at_xfail=no -( - $as_echo "93. $at_setup_line: testing $at_desc ..." - $at_traceon + 93 ) # 93. extensions.at:120: ADDRESS OF + at_setup_line='extensions.at:120' + at_desc='ADDRESS OF' + $at_quiet $ECHO_N " 93: ADDRESS OF $ECHO_C" + at_xfail=no + ( + echo "93. extensions.at:120: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8513,51 +9723,76 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:168: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:168" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:168" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:169: ./prog" -at_fn_check_prepare_trace "extensions.at:169" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "X-1 +$at_traceoff +echo "extensions.at:168: \${COMPILE} -o prog prog.cob" +echo extensions.at:168 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:168: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:169: ./prog" +echo extensions.at:169 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "X-1 X-2 OK OK OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:169" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:169: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_93 -#AT_START_94 -at_fn_group_banner 94 'extensions.at:183' \ - "LENGTH OF" " " -at_xfail=no -( - $as_echo "94. $at_setup_line: testing $at_desc ..." - $at_traceon + 94 ) # 94. extensions.at:183: LENGTH OF + at_setup_line='extensions.at:183' + at_desc='LENGTH OF' + $at_quiet $ECHO_N " 94: LENGTH OF $ECHO_C" + at_xfail=no + ( + echo "94. extensions.at:183: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8582,49 +9817,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:205: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:205" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:205" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:205: \${COMPILE} -o prog prog.cob" +echo extensions.at:205 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:205: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/extensions.at:206: ./prog" -at_fn_check_prepare_trace "extensions.at:206" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0002 +$at_traceon + +$at_traceoff +echo "extensions.at:206: ./prog" +echo extensions.at:206 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0002 0002 0002 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:206" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:206: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_94 -#AT_START_95 -at_fn_group_banner 95 'extensions.at:217' \ - "WHEN-COMPILED" " " -at_xfail=no -( - $as_echo "95. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 95 ) # 95. extensions.at:217: WHEN-COMPILED + at_setup_line='extensions.at:217' + at_desc='WHEN-COMPILED' + $at_quiet $ECHO_N " 95: WHEN-COMPILED $ECHO_C" + at_xfail=no + ( + echo "95. extensions.at:217: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8642,46 +9902,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:232: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:232" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:232" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:232: \${COMPILE} -o prog prog.cob" +echo extensions.at:232 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:232: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:233: ./prog" +echo extensions.at:233 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "99/99/9999.99.99 " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:233: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:233: ./prog" -at_fn_check_prepare_trace "extensions.at:233" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "99/99/9999.99.99 " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:233" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_95 -#AT_START_96 -at_fn_group_banner 96 'extensions.at:240' \ - "Complex OCCURS DEPENDING ON" " " -at_xfail=no -( - $as_echo "96. $at_setup_line: testing $at_desc ..." - $at_traceon + 96 ) # 96. extensions.at:240: Complex OCCURS DEPENDING ON + at_setup_line='extensions.at:240' + at_desc='Complex OCCURS DEPENDING ON' + $at_quiet $ECHO_N " 96: Complex OCCURS DEPENDING ON $ECHO_C" + at_xfail=no + ( + echo "96. extensions.at:240: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -8706,46 +9991,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:262: \${COMPILE} -std=mvs -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:262" -( $at_check_trace; ${COMPILE} -std=mvs -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:262" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:263: ./prog" -at_fn_check_prepare_trace "extensions.at:263" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "123456:34:56" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:263" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_96 -#AT_START_97 -at_fn_group_banner 97 'extensions.at:268' \ - "MOVE NON-INTEGER TO ALPHA-NUMERIC" " " -at_xfail=no -( - $as_echo "97. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:262: \${COMPILE} -std=mvs -o prog prog.cob" +echo extensions.at:262 >$at_check_line_file +( $at_traceon; ${COMPILE} -std=mvs -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:262: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:263: ./prog" +echo extensions.at:263 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "123456:34:56" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:263: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 97 ) # 97. extensions.at:268: MOVE NON-INTEGER TO ALPHA-NUMERIC + at_setup_line='extensions.at:268' + at_desc='MOVE NON-INTEGER TO ALPHA-NUMERIC' + $at_quiet $ECHO_N " 97: MOVE NON-INTEGER TO ALPHA-NUMERIC $ECHO_C" + at_xfail=no + ( + echo "97. extensions.at:268: testing ..." + $at_traceon # see MF - COBOL Error Messages 1029-E ... cat >prog.cob <<'_ATEOF' @@ -8818,14 +10128,15 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:338: \${COMPILE} -std=mf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:338" -( $at_check_trace; ${COMPILE} -std=mf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob: In paragraph 'S-03': +$at_traceoff +echo "extensions.at:338: \${COMPILE} -std=mf -o prog prog.cob" +echo extensions.at:338 >$at_check_line_file +( $at_traceon; ${COMPILE} -std=mf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob: In paragraph 'S-03': prog.cob:37: Warning: Move non-integer to alphanumeric prog.cob: In paragraph 'S-10': prog.cob:42: Warning: Move non-integer to alphanumeric @@ -8837,40 +10148,63 @@ prog.cob: In paragraph 'S-40': prog.cob:57: Warning: Move non-integer to alphanumeric prog.cob: In paragraph 'S-50': prog.cob:62: Warning: Move non-integer to alphanumeric -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:338" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:352: ./prog" -at_fn_check_prepare_trace "extensions.at:352" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "12891289128912891289128912891289" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:352" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_97 -#AT_START_98 -at_fn_group_banner 98 'extensions.at:359' \ - "CALL USING file-name" " " -at_xfail=no -( - $as_echo "98. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:338: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:352: ./prog" +echo extensions.at:352 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "12891289128912891289128912891289" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:352: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 98 ) # 98. extensions.at:359: CALL USING file-name + at_setup_line='extensions.at:359' + at_desc='CALL USING file-name' + $at_quiet $ECHO_N " 98: CALL USING file-name $ECHO_C" + at_xfail=no + ( + echo "98. extensions.at:359: testing ..." + $at_traceon cat >setfilename.c <<'_ATEOF' @@ -8910,71 +10244,121 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:394: \${COMPILE_MODULE} setfilename.c" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:394" -( $at_check_trace; ${COMPILE_MODULE} setfilename.c -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:394" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:395: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:395" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:395" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:396: ./prog" -at_fn_check_prepare_trace "extensions.at:396" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:396" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:397: test -e TESTFILE" -at_fn_check_prepare_trace "extensions.at:397" -( $at_check_trace; test -e TESTFILE -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:397" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_98 -#AT_START_99 -at_fn_group_banner 99 'extensions.at:401' \ - "CALL unusual PROGRAM-ID." " " -at_xfail=no -( - $as_echo "99. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:394: \${COMPILE_MODULE} setfilename.c" +echo extensions.at:394 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} setfilename.c ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:394: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:395: \${COMPILE} -o prog prog.cob" +echo extensions.at:395 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:395: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:396: ./prog" +echo extensions.at:396 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:396: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:397: test -e TESTFILE" +echo extensions.at:397 >$at_check_line_file +( $at_traceon; test -e TESTFILE ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:397: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 99 ) # 99. extensions.at:401: CALL unusual PROGRAM-ID. + at_setup_line='extensions.at:401' + at_desc='CALL unusual PROGRAM-ID.' + $at_quiet $ECHO_N " 99: CALL unusual PROGRAM-ID. $ECHO_C" + at_xfail=no + ( + echo "99. extensions.at:401: testing ..." + $at_traceon cat >A@B.cob <<'_ATEOF' @@ -9038,99 +10422,172 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:454: \${COMPILE_MODULE} A@B.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:454" -( $at_check_trace; ${COMPILE_MODULE} A@B.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:454" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:455: \${COMPILE_MODULE} A#B.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:455" -( $at_check_trace; ${COMPILE_MODULE} A#B.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:455" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:456: \${COMPILE_MODULE} A-B.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:456" -( $at_check_trace; ${COMPILE_MODULE} A-B.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:456" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:457: \${COMPILE_MODULE} A_B.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:457" -( $at_check_trace; ${COMPILE_MODULE} A_B.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:457" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:458: \${COMPILE} -o caller caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:458" -( $at_check_trace; ${COMPILE} -o caller caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:458" -$at_failed && at_fn_log_failure -$at_traceon; } - - -{ set +x -$as_echo "$at_srcdir/extensions.at:460: ./caller" -at_fn_check_prepare_trace "extensions.at:460" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "P1P2P3P4" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:460" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_99 -#AT_START_100 -at_fn_group_banner 100 'extensions.at:464' \ - "Case independent PROGRAM-ID" " " -at_xfail=no -( - $as_echo "100. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:454: \${COMPILE_MODULE} A@B.cob" +echo extensions.at:454 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} A@B.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:454: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:455: \${COMPILE_MODULE} A#B.cob" +echo extensions.at:455 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} A#B.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:455: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:456: \${COMPILE_MODULE} A-B.cob" +echo extensions.at:456 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} A-B.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:456: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:457: \${COMPILE_MODULE} A_B.cob" +echo extensions.at:457 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} A_B.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:457: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:458: \${COMPILE} -o caller caller.cob" +echo extensions.at:458 >$at_check_line_file +( $at_traceon; ${COMPILE} -o caller caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:458: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + +$at_traceoff +echo "extensions.at:460: ./caller" +echo extensions.at:460 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "P1P2P3P4" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:460: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 100 ) # 100. extensions.at:464: Case independent PROGRAM-ID + at_setup_line='extensions.at:464' + at_desc='Case independent PROGRAM-ID' + $at_quiet $ECHO_N "100: Case independent PROGRAM-ID $ECHO_C" + at_xfail=no + ( + echo "100. extensions.at:464: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -9151,46 +10608,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:482: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:482" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:482" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:483: ./prog" -at_fn_check_prepare_trace "extensions.at:483" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:483" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_100 -#AT_START_101 -at_fn_group_banner 101 'extensions.at:487' \ - "PROGRAM-ID AS clause" " " -at_xfail=no -( - $as_echo "101. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:482: \${COMPILE} -o prog prog.cob" +echo extensions.at:482 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:482: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:483: ./prog" +echo extensions.at:483 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:483: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 101 ) # 101. extensions.at:487: PROGRAM-ID AS clause + at_setup_line='extensions.at:487' + at_desc='PROGRAM-ID AS clause' + $at_quiet $ECHO_N "101: PROGRAM-ID AS clause $ECHO_C" + at_xfail=no + ( + echo "101. extensions.at:487: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -9211,46 +10693,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:505: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:505" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:505" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:506: ./prog" -at_fn_check_prepare_trace "extensions.at:506" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:506" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_101 -#AT_START_102 -at_fn_group_banner 102 'extensions.at:510' \ - "Quoted PROGRAM-ID" " " -at_xfail=no -( - $as_echo "102. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:505: \${COMPILE} -o prog prog.cob" +echo extensions.at:505 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:505: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:506: ./prog" +echo extensions.at:506 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:506: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 102 ) # 102. extensions.at:510: Quoted PROGRAM-ID + at_setup_line='extensions.at:510' + at_desc='Quoted PROGRAM-ID' + $at_quiet $ECHO_N "102: Quoted PROGRAM-ID $ECHO_C" + at_xfail=no + ( + echo "102. extensions.at:510: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -9271,46 +10778,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:528: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:528" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:528" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:529: ./prog" -at_fn_check_prepare_trace "extensions.at:529" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:529" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_102 -#AT_START_103 -at_fn_group_banner 103 'extensions.at:535' \ - "ASSIGN MF" " " -at_xfail=no -( - $as_echo "103. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:528: \${COMPILE} -o prog prog.cob" +echo extensions.at:528 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:528: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:529: ./prog" +echo extensions.at:529 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:529: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 103 ) # 103. extensions.at:535: ASSIGN MF + at_setup_line='extensions.at:535' + at_desc='ASSIGN MF' + $at_quiet $ECHO_N "103: ASSIGN MF $ECHO_C" + at_xfail=no + ( + echo "103. extensions.at:535: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -9340,47 +10872,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:560: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:560" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:12: Warning: 'FILENAME' will be implicitly defined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:560" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:563: ./prog" -at_fn_check_prepare_trace "extensions.at:563" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:563" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_103 -#AT_START_104 -at_fn_group_banner 104 'extensions.at:567' \ - "ASSIGN IBM" " " -at_xfail=no -( - $as_echo "104. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:560: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo extensions.at:560 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:12: Warning: 'FILENAME' will be implicitly defined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:560: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:563: ./prog" +echo extensions.at:563 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:563: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 104 ) # 104. extensions.at:567: ASSIGN IBM + at_setup_line='extensions.at:567' + at_desc='ASSIGN IBM' + $at_quiet $ECHO_N "104: ASSIGN IBM $ECHO_C" + at_xfail=no + ( + echo "104. extensions.at:567: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -9409,58 +10966,96 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:591: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:591" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:591" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:592: ./prog" -at_fn_check_prepare_trace "extensions.at:592" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:592" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:593: test -f FILENAME" -at_fn_check_prepare_trace "extensions.at:593" -( $at_check_trace; test -f FILENAME -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:593" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_104 -#AT_START_105 -at_fn_group_banner 105 'extensions.at:597' \ - "ASSIGN mapping" " " -at_xfail=no -( - $as_echo "105. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:591: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo extensions.at:591 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:591: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:592: ./prog" +echo extensions.at:592 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:592: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:593: test -f FILENAME" +echo extensions.at:593 >$at_check_line_file +( $at_traceon; test -f FILENAME ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:593: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 105 ) # 105. extensions.at:597: ASSIGN mapping + at_setup_line='extensions.at:597' + at_desc='ASSIGN mapping' + $at_quiet $ECHO_N "105: ASSIGN mapping $ECHO_C" + at_xfail=no + ( + echo "105. extensions.at:597: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -9489,136 +11084,246 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:621: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:621" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:621" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:622: DD_FILENAME=\"x\" ./prog" -at_fn_check_prepare_trace "extensions.at:622" -( $at_check_trace; DD_FILENAME="x" ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:622" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:623: test -f \"x\"" -at_fn_check_prepare_trace "extensions.at:623" -( $at_check_trace; test -f "x" -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:623" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:624: dd_FILENAME=\"y\" ./prog" -at_fn_check_prepare_trace "extensions.at:624" -( $at_check_trace; dd_FILENAME="y" ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:624" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:625: test -f \"y\"" -at_fn_check_prepare_trace "extensions.at:625" -( $at_check_trace; test -f "y" -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:625" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:626: FILENAME=\"z\" ./prog" -at_fn_check_prepare_trace "extensions.at:626" -( $at_check_trace; FILENAME="z" ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:626" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:627: test -f \"z\"" -at_fn_check_prepare_trace "extensions.at:627" -( $at_check_trace; test -f "z" -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:627" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:628: ./prog" -at_fn_check_prepare_trace "extensions.at:628" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:628" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:629: test -f \"FILENAME\"" -at_fn_check_prepare_trace "extensions.at:629" -( $at_check_trace; test -f "FILENAME" -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:629" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_105 -#AT_START_106 -at_fn_group_banner 106 'extensions.at:633' \ - "ASSIGN expansion" " " -at_xfail=no -( - $as_echo "106. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:621: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo extensions.at:621 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:621: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:622: DD_FILENAME=\"x\" ./prog" +echo extensions.at:622 >$at_check_line_file +( $at_traceon; DD_FILENAME="x" ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:622: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:623: test -f \"x\"" +echo extensions.at:623 >$at_check_line_file +( $at_traceon; test -f "x" ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:623: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:624: dd_FILENAME=\"y\" ./prog" +echo extensions.at:624 >$at_check_line_file +( $at_traceon; dd_FILENAME="y" ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:624: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:625: test -f \"y\"" +echo extensions.at:625 >$at_check_line_file +( $at_traceon; test -f "y" ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:625: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:626: FILENAME=\"z\" ./prog" +echo extensions.at:626 >$at_check_line_file +( $at_traceon; FILENAME="z" ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:626: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:627: test -f \"z\"" +echo extensions.at:627 >$at_check_line_file +( $at_traceon; test -f "z" ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:627: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:628: ./prog" +echo extensions.at:628 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:628: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:629: test -f \"FILENAME\"" +echo extensions.at:629 >$at_check_line_file +( $at_traceon; test -f "FILENAME" ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:629: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 106 ) # 106. extensions.at:633: ASSIGN expansion + at_setup_line='extensions.at:633' + at_desc='ASSIGN expansion' + $at_quiet $ECHO_N "106: ASSIGN expansion $ECHO_C" + at_xfail=no + ( + echo "106. extensions.at:633: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -9647,58 +11352,96 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:657: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:657" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:657" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:658: DIR=\".\" ./prog" -at_fn_check_prepare_trace "extensions.at:658" -( $at_check_trace; DIR="." ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:658" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:659: test -f \"./FILENAME\" && rm -f \"./FILENAME\"" -at_fn_check_prepare_trace "extensions.at:659" -( $at_check_trace; test -f "./FILENAME" && rm -f "./FILENAME" -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:659" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_106 -#AT_START_107 -at_fn_group_banner 107 'extensions.at:663' \ - "ASSIGN with COB_FILE_PATH" " " -at_xfail=no -( - $as_echo "107. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:657: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo extensions.at:657 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:657: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:658: DIR=\".\" ./prog" +echo extensions.at:658 >$at_check_line_file +( $at_traceon; DIR="." ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:658: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:659: test -f \"./FILENAME\" && rm -f \"./FILENAME\"" +echo extensions.at:659 >$at_check_line_file +( $at_traceon; test -f "./FILENAME" && rm -f "./FILENAME" ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:659: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 107 ) # 107. extensions.at:663: ASSIGN with COB_FILE_PATH + at_setup_line='extensions.at:663' + at_desc='ASSIGN with COB_FILE_PATH' + $at_quiet $ECHO_N "107: ASSIGN with COB_FILE_PATH $ECHO_C" + at_xfail=no + ( + echo "107. extensions.at:663: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -9727,58 +11470,96 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:687: \${COMPILE} -conf=test.conf -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:687" -( $at_check_trace; ${COMPILE} -conf=test.conf -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:687" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:688: COB_FILE_PATH=\"..\" ./prog" -at_fn_check_prepare_trace "extensions.at:688" -( $at_check_trace; COB_FILE_PATH=".." ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:688" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:689: test -f \"../FILENAMEX\" && rm -f \"../FILENAMEX\"" -at_fn_check_prepare_trace "extensions.at:689" -( $at_check_trace; test -f "../FILENAMEX" && rm -f "../FILENAMEX" -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:689" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_107 -#AT_START_108 -at_fn_group_banner 108 'extensions.at:696' \ - "NUMBER-OF-CALL-PARAMETERS" " " -at_xfail=no -( - $as_echo "108. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:687: \${COMPILE} -conf=test.conf -o prog prog.cob" +echo extensions.at:687 >$at_check_line_file +( $at_traceon; ${COMPILE} -conf=test.conf -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:687: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:688: COB_FILE_PATH=\"..\" ./prog" +echo extensions.at:688 >$at_check_line_file +( $at_traceon; COB_FILE_PATH=".." ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:688: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:689: test -f \"../FILENAMEX\" && rm -f \"../FILENAMEX\"" +echo extensions.at:689 >$at_check_line_file +( $at_traceon; test -f "../FILENAMEX" && rm -f "../FILENAMEX" ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:689: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 108 ) # 108. extensions.at:696: NUMBER-OF-CALL-PARAMETERS + at_setup_line='extensions.at:696' + at_desc='NUMBER-OF-CALL-PARAMETERS' + $at_quiet $ECHO_N "108: NUMBER-OF-CALL-PARAMETERS $ECHO_C" + at_xfail=no + ( + echo "108. extensions.at:696: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -9824,64 +11605,101 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:737: \${COMPILE} caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:737" -( $at_check_trace; ${COMPILE} caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:737" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:738: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:738" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:738" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:739: ./caller" -at_fn_check_prepare_trace "extensions.at:739" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+000000000 +$at_traceoff +echo "extensions.at:737: \${COMPILE} caller.cob" +echo extensions.at:737 >$at_check_line_file +( $at_traceon; ${COMPILE} caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:737: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:738: \${COMPILE_MODULE} callee.cob" +echo extensions.at:738 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:738: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:739: ./caller" +echo extensions.at:739 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+000000000 +000000001 +000000002 +000000003 +000000004 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:739" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_108 -#AT_START_109 -at_fn_group_banner 109 'extensions.at:752' \ - "PROCEDURE DIVISION USING BY ..." " " -at_xfail=no -( - $as_echo "109. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:739: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 109 ) # 109. extensions.at:752: PROCEDURE DIVISION USING BY ... + at_setup_line='extensions.at:752' + at_desc='PROCEDURE DIVISION USING BY ...' + $at_quiet $ECHO_N "109: PROCEDURE DIVISION USING BY ... $ECHO_C" + at_xfail=no + ( + echo "109. extensions.at:752: testing ..." + $at_traceon cat >callee.cob <<'_ATEOF' @@ -9926,61 +11744,98 @@ cat >caller.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:792: \${COMPILE} caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:792" -( $at_check_trace; ${COMPILE} caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:792" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:793: \${COMPILE_MODULE} callee.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:793" -( $at_check_trace; ${COMPILE_MODULE} callee.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:793" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:794: ./caller" -at_fn_check_prepare_trace "extensions.at:794" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "X = X Y = 12 Z = 34 +$at_traceoff +echo "extensions.at:792: \${COMPILE} caller.cob" +echo extensions.at:792 >$at_check_line_file +( $at_traceon; ${COMPILE} caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:792: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:793: \${COMPILE_MODULE} callee.cob" +echo extensions.at:793 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} callee.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:793: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:794: ./caller" +echo extensions.at:794 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "X = X Y = 12 Z = 34 X = X Y = 56 Z = 34 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:794" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:794: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_109 -#AT_START_110 -at_fn_group_banner 110 'extensions.at:801' \ - "PROCEDURE DIVISION CHAINING ..." " " -at_xfail=no -( - $as_echo "110. $at_setup_line: testing $at_desc ..." - $at_traceon + 110 ) # 110. extensions.at:801: PROCEDURE DIVISION CHAINING ... + at_setup_line='extensions.at:801' + at_desc='PROCEDURE DIVISION CHAINING ...' + $at_quiet $ECHO_N "110: PROCEDURE DIVISION CHAINING ... $ECHO_C" + at_xfail=no + ( + echo "110. extensions.at:801: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10001,49 +11856,74 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:819: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:819" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:819" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:819: \${COMPILE} prog.cob" +echo extensions.at:819 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:819: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:821: ./prog X ABCD" -at_fn_check_prepare_trace "extensions.at:821" -( $at_check_trace; ./prog X ABCD -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "X +$at_traceoff +echo "extensions.at:821: ./prog X ABCD" +echo extensions.at:821 >$at_check_line_file +( $at_traceon; ./prog X ABCD ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "X ABCD -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:821" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:821: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_110 -#AT_START_111 -at_fn_group_banner 111 'extensions.at:829' \ - "STOP RUN RETURNING" " " -at_xfail=no -( - $as_echo "111. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 111 ) # 111. extensions.at:829: STOP RUN RETURNING + at_setup_line='extensions.at:829' + at_desc='STOP RUN RETURNING' + $at_quiet $ECHO_N "111: STOP RUN RETURNING $ECHO_C" + at_xfail=no + ( + echo "111. extensions.at:829: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10055,45 +11935,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:838: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:838" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:838" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:839: ./prog" -at_fn_check_prepare_trace "extensions.at:839" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/extensions.at:839" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_111 -#AT_START_112 -at_fn_group_banner 112 'extensions.at:846' \ - "ENTRY" " " -at_xfail=no -( - $as_echo "112. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "extensions.at:838: \${COMPILE} -o prog prog.cob" +echo extensions.at:838 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:838: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:839: ./prog" +echo extensions.at:839 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "extensions.at:839: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 112 ) # 112. extensions.at:846: ENTRY + at_setup_line='extensions.at:846' + at_desc='ENTRY' + $at_quiet $ECHO_N "112: ENTRY $ECHO_C" + at_xfail=no + ( + echo "112. extensions.at:846: testing ..." + $at_traceon cat >caller.cob <<'_ATEOF' @@ -10132,61 +12038,98 @@ cat >hello.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:880: \${COMPILE} -std=mvs caller.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:880" -( $at_check_trace; ${COMPILE} -std=mvs caller.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:880" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:881: \${COMPILE_MODULE} -std=mvs hello.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:881" -( $at_check_trace; ${COMPILE_MODULE} -std=mvs hello.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:881" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:882: ./caller" -at_fn_check_prepare_trace "extensions.at:882" -( $at_check_trace; ./caller -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "Hello, COBOL! +$at_traceoff +echo "extensions.at:880: \${COMPILE} -std=mvs caller.cob" +echo extensions.at:880 >$at_check_line_file +( $at_traceon; ${COMPILE} -std=mvs caller.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:880: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:881: \${COMPILE_MODULE} -std=mvs hello.cob" +echo extensions.at:881 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} -std=mvs hello.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:881: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:882: ./caller" +echo extensions.at:882 >$at_check_line_file +( $at_traceon; ./caller ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "Hello, COBOL! Bye, COBOL! -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:882" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:882: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_112 -#AT_START_113 -at_fn_group_banner 113 'extensions.at:892' \ - "LINE SEQUENTIAL write" " " -at_xfail=no -( - $as_echo "113. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 113 ) # 113. extensions.at:892: LINE SEQUENTIAL write + at_setup_line='extensions.at:892' + at_desc='LINE SEQUENTIAL write' + $at_quiet $ECHO_N "113: LINE SEQUENTIAL write $ECHO_C" + at_xfail=no + ( + echo "113. extensions.at:892: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10217,64 +12160,101 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:920: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:920" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:920" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:921: ./prog" -at_fn_check_prepare_trace "extensions.at:921" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:921" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:922: cat TEST-FILE" -at_fn_check_prepare_trace "extensions.at:922" -( $at_check_trace; cat TEST-FILE -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a +$at_traceoff +echo "extensions.at:920: \${COMPILE} -o prog prog.cob" +echo extensions.at:920 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:920: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:921: ./prog" +echo extensions.at:921 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:921: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:922: cat TEST-FILE" +echo extensions.at:922 >$at_check_line_file +( $at_traceon; cat TEST-FILE ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a ababc abcd -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:922" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_113 -#AT_START_114 -at_fn_group_banner 114 'extensions.at:932' \ - "LINE SEQUENTIAL read" " " -at_xfail=no -( - $as_echo "114. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:922: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 114 ) # 114. extensions.at:932: LINE SEQUENTIAL read + at_setup_line='extensions.at:932' + at_desc='LINE SEQUENTIAL read' + $at_quiet $ECHO_N "114: LINE SEQUENTIAL read $ECHO_C" + at_xfail=no + ( + echo "114. extensions.at:932: testing ..." + $at_traceon cat >TEST-FILE <<'_ATEOF' @@ -10325,52 +12305,77 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:979: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:979" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:979" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:980: ./prog" -at_fn_check_prepare_trace "extensions.at:980" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "(a ) +$at_traceoff +echo "extensions.at:979: \${COMPILE} -o prog prog.cob" +echo extensions.at:979 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:979: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:980: ./prog" +echo extensions.at:980 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "(a ) (ab ) (abc ) (abcd) (abcd) (abcd) -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:980" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_114 -#AT_START_115 -at_fn_group_banner 115 'extensions.at:992' \ - "ASSIGN to KEYBOARD/DISPLAY" " " -at_xfail=no -( - $as_echo "115. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:980: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 115 ) # 115. extensions.at:992: ASSIGN to KEYBOARD/DISPLAY + at_setup_line='extensions.at:992' + at_desc='ASSIGN to KEYBOARD/DISPLAY' + $at_quiet $ECHO_N "115: ASSIGN to KEYBOARD/DISPLAY $ECHO_C" + at_xfail=no + ( + echo "115. extensions.at:992: testing ..." + $at_traceon cat >TEST-FILE <<'_ATEOF' @@ -10418,52 +12423,77 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1036: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1036" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1036" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:1037: cat TEST-FILE | ./prog" -at_fn_check_prepare_notrace 'a shell pipeline' "extensions.at:1037" -( $at_check_trace; cat TEST-FILE | ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a +$at_traceoff +echo "extensions.at:1036: \${COMPILE} -o prog prog.cob" +echo extensions.at:1036 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1036: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1037: cat TEST-FILE | ./prog" +echo extensions.at:1037 >$at_check_line_file +( $at_traceon; cat TEST-FILE | ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a ab abc abcd abcde abcdef -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1037" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1037: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_115 -#AT_START_116 -at_fn_group_banner 116 'extensions.at:1048' \ - "Environment/Argument variable" " " -at_xfail=no -( - $as_echo "116. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 116 ) # 116. extensions.at:1048: Environment/Argument variable + at_setup_line='extensions.at:1048' + at_desc='Environment/Argument variable' + $at_quiet $ECHO_N "116: Environment/Argument variable $ECHO_C" + at_xfail=no + ( + echo "116. extensions.at:1048: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10501,50 +12531,75 @@ _ATEOF export TEST_ENV=OK -{ set +x -$as_echo "$at_srcdir/extensions.at:1083: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1083" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1083" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/extensions.at:1084: ./prog CHECKPAR" -at_fn_check_prepare_trace "extensions.at:1084" -( $at_check_trace; ./prog CHECKPAR -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "(OK ) +$at_traceoff +echo "extensions.at:1083: \${COMPILE} -o prog prog.cob" +echo extensions.at:1083 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1083: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1084: ./prog CHECKPAR" +echo extensions.at:1084 >$at_check_line_file +( $at_traceon; ./prog CHECKPAR ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "(OK ) (RXW ) (CHECKPAR) (0001) -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1084" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1084: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_116 -#AT_START_117 -at_fn_group_banner 117 'extensions.at:1093' \ - "DECIMAL-POINT is COMMA (1)" " " -at_xfail=no -( - $as_echo "117. $at_setup_line: testing $at_desc ..." - $at_traceon + 117 ) # 117. extensions.at:1093: DECIMAL-POINT is COMMA (1) + at_setup_line='extensions.at:1093' + at_desc='DECIMAL-POINT is COMMA (1)' + $at_quiet $ECHO_N "117: DECIMAL-POINT is COMMA (1) $ECHO_C" + at_xfail=no + ( + echo "117. extensions.at:1093: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10566,47 +12621,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1112: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1112" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1112" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1112: \${COMPILE} prog.cob" +echo extensions.at:1112 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1112: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1113: ./prog" +echo extensions.at:1113 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00,50 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1113: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1113: ./prog" -at_fn_check_prepare_trace "extensions.at:1113" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00,50 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1113" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_117 -#AT_START_118 -at_fn_group_banner 118 'extensions.at:1119' \ - "DECIMAL-POINT is COMMA (2)" " " -at_xfail=no -( - $as_echo "118. $at_setup_line: testing $at_desc ..." - $at_traceon + 118 ) # 118. extensions.at:1119: DECIMAL-POINT is COMMA (2) + at_setup_line='extensions.at:1119' + at_desc='DECIMAL-POINT is COMMA (2)' + $at_quiet $ECHO_N "118: DECIMAL-POINT is COMMA (2) $ECHO_C" + at_xfail=no + ( + echo "118. extensions.at:1119: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10628,47 +12708,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1138: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1138" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1138" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1138: \${COMPILE} prog.cob" +echo extensions.at:1138 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1138: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1139: ./prog" +echo extensions.at:1139 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "03,00 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1139: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1139: ./prog" -at_fn_check_prepare_trace "extensions.at:1139" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "03,00 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1139" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_118 -#AT_START_119 -at_fn_group_banner 119 'extensions.at:1145' \ - "DECIMAL-POINT is COMMA (3)" " " -at_xfail=no -( - $as_echo "119. $at_setup_line: testing $at_desc ..." - $at_traceon + 119 ) # 119. extensions.at:1145: DECIMAL-POINT is COMMA (3) + at_setup_line='extensions.at:1145' + at_desc='DECIMAL-POINT is COMMA (3)' + $at_quiet $ECHO_N "119: DECIMAL-POINT is COMMA (3) $ECHO_C" + at_xfail=no + ( + echo "119. extensions.at:1145: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10690,47 +12795,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1164: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1164" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1164" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1164: \${COMPILE} prog.cob" +echo extensions.at:1164 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1164: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1165: ./prog" +echo extensions.at:1165 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "01,50 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1165: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1165: ./prog" -at_fn_check_prepare_trace "extensions.at:1165" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "01,50 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1165" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_119 -#AT_START_120 -at_fn_group_banner 120 'extensions.at:1171' \ - "DECIMAL-POINT is COMMA (4)" " " -at_xfail=no -( - $as_echo "120. $at_setup_line: testing $at_desc ..." - $at_traceon + 120 ) # 120. extensions.at:1171: DECIMAL-POINT is COMMA (4) + at_setup_line='extensions.at:1171' + at_desc='DECIMAL-POINT is COMMA (4)' + $at_quiet $ECHO_N "120: DECIMAL-POINT is COMMA (4) $ECHO_C" + at_xfail=no + ( + echo "120. extensions.at:1171: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10752,47 +12882,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1190: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1190" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1190" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1190: \${COMPILE} prog.cob" +echo extensions.at:1190 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1190: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1191: ./prog" +echo extensions.at:1191 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00,10 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1191: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1191: ./prog" -at_fn_check_prepare_trace "extensions.at:1191" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00,10 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1191" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_120 -#AT_START_121 -at_fn_group_banner 121 'extensions.at:1197' \ - "DECIMAL-POINT is COMMA (5)" " " -at_xfail=no -( - $as_echo "121. $at_setup_line: testing $at_desc ..." - $at_traceon + 121 ) # 121. extensions.at:1197: DECIMAL-POINT is COMMA (5) + at_setup_line='extensions.at:1197' + at_desc='DECIMAL-POINT is COMMA (5)' + $at_quiet $ECHO_N "121: DECIMAL-POINT is COMMA (5) $ECHO_C" + at_xfail=no + ( + echo "121. extensions.at:1197: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10819,48 +12974,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1221: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1221" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1221" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1221: \${COMPILE} prog.cob" +echo extensions.at:1221 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1221: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/extensions.at:1222: ./prog" -at_fn_check_prepare_trace "extensions.at:1222" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "01,10 +$at_traceon + +$at_traceoff +echo "extensions.at:1222: ./prog" +echo extensions.at:1222 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "01,10 00,10 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1222" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1222: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_121 -#AT_START_122 -at_fn_group_banner 122 'extensions.at:1229' \ - "78 Level (1)" " " -at_xfail=no -( - $as_echo "122. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 122 ) # 122. extensions.at:1229: 78 Level (1) + at_setup_line='extensions.at:1229' + at_desc='78 Level (1)' + $at_quiet $ECHO_N "122: 78 Level (1) $ECHO_C" + at_xfail=no + ( + echo "122. extensions.at:1229: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10877,47 +13057,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1243: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1243" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1243" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1243: \${COMPILE} prog.cob" +echo extensions.at:1243 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1243: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1244: ./prog" +echo extensions.at:1244 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1244: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1244: ./prog" -at_fn_check_prepare_trace "extensions.at:1244" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1244" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_122 -#AT_START_123 -at_fn_group_banner 123 'extensions.at:1250' \ - "78 Level (2)" " " -at_xfail=no -( - $as_echo "123. $at_setup_line: testing $at_desc ..." - $at_traceon + 123 ) # 123. extensions.at:1250: 78 Level (2) + at_setup_line='extensions.at:1250' + at_desc='78 Level (2)' + $at_quiet $ECHO_N "123: 78 Level (2) $ECHO_C" + at_xfail=no + ( + echo "123. extensions.at:1250: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10937,47 +13142,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1267: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1267" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1267" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1267: \${COMPILE} prog.cob" +echo extensions.at:1267 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1267: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1268: ./prog" +echo extensions.at:1268 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOKOK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1268: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1268: ./prog" -at_fn_check_prepare_trace "extensions.at:1268" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOKOK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1268" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_123 -#AT_START_124 -at_fn_group_banner 124 'extensions.at:1274' \ - "78 Level (3)" " " -at_xfail=no -( - $as_echo "124. $at_setup_line: testing $at_desc ..." - $at_traceon + 124 ) # 124. extensions.at:1274: 78 Level (3) + at_setup_line='extensions.at:1274' + at_desc='78 Level (3)' + $at_quiet $ECHO_N "124: 78 Level (3) $ECHO_C" + at_xfail=no + ( + echo "124. extensions.at:1274: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -10995,47 +13225,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1289: \${COMPILE} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1289" -( $at_check_trace; ${COMPILE} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1289" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "extensions.at:1289: \${COMPILE} prog.cob" +echo extensions.at:1289 >$at_check_line_file +( $at_traceon; ${COMPILE} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1289: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "extensions.at:1290: ./prog" +echo extensions.at:1290 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1290: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/extensions.at:1290: ./prog" -at_fn_check_prepare_trace "extensions.at:1290" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1290" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_124 -#AT_START_125 -at_fn_group_banner 125 'extensions.at:1296' \ - "Unreachable statement" " " -at_xfail=no -( - $as_echo "125. $at_setup_line: testing $at_desc ..." - $at_traceon + 125 ) # 125. extensions.at:1296: Unreachable statement + at_setup_line='extensions.at:1296' + at_desc='Unreachable statement' + $at_quiet $ECHO_N "125: Unreachable statement $ECHO_C" + at_xfail=no + ( + echo "125. extensions.at:1296: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11054,35 +13309,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/extensions.at:1312: \${COMPILE} -Wunreachable prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "extensions.at:1312" -( $at_check_trace; ${COMPILE} -Wunreachable prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob: In paragraph 'P01': +$at_traceoff +echo "extensions.at:1312: \${COMPILE} -Wunreachable prog.cob" +echo extensions.at:1312 >$at_check_line_file +( $at_traceon; ${COMPILE} -Wunreachable prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob: In paragraph 'P01': prog.cob:9: Warning: Unreachable statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/extensions.at:1312" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "extensions.at:1312: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_125 -#AT_START_126 -at_fn_group_banner 126 'return-code.at:23' \ - "RETURN-CODE moving" " " -at_xfail=no -( - $as_echo "126. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 126 ) # 126. return-code.at:23: RETURN-CODE moving + at_setup_line='return-code.at:23' + at_desc='RETURN-CODE moving' + $at_quiet $ECHO_N "126: RETURN-CODE moving $ECHO_C" + at_xfail=no + ( + echo "126. return-code.at:23: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11103,46 +13371,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/return-code.at:41: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "return-code.at:41" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:41" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/return-code.at:42: ./prog" -at_fn_check_prepare_trace "return-code.at:42" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "01" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/return-code.at:42" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_126 -#AT_START_127 -at_fn_group_banner 127 'return-code.at:46' \ - "RETURN-CODE passing" " " -at_xfail=no -( - $as_echo "127. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "return-code.at:41: \${COMPILE} -o prog prog.cob" +echo return-code.at:41 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:41: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "return-code.at:42: ./prog" +echo return-code.at:42 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "01" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "return-code.at:42: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 127 ) # 127. return-code.at:46: RETURN-CODE passing + at_setup_line='return-code.at:46' + at_desc='RETURN-CODE passing' + $at_quiet $ECHO_N "127: RETURN-CODE passing $ECHO_C" + at_xfail=no + ( + echo "127. return-code.at:46: testing ..." + $at_traceon cat >mod1.cob <<'_ATEOF' @@ -11185,72 +13478,121 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/return-code.at:82: \${COMPILE_MODULE} mod1.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "return-code.at:82" -( $at_check_trace; ${COMPILE_MODULE} mod1.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:82" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/return-code.at:83: \${COMPILE_MODULE} mod2.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "return-code.at:83" -( $at_check_trace; ${COMPILE_MODULE} mod2.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:83" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/return-code.at:84: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "return-code.at:84" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:84" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/return-code.at:85: ./prog" -at_fn_check_prepare_trace "return-code.at:85" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+000000000+000000001+000000001+000000000" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:85" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_127 -#AT_START_128 -at_fn_group_banner 128 'return-code.at:89' \ - "RETURN-CODE nested" " " -at_xfail=no -( - $as_echo "128. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "return-code.at:82: \${COMPILE_MODULE} mod1.cob" +echo return-code.at:82 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} mod1.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:82: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "return-code.at:83: \${COMPILE_MODULE} mod2.cob" +echo return-code.at:83 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} mod2.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:83: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "return-code.at:84: \${COMPILE} -o prog prog.cob" +echo return-code.at:84 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:84: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "return-code.at:85: ./prog" +echo return-code.at:85 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+000000000+000000001+000000001+000000000" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:85: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 128 ) # 128. return-code.at:89: RETURN-CODE nested + at_setup_line='return-code.at:89' + at_desc='RETURN-CODE nested' + $at_quiet $ECHO_N "128: RETURN-CODE nested $ECHO_C" + at_xfail=no + ( + echo "128. return-code.at:89: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11278,46 +13620,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/return-code.at:114: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "return-code.at:114" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:114" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "return-code.at:114: \${COMPILE} -o prog prog.cob" +echo return-code.at:114 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:114: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "return-code.at:115: ./prog" +echo return-code.at:115 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+000000001+000000001+000000002" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "return-code.at:115: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/return-code.at:115: ./prog" -at_fn_check_prepare_trace "return-code.at:115" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+000000001+000000001+000000002" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/return-code.at:115" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_128 -#AT_START_129 -at_fn_group_banner 129 'functions.at:22' \ - "FUNCTION ABS" " " -at_xfail=no -( - $as_echo "129. $at_setup_line: testing $at_desc ..." - $at_traceon + 129 ) # 129. functions.at:22: FUNCTION ABS + at_setup_line='functions.at:22' + at_desc='FUNCTION ABS' + $at_quiet $ECHO_N "129: FUNCTION ABS $ECHO_C" + at_xfail=no + ( + echo "129. functions.at:22: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11334,47 +13701,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:36: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:36" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:36" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:36: \${COMPILE} -o prog prog.cob" +echo functions.at:36 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:36: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:37: ./prog" +echo functions.at:37 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+0001.2345 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:37: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:37: ./prog" -at_fn_check_prepare_trace "functions.at:37" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+0001.2345 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:37" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_129 -#AT_START_130 -at_fn_group_banner 130 'functions.at:43' \ - "FUNCTION ACOS" " " -at_xfail=no -( - $as_echo "130. $at_setup_line: testing $at_desc ..." - $at_traceon + 130 ) # 130. functions.at:43: FUNCTION ACOS + at_setup_line='functions.at:43' + at_desc='FUNCTION ACOS' + $at_quiet $ECHO_N "130: FUNCTION ACOS $ECHO_C" + at_xfail=no + ( + echo "130. functions.at:43: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11399,47 +13791,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:65: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:65" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:65" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:65: \${COMPILE} -o prog prog.cob" +echo functions.at:65 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:65: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:66: ./prog" +echo functions.at:66 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:66: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:66: ./prog" -at_fn_check_prepare_trace "functions.at:66" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:66" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_130 -#AT_START_131 -at_fn_group_banner 131 'functions.at:72' \ - "FUNCTION ANNUITY" " " -at_xfail=no -( - $as_echo "131. $at_setup_line: testing $at_desc ..." - $at_traceon + 131 ) # 131. functions.at:72: FUNCTION ANNUITY + at_setup_line='functions.at:72' + at_desc='FUNCTION ANNUITY' + $at_quiet $ECHO_N "131: FUNCTION ANNUITY $ECHO_C" + at_xfail=no + ( + echo "131. functions.at:72: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11465,47 +13882,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:95: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:95" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:95" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:95: \${COMPILE} -o prog prog.cob" +echo functions.at:95 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:95: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:96: ./prog" +echo functions.at:96 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:96: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:96: ./prog" -at_fn_check_prepare_trace "functions.at:96" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:96" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_131 -#AT_START_132 -at_fn_group_banner 132 'functions.at:102' \ - "FUNCTION ASIN" " " -at_xfail=no -( - $as_echo "132. $at_setup_line: testing $at_desc ..." - $at_traceon + 132 ) # 132. functions.at:102: FUNCTION ASIN + at_setup_line='functions.at:102' + at_desc='FUNCTION ASIN' + $at_quiet $ECHO_N "132: FUNCTION ASIN $ECHO_C" + at_xfail=no + ( + echo "132. functions.at:102: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11530,47 +13972,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:124: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:124" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:124" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:124: \${COMPILE} -o prog prog.cob" +echo functions.at:124 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:124: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:125: ./prog" +echo functions.at:125 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:125: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:125: ./prog" -at_fn_check_prepare_trace "functions.at:125" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:125" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_132 -#AT_START_133 -at_fn_group_banner 133 'functions.at:131' \ - "FUNCTION ATAN" " " -at_xfail=no -( - $as_echo "133. $at_setup_line: testing $at_desc ..." - $at_traceon + 133 ) # 133. functions.at:131: FUNCTION ATAN + at_setup_line='functions.at:131' + at_desc='FUNCTION ATAN' + $at_quiet $ECHO_N "133: FUNCTION ATAN $ECHO_C" + at_xfail=no + ( + echo "133. functions.at:131: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11595,47 +14062,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:153: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:153" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:153" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:153: \${COMPILE} -o prog prog.cob" +echo functions.at:153 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:153: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:154: ./prog" +echo functions.at:154 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:154: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:154: ./prog" -at_fn_check_prepare_trace "functions.at:154" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:154" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_133 -#AT_START_134 -at_fn_group_banner 134 'functions.at:160' \ - "FUNCTION CHAR" " " -at_xfail=no -( - $as_echo "134. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 134 ) # 134. functions.at:160: FUNCTION CHAR + at_setup_line='functions.at:160' + at_desc='FUNCTION CHAR' + $at_quiet $ECHO_N "134: FUNCTION CHAR $ECHO_C" + at_xfail=no + ( + echo "134. functions.at:160: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11652,47 +14144,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:174: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:174" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:174" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:174: \${COMPILE} -o prog prog.cob" +echo functions.at:174 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:174: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:175: ./prog" +echo functions.at:175 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "k +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:175: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:175: ./prog" -at_fn_check_prepare_trace "functions.at:175" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "k -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:175" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_134 -#AT_START_135 -at_fn_group_banner 135 'functions.at:181' \ - "FUNCTION COMBINED-DATETIME" " " -at_xfail=no -( - $as_echo "135. $at_setup_line: testing $at_desc ..." - $at_traceon + 135 ) # 135. functions.at:181: FUNCTION COMBINED-DATETIME + at_setup_line='functions.at:181' + at_desc='FUNCTION COMBINED-DATETIME' + $at_quiet $ECHO_N "135: FUNCTION COMBINED-DATETIME $ECHO_C" + at_xfail=no + ( + echo "135. functions.at:181: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11708,47 +14225,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:194: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:194" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:194" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:194: \${COMPILE} -o prog prog.cob" +echo functions.at:194 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:194: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:195: ./prog" +echo functions.at:195 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0000987.00345 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:195: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:195: ./prog" -at_fn_check_prepare_trace "functions.at:195" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0000987.00345 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:195" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_135 -#AT_START_136 -at_fn_group_banner 136 'functions.at:201' \ - "FUNCTION CONCATENATE" " " -at_xfail=no -( - $as_echo "136. $at_setup_line: testing $at_desc ..." - $at_traceon + 136 ) # 136. functions.at:201: FUNCTION CONCATENATE + at_setup_line='functions.at:201' + at_desc='FUNCTION CONCATENATE' + $at_quiet $ECHO_N "136: FUNCTION CONCATENATE $ECHO_C" + at_xfail=no + ( + echo "136. functions.at:201: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11766,47 +14308,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:216: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:216" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:216" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:216: \${COMPILE} -o prog prog.cob" +echo functions.at:216 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:216: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:217: ./prog" +echo functions.at:217 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "defxabczz55666 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:217: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:217: ./prog" -at_fn_check_prepare_trace "functions.at:217" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "defxabczz55666 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:217" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_136 -#AT_START_137 -at_fn_group_banner 137 'functions.at:223' \ - "FUNCTION CONCATENATE with reference modding" " " -at_xfail=no -( - $as_echo "137. $at_setup_line: testing $at_desc ..." - $at_traceon + 137 ) # 137. functions.at:223: FUNCTION CONCATENATE with reference modding + at_setup_line='functions.at:223' + at_desc='FUNCTION CONCATENATE with reference modding' + $at_quiet $ECHO_N "137: FUNCTION CONCATENATE with reference modding $ECHO_C" + at_xfail=no + ( + echo "137. functions.at:223: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11825,47 +14392,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:239: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:239" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:239" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:239: \${COMPILE} -o prog prog.cob" +echo functions.at:239 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:239: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:240: ./prog" +echo functions.at:240 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "efxabczz5 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:240: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:240: ./prog" -at_fn_check_prepare_trace "functions.at:240" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "efxabczz5 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:240" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_137 -#AT_START_138 -at_fn_group_banner 138 'functions.at:246' \ - "FUNCTION COS" " " -at_xfail=no -( - $as_echo "138. $at_setup_line: testing $at_desc ..." - $at_traceon + 138 ) # 138. functions.at:246: FUNCTION COS + at_setup_line='functions.at:246' + at_desc='FUNCTION COS' + $at_quiet $ECHO_N "138: FUNCTION COS $ECHO_C" + at_xfail=no + ( + echo "138. functions.at:246: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11890,47 +14482,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:268: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:268" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:268" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:268: \${COMPILE} -o prog prog.cob" +echo functions.at:268 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:268: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:269: ./prog" +echo functions.at:269 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:269: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:269: ./prog" -at_fn_check_prepare_trace "functions.at:269" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:269" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_138 -#AT_START_139 -at_fn_group_banner 139 'functions.at:275' \ - "FUNCTION DATE-OF-INTEGER" " " -at_xfail=no -( - $as_echo "139. $at_setup_line: testing $at_desc ..." - $at_traceon + 139 ) # 139. functions.at:275: FUNCTION DATE-OF-INTEGER + at_setup_line='functions.at:275' + at_desc='FUNCTION DATE-OF-INTEGER' + $at_quiet $ECHO_N "139: FUNCTION DATE-OF-INTEGER $ECHO_C" + at_xfail=no + ( + echo "139. functions.at:275: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -11946,47 +14563,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:288: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:288" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:288" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:288: \${COMPILE} -o prog prog.cob" +echo functions.at:288 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:288: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:289: ./prog" +echo functions.at:289 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "20000925 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:289: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:289: ./prog" -at_fn_check_prepare_trace "functions.at:289" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "20000925 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:289" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_139 -#AT_START_140 -at_fn_group_banner 140 'functions.at:295' \ - "FUNCTION DATE-TO-YYYYMMDD" " " -at_xfail=no -( - $as_echo "140. $at_setup_line: testing $at_desc ..." - $at_traceon + 140 ) # 140. functions.at:295: FUNCTION DATE-TO-YYYYMMDD + at_setup_line='functions.at:295' + at_desc='FUNCTION DATE-TO-YYYYMMDD' + $at_quiet $ECHO_N "140: FUNCTION DATE-TO-YYYYMMDD $ECHO_C" + at_xfail=no + ( + echo "140. functions.at:295: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12002,47 +14644,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:308: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:308" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:308" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:308: \${COMPILE} -o prog prog.cob" +echo functions.at:308 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:308: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:309: ./prog" +echo functions.at:309 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "18981002 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:309: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:309: ./prog" -at_fn_check_prepare_trace "functions.at:309" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "18981002 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:309" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_140 -#AT_START_141 -at_fn_group_banner 141 'functions.at:315' \ - "FUNCTION DAY-OF-INTEGER" " " -at_xfail=no -( - $as_echo "141. $at_setup_line: testing $at_desc ..." - $at_traceon + 141 ) # 141. functions.at:315: FUNCTION DAY-OF-INTEGER + at_setup_line='functions.at:315' + at_desc='FUNCTION DAY-OF-INTEGER' + $at_quiet $ECHO_N "141: FUNCTION DAY-OF-INTEGER $ECHO_C" + at_xfail=no + ( + echo "141. functions.at:315: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12058,47 +14725,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:328: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:328" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:328" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:328: \${COMPILE} -o prog prog.cob" +echo functions.at:328 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:328: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:329: ./prog" +echo functions.at:329 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "2000269 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:329: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:329: ./prog" -at_fn_check_prepare_trace "functions.at:329" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "2000269 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:329" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_141 -#AT_START_142 -at_fn_group_banner 142 'functions.at:335' \ - "FUNCTION DAY-TO-YYYYDDD" " " -at_xfail=no -( - $as_echo "142. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 142 ) # 142. functions.at:335: FUNCTION DAY-TO-YYYYDDD + at_setup_line='functions.at:335' + at_desc='FUNCTION DAY-TO-YYYYDDD' + $at_quiet $ECHO_N "142: FUNCTION DAY-TO-YYYYDDD $ECHO_C" + at_xfail=no + ( + echo "142. functions.at:335: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12114,47 +14806,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:348: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:348" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:348" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:348: \${COMPILE} -o prog prog.cob" +echo functions.at:348 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:348: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:349: ./prog" +echo functions.at:349 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "01995005 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:349: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:349: ./prog" -at_fn_check_prepare_trace "functions.at:349" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "01995005 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:349" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_142 -#AT_START_143 -at_fn_group_banner 143 'functions.at:355' \ - "FUNCTION E" " " -at_xfail=no -( - $as_echo "143. $at_setup_line: testing $at_desc ..." - $at_traceon + 143 ) # 143. functions.at:355: FUNCTION E + at_setup_line='functions.at:355' + at_desc='FUNCTION E' + $at_quiet $ECHO_N "143: FUNCTION E $ECHO_C" + at_xfail=no + ( + echo "143. functions.at:355: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12170,47 +14887,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:368: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:368" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:368" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:368: \${COMPILE} -o prog prog.cob" +echo functions.at:368 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:368: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:369: ./prog" +echo functions.at:369 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "2.7182818284590452353602874713526625 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:369: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:369: ./prog" -at_fn_check_prepare_trace "functions.at:369" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "2.7182818284590452353602874713526625 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:369" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_143 -#AT_START_144 -at_fn_group_banner 144 'functions.at:375' \ - "FUNCTION EXCEPTION-FILE" " " -at_xfail=no -( - $as_echo "144. $at_setup_line: testing $at_desc ..." - $at_traceon + 144 ) # 144. functions.at:375: FUNCTION EXCEPTION-FILE + at_setup_line='functions.at:375' + at_desc='FUNCTION EXCEPTION-FILE' + $at_quiet $ECHO_N "144: FUNCTION EXCEPTION-FILE $ECHO_C" + at_xfail=no + ( + echo "144. functions.at:375: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12236,47 +14978,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:398: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:398" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:398" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:398: \${COMPILE} -o prog prog.cob" +echo functions.at:398 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:398: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:399: ./prog" +echo functions.at:399 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "35TEST-FILE +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:399: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:399: ./prog" -at_fn_check_prepare_trace "functions.at:399" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "35TEST-FILE -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:399" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_144 -#AT_START_145 -at_fn_group_banner 145 'functions.at:405' \ - "FUNCTION EXCEPTION-LOCATION" " " -at_xfail=no -( - $as_echo "145. $at_setup_line: testing $at_desc ..." - $at_traceon + 145 ) # 145. functions.at:405: FUNCTION EXCEPTION-LOCATION + at_setup_line='functions.at:405' + at_desc='FUNCTION EXCEPTION-LOCATION' + $at_quiet $ECHO_N "145: FUNCTION EXCEPTION-LOCATION $ECHO_C" + at_xfail=no + ( + echo "145. functions.at:405: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12307,46 +15074,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:433: \${COMPILE} -debug -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:433" -( $at_check_trace; ${COMPILE} -debug -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:433" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:433: \${COMPILE} -debug -o prog prog.cob" +echo functions.at:433 >$at_check_line_file +( $at_traceon; ${COMPILE} -debug -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:433: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:434: ./prog" +echo functions.at:434 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "prog; A00 OF A00-MAIN; 18" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:434: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:434: ./prog" -at_fn_check_prepare_trace "functions.at:434" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "prog; A00 OF A00-MAIN; 18" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:434" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_145 -#AT_START_146 -at_fn_group_banner 146 'functions.at:439' \ - "FUNCTION EXCEPTION-STATEMENT" " " -at_xfail=no -( - $as_echo "146. $at_setup_line: testing $at_desc ..." - $at_traceon + 146 ) # 146. functions.at:439: FUNCTION EXCEPTION-STATEMENT + at_setup_line='functions.at:439' + at_desc='FUNCTION EXCEPTION-STATEMENT' + $at_quiet $ECHO_N "146: FUNCTION EXCEPTION-STATEMENT $ECHO_C" + at_xfail=no + ( + echo "146. functions.at:439: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12373,46 +15165,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:463: \${COMPILE} -debug -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:463" -( $at_check_trace; ${COMPILE} -debug -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:463" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:463: \${COMPILE} -debug -o prog prog.cob" +echo functions.at:463 >$at_check_line_file +( $at_traceon; ${COMPILE} -debug -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:463: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:464: ./prog" +echo functions.at:464 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OPEN " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:464: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:464: ./prog" -at_fn_check_prepare_trace "functions.at:464" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OPEN " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:464" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_146 -#AT_START_147 -at_fn_group_banner 147 'functions.at:469' \ - "FUNCTION EXCEPTION-STATUS" " " -at_xfail=no -( - $as_echo "147. $at_setup_line: testing $at_desc ..." - $at_traceon + 147 ) # 147. functions.at:469: FUNCTION EXCEPTION-STATUS + at_setup_line='functions.at:469' + at_desc='FUNCTION EXCEPTION-STATUS' + $at_quiet $ECHO_N "147: FUNCTION EXCEPTION-STATUS $ECHO_C" + at_xfail=no + ( + echo "147. functions.at:469: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12439,46 +15256,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:493: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:493" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:493" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:493: \${COMPILE} -o prog prog.cob" +echo functions.at:493 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:493: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:494: ./prog" +echo functions.at:494 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "EC-I-O-PERMANENT-ERROR " | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:494: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:494: ./prog" -at_fn_check_prepare_trace "functions.at:494" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "EC-I-O-PERMANENT-ERROR " | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:494" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_147 -#AT_START_148 -at_fn_group_banner 148 'functions.at:499' \ - "FUNCTION EXP" " " -at_xfail=no -( - $as_echo "148. $at_setup_line: testing $at_desc ..." - $at_traceon + 148 ) # 148. functions.at:499: FUNCTION EXP + at_setup_line='functions.at:499' + at_desc='FUNCTION EXP' + $at_quiet $ECHO_N "148: FUNCTION EXP $ECHO_C" + at_xfail=no + ( + echo "148. functions.at:499: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12502,47 +15344,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:520: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:520" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:520" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:520: \${COMPILE} -o prog prog.cob" +echo functions.at:520 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:520: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:521: ./prog" +echo functions.at:521 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:521: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:521: ./prog" -at_fn_check_prepare_trace "functions.at:521" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:521" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_148 -#AT_START_149 -at_fn_group_banner 149 'functions.at:527' \ - "FUNCTION FACTORIAL" " " -at_xfail=no -( - $as_echo "149. $at_setup_line: testing $at_desc ..." - $at_traceon + 149 ) # 149. functions.at:527: FUNCTION FACTORIAL + at_setup_line='functions.at:527' + at_desc='FUNCTION FACTORIAL' + $at_quiet $ECHO_N "149: FUNCTION FACTORIAL $ECHO_C" + at_xfail=no + ( + echo "149. functions.at:527: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12558,47 +15425,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:540: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:540" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:540" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:540: \${COMPILE} -o prog prog.cob" +echo functions.at:540 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:540: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:541: ./prog" +echo functions.at:541 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "000000000000000720 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:541: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:541: ./prog" -at_fn_check_prepare_trace "functions.at:541" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "000000000000000720 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:541" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_149 -#AT_START_150 -at_fn_group_banner 150 'functions.at:547' \ - "FUNCTION FRACTION-PART" " " -at_xfail=no -( - $as_echo "150. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 150 ) # 150. functions.at:547: FUNCTION FRACTION-PART + at_setup_line='functions.at:547' + at_desc='FUNCTION FRACTION-PART' + $at_quiet $ECHO_N "150: FUNCTION FRACTION-PART $ECHO_C" + at_xfail=no + ( + echo "150. functions.at:547: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12616,48 +15508,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:562: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:562" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:562" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:562: \${COMPILE} -o prog prog.cob" +echo functions.at:562 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:562: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:563: ./prog" -at_fn_check_prepare_trace "functions.at:563" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+.123450000000000000 +$at_traceon + +$at_traceoff +echo "functions.at:563: ./prog" +echo functions.at:563 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+.123450000000000000 -.123450000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:563" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:563: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_150 -#AT_START_151 -at_fn_group_banner 151 'functions.at:570' \ - "FUNCTION INTEGER" " " -at_xfail=no -( - $as_echo "151. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 151 ) # 151. functions.at:570: FUNCTION INTEGER + at_setup_line='functions.at:570' + at_desc='FUNCTION INTEGER' + $at_quiet $ECHO_N "151: FUNCTION INTEGER $ECHO_C" + at_xfail=no + ( + echo "151. functions.at:570: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12674,47 +15591,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:584: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:584" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:584" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:584: \${COMPILE} -o prog prog.cob" +echo functions.at:584 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:584: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:585: ./prog" +echo functions.at:585 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-000000000000000002 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:585: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:585: ./prog" -at_fn_check_prepare_trace "functions.at:585" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-000000000000000002 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:585" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_151 -#AT_START_152 -at_fn_group_banner 152 'functions.at:591' \ - "FUNCTION INTEGER-OF-DATE" " " -at_xfail=no -( - $as_echo "152. $at_setup_line: testing $at_desc ..." - $at_traceon + 152 ) # 152. functions.at:591: FUNCTION INTEGER-OF-DATE + at_setup_line='functions.at:591' + at_desc='FUNCTION INTEGER-OF-DATE' + $at_quiet $ECHO_N "152: FUNCTION INTEGER-OF-DATE $ECHO_C" + at_xfail=no + ( + echo "152. functions.at:591: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12730,47 +15672,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:604: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:604" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:604" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:604: \${COMPILE} -o prog prog.cob" +echo functions.at:604 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:604: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:605: ./prog" +echo functions.at:605 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00146000 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:605: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:605: ./prog" -at_fn_check_prepare_trace "functions.at:605" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00146000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:605" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_152 -#AT_START_153 -at_fn_group_banner 153 'functions.at:611' \ - "FUNCTION INTEGER-OF-DAY" " " -at_xfail=no -( - $as_echo "153. $at_setup_line: testing $at_desc ..." - $at_traceon + 153 ) # 153. functions.at:611: FUNCTION INTEGER-OF-DAY + at_setup_line='functions.at:611' + at_desc='FUNCTION INTEGER-OF-DAY' + $at_quiet $ECHO_N "153: FUNCTION INTEGER-OF-DAY $ECHO_C" + at_xfail=no + ( + echo "153. functions.at:611: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12786,47 +15753,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:624: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:624" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:624" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:624: \${COMPILE} -o prog prog.cob" +echo functions.at:624 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:624: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:625: ./prog" +echo functions.at:625 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00146000 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:625: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:625: ./prog" -at_fn_check_prepare_trace "functions.at:625" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00146000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:625" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_153 -#AT_START_154 -at_fn_group_banner 154 'functions.at:631' \ - "FUNCTION INTEGER-PART" " " -at_xfail=no -( - $as_echo "154. $at_setup_line: testing $at_desc ..." - $at_traceon + 154 ) # 154. functions.at:631: FUNCTION INTEGER-PART + at_setup_line='functions.at:631' + at_desc='FUNCTION INTEGER-PART' + $at_quiet $ECHO_N "154: FUNCTION INTEGER-PART $ECHO_C" + at_xfail=no + ( + echo "154. functions.at:631: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12843,47 +15835,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:645: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:645" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:645" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:645: \${COMPILE} -o prog prog.cob" +echo functions.at:645 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:645: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:646: ./prog" +echo functions.at:646 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-000000000000000001 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:646: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:646: ./prog" -at_fn_check_prepare_trace "functions.at:646" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-000000000000000001 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:646" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_154 -#AT_START_155 -at_fn_group_banner 155 'functions.at:652' \ - "FUNCTION LENGTH" " " -at_xfail=no -( - $as_echo "155. $at_setup_line: testing $at_desc ..." - $at_traceon + 155 ) # 155. functions.at:652: FUNCTION LENGTH + at_setup_line='functions.at:652' + at_desc='FUNCTION LENGTH' + $at_quiet $ECHO_N "155: FUNCTION LENGTH $ECHO_C" + at_xfail=no + ( + echo "155. functions.at:652: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12900,47 +15917,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:666: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:666" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:666" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:666: \${COMPILE} -o prog prog.cob" +echo functions.at:666 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:666: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:667: ./prog" +echo functions.at:667 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "8 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:667: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:667: ./prog" -at_fn_check_prepare_trace "functions.at:667" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "8 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:667" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_155 -#AT_START_156 -at_fn_group_banner 156 'functions.at:673' \ - "FUNCTION LOCALE-DATE" " " -at_xfail=no -( - $as_echo "156. $at_setup_line: testing $at_desc ..." - $at_traceon + 156 ) # 156. functions.at:673: FUNCTION LOCALE-DATE + at_setup_line='functions.at:673' + at_desc='FUNCTION LOCALE-DATE' + $at_quiet $ECHO_N "156: FUNCTION LOCALE-DATE $ECHO_C" + at_xfail=no + ( + echo "156. functions.at:673: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -12960,47 +16002,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:690: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:690" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:690" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:690: \${COMPILE} -o prog prog.cob" +echo functions.at:690 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:690: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:691: ./prog" +echo functions.at:691 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:691: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:691: ./prog" -at_fn_check_prepare_trace "functions.at:691" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:691" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_156 -#AT_START_157 -at_fn_group_banner 157 'functions.at:697' \ - "FUNCTION LOCALE-TIME" " " -at_xfail=no -( - $as_echo "157. $at_setup_line: testing $at_desc ..." - $at_traceon + 157 ) # 157. functions.at:697: FUNCTION LOCALE-TIME + at_setup_line='functions.at:697' + at_desc='FUNCTION LOCALE-TIME' + $at_quiet $ECHO_N "157: FUNCTION LOCALE-TIME $ECHO_C" + at_xfail=no + ( + echo "157. functions.at:697: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13020,47 +16087,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:714: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:714" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:714" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:714: \${COMPILE} -o prog prog.cob" +echo functions.at:714 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:714: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:715: ./prog" +echo functions.at:715 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:715: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:715: ./prog" -at_fn_check_prepare_trace "functions.at:715" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:715" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_157 -#AT_START_158 -at_fn_group_banner 158 'functions.at:721' \ - "FUNCTION LOCALE-TIME-FROM-SECONDS" " " -at_xfail=no -( - $as_echo "158. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 158 ) # 158. functions.at:721: FUNCTION LOCALE-TIME-FROM-SECONDS + at_setup_line='functions.at:721' + at_desc='FUNCTION LOCALE-TIME-FROM-SECONDS' + $at_quiet $ECHO_N "158: FUNCTION LOCALE-TIME-FROM-SECONDS $ECHO_C" + at_xfail=no + ( + echo "158. functions.at:721: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13080,47 +16172,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:738: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:738" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:738" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:738: \${COMPILE} -o prog prog.cob" +echo functions.at:738 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:738: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:739: ./prog" +echo functions.at:739 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:739: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:739: ./prog" -at_fn_check_prepare_trace "functions.at:739" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:739" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_158 -#AT_START_159 -at_fn_group_banner 159 'functions.at:745' \ - "FUNCTION LOG" " " -at_xfail=no -( - $as_echo "159. $at_setup_line: testing $at_desc ..." - $at_traceon + 159 ) # 159. functions.at:745: FUNCTION LOG + at_setup_line='functions.at:745' + at_desc='FUNCTION LOG' + $at_quiet $ECHO_N "159: FUNCTION LOG $ECHO_C" + at_xfail=no + ( + echo "159. functions.at:745: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13145,47 +16262,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:767: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:767" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:767" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:767: \${COMPILE} -o prog prog.cob" +echo functions.at:767 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:767: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:768: ./prog" +echo functions.at:768 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:768: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:768: ./prog" -at_fn_check_prepare_trace "functions.at:768" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:768" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_159 -#AT_START_160 -at_fn_group_banner 160 'functions.at:774' \ - "FUNCTION LOG10" " " -at_xfail=no -( - $as_echo "160. $at_setup_line: testing $at_desc ..." - $at_traceon + 160 ) # 160. functions.at:774: FUNCTION LOG10 + at_setup_line='functions.at:774' + at_desc='FUNCTION LOG10' + $at_quiet $ECHO_N "160: FUNCTION LOG10 $ECHO_C" + at_xfail=no + ( + echo "160. functions.at:774: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13210,47 +16352,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:796: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:796" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:796" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:796: \${COMPILE} -o prog prog.cob" +echo functions.at:796 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:796: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:797: ./prog" +echo functions.at:797 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:797: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:797: ./prog" -at_fn_check_prepare_trace "functions.at:797" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:797" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_160 -#AT_START_161 -at_fn_group_banner 161 'functions.at:803' \ - "FUNCTION LOWER-CASE" " " -at_xfail=no -( - $as_echo "161. $at_setup_line: testing $at_desc ..." - $at_traceon + 161 ) # 161. functions.at:803: FUNCTION LOWER-CASE + at_setup_line='functions.at:803' + at_desc='FUNCTION LOWER-CASE' + $at_quiet $ECHO_N "161: FUNCTION LOWER-CASE $ECHO_C" + at_xfail=no + ( + echo "161. functions.at:803: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13267,47 +16434,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:817: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:817" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:817" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:817: \${COMPILE} -o prog prog.cob" +echo functions.at:817 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:817: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:818: ./prog" +echo functions.at:818 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a#b.c%d+e\$ +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:818: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:818: ./prog" -at_fn_check_prepare_trace "functions.at:818" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a#b.c%d+e\$ -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:818" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_161 -#AT_START_162 -at_fn_group_banner 162 'functions.at:824' \ - "FUNCTION LOWER-CASE with reference modding" " " -at_xfail=no -( - $as_echo "162. $at_setup_line: testing $at_desc ..." - $at_traceon + 162 ) # 162. functions.at:824: FUNCTION LOWER-CASE with reference modding + at_setup_line='functions.at:824' + at_desc='FUNCTION LOWER-CASE with reference modding' + $at_quiet $ECHO_N "162: FUNCTION LOWER-CASE with reference modding $ECHO_C" + at_xfail=no + ( + echo "162. functions.at:824: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13324,47 +16516,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:838: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:838" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:838" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:838: \${COMPILE} -o prog prog.cob" +echo functions.at:838 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:838: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:839: ./prog" +echo functions.at:839 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a#b +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:839: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:839: ./prog" -at_fn_check_prepare_trace "functions.at:839" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a#b -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:839" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_162 -#AT_START_163 -at_fn_group_banner 163 'functions.at:845' \ - "FUNCTION MAX" " " -at_xfail=no -( - $as_echo "163. $at_setup_line: testing $at_desc ..." - $at_traceon + 163 ) # 163. functions.at:845: FUNCTION MAX + at_setup_line='functions.at:845' + at_desc='FUNCTION MAX' + $at_quiet $ECHO_N "163: FUNCTION MAX $ECHO_C" + at_xfail=no + ( + echo "163. functions.at:845: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13380,47 +16597,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:858: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:858" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:858" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:858: \${COMPILE} -o prog prog.cob" +echo functions.at:858 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:858: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:859: ./prog" +echo functions.at:859 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "8 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:859: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:859: ./prog" -at_fn_check_prepare_trace "functions.at:859" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "8 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:859" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_163 -#AT_START_164 -at_fn_group_banner 164 'functions.at:865' \ - "FUNCTION MEAN" " " -at_xfail=no -( - $as_echo "164. $at_setup_line: testing $at_desc ..." - $at_traceon + 164 ) # 164. functions.at:865: FUNCTION MEAN + at_setup_line='functions.at:865' + at_desc='FUNCTION MEAN' + $at_quiet $ECHO_N "164: FUNCTION MEAN $ECHO_C" + at_xfail=no + ( + echo "164. functions.at:865: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13436,47 +16678,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:878: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:878" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:878" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:878: \${COMPILE} -o prog prog.cob" +echo functions.at:878 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:878: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:879: ./prog" +echo functions.at:879 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-1.20000000000000000 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:879: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:879: ./prog" -at_fn_check_prepare_trace "functions.at:879" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-1.20000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:879" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_164 -#AT_START_165 -at_fn_group_banner 165 'functions.at:885' \ - "FUNCTION MEDIAN" " " -at_xfail=no -( - $as_echo "165. $at_setup_line: testing $at_desc ..." - $at_traceon + 165 ) # 165. functions.at:885: FUNCTION MEDIAN + at_setup_line='functions.at:885' + at_desc='FUNCTION MEDIAN' + $at_quiet $ECHO_N "165: FUNCTION MEDIAN $ECHO_C" + at_xfail=no + ( + echo "165. functions.at:885: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13492,47 +16759,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:898: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:898" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:898" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:898: \${COMPILE} -o prog prog.cob" +echo functions.at:898 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:898: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:899: ./prog" +echo functions.at:899 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:899: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:899: ./prog" -at_fn_check_prepare_trace "functions.at:899" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:899" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_165 -#AT_START_166 -at_fn_group_banner 166 'functions.at:905' \ - "FUNCTION MIDRANGE" " " -at_xfail=no -( - $as_echo "166. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 166 ) # 166. functions.at:905: FUNCTION MIDRANGE + at_setup_line='functions.at:905' + at_desc='FUNCTION MIDRANGE' + $at_quiet $ECHO_N "166: FUNCTION MIDRANGE $ECHO_C" + at_xfail=no + ( + echo "166. functions.at:905: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13548,47 +16840,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:918: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:918" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:918" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:918: \${COMPILE} -o prog prog.cob" +echo functions.at:918 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:918: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:919: ./prog" +echo functions.at:919 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-3.000000000000000000 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:919: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:919: ./prog" -at_fn_check_prepare_trace "functions.at:919" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-3.000000000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:919" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_166 -#AT_START_167 -at_fn_group_banner 167 'functions.at:925' \ - "FUNCTION MIN" " " -at_xfail=no -( - $as_echo "167. $at_setup_line: testing $at_desc ..." - $at_traceon + 167 ) # 167. functions.at:925: FUNCTION MIN + at_setup_line='functions.at:925' + at_desc='FUNCTION MIN' + $at_quiet $ECHO_N "167: FUNCTION MIN $ECHO_C" + at_xfail=no + ( + echo "167. functions.at:925: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13604,47 +16921,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:938: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:938" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:938" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:938: \${COMPILE} -o prog prog.cob" +echo functions.at:938 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:938: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:939: ./prog" +echo functions.at:939 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-14 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:939: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:939: ./prog" -at_fn_check_prepare_trace "functions.at:939" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-14 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:939" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_167 -#AT_START_168 -at_fn_group_banner 168 'functions.at:945' \ - "FUNCTION MOD" " " -at_xfail=no -( - $as_echo "168. $at_setup_line: testing $at_desc ..." - $at_traceon + 168 ) # 168. functions.at:945: FUNCTION MOD + at_setup_line='functions.at:945' + at_desc='FUNCTION MOD' + $at_quiet $ECHO_N "168: FUNCTION MOD $ECHO_C" + at_xfail=no + ( + echo "168. functions.at:945: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13660,47 +17002,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:958: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:958" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:958" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:958: \${COMPILE} -o prog prog.cob" +echo functions.at:958 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:958: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:959: ./prog" +echo functions.at:959 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+000000000000000004 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:959: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:959: ./prog" -at_fn_check_prepare_trace "functions.at:959" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+000000000000000004 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:959" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_168 -#AT_START_169 -at_fn_group_banner 169 'functions.at:965' \ - "FUNCTION NUMVAL" " " -at_xfail=no -( - $as_echo "169. $at_setup_line: testing $at_desc ..." - $at_traceon + 169 ) # 169. functions.at:965: FUNCTION NUMVAL + at_setup_line='functions.at:965' + at_desc='FUNCTION NUMVAL' + $at_quiet $ECHO_N "169: FUNCTION NUMVAL $ECHO_C" + at_xfail=no + ( + echo "169. functions.at:965: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13717,47 +17084,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:979: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:979" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:979" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:979: \${COMPILE} -o prog prog.cob" +echo functions.at:979 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:979: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:980: ./prog" +echo functions.at:980 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-00000000009876.1234 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:980: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:980: ./prog" -at_fn_check_prepare_trace "functions.at:980" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-00000000009876.1234 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:980" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_169 -#AT_START_170 -at_fn_group_banner 170 'functions.at:986' \ - "FUNCTION NUMVAL-C" " " -at_xfail=no -( - $as_echo "170. $at_setup_line: testing $at_desc ..." - $at_traceon + 170 ) # 170. functions.at:986: FUNCTION NUMVAL-C + at_setup_line='functions.at:986' + at_desc='FUNCTION NUMVAL-C' + $at_quiet $ECHO_N "170: FUNCTION NUMVAL-C $ECHO_C" + at_xfail=no + ( + echo "170. functions.at:986: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13774,47 +17166,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1000: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1000" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1000" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1000: \${COMPILE} -o prog prog.cob" +echo functions.at:1000 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1000: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1001: ./prog" +echo functions.at:1001 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-00000000009876.1234 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1001: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1001: ./prog" -at_fn_check_prepare_trace "functions.at:1001" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-00000000009876.1234 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1001" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_170 -#AT_START_171 -at_fn_group_banner 171 'functions.at:1007' \ - "FUNCTION ORD" " " -at_xfail=no -( - $as_echo "171. $at_setup_line: testing $at_desc ..." - $at_traceon + 171 ) # 171. functions.at:1007: FUNCTION ORD + at_setup_line='functions.at:1007' + at_desc='FUNCTION ORD' + $at_quiet $ECHO_N "171: FUNCTION ORD $ECHO_C" + at_xfail=no + ( + echo "171. functions.at:1007: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13830,47 +17247,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1020: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1020" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1020" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1020: \${COMPILE} -o prog prog.cob" +echo functions.at:1020 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1020: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1021: ./prog" +echo functions.at:1021 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00000108 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1021: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1021: ./prog" -at_fn_check_prepare_trace "functions.at:1021" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00000108 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1021" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_171 -#AT_START_172 -at_fn_group_banner 172 'functions.at:1027' \ - "FUNCTION ORD-MAX" " " -at_xfail=no -( - $as_echo "172. $at_setup_line: testing $at_desc ..." - $at_traceon + 172 ) # 172. functions.at:1027: FUNCTION ORD-MAX + at_setup_line='functions.at:1027' + at_desc='FUNCTION ORD-MAX' + $at_quiet $ECHO_N "172: FUNCTION ORD-MAX $ECHO_C" + at_xfail=no + ( + echo "172. functions.at:1027: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13886,47 +17328,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1040: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1040" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1040" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1040: \${COMPILE} -o prog prog.cob" +echo functions.at:1040 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1040: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1041: ./prog" +echo functions.at:1041 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00000004 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1041: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1041: ./prog" -at_fn_check_prepare_trace "functions.at:1041" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00000004 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1041" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_172 -#AT_START_173 -at_fn_group_banner 173 'functions.at:1047' \ - "FUNCTION ORD-MIN" " " -at_xfail=no -( - $as_echo "173. $at_setup_line: testing $at_desc ..." - $at_traceon + 173 ) # 173. functions.at:1047: FUNCTION ORD-MIN + at_setup_line='functions.at:1047' + at_desc='FUNCTION ORD-MIN' + $at_quiet $ECHO_N "173: FUNCTION ORD-MIN $ECHO_C" + at_xfail=no + ( + echo "173. functions.at:1047: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13942,47 +17409,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1060: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1060" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1060" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1060: \${COMPILE} -o prog prog.cob" +echo functions.at:1060 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1060: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1061: ./prog" +echo functions.at:1061 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00000002 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1061: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:1061: ./prog" -at_fn_check_prepare_trace "functions.at:1061" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00000002 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1061" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_173 -#AT_START_174 -at_fn_group_banner 174 'functions.at:1067' \ - "FUNCTION PI" " " -at_xfail=no -( - $as_echo "174. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 174 ) # 174. functions.at:1067: FUNCTION PI + at_setup_line='functions.at:1067' + at_desc='FUNCTION PI' + $at_quiet $ECHO_N "174: FUNCTION PI $ECHO_C" + at_xfail=no + ( + echo "174. functions.at:1067: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -13998,47 +17490,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1080: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1080" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1080" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1080: \${COMPILE} -o prog prog.cob" +echo functions.at:1080 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1080: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1081: ./prog" +echo functions.at:1081 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "3.1415926535897932384626433832795029 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1081: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1081: ./prog" -at_fn_check_prepare_trace "functions.at:1081" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "3.1415926535897932384626433832795029 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1081" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_174 -#AT_START_175 -at_fn_group_banner 175 'functions.at:1087' \ - "FUNCTION PRESENT-VALUE" " " -at_xfail=no -( - $as_echo "175. $at_setup_line: testing $at_desc ..." - $at_traceon + 175 ) # 175. functions.at:1087: FUNCTION PRESENT-VALUE + at_setup_line='functions.at:1087' + at_desc='FUNCTION PRESENT-VALUE' + $at_quiet $ECHO_N "175: FUNCTION PRESENT-VALUE $ECHO_C" + at_xfail=no + ( + echo "175. functions.at:1087: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14054,47 +17571,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1100: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1100" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1100" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1100: \${COMPILE} -o prog prog.cob" +echo functions.at:1100 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1100: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1101: ./prog" +echo functions.at:1101 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "0.562500000000000000 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1101: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1101: ./prog" -at_fn_check_prepare_trace "functions.at:1101" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "0.562500000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1101" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_175 -#AT_START_176 -at_fn_group_banner 176 'functions.at:1107' \ - "FUNCTION RANGE" " " -at_xfail=no -( - $as_echo "176. $at_setup_line: testing $at_desc ..." - $at_traceon + 176 ) # 176. functions.at:1107: FUNCTION RANGE + at_setup_line='functions.at:1107' + at_desc='FUNCTION RANGE' + $at_quiet $ECHO_N "176: FUNCTION RANGE $ECHO_C" + at_xfail=no + ( + echo "176. functions.at:1107: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14110,47 +17652,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1120: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1120" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1120" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1120: \${COMPILE} -o prog prog.cob" +echo functions.at:1120 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1120: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1121: ./prog" +echo functions.at:1121 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+000000000000000022 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1121: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1121: ./prog" -at_fn_check_prepare_trace "functions.at:1121" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+000000000000000022 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1121" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_176 -#AT_START_177 -at_fn_group_banner 177 'functions.at:1127' \ - "FUNCTION REM" " " -at_xfail=no -( - $as_echo "177. $at_setup_line: testing $at_desc ..." - $at_traceon + 177 ) # 177. functions.at:1127: FUNCTION REM + at_setup_line='functions.at:1127' + at_desc='FUNCTION REM' + $at_quiet $ECHO_N "177: FUNCTION REM $ECHO_C" + at_xfail=no + ( + echo "177. functions.at:1127: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14166,47 +17733,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1140: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1140" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1140" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1140: \${COMPILE} -o prog prog.cob" +echo functions.at:1140 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1140: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1141: ./prog" +echo functions.at:1141 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "-000000000000000001 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1141: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1141: ./prog" -at_fn_check_prepare_trace "functions.at:1141" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "-000000000000000001 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1141" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_177 -#AT_START_178 -at_fn_group_banner 178 'functions.at:1147' \ - "FUNCTION REVERSE" " " -at_xfail=no -( - $as_echo "178. $at_setup_line: testing $at_desc ..." - $at_traceon + 178 ) # 178. functions.at:1147: FUNCTION REVERSE + at_setup_line='functions.at:1147' + at_desc='FUNCTION REVERSE' + $at_quiet $ECHO_N "178: FUNCTION REVERSE $ECHO_C" + at_xfail=no + ( + echo "178. functions.at:1147: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14223,47 +17815,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1161: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1161" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1161" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1161: \${COMPILE} -o prog prog.cob" +echo functions.at:1161 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1161: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1162: ./prog" +echo functions.at:1162 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "\$E+D%C.B#A +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1162: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1162: ./prog" -at_fn_check_prepare_trace "functions.at:1162" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "\$E+D%C.B#A -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1162" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_178 -#AT_START_179 -at_fn_group_banner 179 'functions.at:1168' \ - "FUNCTION REVERSE with reference modding" " " -at_xfail=no -( - $as_echo "179. $at_setup_line: testing $at_desc ..." - $at_traceon + 179 ) # 179. functions.at:1168: FUNCTION REVERSE with reference modding + at_setup_line='functions.at:1168' + at_desc='FUNCTION REVERSE with reference modding' + $at_quiet $ECHO_N "179: FUNCTION REVERSE with reference modding $ECHO_C" + at_xfail=no + ( + echo "179. functions.at:1168: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14280,47 +17897,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1182: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1182" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1182" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1182: \${COMPILE} -o prog prog.cob" +echo functions.at:1182 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1182: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1183: ./prog" +echo functions.at:1183 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "\$E+D +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1183: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1183: ./prog" -at_fn_check_prepare_trace "functions.at:1183" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "\$E+D -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1183" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_179 -#AT_START_180 -at_fn_group_banner 180 'functions.at:1189' \ - "FUNCTION SECONDS-FROM-FORMATTED-TIME" " " -at_xfail=no -( - $as_echo "180. $at_setup_line: testing $at_desc ..." - $at_traceon + 180 ) # 180. functions.at:1189: FUNCTION SECONDS-FROM-FORMATTED-TIME + at_setup_line='functions.at:1189' + at_desc='FUNCTION SECONDS-FROM-FORMATTED-TIME' + $at_quiet $ECHO_N "180: FUNCTION SECONDS-FROM-FORMATTED-TIME $ECHO_C" + at_xfail=no + ( + echo "180. functions.at:1189: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14345,47 +17987,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1211: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1211" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1211" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1211: \${COMPILE} -o prog prog.cob" +echo functions.at:1211 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1211: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1212: ./prog" +echo functions.at:1212 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1212: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1212: ./prog" -at_fn_check_prepare_trace "functions.at:1212" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1212" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_180 -#AT_START_181 -at_fn_group_banner 181 'functions.at:1218' \ - "FUNCTION SECONDS-PAST-MIDNIGHT" " " -at_xfail=no -( - $as_echo "181. $at_setup_line: testing $at_desc ..." - $at_traceon + 181 ) # 181. functions.at:1218: FUNCTION SECONDS-PAST-MIDNIGHT + at_setup_line='functions.at:1218' + at_desc='FUNCTION SECONDS-PAST-MIDNIGHT' + $at_quiet $ECHO_N "181: FUNCTION SECONDS-PAST-MIDNIGHT $ECHO_C" + at_xfail=no + ( + echo "181. functions.at:1218: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14408,47 +18075,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1238: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1238" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1238" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1238: \${COMPILE} -o prog prog.cob" +echo functions.at:1238 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1238: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1239: ./prog" +echo functions.at:1239 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1239: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:1239: ./prog" -at_fn_check_prepare_trace "functions.at:1239" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1239" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_181 -#AT_START_182 -at_fn_group_banner 182 'functions.at:1245' \ - "FUNCTION SIGN" " " -at_xfail=no -( - $as_echo "182. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 182 ) # 182. functions.at:1245: FUNCTION SIGN + at_setup_line='functions.at:1245' + at_desc='FUNCTION SIGN' + $at_quiet $ECHO_N "182: FUNCTION SIGN $ECHO_C" + at_xfail=no + ( + echo "182. functions.at:1245: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14470,50 +18162,75 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1264: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1264" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1264" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1264: \${COMPILE} -o prog prog.cob" +echo functions.at:1264 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1264: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:1265: ./prog" -at_fn_check_prepare_trace "functions.at:1265" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+00000001 +$at_traceon + +$at_traceoff +echo "functions.at:1265: ./prog" +echo functions.at:1265 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+00000001 +00000000 +00000000 -00000001 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1265" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1265: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_182 -#AT_START_183 -at_fn_group_banner 183 'functions.at:1274' \ - "FUNCTION SIN" " " -at_xfail=no -( - $as_echo "183. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 183 ) # 183. functions.at:1274: FUNCTION SIN + at_setup_line='functions.at:1274' + at_desc='FUNCTION SIN' + $at_quiet $ECHO_N "183: FUNCTION SIN $ECHO_C" + at_xfail=no + ( + echo "183. functions.at:1274: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14538,47 +18255,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1296: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1296" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1296" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1296: \${COMPILE} -o prog prog.cob" +echo functions.at:1296 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1296: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1297: ./prog" +echo functions.at:1297 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1297: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1297: ./prog" -at_fn_check_prepare_trace "functions.at:1297" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1297" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_183 -#AT_START_184 -at_fn_group_banner 184 'functions.at:1303' \ - "FUNCTION SQRT" " " -at_xfail=no -( - $as_echo "184. $at_setup_line: testing $at_desc ..." - $at_traceon + 184 ) # 184. functions.at:1303: FUNCTION SQRT + at_setup_line='functions.at:1303' + at_desc='FUNCTION SQRT' + $at_quiet $ECHO_N "184: FUNCTION SQRT $ECHO_C" + at_xfail=no + ( + echo "184. functions.at:1303: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14603,47 +18345,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1325: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1325" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1325" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1325: \${COMPILE} -o prog prog.cob" +echo functions.at:1325 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1325: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1326: ./prog" +echo functions.at:1326 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1326: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1326: ./prog" -at_fn_check_prepare_trace "functions.at:1326" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1326" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_184 -#AT_START_185 -at_fn_group_banner 185 'functions.at:1332' \ - "FUNCTION STANDARD-DEVIATION" " " -at_xfail=no -( - $as_echo "185. $at_setup_line: testing $at_desc ..." - $at_traceon + 185 ) # 185. functions.at:1332: FUNCTION STANDARD-DEVIATION + at_setup_line='functions.at:1332' + at_desc='FUNCTION STANDARD-DEVIATION' + $at_quiet $ECHO_N "185: FUNCTION STANDARD-DEVIATION $ECHO_C" + at_xfail=no + ( + echo "185. functions.at:1332: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14667,47 +18434,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1353: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1353" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1353" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1353: \${COMPILE} -o prog prog.cob" +echo functions.at:1353 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1353: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1354: ./prog" +echo functions.at:1354 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1354: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1354: ./prog" -at_fn_check_prepare_trace "functions.at:1354" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1354" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_185 -#AT_START_186 -at_fn_group_banner 186 'functions.at:1360' \ - "FUNCTION STORED-CHAR-LENGTH" " " -at_xfail=no -( - $as_echo "186. $at_setup_line: testing $at_desc ..." - $at_traceon + 186 ) # 186. functions.at:1360: FUNCTION STORED-CHAR-LENGTH + at_setup_line='functions.at:1360' + at_desc='FUNCTION STORED-CHAR-LENGTH' + $at_quiet $ECHO_N "186: FUNCTION STORED-CHAR-LENGTH $ECHO_C" + at_xfail=no + ( + echo "186. functions.at:1360: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14725,47 +18517,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1375: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1375" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1375" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1375: \${COMPILE} -o prog prog.cob" +echo functions.at:1375 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1375: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1376: ./prog" +echo functions.at:1376 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "00000012 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1376: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1376: ./prog" -at_fn_check_prepare_trace "functions.at:1376" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "00000012 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1376" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_186 -#AT_START_187 -at_fn_group_banner 187 'functions.at:1382' \ - "FUNCTION SUBSTITUTE" " " -at_xfail=no -( - $as_echo "187. $at_setup_line: testing $at_desc ..." - $at_traceon + 187 ) # 187. functions.at:1382: FUNCTION SUBSTITUTE + at_setup_line='functions.at:1382' + at_desc='FUNCTION SUBSTITUTE' + $at_quiet $ECHO_N "187: FUNCTION SUBSTITUTE $ECHO_C" + at_xfail=no + ( + echo "187. functions.at:1382: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14783,47 +18600,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1397: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1397" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1397" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1397: \${COMPILE} -o prog prog.cob" +echo functions.at:1397 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1397: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1398: ./prog" +echo functions.at:1398 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "zz1114446665defxxzz +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1398: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1398: ./prog" -at_fn_check_prepare_trace "functions.at:1398" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "zz1114446665defxxzz -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1398" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_187 -#AT_START_188 -at_fn_group_banner 188 'functions.at:1404' \ - "FUNCTION SUBSTITUTE with reference modding" " " -at_xfail=no -( - $as_echo "188. $at_setup_line: testing $at_desc ..." - $at_traceon + 188 ) # 188. functions.at:1404: FUNCTION SUBSTITUTE with reference modding + at_setup_line='functions.at:1404' + at_desc='FUNCTION SUBSTITUTE with reference modding' + $at_quiet $ECHO_N "188: FUNCTION SUBSTITUTE with reference modding $ECHO_C" + at_xfail=no + ( + echo "188. functions.at:1404: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14842,47 +18684,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1420: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1420" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1420" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1420: \${COMPILE} -o prog prog.cob" +echo functions.at:1420 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1420: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1421: ./prog" +echo functions.at:1421 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "z11144466 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1421: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1421: ./prog" -at_fn_check_prepare_trace "functions.at:1421" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "z11144466 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1421" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_188 -#AT_START_189 -at_fn_group_banner 189 'functions.at:1427' \ - "FUNCTION SUBSTITUTE-CASE" " " -at_xfail=no -( - $as_echo "189. $at_setup_line: testing $at_desc ..." - $at_traceon + 189 ) # 189. functions.at:1427: FUNCTION SUBSTITUTE-CASE + at_setup_line='functions.at:1427' + at_desc='FUNCTION SUBSTITUTE-CASE' + $at_quiet $ECHO_N "189: FUNCTION SUBSTITUTE-CASE $ECHO_C" + at_xfail=no + ( + echo "189. functions.at:1427: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14900,47 +18767,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1442: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1442" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1442" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1442: \${COMPILE} -o prog prog.cob" +echo functions.at:1442 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1442: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1443: ./prog" +echo functions.at:1443 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "zz1114446665defxxzz +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1443: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:1443: ./prog" -at_fn_check_prepare_trace "functions.at:1443" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "zz1114446665defxxzz -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1443" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_189 -#AT_START_190 -at_fn_group_banner 190 'functions.at:1449' \ - "FUNCTION SUBSTITUTE-CASE with reference mod" " " -at_xfail=no -( - $as_echo "190. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 190 ) # 190. functions.at:1449: FUNCTION SUBSTITUTE-CASE with reference mod + at_setup_line='functions.at:1449' + at_desc='FUNCTION SUBSTITUTE-CASE with reference mod' + $at_quiet $ECHO_N "190: FUNCTION SUBSTITUTE-CASE with reference mod $ECHO_C" + at_xfail=no + ( + echo "190. functions.at:1449: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -14959,47 +18851,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1465: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1465" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1465" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1465: \${COMPILE} -o prog prog.cob" +echo functions.at:1465 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1465: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1466: ./prog" +echo functions.at:1466 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "z11144466 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1466: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1466: ./prog" -at_fn_check_prepare_trace "functions.at:1466" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "z11144466 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1466" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_190 -#AT_START_191 -at_fn_group_banner 191 'functions.at:1472' \ - "FUNCTION TAN" " " -at_xfail=no -( - $as_echo "191. $at_setup_line: testing $at_desc ..." - $at_traceon + 191 ) # 191. functions.at:1472: FUNCTION TAN + at_setup_line='functions.at:1472' + at_desc='FUNCTION TAN' + $at_quiet $ECHO_N "191: FUNCTION TAN $ECHO_C" + at_xfail=no + ( + echo "191. functions.at:1472: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15024,47 +18941,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1494: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1494" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1494" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1494: \${COMPILE} -o prog prog.cob" +echo functions.at:1494 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1494: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1495: ./prog" +echo functions.at:1495 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1495: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1495: ./prog" -at_fn_check_prepare_trace "functions.at:1495" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1495" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_191 -#AT_START_192 -at_fn_group_banner 192 'functions.at:1501' \ - "FUNCTION TRIM" " " -at_xfail=no -( - $as_echo "192. $at_setup_line: testing $at_desc ..." - $at_traceon + 192 ) # 192. functions.at:1501: FUNCTION TRIM + at_setup_line='functions.at:1501' + at_desc='FUNCTION TRIM' + $at_quiet $ECHO_N "192: FUNCTION TRIM $ECHO_C" + at_xfail=no + ( + echo "192. functions.at:1501: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15083,48 +19025,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1517: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1517" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1517" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1517: \${COMPILE} -o prog prog.cob" +echo functions.at:1517 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1517: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:1518: ./prog" -at_fn_check_prepare_trace "functions.at:1518" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "a#b.c%d+e\$ +$at_traceon + +$at_traceoff +echo "functions.at:1518: ./prog" +echo functions.at:1518 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "a#b.c%d+e\$ a#b.c%d+e\$ -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1518" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1518: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_192 -#AT_START_193 -at_fn_group_banner 193 'functions.at:1525' \ - "FUNCTION TRIM with reference modding" " " -at_xfail=no -( - $as_echo "193. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 193 ) # 193. functions.at:1525: FUNCTION TRIM with reference modding + at_setup_line='functions.at:1525' + at_desc='FUNCTION TRIM with reference modding' + $at_quiet $ECHO_N "193: FUNCTION TRIM with reference modding $ECHO_C" + at_xfail=no + ( + echo "193. functions.at:1525: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15143,48 +19110,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1541: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1541" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1541" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1541: \${COMPILE} -o prog prog.cob" +echo functions.at:1541 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1541: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi -{ set +x -$as_echo "$at_srcdir/functions.at:1542: ./prog" -at_fn_check_prepare_trace "functions.at:1542" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "#b. +$at_traceon + +$at_traceoff +echo "functions.at:1542: ./prog" +echo functions.at:1542 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "#b. a#b -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1542" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1542: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_193 -#AT_START_194 -at_fn_group_banner 194 'functions.at:1549' \ - "FUNCTION UPPER-CASE" " " -at_xfail=no -( - $as_echo "194. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 194 ) # 194. functions.at:1549: FUNCTION UPPER-CASE + at_setup_line='functions.at:1549' + at_desc='FUNCTION UPPER-CASE' + $at_quiet $ECHO_N "194: FUNCTION UPPER-CASE $ECHO_C" + at_xfail=no + ( + echo "194. functions.at:1549: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15201,47 +19193,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1563: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1563" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1563" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1563: \${COMPILE} -o prog prog.cob" +echo functions.at:1563 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1563: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1564: ./prog" +echo functions.at:1564 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "A#B.C%D+E\$ +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1564: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1564: ./prog" -at_fn_check_prepare_trace "functions.at:1564" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "A#B.C%D+E\$ -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1564" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_194 -#AT_START_195 -at_fn_group_banner 195 'functions.at:1570' \ - "FUNCTION UPPER-CASE with reference modding" " " -at_xfail=no -( - $as_echo "195. $at_setup_line: testing $at_desc ..." - $at_traceon + 195 ) # 195. functions.at:1570: FUNCTION UPPER-CASE with reference modding + at_setup_line='functions.at:1570' + at_desc='FUNCTION UPPER-CASE with reference modding' + $at_quiet $ECHO_N "195: FUNCTION UPPER-CASE with reference modding $ECHO_C" + at_xfail=no + ( + echo "195. functions.at:1570: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15258,47 +19275,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1584: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1584" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1584" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1584: \${COMPILE} -o prog prog.cob" +echo functions.at:1584 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1584: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1585: ./prog" +echo functions.at:1585 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "A#B +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1585: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1585: ./prog" -at_fn_check_prepare_trace "functions.at:1585" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "A#B -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1585" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_195 -#AT_START_196 -at_fn_group_banner 196 'functions.at:1591' \ - "FUNCTION VARIANCE" " " -at_xfail=no -( - $as_echo "196. $at_setup_line: testing $at_desc ..." - $at_traceon + 196 ) # 196. functions.at:1591: FUNCTION VARIANCE + at_setup_line='functions.at:1591' + at_desc='FUNCTION VARIANCE' + $at_quiet $ECHO_N "196: FUNCTION VARIANCE $ECHO_C" + at_xfail=no + ( + echo "196. functions.at:1591: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15314,47 +19356,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1604: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1604" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1604" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "functions.at:1604: \${COMPILE} -o prog prog.cob" +echo functions.at:1604 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1604: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1605: ./prog" +echo functions.at:1605 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "+54.1600000000000000 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1605: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon -{ set +x -$as_echo "$at_srcdir/functions.at:1605: ./prog" -at_fn_check_prepare_trace "functions.at:1605" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "+54.1600000000000000 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1605" -$at_failed && at_fn_log_failure -$at_traceon; } + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_196 -#AT_START_197 -at_fn_group_banner 197 'functions.at:1611' \ - "FUNCTION WHEN-COMPILED" " " -at_xfail=no -( - $as_echo "197. $at_setup_line: testing $at_desc ..." - $at_traceon + 197 ) # 197. functions.at:1611: FUNCTION WHEN-COMPILED + at_setup_line='functions.at:1611' + at_desc='FUNCTION WHEN-COMPILED' + $at_quiet $ECHO_N "197: FUNCTION WHEN-COMPILED $ECHO_C" + at_xfail=no + ( + echo "197. functions.at:1611: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -15379,37 +19446,343 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/functions.at:1633: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "functions.at:1633" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1633" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/functions.at:1634: ./prog" -at_fn_check_prepare_trace "functions.at:1634" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/functions.at:1634" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_197 +$at_traceoff +echo "functions.at:1633: \${COMPILE} -o prog prog.cob" +echo functions.at:1633 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1633: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "functions.at:1634: ./prog" +echo functions.at:1634 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "functions.at:1634: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + + * ) + echo "$as_me: no such test group: $at_group" >&2 + continue + ;; + esac + + # Be sure to come back to the suite directory, in particular + # since below we might `rm' the group directory we are in currently. + cd $at_suite_dir + + case $at_group in + banner-*) ;; + *) + if test ! -f $at_check_line_file; then + sed "s/^ */$as_me: warning: /" <<_ATEOF + A failure happened in a test group before any test could be + run. This means that test suite is improperly designed. Please + report this failure to . +_ATEOF + echo "$at_setup_line" >$at_check_line_file + fi + at_group_count=`expr 1 + $at_group_count` + $at_verbose $ECHO_N "$at_group. $at_setup_line: $ECHO_C" + echo $ECHO_N "$at_group. $at_setup_line: $ECHO_C" >> $at_group_log + case $at_xfail:$at_status in + yes:0) + at_msg="UNEXPECTED PASS" + at_xpass_list="$at_xpass_list $at_group" + at_errexit=$at_errexit_p + ;; + no:0) + at_msg="ok" + at_pass_list="$at_pass_list $at_group" + at_errexit=false + ;; + *:77) + at_msg="skipped (`cat $at_check_line_file`)" + at_skip_list="$at_skip_list $at_group" + at_errexit=false + ;; + yes:*) + at_msg="expected failure (`cat $at_check_line_file`)" + at_xfail_list="$at_xfail_list $at_group" + at_errexit=false + ;; + no:*) + at_msg="FAILED (`cat $at_check_line_file`)" + at_fail_list="$at_fail_list $at_group" + at_errexit=$at_errexit_p + ;; + esac + echo $at_msg + at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" + case $at_status in + 0|77) + # $at_times_file is only available if the group succeeded. + # We're not including the group log, so the success message + # is written in the global log separately. But we also + # write to the group log in case they're using -d. + if test -f $at_times_file; then + at_log_msg="$at_log_msg (`sed 1d $at_times_file`)" + rm -f $at_times_file + fi + echo "$at_log_msg" >> $at_group_log + echo "$at_log_msg" >&5 + + # Cleanup the group directory, unless the user wants the files. + $at_debug_p || rm -rf $at_group_dir + ;; + *) + # Upon failure, include the log into the testsuite's global + # log. The failure message is written in the group log. It + # is later included in the global log. + echo "$at_log_msg" >> $at_group_log + + # Upon failure, keep the group directory for autopsy, and + # create the debugging script. + { + echo "#! /bin/sh" + echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' + echo "cd $at_dir" + echo 'exec ${CONFIG_SHELL-'"$SHELL"'}' "$0" \ + '-v -d' "$at_debug_args" "$at_group" '${1+"$@"}' + echo 'exit 1' + } >$at_group_dir/run + chmod +x $at_group_dir/run + $at_errexit && break + ;; + esac + ;; + esac +done + +# Back to the top directory. +cd $at_dir + +# Compute the duration of the suite. +at_stop_date=`date` +at_stop_time=`(date +%s) 2>/dev/null` +echo "$as_me: ending at: $at_stop_date" >&5 +at_duration_s=`(expr $at_stop_time - $at_start_time) 2>/dev/null` +at_duration_m=`(expr $at_duration_s / 60) 2>/dev/null` +at_duration_h=`(expr $at_duration_m / 60) 2>/dev/null` +at_duration_s=`(expr $at_duration_s % 60) 2>/dev/null` +at_duration_m=`(expr $at_duration_m % 60) 2>/dev/null` +at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" +if test "$at_duration" != "h m s"; then + echo "$as_me: test suite duration: $at_duration" >&5 +fi + +# Wrap up the test suite with summary statistics. +at_skip_count=`set dummy $at_skip_list; shift; echo $#` +at_fail_count=`set dummy $at_fail_list; shift; echo $#` +at_xpass_count=`set dummy $at_xpass_list; shift; echo $#` +at_xfail_count=`set dummy $at_xfail_list; shift; echo $#` + +at_run_count=`expr $at_group_count - $at_skip_count` +at_unexpected_count=`expr $at_xpass_count + $at_fail_count` +at_total_fail_count=`expr $at_xfail_count + $at_fail_count` + +echo +cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX +echo +{ + echo + cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX + echo +} >&5 + +if test $at_run_count = 1; then + at_result="1 test" + at_were=was +else + at_result="$at_run_count tests" + at_were=were +fi +if $at_errexit_p && test $at_unexpected_count != 0; then + if test $at_xpass_count = 1; then + at_result="$at_result $at_were run, one passed" + else + at_result="$at_result $at_were run, one failed" + fi + at_result="$at_result unexpectedly and inhibited subsequent tests." +else + # Don't you just love exponential explosion of the number of cases? + case $at_xpass_count:$at_fail_count:$at_xfail_count in + # So far, so good. + 0:0:0) at_result="$at_result $at_were successful." ;; + 0:0:*) at_result="$at_result behaved as expected." ;; + + # Some unexpected failures + 0:*:0) at_result="$at_result $at_were run, +$at_fail_count failed unexpectedly." ;; + + # Some failures, both expected and unexpected + 0:*:1) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + 0:*:*) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + + # No unexpected failures, but some xpasses + *:0:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly." ;; + + # No expected failures, but failures and xpasses + *:1:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; + *:*:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + + # All of them. + *:*:1) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + *:*:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + esac + + if test $at_skip_count = 0 && test $at_run_count -gt 1; then + at_result="All $at_result" + fi +fi + +# Now put skips in the mix. +case $at_skip_count in + 0) ;; + 1) at_result="$at_result +1 test was skipped." ;; + *) at_result="$at_result +$at_skip_count tests were skipped." ;; +esac + +if test $at_unexpected_count = 0; then + echo "$at_result" + echo "$at_result" >&5 +else + echo "ERROR: $at_result" >&2 + echo "ERROR: $at_result" >&5 + { + echo + cat <<\_ASBOX +## ------------------------ ## +## Summary of the failures. ## +## ------------------------ ## +_ASBOX + + # Summary of failed and skipped tests. + if test $at_fail_count != 0; then + echo "Failed tests:" + $SHELL $0 $at_fail_list --list + echo + fi + if test $at_skip_count != 0; then + echo "Skipped tests:" + $SHELL $0 $at_skip_list --list + echo + fi + if test $at_xpass_count != 0; then + echo "Unexpected passes:" + $SHELL $0 $at_xpass_list --list + echo + fi + if test $at_fail_count != 0; then + cat <<\_ASBOX +## ---------------------- ## +## Detailed failed tests. ## +## ---------------------- ## +_ASBOX + echo + for at_group in $at_fail_list + do + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + cat $at_group_log + echo + done + echo + fi + if test -n "$at_top_srcdir"; then + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $at_top_builddir/config.log ## +_ASBOX + sed 's/^/| /' $at_top_builddir/config.log + echo + fi + } >&5 + + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $as_me.log was created. ## +_ASBOX + + echo + echo "Please send \`$as_me.log' and all information you think might help:" + echo + echo " To: " + echo " Subject: [OpenCOBOL 1.1] $as_me:$at_fail_list${at_fail_list:+ failed${at_xpass_list:+,}}$at_xpass_list${at_xpass_list:+ passed unexpectedly}" + echo + if test $at_debug_p = false; then + echo + echo 'You may investigate any problem if you feel able to do so, in which' + echo 'case the test suite provides a good starting point.' + echo + fi + exit 1 +fi + +exit 0 + + diff --git a/tests/syntax b/tests/syntax index 3b49adee..816df696 100755 --- a/tests/syntax +++ b/tests/syntax @@ -1,418 +1,75 @@ #! /bin/sh -# Generated from syntax.at by GNU Autoconf 2.68. -# -# Copyright (C) 2009, 2010 Free Software Foundation, Inc. -# -# This test suite is free software; the Free Software Foundation gives -# unlimited permission to copy, distribute and modify it. -## -------------------- ## -## M4sh Initialization. ## -## -------------------- ## +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix fi +DUALCASE=1; export DUALCASE # for MKS sh - -as_nl=' -' -export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - PATH_SEPARATOR=: - (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { - (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || - PATH_SEPARATOR=';' - } + as_unset=false fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -as_myself= -case $0 in #(( - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break - done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - exit 1 -fi - -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH - -if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : - emulate sh - NULLCMD=: - # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which - # is contrary to our usage. Disable this feature. - alias -g '\${1+\"\$@\"}'='\"\$@\"' - setopt NO_GLOB_SUBST -else - case \`(set -o) 2>/dev/null\` in #( - *posix*) : - set -o posix ;; #( - *) : - ;; -esac -fi -" - as_required="as_fn_return () { (exit \$1); } -as_fn_success () { as_fn_return 0; } -as_fn_failure () { as_fn_return 1; } -as_fn_ret_success () { return 0; } -as_fn_ret_failure () { return 1; } - -exitcode=0 -as_fn_success || { exitcode=1; echo as_fn_success failed.; } -as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } -as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } -as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : - -else - exitcode=1; echo positional parameters were not saved. -fi -test x\$exitcode = x0 || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - # We cannot yet assume a decent shell, so we have to provide a - # neutralization value for shells without unset; and this also - # works around shells that cannot unset nonexistent variables. - # Preserve -v and -x to the replacement shell. - BASH_ENV=/dev/null - ENV=/dev/null - (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV - export CONFIG_SHELL - case $- in # (((( - *v*x* | *x*v* ) as_opts=-vx ;; - *v* ) as_opts=-v ;; - *x* ) as_opts=-x ;; - * ) as_opts= ;; - esac - exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"} -fi - - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var else - $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, -$0: including any error possibly output before this -$0: message. Then install a modern shell, or manually run -$0: the script under such a shell if you do have one." - fi - exit 1 -fi -fi -fi -SHELL=${CONFIG_SHELL-/bin/sh} -export SHELL -# Unset more variables known to interfere with behavior of common tools. -CLICOLOR_FORCE= GREP_OPTIONS= -unset CLICOLOR_FORCE GREP_OPTIONS - -## --------------------- ## -## M4sh Shell Functions. ## -## --------------------- ## -# as_fn_unset VAR -# --------------- -# Portably unset VAR. -as_fn_unset () -{ - { eval $1=; unset $1;} -} -as_unset=as_fn_unset - -# as_fn_set_status STATUS -# ----------------------- -# Set $? to STATUS, without forking. -as_fn_set_status () -{ - return $1 -} # as_fn_set_status - -# as_fn_exit STATUS -# ----------------- -# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. -as_fn_exit () -{ - set +e - as_fn_set_status $1 - exit $1 -} # as_fn_exit - -# as_fn_mkdir_p -# ------------- -# Create "$as_dir" as a directory, including parents if necessary. -as_fn_mkdir_p () -{ - - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || eval $as_mkdir_p || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" - - -} # as_fn_mkdir_p -# as_fn_append VAR VALUE -# ---------------------- -# Append the text in VALUE to the end of the definition contained in VAR. Take -# advantage of any shell optimizations that allow amortized linear growth over -# repeated appends, instead of the typical quadratic growth present in naive -# implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : - eval 'as_fn_append () - { - eval $1+=\$2 - }' -else - as_fn_append () - { - eval $1=\$$1\$2 - } -fi # as_fn_append - -# as_fn_arith ARG... -# ------------------ -# Perform arithmetic evaluation on the ARGs, and store the result in the -# global $as_val. Take advantage of shells that can avoid forks. The arguments -# must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : - eval 'as_fn_arith () - { - as_val=$(( $* )) - }' -else - as_fn_arith () - { - as_val=`expr "$@" || test $? -eq 1` - } -fi # as_fn_arith - - -# as_fn_error STATUS ERROR [LINENO LOG_FD] -# ---------------------------------------- -# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are -# provided, also output the error to LOG_FD, referencing LINENO. Then exit the -# script with STATUS, using 1 if that was 0. -as_fn_error () -{ - as_status=$1; test $as_status -eq 0 && as_status=1 - if test "$4"; then - as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + $as_unset $as_var fi - $as_echo "$as_me: error: $2" >&2 - as_fn_exit $as_status -} # as_fn_error +done -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi -as_me=`$as_basename -- "$0" || + +# Name of the executable. +as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + +# PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' @@ -420,107 +77,146 @@ as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + + + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac - as_lineno_1=$LINENO as_lineno_1a=$LINENO - as_lineno_2=$LINENO as_lineno_2a=$LINENO - eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && - test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { - # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop - s/-\n.*// + s,-$,, + s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + chmod +x $as_me.lineno || + { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 + { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno # Exit status is that of the last command. exit } -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in #((((( --n*) - case `echo 'xy\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - xy) ECHO_C='\c';; - *) echo `echo ksh88 bug on AIX 6.1` > /dev/null - ECHO_T=' ';; - esac;; -*) - ECHO_N='-n';; + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr else - rm -f conf$$.dir - mkdir conf$$.dir 2>/dev/null + as_expr=false fi -if (echo >conf$$.file) 2>/dev/null; then - if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links as_ln_s='cp -p' + else + as_ln_s='ln -s' fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln else as_ln_s='cp -p' fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null +rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then - as_mkdir_p='mkdir -p "$as_dir"' + as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in #( - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x +as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" @@ -529,7 +225,14 @@ as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" +# CDPATH. +$as_unset CDPATH SHELL=${CONFIG_SHELL-/bin/sh} @@ -537,6 +240,24 @@ SHELL=${CONFIG_SHELL-/bin/sh} # How were we run? at_cli_args="$@" +# Load the config file. +for at_file in atconfig atlocal +do + test -r $at_file || continue + . ./$at_file || { echo "$as_me: error: invalid content: $at_file" >&2 + { (exit 1); exit 1; }; } +done + +# atconfig delivers paths relative to the directory the test suite is +# in, but the groups themselves are run in testsuite-dir/group-dir. +if test -n "$at_top_srcdir"; then + builddir=../.. + for at_dir in srcdir top_srcdir top_builddir + do + at_val=`eval echo '${'at_$at_dir'}'` + eval "$at_dir=\$at_val/../.." + done +fi # Not all shells have the 'times' builtin; the subshell is needed to make # sure we discard the 'times: not found' message from the shell. @@ -547,53 +268,48 @@ at_times_p=false at_debug_args= # -e sets to true at_errexit_p=false -# Shall we be verbose? ':' means no, empty means yes. +# Shall we be verbose? at_verbose=: -at_quiet= -# Running several jobs in parallel, 0 means as many as test groups. -at_jobs=1 -at_traceon=: -at_trace_echo=: -at_check_filter_trace=: +at_quiet=echo # Shall we keep the debug scripts? Must be `:' when the suite is # run by a debug script, so that the script doesn't remove itself. at_debug_p=false # Display help message? at_help_p=false -# Display the version message? -at_version_p=false # List test groups? at_list_p=false -# --clean -at_clean=false # Test groups to run at_groups= -# Whether to rerun failed tests. -at_recheck= -# Whether a write failure occurred -at_write_fail=0 -# The directory we run the suite in. Default to . if no -C option. +# The directory we are in. at_dir=`pwd` -# An absolute reference to this testsuite script. -case $as_myself in - [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;; - * ) at_myself=$at_dir/$as_myself ;; -esac -# Whether -C is in effect. -at_change_dir=false +# The directory the whole suite works in. +# Should be absolutely to let the user `cd' at will. +at_suite_dir=$at_dir/$as_me.dir +# The file containing the suite. +at_suite_log=$at_dir/$as_me.log +# The file containing the location of the last AT_CHECK. +at_check_line_file=$at_suite_dir/at-check-line +# The file containing the exit status of the last command. +at_status_file=$at_suite_dir/at-status +# The files containing the output of the tested commands. +at_stdout=$at_suite_dir/at-stdout +at_stder1=$at_suite_dir/at-stder1 +at_stderr=$at_suite_dir/at-stderr +# The file containing dates. +at_times_file=$at_suite_dir/at-times -# Whether to enable colored test results. -at_color=no # List of the tested programs. at_tested='cobc' -# As many question marks as there are digits in the last test group number. +# List of the all the test groups. +at_groups_all=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88' +# As many dots as there are digits in the last test group number. # Used to normalize the test group numbers so that `ls' lists them in # numerical order. -at_format='??' +at_format='..' # Description of all the test groups. -at_help_all="1;copy.at:22;COPY: file not found;copy; +at_help_all='1;copy.at:22;COPY: file not found;copy; 2;copy.at:42;COPY: replacement order;copy; 3;copy.at:69;COPY: separators;copy; 4;copy.at:98;COPY: partial replacement;copy; @@ -681,34 +397,9 @@ at_help_all="1;copy.at:22;COPY: file not found;copy; 86;indicator.at:99;dollarif value match - not false;; 87;indicator.at:119;column 7 is undefined value;; 88;assign-external.at:1;ASSIGN TO DYNAMIC create file (assign_external);; -" -# List of the all the test groups. -at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'` - -# at_fn_validate_ranges NAME... -# ----------------------------- -# Validate and normalize the test group number contained in each variable -# NAME. Leading zeroes are treated as decimal. -at_fn_validate_ranges () -{ - for at_grp - do - eval at_value=\$$at_grp - if test $at_value -lt 1 || test $at_value -gt 88; then - $as_echo "invalid test group: $at_value" >&2 - exit 1 - fi - case $at_value in - 0*) # We want to treat leading 0 as decimal, like expr and test, but - # AS_VAR_ARITH treats it as octal if it uses $(( )). - # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the - # expr fork, but it is not worth the effort to determine if the - # shell supports XSI when the user can just avoid leading 0. - eval $at_grp='`expr $at_value + 0`' ;; - esac - done -} +' +at_keywords= at_prev= for at_option do @@ -718,10 +409,7 @@ do at_prev= fi - case $at_option in - *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;; - *) at_optarg= ;; - esac + at_optarg=`expr "x$at_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. @@ -735,24 +423,13 @@ do ;; --version | -V ) - at_version_p=: + echo "$as_me (OpenCOBOL 1.1)" + exit 0 ;; --clean | -c ) - at_clean=: - ;; - - --color ) - at_color=always - ;; - --color=* ) - case $at_optarg in - no | never | none) at_color=never ;; - auto | tty | if-tty) at_color=auto ;; - always | yes | force) at_color=always ;; - *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'` - as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;; - esac + rm -rf $at_suite_dir $at_suite_log + exit 0 ;; --debug | -d ) @@ -765,35 +442,30 @@ do ;; --verbose | -v ) - at_verbose=; at_quiet=: + at_verbose=echo; at_quiet=: ;; --trace | -x ) - at_traceon='set -x' - at_trace_echo=echo - at_check_filter_trace=at_fn_filter_trace + at_traceon='set -vx'; at_traceoff='set +vx' ;; [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) - at_fn_validate_ranges at_option - as_fn_append at_groups "$at_option$as_nl" + at_groups="$at_groups$at_option " ;; # Ranges [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) - at_range_start=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_start - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,$p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_start=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,'` + at_groups="$at_groups$at_range " ;; -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) - at_range_end=`echo $at_option |tr -d X-` - at_fn_validate_ranges at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '1,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" + at_range_end=`echo $at_option |tr -d '-'` + at_range=`echo " $at_groups_all " | \ + sed -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ @@ -802,45 +474,13 @@ do [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) - at_range_start=`expr $at_option : '\(.*\)-'` - at_range_end=`expr $at_option : '.*-\(.*\)'` - if test $at_range_start -gt $at_range_end; then - at_tmp=$at_range_end - at_range_end=$at_range_start - at_range_start=$at_tmp - fi - at_fn_validate_ranges at_range_start at_range_end - at_range=`$as_echo "$at_groups_all" | \ - sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'` - as_fn_append at_groups "$at_range$as_nl" - ;; - - # Directory selection. - --directory | -C ) - at_prev=--directory - ;; - --directory=* ) - at_change_dir=: - at_dir=$at_optarg - if test x- = "x$at_dir" ; then - at_dir=./- - fi - ;; - - # Parallel execution. - --jobs | -j ) - at_jobs=0 - ;; - --jobs=* | -j[0-9]* ) - if test -n "$at_optarg"; then - at_jobs=$at_optarg - else - at_jobs=`expr X$at_option : 'X-j\(.*\)'` - fi - case $at_jobs in *[!0-9]*) - at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'` - as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;; - esac + at_range_start=`echo $at_option |sed 's,-.*,,'` + at_range_end=`echo $at_option |sed 's,.*-,,'` + # FIXME: Maybe test to make sure start <= end? + at_range=`echo " $at_groups_all " | \ + sed -e 's,^.* '$at_range_start' ,'$at_range_start' ,' \ + -e 's, '$at_range_end' .*$, '$at_range_end','` + at_groups="$at_groups$at_range " ;; # Keywords. @@ -848,113 +488,67 @@ do at_prev=--keywords ;; --keywords=* ) - at_groups_selected=$at_help_all - at_save_IFS=$IFS - IFS=, - set X $at_optarg - shift - IFS=$at_save_IFS - for at_keyword - do - at_invert= - case $at_keyword in - '!'*) - at_invert="-v" - at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'` - ;; - esac - # It is on purpose that we match the test group titles too. - at_groups_selected=`$as_echo "$at_groups_selected" | - grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"` - done - # Smash the keywords. - at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'` - as_fn_append at_groups "$at_groups_selected$as_nl" - ;; - --recheck) - at_recheck=: + at_keywords="$at_keywords,$at_optarg" ;; *=*) - at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - case $at_envvar in - '' | [0-9]* | *[!_$as_cr_alnum]* ) - as_fn_error $? "invalid variable name: \`$at_envvar'" ;; - esac - at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` - # Export now, but save eval for later and for debug scripts. - export $at_envvar - as_fn_append at_debug_args " $at_envvar='$at_value'" - ;; - - *) $as_echo "$as_me: invalid option: $at_option" >&2 - $as_echo "Try \`$0 --help' for more information." >&2 + at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + expr "x$at_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid variable name: $at_envvar" >&2 + { (exit 1); exit 1; }; } + at_value=`echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` + eval "$at_envvar='$at_value'" + export $at_envvar + # Propagate to debug scripts. + at_debug_args="$at_debug_args $at_option" + ;; + + *) echo "$as_me: invalid option: $at_option" >&2 + echo "Try \`$0 --help' for more information." >&2 exit 1 ;; esac done -# Verify our last option didn't require an argument -if test -n "$at_prev"; then : - as_fn_error $? "\`$at_prev' requires an argument" +# Process the --keywords +if test -n "$at_keywords"; then + at_groups_selected=$at_help_all + for at_keyword in `IFS=,; set X $at_keywords; shift; echo ${1+$@}` + do + # It is on purpose that we match the test group titles too. + at_groups_selected=`echo "$at_groups_selected" | + grep -i "^[^;]*;[^;]*.*[; ]$at_keyword[ ;]"` + done + at_groups_selected=`echo "$at_groups_selected" | sed 's/;.*//'` + # Smash the end of lines. + at_groups_selected=`echo $at_groups_selected` + at_groups="$at_groups$at_groups_selected " fi -# The file containing the suite. -at_suite_log=$at_dir/$as_me.log - # Selected test groups. -if test -z "$at_groups$at_recheck"; then - at_groups=$at_groups_all -else - if test -n "$at_recheck" && test -r "$at_suite_log"; then - at_oldfails=`sed -n ' - /^Failed tests:$/,/^Skipped tests:$/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^Unexpected passes:$/,/^## Detailed failed tests/{ - s/^[ ]*\([1-9][0-9]*\):.*/\1/p - } - /^## Detailed failed tests/q - ' "$at_suite_log"` - as_fn_append at_groups "$at_oldfails$as_nl" - fi - # Sort the tests, removing duplicates. - at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'` -fi - -if test x"$at_color" = xalways \ - || { test x"$at_color" = xauto && test -t 1; }; then - at_red=`printf '\033[0;31m'` - at_grn=`printf '\033[0;32m'` - at_lgn=`printf '\033[1;32m'` - at_blu=`printf '\033[1;34m'` - at_std=`printf '\033[m'` -else - at_red= at_grn= at_lgn= at_blu= at_std= -fi +test -z "$at_groups" && at_groups=$at_groups_all # Help message. if $at_help_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] -Run all the tests, or the selected TESTS, given by numeric ranges, and -save a detailed log file. Upon failure, create debugging scripts. +Run all the tests, or the selected TESTS, and save a detailed log file. +Upon failure, create debugging scripts. -Do not change environment variables directly. Instead, set them via -command line arguments. Set \`AUTOTEST_PATH' to select the executables +You should not change environment variables unless explicitly passed +as command line arguments. Set \`AUTOTEST_PATH' to select the executables to exercise. Each relative directory is expanded as build and source -directories relative to the top level of this distribution. -E.g., from within the build directory /tmp/foo-1.0, invoking this: +directories relatively to the top level of this distribution. E.g., $ $0 AUTOTEST_PATH=bin -is equivalent to the following, assuming the source directory is /src/foo-1.0: +possibly amounts into - PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0 + PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Operation modes: -h, --help print the help message, then exit @@ -962,278 +556,145 @@ Operation modes: -c, --clean remove all the files this test suite might create and exit -l, --list describes all the tests, or the selected TESTS _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Execution tuning: - -C, --directory=DIR - change to directory DIR before starting - --color[=never|auto|always] - enable colored test results on terminal, or always - -j, --jobs[=N] - Allow N jobs at once; infinite jobs with no arg (default 1) -k, --keywords=KEYWORDS - select the tests matching all the comma-separated KEYWORDS - multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD - --recheck select all tests that failed or passed unexpectedly last time + select the tests matching all the comma separated KEYWORDS + accumulates -e, --errexit abort as soon as a test fails; implies --debug -v, --verbose force more detailed output - default for debugging scripts - -d, --debug inhibit clean up and top-level logging - default for debugging scripts + default for debugging scripts + -d, --debug inhibit clean up and debug script creation + default for debugging scripts -x, --trace enable tests shell tracing _ATEOF -cat <<_ATEOF || at_write_fail=1 +cat <<_ATEOF Report bugs to . _ATEOF - exit $at_write_fail + exit 0 fi # List of tests. if $at_list_p; then - cat <<_ATEOF || at_write_fail=1 + cat <<_ATEOF OpenCOBOL 1.1 test suite: Syntax Tests test groups: - NUM: FILE-NAME:LINE TEST-GROUP-NAME + NUM: FILENAME:LINE TEST-GROUP-NAME KEYWORDS _ATEOF - # Pass an empty line as separator between selected groups and help. - $as_echo "$at_groups$as_nl$as_nl$at_help_all" | - awk 'NF == 1 && FS != ";" { - selected[$ 1] = 1 - next - } - /^$/ { FS = ";" } - NF > 0 { - if (selected[$ 1]) { - printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3 - if ($ 4) { - lmax = 79 - indent = " " - line = indent - len = length (line) - n = split ($ 4, a, " ") - for (i = 1; i <= n; i++) { - l = length (a[i]) + 1 - if (i > 1 && len + l > lmax) { - print line - line = indent " " a[i] - len = length (line) - } else { - line = line " " a[i] - len += l - } - } - if (n) - print line - } - } - }' || at_write_fail=1 - exit $at_write_fail -fi -if $at_version_p; then - $as_echo "$as_me (OpenCOBOL 1.1)" && - cat <<\_ATEOF || at_write_fail=1 - -Copyright (C) 2010 Free Software Foundation, Inc. -This test suite is free software; the Free Software Foundation gives -unlimited permission to copy, distribute and modify it. -_ATEOF - exit $at_write_fail -fi - -# Should we print banners? Yes if more than one test is run. -case $at_groups in #( - *$as_nl* ) - at_print_banners=: ;; #( - * ) at_print_banners=false ;; -esac -# Text for banner N, set to a single space once printed. - -# Take any -C into account. -if $at_change_dir ; then - test x != "x$at_dir" && cd "$at_dir" \ - || as_fn_error $? "unable to change directory" - at_dir=`pwd` -fi - -# Load the config files for any default variable assignments. -for at_file in atconfig atlocal -do - test -r $at_file || continue - . ./$at_file || as_fn_error $? "invalid content: $at_file" -done - -# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix: -: "${at_top_build_prefix=$at_top_builddir}" - -# Perform any assignments requested during argument parsing. -eval "$at_debug_args" - -# atconfig delivers names relative to the directory the test suite is -# in, but the groups themselves are run in testsuite-dir/group-dir. -if test -n "$at_top_srcdir"; then - builddir=../.. - for at_dir_var in srcdir top_srcdir top_build_prefix - do - eval at_val=\$at_$at_dir_var - case $at_val in - [\\/$]* | ?:[\\/]* ) at_prefix= ;; - *) at_prefix=../../ ;; - esac - eval "$at_dir_var=\$at_prefix\$at_val" - done -fi - -## -------------------- ## -## Directory structure. ## -## -------------------- ## - -# This is the set of directories and files used by this script -# (non-literals are capitalized): -# -# TESTSUITE - the testsuite -# TESTSUITE.log - summarizes the complete testsuite run -# TESTSUITE.dir/ - created during a run, remains after -d or failed test -# + at-groups/ - during a run: status of all groups in run -# | + NNN/ - during a run: meta-data about test group NNN -# | | + check-line - location (source file and line) of current AT_CHECK -# | | + status - exit status of current AT_CHECK -# | | + stdout - stdout of current AT_CHECK -# | | + stder1 - stderr, including trace -# | | + stderr - stderr, with trace filtered out -# | | + test-source - portion of testsuite that defines group -# | | + times - timestamps for computing duration -# | | + pass - created if group passed -# | | + xpass - created if group xpassed -# | | + fail - created if group failed -# | | + xfail - created if group xfailed -# | | + skip - created if group skipped -# + at-stop - during a run: end the run if this file exists -# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction -# + 0..NNN/ - created for each group NNN, remains after -d or failed test -# | + TESTSUITE.log - summarizes the group results -# | + ... - files created during the group - -# The directory the whole suite works in. -# Should be absolute to let the user `cd' at will. -at_suite_dir=$at_dir/$as_me.dir -# The file containing the suite ($at_dir might have changed since earlier). -at_suite_log=$at_dir/$as_me.log -# The directory containing helper files per test group. -at_helper_dir=$at_suite_dir/at-groups -# Stop file: if it exists, do not start new jobs. -at_stop_file=$at_suite_dir/at-stop -# The fifo used for the job dispatcher. -at_job_fifo=$at_suite_dir/at-job-fifo - -if $at_clean; then - test -d "$at_suite_dir" && - find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -f -r "$at_suite_dir" "$at_suite_log" - exit $? + # " 1 42 45 " => "^(1|42|45);". + at_groups_pattern=`echo "$at_groups" | sed 's/^ *//;s/ *$//;s/ */|/g'` + echo "$at_help_all" | + awk 'BEGIN { FS = ";" } + { if ($1 !~ /^('"$at_groups_pattern"')$/) next } + { if ($1) printf " %3d: %-18s %s\n", $1, $2, $3 + if ($4) printf " %s\n", $4 } ' + exit 0 fi # Don't take risks: use only absolute directories in PATH. # -# For stand-alone test suites (ie. atconfig was not found), -# AUTOTEST_PATH is relative to `.'. +# For stand-alone test suites, AUTOTEST_PATH is relative to `.'. # # For embedded test suites, AUTOTEST_PATH is relative to the top level # of the package. Then expand it into build/src parts, since users # may create executables in both places. -AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"` +# +# There might be directories that don't exist, but don't redirect +# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. +AUTOTEST_PATH=`echo $AUTOTEST_PATH | tr ':' $PATH_SEPARATOR` at_path= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $AUTOTEST_PATH $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR -case $as_dir in + case $as_dir in [\\/]* | ?:[\\/]* ) - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir ;; * ) - if test -z "$at_top_build_prefix"; then + if test -z "$at_top_builddir"; then # Stand-alone test suite. - as_fn_append at_path "$as_dir" + at_path=$at_path$PATH_SEPARATOR$as_dir else # Embedded test suite. - as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR" - as_fn_append at_path "$at_top_srcdir/$as_dir" + at_path=$at_path$PATH_SEPARATOR$at_top_builddir/$as_dir + at_path=$at_path$PATH_SEPARATOR$at_top_srcdir/$as_dir fi ;; esac - done -IFS=$as_save_IFS +done # Now build and simplify PATH. -# -# There might be directories that don't exist, but don't redirect -# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. -at_new_path= +PATH= as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $at_path do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -d "$as_dir" || continue -case $as_dir in - [\\/]* | ?:[\\/]* ) ;; - * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;; -esac -case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in - *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;; - $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;; - *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;; + as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` +test -d "$as_dir" || continue +case $PATH in + $as_dir | \ + $as_dir$PATH_SEPARATOR* | \ + *$PATH_SEPARATOR$as_dir | \ + *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR* ) ;; + + '') PATH=$as_dir ;; + *) PATH=$PATH$PATH_SEPARATOR$as_dir ;; esac - done -IFS=$as_save_IFS +done -PATH=$at_new_path export PATH # Setting up the FDs. - - - # 5 is the log file. Not to be overwritten if `-d'. -if $at_debug_p; then - at_suite_log=/dev/null -else - : >"$at_suite_log" -fi -exec 5>>"$at_suite_log" + +$at_debug_p && at_suite_log=/dev/null +exec 5>$at_suite_log # Banners and logs. -$as_echo "## --------------------------------------- ## +cat <<\_ASBOX +## --------------------------------------- ## ## OpenCOBOL 1.1 test suite: Syntax Tests. ## -## --------------------------------------- ##" +## --------------------------------------- ## +_ASBOX { - $as_echo "## --------------------------------------- ## + cat <<\_ASBOX +## --------------------------------------- ## ## OpenCOBOL 1.1 test suite: Syntax Tests. ## -## --------------------------------------- ##" +## --------------------------------------- ## +_ASBOX echo - $as_echo "$as_me: command line was:" - $as_echo " \$ $0 $at_cli_args" + echo "$as_me: command line was:" + echo " $ $0 $at_cli_args" echo - # If ChangeLog exists, list a few lines in case it might help determining - # the exact version. - if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then - $as_echo "## ---------- ## -## ChangeLog. ## -## ---------- ##" - echo - sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog" + # Try to find a few ChangeLogs in case it might help determining the + # exact version. Use the relative dir: if the top dir is a symlink, + # find will not follow it (and options to follow the links are not + # portable), which would result in no output here. + if test -n "$at_top_srcdir"; then + cat <<\_ASBOX +## ----------- ## +## ChangeLogs. ## +## ----------- ## +_ASBOX echo - fi + for at_file in `find "$at_top_srcdir" -name ChangeLog -print` + do + echo "$as_me: $at_file:" + sed 's/^/| /;10q' $at_file + echo + done - { + { cat <<_ASUNAME ## --------- ## ## Platform. ## @@ -1251,7 +712,7 @@ uname -v = `(uname -v) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` @@ -1263,822 +724,150 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" - done -IFS=$as_save_IFS + echo "PATH: $as_dir" +done } - echo + echo + fi # Contents of the config files. for at_file in atconfig atlocal do test -r $at_file || continue - $as_echo "$as_me: $at_file:" + echo "$as_me: $at_file:" sed 's/^/| /' $at_file echo done -} >&5 - -## ------------------------- ## -## Autotest shell functions. ## -## ------------------------- ## - -# at_fn_banner NUMBER -# ------------------- -# Output banner NUMBER, provided the testsuite is running multiple groups and -# this particular banner has not yet been printed. -at_fn_banner () -{ - $at_print_banners || return 0 - eval at_banner_text=\$at_banner_text_$1 - test "x$at_banner_text" = "x " && return 0 - eval "at_banner_text_$1=\" \"" - if test -z "$at_banner_text"; then - $at_first || echo - else - $as_echo "$as_nl$at_banner_text$as_nl" - fi -} # at_fn_banner - -# at_fn_check_prepare_notrace REASON LINE -# --------------------------------------- -# Perform AT_CHECK preparations for the command at LINE for an untraceable -# command; REASON is the reason for disabling tracing. -at_fn_check_prepare_notrace () -{ - $at_trace_echo "Not enabling shell tracing (command contains $1)" - $as_echo "$2" >"$at_check_line_file" - at_check_trace=: at_check_filter=: - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_trace LINE -# ------------------------------ -# Perform AT_CHECK preparations for the command at LINE for a traceable -# command. -at_fn_check_prepare_trace () -{ - $as_echo "$1" >"$at_check_line_file" - at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace - : >"$at_stdout"; : >"$at_stderr" -} - -# at_fn_check_prepare_dynamic COMMAND LINE -# ---------------------------------------- -# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate -# preparation function. -at_fn_check_prepare_dynamic () -{ - case $1 in - *$as_nl*) - at_fn_check_prepare_notrace 'an embedded newline' "$2" ;; - *) - at_fn_check_prepare_trace "$2" ;; - esac -} - -# at_fn_filter_trace -# ------------------ -# Remove the lines in the file "$at_stderr" generated by "set -x" and print -# them to stderr. -at_fn_filter_trace () -{ - mv "$at_stderr" "$at_stder1" - grep '^ *+' "$at_stder1" >&2 - grep -v '^ *+' "$at_stder1" >"$at_stderr" -} - -# at_fn_log_failure FILE-LIST -# --------------------------- -# Copy the files in the list on stdout with a "> " prefix, and exit the shell -# with a failure exit code. -at_fn_log_failure () -{ - for file - do $as_echo "$file:"; sed 's/^/> /' "$file"; done - echo 1 > "$at_status_file" - exit 1 -} - -# at_fn_check_skip EXIT-CODE LINE -# ------------------------------- -# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit -# the test group subshell with that same exit code. Use LINE in any report -# about test failure. -at_fn_check_skip () -{ - case $1 in - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$2: hard failure"; exit 99;; - 77) echo 77 > "$at_status_file"; exit 77;; - esac -} - -# at_fn_check_status EXPECTED EXIT-CODE LINE -# ------------------------------------------ -# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing. -# Otherwise, if it is 77 or 99, exit the test group subshell with that same -# exit code; if it is anything else print an error message referring to LINE, -# and fail the test. -at_fn_check_status () -{ - case $2 in - $1 ) ;; - 77) echo 77 > "$at_status_file"; exit 77;; - 99) echo 99 > "$at_status_file"; at_failed=: - $as_echo "$3: hard failure"; exit 99;; - *) $as_echo "$3: exit code was $2, expected $1" - at_failed=:;; - esac -} - -# at_fn_diff_devnull FILE -# ----------------------- -# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff -# invocations. -at_fn_diff_devnull () -{ - test -s "$1" || return 0 - $at_diff "$at_devnull" "$1" -} - -# at_fn_test NUMBER -# ----------------- -# Parse out test NUMBER from the tail of this file. -at_fn_test () -{ - eval at_sed=\$at_sed$1 - sed "$at_sed" "$at_myself" > "$at_test_source" -} - -# at_fn_create_debugging_script -# ----------------------------- -# Create the debugging script $at_group_dir/run which will reproduce the -# current test group. -at_fn_create_debugging_script () -{ - { - echo "#! /bin/sh" && - echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' && - $as_echo "cd '$at_dir'" && - $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" && - echo 'exit 1' - } >"$at_group_dir/run" && - chmod +x "$at_group_dir/run" -} - -## -------------------------------- ## -## End of autotest shell functions. ## -## -------------------------------- ## -{ - $as_echo "## ---------------- ## -## Tested programs. ## -## ---------------- ##" - echo -} >&5 + cat <<\_ASBOX +## ---------------- ## +## Tested programs. ## +## ---------------- ## +_ASBOX + echo +} >&5 # Report what programs are being tested. for at_program in : $at_tested do test "$at_program" = : && continue - case $at_program in - [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;; - * ) - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -f "$as_dir/$at_program" && break - done -IFS=$as_save_IFS + test -f $as_dir/$at_program && break +done - at_program_=$as_dir/$at_program ;; - esac - if test -f "$at_program_"; then + if test -f $as_dir/$at_program; then { - $as_echo "$at_srcdir/syntax.at:21: $at_program_ --version" - "$at_program_" --version &5 2>&1 else - as_fn_error $? "cannot find $at_program" "$LINENO" 5 + { { echo "$as_me:$LINENO: error: cannot find $at_program" >&5 +echo "$as_me: error: cannot find $at_program" >&2;} + { (exit 1); exit 1; }; } fi done { - $as_echo "## ------------------ ## + cat <<\_ASBOX +## ------------------ ## ## Running the tests. ## -## ------------------ ##" +## ------------------ ## +_ASBOX } >&5 at_start_date=`date` -at_start_time=`date +%s 2>/dev/null` -$as_echo "$as_me: starting at: $at_start_date" >&5 +at_start_time=`(date +%s) 2>/dev/null` +echo "$as_me: starting at: $at_start_date" >&5 +at_xpass_list= +at_xfail_list= +at_pass_list= +at_fail_list= +at_skip_list= +at_group_count=0 # Create the master directory if it doesn't already exist. -as_dir="$at_suite_dir"; as_fn_mkdir_p || - as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5 +test -d $at_suite_dir || + mkdir $at_suite_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_suite_dir" >&5 +echo "$as_me: error: cannot create $at_suite_dir" >&2;} + { (exit 1); exit 1; }; } # Can we diff with `/dev/null'? DU 5.0 refuses. if diff /dev/null /dev/null >/dev/null 2>&1; then at_devnull=/dev/null else at_devnull=$at_suite_dir/devnull - >"$at_devnull" + cp /dev/null $at_devnull fi # Use `diff -u' when possible. -if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff" -then +if diff -u $at_devnull $at_devnull >/dev/null 2>&1; then at_diff='diff -u' else at_diff=diff fi -# Get the last needed group. -for at_group in : $at_groups; do :; done - -# Extract the start and end lines of each test group at the tail -# of this file -awk ' -BEGIN { FS="" } -/^#AT_START_/ { - start = NR -} -/^#AT_STOP_/ { - test = substr ($ 0, 10) - print "at_sed" test "=\"1," start "d;" (NR-1) "q\"" - if (test == "'"$at_group"'") exit -}' "$at_myself" > "$at_suite_dir/at-source-lines" && -. "$at_suite_dir/at-source-lines" || - as_fn_error $? "cannot create test line number cache" "$LINENO" 5 -rm -f "$at_suite_dir/at-source-lines" - -# Set number of jobs for `-j'; avoid more jobs than test groups. -set X $at_groups; shift; at_max_jobs=$# -if test $at_max_jobs -eq 0; then - at_jobs=1 -fi -if test $at_jobs -ne 1 && - { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then - at_jobs=$at_max_jobs -fi - -# If parallel mode, don't output banners, don't split summary lines. -if test $at_jobs -ne 1; then - at_print_banners=false - at_quiet=: -fi - -# Set up helper dirs. -rm -rf "$at_helper_dir" && -mkdir "$at_helper_dir" && -cd "$at_helper_dir" && -{ test -z "$at_groups" || mkdir $at_groups; } || -as_fn_error $? "testsuite directory setup failed" "$LINENO" 5 - -# Functions for running a test group. We leave the actual -# test group execution outside of a shell function in order -# to avoid hitting zsh 4.x exit status bugs. - -# at_fn_group_prepare -# ------------------- -# Prepare for running a test group. -at_fn_group_prepare () -{ - # The directory for additional per-group helper files. - at_job_dir=$at_helper_dir/$at_group - # The file containing the location of the last AT_CHECK. - at_check_line_file=$at_job_dir/check-line - # The file containing the exit status of the last command. - at_status_file=$at_job_dir/status - # The files containing the output of the tested commands. - at_stdout=$at_job_dir/stdout - at_stder1=$at_job_dir/stder1 - at_stderr=$at_job_dir/stderr - # The file containing the code for a test group. - at_test_source=$at_job_dir/test-source - # The file containing dates. - at_times_file=$at_job_dir/times +for at_group in $at_groups +do # Be sure to come back to the top test directory. - cd "$at_suite_dir" - - # Clearly separate the test groups when verbose. - $at_first || $at_verbose echo - - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - - # Create a fresh directory for the next test group, and enter. - # If one already exists, the user may have invoked ./run from - # within that directory; we remove the contents, but not the - # directory itself, so that we aren't pulling the rug out from - # under the shell's notion of the current directory. - at_group_dir=$at_suite_dir/$at_group_normalized - at_group_log=$at_group_dir/$as_me.log - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \; - rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??* -fi || - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5 -$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;} - # Be tolerant if the above `rm' was not able to remove the directory. - as_dir="$at_group_dir"; as_fn_mkdir_p - - echo 0 > "$at_status_file" - - # In verbose mode, append to the log file *and* show on - # the standard output; in quiet mode only write to the log. - if test -z "$at_verbose"; then - at_tee_pipe='tee -a "$at_group_log"' - else - at_tee_pipe='cat >> "$at_group_log"' - fi -} + cd $at_suite_dir -# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER] -# ------------------------------------------------- -# Declare the test group ORDINAL, located at LINE with group description DESC, -# and residing under BANNER. Use PAD to align the status column. -at_fn_group_banner () -{ - at_setup_line="$2" - test -n "$5" && at_fn_banner $5 - at_desc="$3" - case $1 in - [0-9]) at_desc_line=" $1: ";; - [0-9][0-9]) at_desc_line=" $1: " ;; - *) at_desc_line="$1: " ;; - esac - as_fn_append at_desc_line "$3$4" - $at_quiet $as_echo_n "$at_desc_line" - echo "# -*- compilation -*-" >> "$at_group_log" -} - -# at_fn_group_postprocess -# ----------------------- -# Perform cleanup after running a test group. -at_fn_group_postprocess () -{ - # Be sure to come back to the suite directory, in particular - # since below we might `rm' the group directory we are in currently. - cd "$at_suite_dir" - - if test ! -f "$at_check_line_file"; then - sed "s/^ */$as_me: WARNING: /" <<_ATEOF - A failure happened in a test group before any test could be - run. This means that test suite is improperly designed. Please - report this failure to . -_ATEOF - $as_echo "$at_setup_line" >"$at_check_line_file" - at_status=99 - fi - $at_verbose $as_echo_n "$at_group. $at_setup_line: " - $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log" - case $at_xfail:$at_status in - yes:0) - at_msg="UNEXPECTED PASS" - at_res=xpass - at_errexit=$at_errexit_p - at_color=$at_red - ;; - no:0) - at_msg="ok" - at_res=pass - at_errexit=false - at_color=$at_grn - ;; - *:77) - at_msg='skipped ('`cat "$at_check_line_file"`')' - at_res=skip - at_errexit=false - at_color=$at_blu - ;; - no:* | *:99) - at_msg='FAILED ('`cat "$at_check_line_file"`')' - at_res=fail - at_errexit=$at_errexit_p - at_color=$at_red - ;; - yes:*) - at_msg='expected failure ('`cat "$at_check_line_file"`')' - at_res=xfail - at_errexit=false - at_color=$at_lgn - ;; - esac - echo "$at_res" > "$at_job_dir/$at_res" - # In parallel mode, output the summary line only afterwards. - if test $at_jobs -ne 1 && test -n "$at_verbose"; then - $as_echo "$at_desc_line $at_color$at_msg$at_std" - else - # Make sure there is a separator even with long titles. - $as_echo " $at_color$at_msg$at_std" - fi - at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" - case $at_status in - 0|77) - # $at_times_file is only available if the group succeeded. - # We're not including the group log, so the success message - # is written in the global log separately. But we also - # write to the group log in case they're using -d. - if test -f "$at_times_file"; then - at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')' - rm -f "$at_times_file" - fi - $as_echo "$at_log_msg" >> "$at_group_log" - $as_echo "$at_log_msg" >&5 - - # Cleanup the group directory, unless the user wants the files - # or the success was unexpected. - if $at_debug_p || test $at_res = xpass; then - at_fn_create_debugging_script - if test $at_res = xpass && $at_errexit; then - echo stop > "$at_stop_file" - fi - else - if test -d "$at_group_dir"; then - find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; - rm -fr "$at_group_dir" - fi - rm -f "$at_test_source" - fi + case $at_group in + banner-*) + at_group_log=$at_suite_log ;; - *) - # Upon failure, include the log into the testsuite's global - # log. The failure message is written in the group log. It - # is later included in the global log. - $as_echo "$at_log_msg" >> "$at_group_log" - - # Upon failure, keep the group directory for autopsy, and create - # the debugging script. With -e, do not start any further tests. - at_fn_create_debugging_script - if $at_errexit; then - echo stop > "$at_stop_file" - fi - ;; - esac -} - - -## ------------ ## -## Driver loop. ## -## ------------ ## - - -if (set -m && set +m && set +b) >/dev/null 2>&1; then - set +b - at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=- -else - at_job_control_on=: at_job_control_off=: at_job_group= -fi - -for at_signal in 1 2 15; do - trap 'set +x; set +e - $at_job_control_off - at_signal='"$at_signal"' - echo stop > "$at_stop_file" - trap "" $at_signal - at_pgids= - for at_pgid in `jobs -p 2>/dev/null`; do - at_pgids="$at_pgids $at_job_group$at_pgid" - done - test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null - wait - if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then - echo >&2 - fi - at_signame=`kill -l $at_signal 2>&1 || echo $at_signal` - set x $at_signame - test 1 -gt 2 && at_signame=$at_signal - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5 -$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;} - as_fn_arith 128 + $at_signal && exit_status=$as_val - as_fn_exit $exit_status' $at_signal -done - -rm -f "$at_stop_file" -at_first=: - -if test $at_jobs -ne 1 && - rm -f "$at_job_fifo" && - test -n "$at_job_group" && - ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null -then - # FIFO job dispatcher. - - trap 'at_pids= - for at_pid in `jobs -p`; do - at_pids="$at_pids $at_job_group$at_pid" - done - if test -n "$at_pids"; then - at_sig=TSTP - test "${TMOUT+set}" = set && at_sig=STOP - kill -$at_sig $at_pids 2>/dev/null - fi - kill -STOP $$ - test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP - - echo - # Turn jobs into a list of numbers, starting from 1. - at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p` - - set X $at_joblist - shift - for at_group in $at_groups; do - $at_job_control_on 2>/dev/null - ( - # Start one test group. - $at_job_control_off - if $at_first; then - exec 7>"$at_job_fifo" - else - exec 6<&- - fi - trap 'set +x; set +e - trap "" PIPE - echo stop > "$at_stop_file" - echo >&7 - as_fn_exit 141' PIPE - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source" - then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - echo >&7 - ) & - $at_job_control_off - if $at_first; then - at_first=false - exec 6<"$at_job_fifo" 7>"$at_job_fifo" - fi - shift # Consume one token. - if test $# -gt 0; then :; else - read at_token <&6 || break - set x $* - fi - test -f "$at_stop_file" && break - done - exec 7>&- - # Read back the remaining ($at_jobs - 1) tokens. - set X $at_joblist - shift - if test $# -gt 0; then - shift - for at_job - do - read at_token - done <&6 - fi - exec 6<&- - wait -else - # Run serially, avoid forks and other potential surprises. - for at_group in $at_groups; do - at_fn_group_prepare - if cd "$at_group_dir" && - at_fn_test $at_group && - . "$at_test_source"; then :; else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 -$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} - at_failed=: - fi - at_fn_group_postprocess - test -f "$at_stop_file" && break - at_first=false - done -fi - -# Wrap up the test suite with summary statistics. -cd "$at_helper_dir" - -# Use ?..???? when the list must remain sorted, the faster * otherwise. -at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'` -at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'` -at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'` -at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do - echo $f; done | sed '/?/d; s,/xpass,,'` -at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do - echo $f; done | sed '/?/d; s,/fail,,'` - -set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list -shift; at_group_count=$# -set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$* -set X $at_xfail_list; shift; at_xfail_count=$# -set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$* -set X $at_skip_list; shift; at_skip_count=$# - -as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val -as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val -as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val - -# Back to the top directory. -cd "$at_dir" -rm -rf "$at_helper_dir" -# Compute the duration of the suite. -at_stop_date=`date` -at_stop_time=`date +%s 2>/dev/null` -$as_echo "$as_me: ending at: $at_stop_date" >&5 -case $at_start_time,$at_stop_time in - [0-9]*,[0-9]*) - as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val - as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val - as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val - as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val - as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val - at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" - $as_echo "$as_me: test suite duration: $at_duration" >&5 - ;; -esac - -echo -$as_echo "## ------------- ## -## Test results. ## -## ------------- ##" -echo -{ - echo - $as_echo "## ------------- ## -## Test results. ## -## ------------- ##" - echo -} >&5 - -if test $at_run_count = 1; then - at_result="1 test" - at_were=was -else - at_result="$at_run_count tests" - at_were=were -fi -if $at_errexit_p && test $at_unexpected_count != 0; then - if test $at_xpass_count = 1; then - at_result="$at_result $at_were run, one passed" - else - at_result="$at_result $at_were run, one failed" - fi - at_result="$at_result unexpectedly and inhibited subsequent tests." - at_color=$at_red -else - # Don't you just love exponential explosion of the number of cases? - at_color=$at_red - case $at_xpass_count:$at_fail_count:$at_xfail_count in - # So far, so good. - 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;; - 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;; - - # Some unexpected failures - 0:*:0) at_result="$at_result $at_were run, -$at_fail_count failed unexpectedly." ;; - - # Some failures, both expected and unexpected - 0:*:1) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - 0:*:*) at_result="$at_result $at_were run, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; - - # No unexpected failures, but some xpasses - *:0:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly." ;; - - # No expected failures, but failures and xpasses - *:1:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; - *:*:0) at_result="$at_result $at_were run, -$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + *) + # Skip tests we already run (using --keywords makes it easy to get + # duplication). + case " $at_pass_test $at_skip_test $at_fail_test " in + *" $at_group "* ) continue;; + esac - # All of them. - *:*:1) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failure)." ;; - *:*:*) at_result="$at_result $at_were run, -$at_xpass_count passed unexpectedly, -$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + rm -rf $at_group_dir + mkdir $at_group_dir || + { { echo "$as_me:$LINENO: error: cannot create $at_group_dir" >&5 +echo "$as_me: error: cannot create $at_group_dir" >&2;} + { (exit 1); exit 1; }; } + cd $at_group_dir + ;; esac - if test $at_skip_count = 0 && test $at_run_count -gt 1; then - at_result="All $at_result" - fi -fi - -# Now put skips in the mix. -case $at_skip_count in - 0) ;; - 1) at_result="$at_result -1 test was skipped." ;; - *) at_result="$at_result -$at_skip_count tests were skipped." ;; -esac - -if test $at_unexpected_count = 0; then - echo "$at_color$at_result$at_std" - echo "$at_result" >&5 -else - echo "${at_color}ERROR: $at_result$at_std" >&2 - echo "ERROR: $at_result" >&5 - { - echo - $as_echo "## ------------------------ ## -## Summary of the failures. ## -## ------------------------ ##" + echo 0 > $at_status_file - # Summary of failed and skipped tests. - if test $at_fail_count != 0; then - echo "Failed tests:" - $SHELL "$at_myself" $at_fail_list --list - echo - fi - if test $at_skip_count != 0; then - echo "Skipped tests:" - $SHELL "$at_myself" $at_skip_list --list - echo - fi - if test $at_xpass_count != 0; then - echo "Unexpected passes:" - $SHELL "$at_myself" $at_xpass_list --list - echo - fi - if test $at_fail_count != 0; then - $as_echo "## ---------------------- ## -## Detailed failed tests. ## -## ---------------------- ##" - echo - for at_group in $at_fail_list - do - at_group_normalized=$at_group - - eval 'while :; do - case $at_group_normalized in #( - '"$at_format"'*) break;; - esac - at_group_normalized=0$at_group_normalized - done' - - cat "$at_suite_dir/$at_group_normalized/$as_me.log" - echo - done - echo - fi - if test -n "$at_top_srcdir"; then - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## ${at_top_build_prefix}config.log ## -_ASBOX - sed 's/^/| /' ${at_top_build_prefix}config.log - echo - fi - } >&5 - - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## $as_me.log was created. ## -_ASBOX + # Clearly separate the test groups when verbose. + test $at_group_count != 0 && $at_verbose - echo - if $at_debug_p; then - at_msg='per-test log files' + # In verbose mode, append to the log file *and* show on + # the standard output; in quiet mode only write to the log + if test $at_verbose = echo; then + at_tee_pipe="tee -a $at_group_log" else - at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'" + at_tee_pipe="cat >> $at_group_log" fi - $as_echo "Please send $at_msg and all information you think might help: - - To: - Subject: [OpenCOBOL 1.1] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly} - -You may investigate any problem if you feel able to do so, in which -case the test suite provides a good starting point. Its output may -be found below \`${at_testdir+${at_testdir}/}$as_me.dir'. -" - exit 1 -fi - -exit 0 -## ------------- ## -## Actual tests. ## -## ------------- ## -#AT_START_1 -at_fn_group_banner 1 'copy.at:22' \ - "COPY: file not found" " " -at_xfail=no -( - $as_echo "1. $at_setup_line: testing $at_desc ..." - $at_traceon + case $at_group in + 1 ) # 1. copy.at:22: COPY: file not found + at_setup_line='copy.at:22' + at_desc='COPY: file not found' + $at_quiet $ECHO_N " 1: COPY: file not found $ECHO_C" + at_xfail=no + ( + echo "1. copy.at:22: testing ..." + $at_traceon @@ -2094,34 +883,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/copy.at:35: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "copy.at:35" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: copy.inc: No such file or directory -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/copy.at:35" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_1 -#AT_START_2 -at_fn_group_banner 2 'copy.at:42' \ - "COPY: replacement order" " " -at_xfail=no -( - $as_echo "2. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "copy.at:35: \${COMPILE_ONLY} prog.cob" +echo copy.at:35 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: copy.inc: No such file or directory +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "copy.at:35: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 2 ) # 2. copy.at:42: COPY: replacement order + at_setup_line='copy.at:42' + at_desc='COPY: replacement order' + $at_quiet $ECHO_N " 2: COPY: replacement order $ECHO_C" + at_xfail=no + ( + echo "2. copy.at:42: testing ..." + $at_traceon @@ -2147,46 +949,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/copy.at:63: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "copy.at:63" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:63" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/copy.at:64: ./prog" -at_fn_check_prepare_trace "copy.at:64" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:64" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_2 -#AT_START_3 -at_fn_group_banner 3 'copy.at:69' \ - "COPY: separators" " " -at_xfail=no -( - $as_echo "3. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "copy.at:63: \${COMPILE} -o prog prog.cob" +echo copy.at:63 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:63: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "copy.at:64: ./prog" +echo copy.at:64 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:64: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 3 ) # 3. copy.at:69: COPY: separators + at_setup_line='copy.at:69' + at_desc='COPY: separators' + $at_quiet $ECHO_N " 3: COPY: separators $ECHO_C" + at_xfail=no + ( + echo "3. copy.at:69: testing ..." + $at_traceon @@ -2214,46 +1041,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/copy.at:92: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "copy.at:92" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:92" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/copy.at:93: ./prog" -at_fn_check_prepare_trace "copy.at:93" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:93" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_3 -#AT_START_4 -at_fn_group_banner 4 'copy.at:98' \ - "COPY: partial replacement" " " -at_xfail=no -( - $as_echo "4. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "copy.at:92: \${COMPILE} -o prog prog.cob" +echo copy.at:92 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:92: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "copy.at:93: ./prog" +echo copy.at:93 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:93: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 4 ) # 4. copy.at:98: COPY: partial replacement + at_setup_line='copy.at:98' + at_desc='COPY: partial replacement' + $at_quiet $ECHO_N " 4: COPY: partial replacement $ECHO_C" + at_xfail=no + ( + echo "4. copy.at:98: testing ..." + $at_traceon @@ -2282,46 +1134,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/copy.at:122: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "copy.at:122" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:122" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/copy.at:123: ./prog" -at_fn_check_prepare_trace "copy.at:123" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OKOK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:123" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_4 -#AT_START_5 -at_fn_group_banner 5 'copy.at:128' \ - "COPY: recursive replacement" " " -at_xfail=no -( - $as_echo "5. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "copy.at:122: \${COMPILE} -o prog prog.cob" +echo copy.at:122 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:122: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "copy.at:123: ./prog" +echo copy.at:123 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OKOK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:123: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 5 ) # 5. copy.at:128: COPY: recursive replacement + at_setup_line='copy.at:128' + at_desc='COPY: recursive replacement' + $at_quiet $ECHO_N " 5: COPY: recursive replacement $ECHO_C" + at_xfail=no + ( + echo "5. copy.at:128: testing ..." + $at_traceon @@ -2352,46 +1229,71 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/copy.at:152: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "copy.at:152" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:152" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/copy.at:153: ./prog" -at_fn_check_prepare_trace "copy.at:153" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/copy.at:153" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_5 -#AT_START_6 -at_fn_group_banner 6 'unmatured-copy.at:1' \ - "COPY: last line break in copybook" " " -at_xfail=no -( - $as_echo "6. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "copy.at:152: \${COMPILE} -o prog prog.cob" +echo copy.at:152 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:152: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "copy.at:153: ./prog" +echo copy.at:153 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "copy.at:153: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 6 ) # 6. unmatured-copy.at:1: COPY: last line break in copybook + at_setup_line='unmatured-copy.at:1' + at_desc='COPY: last line break in copybook' + $at_quiet $ECHO_N " 6: COPY: last line break in copybook $ECHO_C" + at_xfail=no + ( + echo "6. unmatured-copy.at:1: testing ..." + $at_traceon @@ -2409,62 +1311,98 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/unmatured-copy.at:16: echo -n ' 01 TEST-VAR PIC X(2) VALUE \"OK\".' > copy.inc +$at_traceoff +echo "unmatured-copy.at:16: echo -n ' 01 TEST-VAR PIC X(2) VALUE \"OK\".' > copy.inc " -at_fn_check_prepare_notrace 'an embedded newline' "unmatured-copy.at:16" -( $at_check_trace; echo -n ' 01 TEST-VAR PIC X(2) VALUE "OK".' > copy.inc - -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/unmatured-copy.at:16" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/unmatured-copy.at:18: \${COMPILE} -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "unmatured-copy.at:18" -( $at_check_trace; ${COMPILE} -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "copy.inc:1: Warning: Line not terminated by a newline -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/unmatured-copy.at:18" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/unmatured-copy.at:21: ./prog" -at_fn_check_prepare_trace "unmatured-copy.at:21" -( $at_check_trace; ./prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/unmatured-copy.at:21" -$at_failed && at_fn_log_failure -$at_traceon; } - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_6 -#AT_START_7 -at_fn_group_banner 7 'definition.at:25' \ - "Invalid PROGRAM-ID" " " -at_xfail=no -( - $as_echo "7. $at_setup_line: testing $at_desc ..." - $at_traceon +echo unmatured-copy.at:16 >$at_check_line_file +( $at_traceon; echo -n ' 01 TEST-VAR PIC X(2) VALUE "OK".' > copy.inc + ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "unmatured-copy.at:16: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "unmatured-copy.at:18: \${COMPILE} -o prog prog.cob" +echo unmatured-copy.at:18 >$at_check_line_file +( $at_traceon; ${COMPILE} -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "copy.inc:1: Warning: Line not terminated by a newline +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "unmatured-copy.at:18: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "unmatured-copy.at:21: ./prog" +echo unmatured-copy.at:21 >$at_check_line_file +( $at_traceon; ./prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "unmatured-copy.at:21: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 7 ) # 7. definition.at:25: Invalid PROGRAM-ID + at_setup_line='definition.at:25' + at_desc='Invalid PROGRAM-ID' + $at_quiet $ECHO_N " 7: Invalid PROGRAM-ID $ECHO_C" + at_xfail=no + ( + echo "7. definition.at:25: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2476,34 +1414,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:34: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:34" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:3: Error: PROGRAM-ID 'short' invalid -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:34" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_7 -#AT_START_8 -at_fn_group_banner 8 'definition.at:40' \ - "Invalid PROGRAM-ID type clause (1)" " " -at_xfail=no -( - $as_echo "8. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:34: \${COMPILE_ONLY} prog.cob" +echo definition.at:34 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:3: Error: PROGRAM-ID 'short' invalid +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:34: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 8 ) # 8. definition.at:40: Invalid PROGRAM-ID type clause (1) + at_setup_line='definition.at:40' + at_desc='Invalid PROGRAM-ID type clause (1)' + $at_quiet $ECHO_N " 8: Invalid PROGRAM-ID type clause (1) $ECHO_C" + at_xfail=no + ( + echo "8. definition.at:40: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2515,34 +1466,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:49: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:49" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:3: Error: COMMON may only be used in a nested program -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:49" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_8 -#AT_START_9 -at_fn_group_banner 9 'definition.at:55' \ - "Invalid PROGRAM-ID type clause (2)" " " -at_xfail=no -( - $as_echo "9. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:49: \${COMPILE_ONLY} prog.cob" +echo definition.at:49 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:3: Error: COMMON may only be used in a nested program +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:49: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 9 ) # 9. definition.at:55: Invalid PROGRAM-ID type clause (2) + at_setup_line='definition.at:55' + at_desc='Invalid PROGRAM-ID type clause (2)' + $at_quiet $ECHO_N " 9: Invalid PROGRAM-ID type clause (2) $ECHO_C" + at_xfail=no + ( + echo "9. definition.at:55: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2554,34 +1518,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:64: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:64" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:3: Error: syntax error, unexpected RECURSIVE, expecting '.' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:64" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_9 -#AT_START_10 -at_fn_group_banner 10 'definition.at:76' \ - "Undefined data name" " " -at_xfail=no -( - $as_echo "10. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:64: \${COMPILE_ONLY} prog.cob" +echo definition.at:64 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:3: Error: syntax error, unexpected RECURSIVE, expecting '.' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:64: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 10 ) # 10. definition.at:76: Undefined data name + at_setup_line='definition.at:76' + at_desc='Undefined data name' + $at_quiet $ECHO_N " 10: Undefined data name $ECHO_C" + at_xfail=no + ( + echo "10. definition.at:76: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2595,34 +1572,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:87: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:87" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:5: Error: 'X' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:87" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_10 -#AT_START_11 -at_fn_group_banner 11 'definition.at:93' \ - "Undefined group name" " " -at_xfail=no -( - $as_echo "11. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:87: \${COMPILE_ONLY} prog.cob" +echo definition.at:87 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:5: Error: 'X' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:87: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 11 ) # 11. definition.at:93: Undefined group name + at_setup_line='definition.at:93' + at_desc='Undefined group name' + $at_quiet $ECHO_N " 11: Undefined group name $ECHO_C" + at_xfail=no + ( + echo "11. definition.at:93: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2639,34 +1629,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:107: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:107" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: 'X' in 'G' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:107" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_11 -#AT_START_12 -at_fn_group_banner 12 'definition.at:113' \ - "Undefined data name in group" " " -at_xfail=no -( - $as_echo "12. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:107: \${COMPILE_ONLY} prog.cob" +echo definition.at:107 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: 'X' in 'G' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:107: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 12 ) # 12. definition.at:113: Undefined data name in group + at_setup_line='definition.at:113' + at_desc='Undefined data name in group' + $at_quiet $ECHO_N " 12: Undefined data name in group $ECHO_C" + at_xfail=no + ( + echo "12. definition.at:113: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2685,34 +1688,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:129: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:129" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'Y' in 'G' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:129" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_12 -#AT_START_13 -at_fn_group_banner 13 'definition.at:135' \ - "Reference not a group name" " " -at_xfail=no -( - $as_echo "13. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:129: \${COMPILE_ONLY} prog.cob" +echo definition.at:129 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'Y' in 'G' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:129: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 13 ) # 13. definition.at:135: Reference not a group name + at_setup_line='definition.at:135' + at_desc='Reference not a group name' + $at_quiet $ECHO_N " 13: Reference not a group name $ECHO_C" + at_xfail=no + ( + echo "13. definition.at:135: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2729,34 +1745,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:149: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:149" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: 'X' in 'X' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:149" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_13 -#AT_START_14 -at_fn_group_banner 14 'definition.at:158' \ - "Incomplete 01 definition" " " -at_xfail=no -( - $as_echo "14. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:149: \${COMPILE_ONLY} prog.cob" +echo definition.at:149 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: 'X' in 'X' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:149: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 14 ) # 14. definition.at:158: Incomplete 01 definition + at_setup_line='definition.at:158' + at_desc='Incomplete 01 definition' + $at_quiet $ECHO_N " 14: Incomplete 01 definition $ECHO_C" + at_xfail=no + ( + echo "14. definition.at:158: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2769,34 +1798,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:168: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:168" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: PICTURE clause required for 'X' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:168" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_14 -#AT_START_15 -at_fn_group_banner 15 'definition.at:177' \ - "Same labels in different sections" " " -at_xfail=no -( - $as_echo "15. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:168: \${COMPILE_ONLY} prog.cob" +echo definition.at:168 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: PICTURE clause required for 'X' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:168: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 15 ) # 15. definition.at:177: Same labels in different sections + at_setup_line='definition.at:177' + at_desc='Same labels in different sections' + $at_quiet $ECHO_N " 15: Same labels in different sections $ECHO_C" + at_xfail=no + ( + echo "15. definition.at:177: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2816,32 +1858,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:194: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:194" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:194" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_15 -#AT_START_16 -at_fn_group_banner 16 'definition.at:201' \ - "Redefinition of 01 items" " " -at_xfail=no -( - $as_echo "16. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:194: \${COMPILE_ONLY} prog.cob" +echo definition.at:194 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:194: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 16 ) # 16. definition.at:201: Redefinition of 01 items + at_setup_line='definition.at:201' + at_desc='Redefinition of 01 items' + $at_quiet $ECHO_N " 16: Redefinition of 01 items $ECHO_C" + at_xfail=no + ( + echo "16. definition.at:201: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2855,35 +1911,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:212: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:212" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Warning: Redefinition of 'X' +$at_traceoff +echo "definition.at:212: \${COMPILE_ONLY} prog.cob" +echo definition.at:212 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Warning: Redefinition of 'X' prog.cob:6: Warning: 'X' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:212" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_16 -#AT_START_17 -at_fn_group_banner 17 'definition.at:219' \ - "Redefinition of 01 and 02 items" " " -at_xfail=no -( - $as_echo "17. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:212: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 17 ) # 17. definition.at:219: Redefinition of 01 and 02 items + at_setup_line='definition.at:219' + at_desc='Redefinition of 01 and 02 items' + $at_quiet $ECHO_N " 17: Redefinition of 01 and 02 items $ECHO_C" + at_xfail=no + ( + echo "17. definition.at:219: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2897,35 +1966,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:230: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:230" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Warning: Redefinition of 'X' +$at_traceoff +echo "definition.at:230: \${COMPILE_ONLY} prog.cob" +echo definition.at:230 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Warning: Redefinition of 'X' prog.cob:6: Warning: 'X' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:230" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_17 -#AT_START_18 -at_fn_group_banner 18 'definition.at:237' \ - "Redefinition of 02 items" " " -at_xfail=no -( - $as_echo "18. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:230: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 18 ) # 18. definition.at:237: Redefinition of 02 items + at_setup_line='definition.at:237' + at_desc='Redefinition of 02 items' + $at_quiet $ECHO_N " 18: Redefinition of 02 items $ECHO_C" + at_xfail=no + ( + echo "18. definition.at:237: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2940,35 +2022,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:249: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:249" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Redefinition of 'X' -prog.cob:7: Warning: 'X' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:249" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_18 -#AT_START_19 -at_fn_group_banner 19 'definition.at:256' \ - "Redefinition of 77 items" " " -at_xfail=no -( - $as_echo "19. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:249: \${COMPILE_ONLY} prog.cob" +echo definition.at:249 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Redefinition of 'X' +prog.cob:7: Warning: 'X' previously defined here +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:249: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 19 ) # 19. definition.at:256: Redefinition of 77 items + at_setup_line='definition.at:256' + at_desc='Redefinition of 77 items' + $at_quiet $ECHO_N " 19: Redefinition of 77 items $ECHO_C" + at_xfail=no + ( + echo "19. definition.at:256: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -2982,35 +2077,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:267: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:267" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Warning: Redefinition of 'X' +$at_traceoff +echo "definition.at:267: \${COMPILE_ONLY} prog.cob" +echo definition.at:267 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Warning: Redefinition of 'X' prog.cob:6: Warning: 'X' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:267" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_19 -#AT_START_20 -at_fn_group_banner 20 'definition.at:274' \ - "Redefinition of 01 and 77 items" " " -at_xfail=no -( - $as_echo "20. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:267: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 20 ) # 20. definition.at:274: Redefinition of 01 and 77 items + at_setup_line='definition.at:274' + at_desc='Redefinition of 01 and 77 items' + $at_quiet $ECHO_N " 20: Redefinition of 01 and 77 items $ECHO_C" + at_xfail=no + ( + echo "20. definition.at:274: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3024,35 +2132,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:285: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:285" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Warning: Redefinition of 'X' +$at_traceoff +echo "definition.at:285: \${COMPILE_ONLY} prog.cob" +echo definition.at:285 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Warning: Redefinition of 'X' prog.cob:6: Warning: 'X' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:285" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_20 -#AT_START_21 -at_fn_group_banner 21 'definition.at:292' \ - "Redefinition of 88 items" " " -at_xfail=no -( - $as_echo "21. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:285: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 21 ) # 21. definition.at:292: Redefinition of 88 items + at_setup_line='definition.at:292' + at_desc='Redefinition of 88 items' + $at_quiet $ECHO_N " 21: Redefinition of 88 items $ECHO_C" + at_xfail=no + ( + echo "21. definition.at:292: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3067,35 +2188,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:304: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:304" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Redefinition of 'A' +$at_traceoff +echo "definition.at:304: \${COMPILE_ONLY} prog.cob" +echo definition.at:304 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Redefinition of 'A' prog.cob:7: Warning: 'A' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:304" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_21 -#AT_START_22 -at_fn_group_banner 22 'definition.at:311' \ - "Ambiguous reference to 02 items" " " -at_xfail=no -( - $as_echo "22. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:304: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 22 ) # 22. definition.at:311: Ambiguous reference to 02 items + at_setup_line='definition.at:311' + at_desc='Ambiguous reference to 02 items' + $at_quiet $ECHO_N " 22: Ambiguous reference to 02 items $ECHO_C" + at_xfail=no + ( + echo "22. definition.at:311: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3115,36 +2249,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:328: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:328" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Error: 'X' ambiguous; need qualification +$at_traceoff +echo "definition.at:328: \${COMPILE_ONLY} prog.cob" +echo definition.at:328 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Error: 'X' ambiguous; need qualification prog.cob:7: Error: 'X' in 'G1' defined here prog.cob:9: Error: 'X' in 'G2' defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:328" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_22 -#AT_START_23 -at_fn_group_banner 23 'definition.at:336' \ - "Ambiguous reference to 02 and 03 items" " " -at_xfail=no -( - $as_echo "23. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:328: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 23 ) # 23. definition.at:336: Ambiguous reference to 02 and 03 items + at_setup_line='definition.at:336' + at_desc='Ambiguous reference to 02 and 03 items' + $at_quiet $ECHO_N " 23: Ambiguous reference to 02 and 03 items $ECHO_C" + at_xfail=no + ( + echo "23. definition.at:336: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3163,36 +2310,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:352: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:352" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'X' ambiguous; need qualification +$at_traceoff +echo "definition.at:352: \${COMPILE_ONLY} prog.cob" +echo definition.at:352 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'X' ambiguous; need qualification prog.cob:7: Error: 'X' in 'G' defined here prog.cob:8: Error: 'X' in 'X' in 'G' defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:352" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_23 -#AT_START_24 -at_fn_group_banner 24 'definition.at:360' \ - "Ambiguous reference with qualification" " " -at_xfail=no -( - $as_echo "24. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:352: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 24 ) # 24. definition.at:360: Ambiguous reference with qualification + at_setup_line='definition.at:360' + at_desc='Ambiguous reference with qualification' + $at_quiet $ECHO_N " 24: Ambiguous reference with qualification $ECHO_C" + at_xfail=no + ( + echo "24. definition.at:360: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3214,36 +2374,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:379: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:379" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:13: Error: 'Y' in 'X' ambiguous; need qualification +$at_traceoff +echo "definition.at:379: \${COMPILE_ONLY} prog.cob" +echo definition.at:379 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:13: Error: 'Y' in 'X' ambiguous; need qualification prog.cob:8: Error: 'Y' in 'X' in 'G1' defined here prog.cob:11: Error: 'Y' in 'X' in 'G2' defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:379" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_24 -#AT_START_25 -at_fn_group_banner 25 'definition.at:389' \ - "Unique reference with ambiguous qualifiers" " " -at_xfail=no -( - $as_echo "25. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:379: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 25 ) # 25. definition.at:389: Unique reference with ambiguous qualifiers + at_setup_line='definition.at:389' + at_desc='Unique reference with ambiguous qualifiers' + $at_quiet $ECHO_N " 25: Unique reference with ambiguous qualifiers $ECHO_C" + at_xfail=no + ( + echo "25. definition.at:389: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3265,32 +2438,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:408: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:408" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:408" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_25 -#AT_START_26 -at_fn_group_banner 26 'definition.at:424' \ - "Undefined procedure name" " " -at_xfail=no -( - $as_echo "26. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:408: \${COMPILE_ONLY} prog.cob" +echo definition.at:408 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:408: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 26 ) # 26. definition.at:424: Undefined procedure name + at_setup_line='definition.at:424' + at_desc='Undefined procedure name' + $at_quiet $ECHO_N " 26: Undefined procedure name $ECHO_C" + at_xfail=no + ( + echo "26. definition.at:424: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3303,34 +2490,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:434: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:434" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:5: Error: 'END-OF-PROGRAM' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:434" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_26 -#AT_START_27 -at_fn_group_banner 27 'definition.at:443' \ - "Redefinition of section names" " " -at_xfail=no -( - $as_echo "27. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:434: \${COMPILE_ONLY} prog.cob" +echo definition.at:434 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:5: Error: 'END-OF-PROGRAM' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:434: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 27 ) # 27. definition.at:443: Redefinition of section names + at_setup_line='definition.at:443' + at_desc='Redefinition of section names' + $at_quiet $ECHO_N " 27: Redefinition of section names $ECHO_C" + at_xfail=no + ( + echo "27. definition.at:443: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3344,36 +2544,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:454: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:454" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob: In section 'L': +$at_traceoff +echo "definition.at:454: \${COMPILE_ONLY} prog.cob" +echo definition.at:454 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob: In section 'L': prog.cob:6: Error: Redefinition of 'L' prog.cob:5: Error: 'L' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:454" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_27 -#AT_START_28 -at_fn_group_banner 28 'definition.at:462' \ - "Redefinition of section and paragraph names" " " -at_xfail=no -( - $as_echo "28. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:454: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 28 ) # 28. definition.at:462: Redefinition of section and paragraph names + at_setup_line='definition.at:462' + at_desc='Redefinition of section and paragraph names' + $at_quiet $ECHO_N " 28: Redefinition of section and paragraph names $ECHO_C" + at_xfail=no + ( + echo "28. definition.at:462: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3387,36 +2600,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:473: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:473" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob: In section 'L': +$at_traceoff +echo "definition.at:473: \${COMPILE_ONLY} prog.cob" +echo definition.at:473 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob: In section 'L': prog.cob:6: Error: Redefinition of 'L' prog.cob:5: Error: 'L' previously defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:473" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_28 -#AT_START_29 -at_fn_group_banner 29 'definition.at:481' \ - "Redefinition of paragraph names" " " -at_xfail=no -( - $as_echo "29. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:473: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 29 ) # 29. definition.at:481: Redefinition of paragraph names + at_setup_line='definition.at:481' + at_desc='Redefinition of paragraph names' + $at_quiet $ECHO_N " 29: Redefinition of paragraph names $ECHO_C" + at_xfail=no + ( + echo "29. definition.at:481: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3430,18 +2656,30 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:492: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:492" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:492" -$at_failed && at_fn_log_failure -$at_traceon; } +$at_traceoff +echo "definition.at:492: \${COMPILE_ONLY} prog.cob" +echo definition.at:492 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:492: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon ## Change when we DON'T allow this @@ -3451,18 +2689,20 @@ $at_traceon; } ## prog.cob:5: Error: 'L' previously defined here ## ]) - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_29 -#AT_START_30 -at_fn_group_banner 30 'definition.at:504' \ - "Ambiguous reference to paragraph name" " " -at_xfail=no -( - $as_echo "30. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 30 ) # 30. definition.at:504: Ambiguous reference to paragraph name + at_setup_line='definition.at:504' + at_desc='Ambiguous reference to paragraph name' + $at_quiet $ECHO_N " 30: Ambiguous reference to paragraph name $ECHO_C" + at_xfail=no + ( + echo "30. definition.at:504: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3480,37 +2720,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:519: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:519" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob: In section 'S-3': +$at_traceoff +echo "definition.at:519: \${COMPILE_ONLY} prog.cob" +echo definition.at:519 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob: In section 'S-3': prog.cob:10: Error: 'L' ambiguous; need qualification prog.cob:6: Error: 'L' in 'S-1' defined here prog.cob:8: Error: 'L' in 'S-2' defined here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/definition.at:519" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_30 -#AT_START_31 -at_fn_group_banner 31 'definition.at:528' \ - "Non-matching level numbers (extension)" " " -at_xfail=no -( - $as_echo "31. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "definition.at:519: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 31 ) # 31. definition.at:528: Non-matching level numbers (extension) + at_setup_line='definition.at:528' + at_desc='Non-matching level numbers (extension)' + $at_quiet $ECHO_N " 31: Non-matching level numbers (extension) $ECHO_C" + at_xfail=no + ( + echo "31. definition.at:528: testing ..." + $at_traceon cat >test.conf <<'_ATEOF' @@ -3536,34 +2789,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/definition.at:549: \${COMPILE_ONLY} -conf=test.conf prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "definition.at:549" -( $at_check_trace; ${COMPILE_ONLY} -conf=test.conf prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: Warning: No previous data item of level 04 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/definition.at:549" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_31 -#AT_START_32 -at_fn_group_banner 32 'expression.at:21' \ - "Ambiguous AND/OR" " " -at_xfail=no -( - $as_echo "32. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "definition.at:549: \${COMPILE_ONLY} -conf=test.conf prog.cob" +echo definition.at:549 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} -conf=test.conf prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: Warning: No previous data item of level 04 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "definition.at:549: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 32 ) # 32. expression.at:21: Ambiguous AND/OR + at_setup_line='expression.at:21' + at_desc='Ambiguous AND/OR' + $at_quiet $ECHO_N " 32: Ambiguous AND/OR $ECHO_C" + at_xfail=no + ( + echo "32. expression.at:21: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3583,35 +2849,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/expression.at:38: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "expression.at:38" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Warning: Suggest parentheses around AND within OR +$at_traceoff +echo "expression.at:38: \${COMPILE_ONLY} prog.cob" +echo expression.at:38 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Warning: Suggest parentheses around AND within OR prog.cob:10: Warning: Suggest parentheses around AND within OR -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/expression.at:38" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_32 -#AT_START_33 -at_fn_group_banner 33 'expression.at:45' \ - "START on SEQUENTIAL file" " " -at_xfail=no -( - $as_echo "33. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "expression.at:38: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 33 ) # 33. expression.at:45: START on SEQUENTIAL file + at_setup_line='expression.at:45' + at_desc='START on SEQUENTIAL file' + $at_quiet $ECHO_N " 33: START on SEQUENTIAL file $ECHO_C" + at_xfail=no + ( + echo "33. expression.at:45: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3636,34 +2915,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/expression.at:67: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "expression.at:67" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:16: Error: START not allowed on SEQUENTIAL files -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/expression.at:67" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_33 -#AT_START_34 -at_fn_group_banner 34 'subscripts.at:31' \ - "Subscripted item requires OCCURS clause" " " -at_xfail=no -( - $as_echo "34. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "expression.at:67: \${COMPILE_ONLY} prog.cob" +echo expression.at:67 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:16: Error: START not allowed on SEQUENTIAL files +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "expression.at:67: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 34 ) # 34. subscripts.at:31: Subscripted item requires OCCURS clause + at_setup_line='subscripts.at:31' + at_desc='Subscripted item requires OCCURS clause' + $at_quiet $ECHO_N " 34: Subscripted item requires OCCURS clause $ECHO_C" + at_xfail=no + ( + echo "34. subscripts.at:31: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3683,35 +2975,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:48: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:48" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: Error: 'G' cannot be subscripted +$at_traceoff +echo "subscripts.at:48: \${COMPILE_ONLY} prog.cob" +echo subscripts.at:48 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: Error: 'G' cannot be subscripted prog.cob:11: Error: 'X' cannot be subscripted -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:48" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_34 -#AT_START_35 -at_fn_group_banner 35 'subscripts.at:58' \ - "The number of subscripts" " " -at_xfail=no -( - $as_echo "35. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:48: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 35 ) # 35. subscripts.at:58: The number of subscripts + at_setup_line='subscripts.at:58' + at_desc='The number of subscripts' + $at_quiet $ECHO_N " 35: The number of subscripts $ECHO_C" + at_xfail=no + ( + echo "35. subscripts.at:58: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3740,37 +3045,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/subscripts.at:84: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "subscripts.at:84" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'X' requires 1 subscript +$at_traceoff +echo "subscripts.at:84: \${COMPILE_ONLY} prog.cob" +echo subscripts.at:84 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'X' requires 1 subscript prog.cob:14: Error: 'X' requires 1 subscript prog.cob:16: Error: 'Y' requires 2 subscripts prog.cob:20: Error: 'Y' requires 2 subscripts -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/subscripts.at:84" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_35 -#AT_START_36 -at_fn_group_banner 36 'occurs.at:28' \ - "OCCURS with level 01, 66, 77, and 88" " " -at_xfail=no -( - $as_echo "36. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "subscripts.at:84: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 36 ) # 36. occurs.at:28: OCCURS with level 01, 66, 77, and 88 + at_setup_line='occurs.at:28' + at_desc='OCCURS with level 01, 66, 77, and 88' + $at_quiet $ECHO_N " 36: OCCURS with level 01, 66, 77, and 88 $ECHO_C" + at_xfail=no + ( + echo "36. occurs.at:28: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3788,38 +3106,51 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/occurs.at:43: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "occurs.at:43" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Error: Level 88 item 'X-88' cannot have other than VALUE clause +$at_traceoff +echo "occurs.at:43: \${COMPILE_ONLY} prog.cob" +echo occurs.at:43 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Error: Level 88 item 'X-88' cannot have other than VALUE clause prog.cob:6: Error: Level 01 item 'X-01' cannot have OCCURS clause prog.cob:7: Error: Level 01 item 'G' cannot have OCCURS clause prog.cob:9: Error: Level 66 item 'X-66' cannot have other than RENAMES clause prog.cob:10: Error: Level 77 item 'X-77' cannot have OCCURS clause -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/occurs.at:43" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_36 -#AT_START_37 -at_fn_group_banner 37 'occurs.at:53' \ - "OCCURS with variable-occurrence data item" " " -at_xfail=no -( - $as_echo "37. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "occurs.at:43: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 37 ) # 37. occurs.at:53: OCCURS with variable-occurrence data item + at_setup_line='occurs.at:53' + at_desc='OCCURS with variable-occurrence data item' + $at_quiet $ECHO_N " 37: OCCURS with variable-occurrence data item $ECHO_C" + at_xfail=no + ( + echo "37. occurs.at:53: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3835,34 +3166,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/occurs.at:66: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "occurs.at:66" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Error: 'G-2' cannot have the OCCURS clause due to 'X' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/occurs.at:66" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_37 -#AT_START_38 -at_fn_group_banner 38 'occurs.at:90' \ - "Nested OCCURS clause" " " -at_xfail=no -( - $as_echo "38. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "occurs.at:66: \${COMPILE_ONLY} prog.cob" +echo occurs.at:66 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Error: 'G-2' cannot have the OCCURS clause due to 'X' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "occurs.at:66: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 38 ) # 38. occurs.at:90: Nested OCCURS clause + at_setup_line='occurs.at:90' + at_desc='Nested OCCURS clause' + $at_quiet $ECHO_N " 38: Nested OCCURS clause $ECHO_C" + at_xfail=no + ( + echo "38. occurs.at:90: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3883,32 +3227,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/occurs.at:108: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "occurs.at:108" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/occurs.at:108" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_38 -#AT_START_39 -at_fn_group_banner 39 'occurs.at:136' \ - "OCCURS DEPENDING followed by another field" " " -at_xfail=no -( - $as_echo "39. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "occurs.at:108: \${COMPILE_ONLY} prog.cob" +echo occurs.at:108 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "occurs.at:108: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 39 ) # 39. occurs.at:136: OCCURS DEPENDING followed by another field + at_setup_line='occurs.at:136' + at_desc='OCCURS DEPENDING followed by another field' + $at_quiet $ECHO_N " 39: OCCURS DEPENDING followed by another field $ECHO_C" + at_xfail=no + ( + echo "39. occurs.at:136: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -3932,78 +3290,104 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/occurs.at:157: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "occurs.at:157" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Error: 'X' cannot have OCCURS DEPENDING +$at_traceoff +echo "occurs.at:157: \${COMPILE_ONLY} prog.cob" +echo occurs.at:157 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Error: 'X' cannot have OCCURS DEPENDING prog.cob:10: Error: 'G-3' cannot have OCCURS DEPENDING prog.cob:15: Error: 'X' cannot have OCCURS DEPENDING -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/occurs.at:157" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_39 -#AT_START_40 -at_fn_group_banner 40 'occurs.at:174' \ - "OCCURS DEPENDING without TO clause" " " -at_xfail=no -( - $as_echo "40. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "occurs.at:157: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 40 ) # 40. occurs.at:174: OCCURS DEPENDING without TO clause + at_setup_line='occurs.at:174' + at_desc='OCCURS DEPENDING without TO clause' + $at_quiet $ECHO_N " 40: OCCURS DEPENDING without TO clause $ECHO_C" + at_xfail=no + ( + echo "40. occurs.at:174: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 Y PIC 9. - 01 XX. - 03 X PIC X OCCURS 10 DEPENDING ON Y. -_ATEOF + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 Y PIC 9. + 01 XX. + 03 X PIC X OCCURS 10 DEPENDING ON Y. +_ATEOF + + +$at_traceoff +echo "occurs.at:186: \${COMPILE_ONLY} prog.cob" +echo occurs.at:186 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: ODO without TO clause does not conform to COBOL 2002 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "occurs.at:186: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; -{ set +x -$as_echo "$at_srcdir/occurs.at:186: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "occurs.at:186" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: ODO without TO clause does not conform to COBOL 2002 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/occurs.at:186" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_40 -#AT_START_41 -at_fn_group_banner 41 'redefines.at:28' \ - "REDEFINES: not following entry-name" " " -at_xfail=no -( - $as_echo "41. $at_setup_line: testing $at_desc ..." - $at_traceon + 41 ) # 41. redefines.at:28: REDEFINES: not following entry-name + at_setup_line='redefines.at:28' + at_desc='REDEFINES: not following entry-name' + $at_quiet $ECHO_N " 41: REDEFINES: not following entry-name $ECHO_C" + at_xfail=no + ( + echo "41. redefines.at:28: testing ..." + $at_traceon @@ -4018,34 +3402,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:40: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:40" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Error: REDEFINES clause must follow entry-name -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:40" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_41 -#AT_START_42 -at_fn_group_banner 42 'redefines.at:49' \ - "REDEFINES: level 02 by 01" " " -at_xfail=no -( - $as_echo "42. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:40: \${COMPILE_ONLY} prog.cob" +echo redefines.at:40 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Error: REDEFINES clause must follow entry-name +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:40: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 42 ) # 42. redefines.at:49: REDEFINES: level 02 by 01 + at_setup_line='redefines.at:49' + at_desc='REDEFINES: level 02 by 01' + $at_quiet $ECHO_N " 42: REDEFINES: level 02 by 01 $ECHO_C" + at_xfail=no + ( + echo "42. redefines.at:49: testing ..." + $at_traceon @@ -4063,34 +3460,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:64: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:64" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: Level number of REDEFINES entries must be identical -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:64" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_42 -#AT_START_43 -at_fn_group_banner 43 'redefines.at:70' \ - "REDEFINES: level 03 by 02" " " -at_xfail=no -( - $as_echo "43. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:64: \${COMPILE_ONLY} prog.cob" +echo redefines.at:64 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: Level number of REDEFINES entries must be identical +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:64: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 43 ) # 43. redefines.at:70: REDEFINES: level 03 by 02 + at_setup_line='redefines.at:70' + at_desc='REDEFINES: level 03 by 02' + $at_quiet $ECHO_N " 43: REDEFINES: level 03 by 02 $ECHO_C" + at_xfail=no + ( + echo "43. redefines.at:70: testing ..." + $at_traceon @@ -4109,34 +3519,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:86: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:86" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: Error: 'X' undefined in 'G1' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:86" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_43 -#AT_START_44 -at_fn_group_banner 44 'redefines.at:92' \ - "REDEFINES: level 66" " " -at_xfail=no -( - $as_echo "44. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:86: \${COMPILE_ONLY} prog.cob" +echo redefines.at:86 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: Error: 'X' undefined in 'G1' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:86: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 44 ) # 44. redefines.at:92: REDEFINES: level 66 + at_setup_line='redefines.at:92' + at_desc='REDEFINES: level 66' + $at_quiet $ECHO_N " 44: REDEFINES: level 66 $ECHO_C" + at_xfail=no + ( + echo "44. redefines.at:92: testing ..." + $at_traceon @@ -4155,34 +3578,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:108: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:108" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: Error: Level number of REDEFINES entry cannot be 66 or 88 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:108" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_44 -#AT_START_45 -at_fn_group_banner 45 'redefines.at:114' \ - "REDEFINES: level 88" " " -at_xfail=no -( - $as_echo "45. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:108: \${COMPILE_ONLY} prog.cob" +echo redefines.at:108 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: Error: Level number of REDEFINES entry cannot be 66 or 88 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:108: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 45 ) # 45. redefines.at:114: REDEFINES: level 88 + at_setup_line='redefines.at:114' + at_desc='REDEFINES: level 88' + $at_quiet $ECHO_N " 45: REDEFINES: level 88 $ECHO_C" + at_xfail=no + ( + echo "45. redefines.at:114: testing ..." + $at_traceon @@ -4200,34 +3636,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:129: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:129" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: Level number of REDEFINES entry cannot be 66 or 88 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:129" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_45 -#AT_START_46 -at_fn_group_banner 46 'redefines.at:143' \ - "REDEFINES: lower level number" " " -at_xfail=no -( - $as_echo "46. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:129: \${COMPILE_ONLY} prog.cob" +echo redefines.at:129 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: Level number of REDEFINES entry cannot be 66 or 88 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:129: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 46 ) # 46. redefines.at:143: REDEFINES: lower level number + at_setup_line='redefines.at:143' + at_desc='REDEFINES: lower level number' + $at_quiet $ECHO_N " 46: REDEFINES: lower level number $ECHO_C" + at_xfail=no + ( + echo "46. redefines.at:143: testing ..." + $at_traceon @@ -4247,34 +3696,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:160: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:160" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'X' undefined in 'G3' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:160" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_46 -#AT_START_47 -at_fn_group_banner 47 'redefines.at:169' \ - "REDEFINES: with OCCURS" " " -at_xfail=no -( - $as_echo "47. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:160: \${COMPILE_ONLY} prog.cob" +echo redefines.at:160 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'X' undefined in 'G3' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:160: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 47 ) # 47. redefines.at:169: REDEFINES: with OCCURS + at_setup_line='redefines.at:169' + at_desc='REDEFINES: with OCCURS' + $at_quiet $ECHO_N " 47: REDEFINES: with OCCURS $ECHO_C" + at_xfail=no + ( + echo "47. redefines.at:169: testing ..." + $at_traceon @@ -4292,34 +3754,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:184: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:184" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: The original definition 'X' should not have OCCURS -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/redefines.at:184" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_47 -#AT_START_48 -at_fn_group_banner 48 'redefines.at:190' \ - "REDEFINES: with subscript" " " -at_xfail=no -( - $as_echo "48. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:184: \${COMPILE_ONLY} prog.cob" +echo redefines.at:184 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: The original definition 'X' should not have OCCURS +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "redefines.at:184: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 48 ) # 48. redefines.at:190: REDEFINES: with subscript + at_setup_line='redefines.at:190' + at_desc='REDEFINES: with subscript' + $at_quiet $ECHO_N " 48: REDEFINES: with subscript $ECHO_C" + at_xfail=no + ( + echo "48. redefines.at:190: testing ..." + $at_traceon @@ -4338,34 +3813,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:206: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:206" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: Error: 'X' cannot be subscripted here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:206" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_48 -#AT_START_49 -at_fn_group_banner 49 'redefines.at:212' \ - "REDEFINES: with variable occurrence" " " -at_xfail=no -( - $as_echo "49. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:206: \${COMPILE_ONLY} prog.cob" +echo redefines.at:206 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: Error: 'X' cannot be subscripted here +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:206: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 49 ) # 49. redefines.at:212: REDEFINES: with variable occurrence + at_setup_line='redefines.at:212' + at_desc='REDEFINES: with variable occurrence' + $at_quiet $ECHO_N " 49: REDEFINES: with variable occurrence $ECHO_C" + at_xfail=no + ( + echo "49. redefines.at:212: testing ..." + $at_traceon @@ -4392,36 +3880,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:236: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:236" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: 'Y' cannot be variable length +$at_traceoff +echo "redefines.at:236: \${COMPILE_ONLY} prog.cob" +echo redefines.at:236 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: 'Y' cannot be variable length prog.cob:11: Error: 'Y' cannot be variable length prog.cob:16: Error: The original definition 'X' cannot be variable length -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:236" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:236: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_49 -#AT_START_50 -at_fn_group_banner 50 'redefines.at:247' \ - "REDEFINES: with qualification" " " -at_xfail=no -( - $as_echo "50. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 50 ) # 50. redefines.at:247: REDEFINES: with qualification + at_setup_line='redefines.at:247' + at_desc='REDEFINES: with qualification' + $at_quiet $ECHO_N " 50: REDEFINES: with qualification $ECHO_C" + at_xfail=no + ( + echo "50. redefines.at:247: testing ..." + $at_traceon @@ -4441,34 +3942,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:264: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:264" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'X' cannot be qualified here -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:264" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_50 -#AT_START_51 -at_fn_group_banner 51 'redefines.at:273' \ - "REDEFINES: multiple redefinition" " " -at_xfail=no -( - $as_echo "51. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:264: \${COMPILE_ONLY} prog.cob" +echo redefines.at:264 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'X' cannot be qualified here +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:264: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 51 ) # 51. redefines.at:273: REDEFINES: multiple redefinition + at_setup_line='redefines.at:273' + at_desc='REDEFINES: multiple redefinition' + $at_quiet $ECHO_N " 51: REDEFINES: multiple redefinition $ECHO_C" + at_xfail=no + ( + echo "51. redefines.at:273: testing ..." + $at_traceon @@ -4488,48 +4002,73 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:290: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:290" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: 'B' not the original definition -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:290" -$at_failed && at_fn_log_failure -$at_traceon; } - - -{ set +x -$as_echo "$at_srcdir/redefines.at:294: \${COMPILE_ONLY} -std=mvs prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:294" -( $at_check_trace; ${COMPILE_ONLY} -std=mvs prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/redefines.at:294" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_51 -#AT_START_52 -at_fn_group_banner 52 'redefines.at:301' \ - "REDEFINES: size exceeds" " " -at_xfail=no -( - $as_echo "52. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:290: \${COMPILE_ONLY} prog.cob" +echo redefines.at:290 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: 'B' not the original definition +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:290: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + +$at_traceoff +echo "redefines.at:294: \${COMPILE_ONLY} -std=mvs prog.cob" +echo redefines.at:294 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} -std=mvs prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "redefines.at:294: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 52 ) # 52. redefines.at:301: REDEFINES: size exceeds + at_setup_line='redefines.at:301' + at_desc='REDEFINES: size exceeds' + $at_quiet $ECHO_N " 52: REDEFINES: size exceeds $ECHO_C" + at_xfail=no + ( + echo "52. redefines.at:301: testing ..." + $at_traceon @@ -4554,36 +4093,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:323: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:323" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: Size of 'A' larger than size of 'X' +$at_traceoff +echo "redefines.at:323: \${COMPILE_ONLY} prog.cob" +echo redefines.at:323 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: Size of 'A' larger than size of 'X' prog.cob:11: Error: Size of 'A' larger than size of 'X' prog.cob:15: Error: Size of 'EXT-X-REDEF' larger than size of 'EXT-X' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:323" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:323: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_52 -#AT_START_53 -at_fn_group_banner 53 'redefines.at:334' \ - "REDEFINES: with VALUE" " " -at_xfail=no -( - $as_echo "53. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 53 ) # 53. redefines.at:334: REDEFINES: with VALUE + at_setup_line='redefines.at:334' + at_desc='REDEFINES: with VALUE' + $at_quiet $ECHO_N " 53: REDEFINES: with VALUE $ECHO_C" + at_xfail=no + ( + echo "53. redefines.at:334: testing ..." + $at_traceon @@ -4604,35 +4156,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:352: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:352" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Error: Entries under REDEFINES cannot have VALUE clause +$at_traceoff +echo "redefines.at:352: \${COMPILE_ONLY} prog.cob" +echo redefines.at:352 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Error: Entries under REDEFINES cannot have VALUE clause prog.cob:9: Error: Entries under REDEFINES cannot have VALUE clause -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:352" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:352: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_53 -#AT_START_54 -at_fn_group_banner 54 'redefines.at:362' \ - "REDEFINES: with intervention" " " -at_xfail=no -( - $as_echo "54. $at_setup_line: testing $at_desc ..." - $at_traceon + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 54 ) # 54. redefines.at:362: REDEFINES: with intervention + at_setup_line='redefines.at:362' + at_desc='REDEFINES: with intervention' + $at_quiet $ECHO_N " 54: REDEFINES: with intervention $ECHO_C" + at_xfail=no + ( + echo "54. redefines.at:362: testing ..." + $at_traceon @@ -4654,35 +4219,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:381: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:381" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: REDEFINES must follow the original definition +$at_traceoff +echo "redefines.at:381: \${COMPILE_ONLY} prog.cob" +echo redefines.at:381 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: REDEFINES must follow the original definition prog.cob:12: Error: REDEFINES must follow the original definition -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/redefines.at:381" -$at_failed && at_fn_log_failure -$at_traceon; } +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "redefines.at:381: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_54 -#AT_START_55 -at_fn_group_banner 55 'redefines.at:391' \ - "REDEFINES: within REDEFINES" " " -at_xfail=no -( - $as_echo "55. $at_setup_line: testing $at_desc ..." - $at_traceon + 55 ) # 55. redefines.at:391: REDEFINES: within REDEFINES + at_setup_line='redefines.at:391' + at_desc='REDEFINES: within REDEFINES' + $at_quiet $ECHO_N " 55: REDEFINES: within REDEFINES $ECHO_C" + at_xfail=no + ( + echo "55. redefines.at:391: testing ..." + $at_traceon @@ -4701,32 +4279,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/redefines.at:407: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "redefines.at:407" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/redefines.at:407" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_55 -#AT_START_56 -at_fn_group_banner 56 'value.at:43' \ - "Numeric item (integer)" " " -at_xfail=no -( - $as_echo "56. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "redefines.at:407: \${COMPILE_ONLY} prog.cob" +echo redefines.at:407 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "redefines.at:407: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 56 ) # 56. value.at:43: Numeric item (integer) + at_setup_line='value.at:43' + at_desc='Numeric item (integer)' + $at_quiet $ECHO_N " 56: Numeric item (integer) $ECHO_C" + at_xfail=no + ( + echo "56. value.at:43: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4745,37 +4337,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:59: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:59" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: Invalid VALUE clause +$at_traceoff +echo "value.at:59: \${COMPILE_ONLY} prog.cob" +echo value.at:59 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: Invalid VALUE clause prog.cob:7: Warning: Numeric value is expected prog.cob:8: Warning: Value size exceeds data size prog.cob:10: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/value.at:59" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_56 -#AT_START_57 -at_fn_group_banner 57 'value.at:68' \ - "Numeric item (non-integer)" " " -at_xfail=no -( - $as_echo "57. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "value.at:59: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 57 ) # 57. value.at:68: Numeric item (non-integer) + at_setup_line='value.at:68' + at_desc='Numeric item (non-integer)' + $at_quiet $ECHO_N " 57: Numeric item (non-integer) $ECHO_C" + at_xfail=no + ( + echo "57. value.at:68: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4793,35 +4398,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:83: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:83" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Warning: Value size exceeds data size +$at_traceoff +echo "value.at:83: \${COMPILE_ONLY} prog.cob" +echo value.at:83 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Warning: Value size exceeds data size prog.cob:9: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/value.at:83" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_57 -#AT_START_58 -at_fn_group_banner 58 'value.at:90' \ - "Numeric item with picture P" " " -at_xfail=no -( - $as_echo "58. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "value.at:83: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 58 ) # 58. value.at:90: Numeric item with picture P + at_setup_line='value.at:90' + at_desc='Numeric item with picture P' + $at_quiet $ECHO_N " 58: Numeric item with picture P $ECHO_C" + at_xfail=no + ( + echo "58. value.at:90: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4843,37 +4461,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:109: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:109" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Warning: Value does not fit the picture string +$at_traceoff +echo "value.at:109: \${COMPILE_ONLY} prog.cob" +echo value.at:109 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Warning: Value does not fit the picture string prog.cob:9: Warning: Value size exceeds data size prog.cob:12: Warning: Value does not fit the picture string prog.cob:13: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/value.at:109" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_58 -#AT_START_59 -at_fn_group_banner 59 'value.at:121' \ - "Signed numeric literal" " " -at_xfail=no -( - $as_echo "59. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "value.at:109: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 59 ) # 59. value.at:121: Signed numeric literal + at_setup_line='value.at:121' + at_desc='Signed numeric literal' + $at_quiet $ECHO_N " 59: Signed numeric literal $ECHO_C" + at_xfail=no + ( + echo "59. value.at:121: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4891,35 +4522,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:136: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:136" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: Data item not signed +$at_traceoff +echo "value.at:136: \${COMPILE_ONLY} prog.cob" +echo value.at:136 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: Data item not signed prog.cob:7: Error: Data item not signed -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/value.at:136" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_59 -#AT_START_60 -at_fn_group_banner 60 'value.at:146' \ - "Alphabetic item" " " -at_xfail=no -( - $as_echo "60. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "value.at:136: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 60 ) # 60. value.at:146: Alphabetic item + at_setup_line='value.at:146' + at_desc='Alphabetic item' + $at_quiet $ECHO_N " 60: Alphabetic item $ECHO_C" + at_xfail=no + ( + echo "60. value.at:146: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4938,37 +4582,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:162: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:162" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Warning: Alphanumeric value is expected +$at_traceoff +echo "value.at:162: \${COMPILE_ONLY} prog.cob" +echo value.at:162 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Warning: Alphanumeric value is expected prog.cob:7: Error: Invalid VALUE clause prog.cob:8: Warning: Value does not fit the picture string prog.cob:10: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/value.at:162" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_60 -#AT_START_61 -at_fn_group_banner 61 'value.at:171' \ - "Alphanumeric item" " " -at_xfail=no -( - $as_echo "61. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "value.at:162: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 61 ) # 61. value.at:171: Alphanumeric item + at_setup_line='value.at:171' + at_desc='Alphanumeric item' + $at_quiet $ECHO_N " 61: Alphanumeric item $ECHO_C" + at_xfail=no + ( + echo "61. value.at:171: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -4985,35 +4642,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:185: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:185" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Warning: Alphanumeric value is expected +$at_traceoff +echo "value.at:185: \${COMPILE_ONLY} prog.cob" +echo value.at:185 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Warning: Alphanumeric value is expected prog.cob:8: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/value.at:185" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_61 -#AT_START_62 -at_fn_group_banner 62 'value.at:192' \ - "Alphanumeric group item" " " -at_xfail=no -( - $as_echo "62. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "value.at:185: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 62 ) # 62. value.at:192: Alphanumeric group item + at_setup_line='value.at:192' + at_desc='Alphanumeric group item' + $at_quiet $ECHO_N " 62: Alphanumeric group item $ECHO_C" + at_xfail=no + ( + echo "62. value.at:192: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5033,35 +4703,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:209: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:209" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Warning: Alphanumeric value is expected +$at_traceoff +echo "value.at:209: \${COMPILE_ONLY} prog.cob" +echo value.at:209 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Warning: Alphanumeric value is expected prog.cob:10: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/value.at:209" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_62 -#AT_START_63 -at_fn_group_banner 63 'value.at:226' \ - "Numeric-edited item" " " -at_xfail=no -( - $as_echo "63. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "value.at:209: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 63 ) # 63. value.at:226: Numeric-edited item + at_setup_line='value.at:226' + at_desc='Numeric-edited item' + $at_quiet $ECHO_N " 63: Numeric-edited item $ECHO_C" + at_xfail=no + ( + echo "63. value.at:226: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5080,35 +4763,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:242: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:242" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:7: Warning: Alphanumeric value is expected -prog.cob:10: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/value.at:242" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_63 -#AT_START_64 -at_fn_group_banner 64 'value.at:249' \ - "Alphanumeric-edited item" " " -at_xfail=no -( - $as_echo "64. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "value.at:242: \${COMPILE_ONLY} prog.cob" +echo value.at:242 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:7: Warning: Alphanumeric value is expected +prog.cob:10: Warning: Value size exceeds data size +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "value.at:242: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 64 ) # 64. value.at:249: Alphanumeric-edited item + at_setup_line='value.at:249' + at_desc='Alphanumeric-edited item' + $at_quiet $ECHO_N " 64: Alphanumeric-edited item $ECHO_C" + at_xfail=no + ( + echo "64. value.at:249: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5126,35 +4822,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/value.at:264: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "value.at:264" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Warning: Alphanumeric value is expected +$at_traceoff +echo "value.at:264: \${COMPILE_ONLY} prog.cob" +echo value.at:264 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Warning: Alphanumeric value is expected prog.cob:9: Warning: Value size exceeds data size -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/value.at:264" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_64 -#AT_START_65 -at_fn_group_banner 65 'move.at:37' \ - "MOVE SPACE TO numeric or numeric-edited item" " " -at_xfail=no -( - $as_echo "65. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "value.at:264: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 65 ) # 65. move.at:37: MOVE SPACE TO numeric or numeric-edited item + at_setup_line='move.at:37' + at_desc='MOVE SPACE TO numeric or numeric-edited item' + $at_quiet $ECHO_N " 65: MOVE SPACE TO numeric or numeric-edited item $ECHO_C" + at_xfail=no + ( + echo "65. move.at:37: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5172,35 +4881,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:52: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:52" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:9: Error: Invalid MOVE statement +$at_traceoff +echo "move.at:52: \${COMPILE_ONLY} prog.cob" +echo move.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:9: Error: Invalid MOVE statement prog.cob:10: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_65 -#AT_START_66 -at_fn_group_banner 66 'move.at:62' \ - "MOVE ZERO TO alphabetic item" " " -at_xfail=no -( - $as_echo "66. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:52: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 66 ) # 66. move.at:62: MOVE ZERO TO alphabetic item + at_setup_line='move.at:62' + at_desc='MOVE ZERO TO alphabetic item' + $at_quiet $ECHO_N " 66: MOVE ZERO TO alphabetic item $ECHO_C" + at_xfail=no + ( + echo "66. move.at:62: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5216,34 +4938,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:75: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:75" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:75" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_66 -#AT_START_67 -at_fn_group_banner 67 'move.at:87' \ - "MOVE alphabetic TO x" " " -at_xfail=no -( - $as_echo "67. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "move.at:75: \${COMPILE_ONLY} prog.cob" +echo move.at:75 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: Invalid MOVE statement +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:75: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 67 ) # 67. move.at:87: MOVE alphabetic TO x + at_setup_line='move.at:87' + at_desc='MOVE alphabetic TO x' + $at_quiet $ECHO_N " 67: MOVE alphabetic TO x $ECHO_C" + at_xfail=no + ( + echo "67. move.at:87: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5268,35 +5003,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:109: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:109" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:16: Error: Invalid MOVE statement +$at_traceoff +echo "move.at:109: \${COMPILE_ONLY} prog.cob" +echo move.at:109 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:16: Error: Invalid MOVE statement prog.cob:17: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:109" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_67 -#AT_START_68 -at_fn_group_banner 68 'move.at:116' \ - "MOVE alphanumeric TO x" " " -at_xfail=no -( - $as_echo "68. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:109: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 68 ) # 68. move.at:116: MOVE alphanumeric TO x + at_setup_line='move.at:116' + at_desc='MOVE alphanumeric TO x' + $at_quiet $ECHO_N " 68: MOVE alphanumeric TO x $ECHO_C" + at_xfail=no + ( + echo "68. move.at:116: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5321,32 +5069,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:138: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:138" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/move.at:138" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_68 -#AT_START_69 -at_fn_group_banner 69 'move.at:142' \ - "MOVE alphanumeric-edited TO x" " " -at_xfail=no -( - $as_echo "69. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "move.at:138: \${COMPILE_ONLY} prog.cob" +echo move.at:138 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "move.at:138: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 69 ) # 69. move.at:142: MOVE alphanumeric-edited TO x + at_setup_line='move.at:142' + at_desc='MOVE alphanumeric-edited TO x' + $at_quiet $ECHO_N " 69: MOVE alphanumeric-edited TO x $ECHO_C" + at_xfail=no + ( + echo "69. move.at:142: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5371,35 +5133,48 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:164: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:164" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:16: Error: Invalid MOVE statement +$at_traceoff +echo "move.at:164: \${COMPILE_ONLY} prog.cob" +echo move.at:164 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:16: Error: Invalid MOVE statement prog.cob:17: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:164" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_69 -#AT_START_70 -at_fn_group_banner 70 'move.at:171' \ - "MOVE numeric (integer) TO x" " " -at_xfail=no -( - $as_echo "70. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:164: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 70 ) # 70. move.at:171: MOVE numeric (integer) TO x + at_setup_line='move.at:171' + at_desc='MOVE numeric (integer) TO x' + $at_quiet $ECHO_N " 70: MOVE numeric (integer) TO x $ECHO_C" + at_xfail=no + ( + echo "70. move.at:171: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5424,34 +5199,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:193: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:193" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:13: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:193" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_70 -#AT_START_71 -at_fn_group_banner 71 'move.at:199' \ - "MOVE numeric (non-integer) TO x" " " -at_xfail=no -( - $as_echo "71. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "move.at:193: \${COMPILE_ONLY} prog.cob" +echo move.at:193 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:13: Error: Invalid MOVE statement +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:193: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 71 ) # 71. move.at:199: MOVE numeric (non-integer) TO x + at_setup_line='move.at:199' + at_desc='MOVE numeric (non-integer) TO x' + $at_quiet $ECHO_N " 71: MOVE numeric (non-integer) TO x $ECHO_C" + at_xfail=no + ( + echo "71. move.at:199: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5476,36 +5264,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:221: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:221" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:13: Error: Invalid MOVE statement +$at_traceoff +echo "move.at:221: \${COMPILE_ONLY} prog.cob" +echo move.at:221 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:13: Error: Invalid MOVE statement prog.cob:14: Error: Invalid MOVE statement prog.cob:15: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:221" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_71 -#AT_START_72 -at_fn_group_banner 72 'move.at:229' \ - "MOVE numeric-edited TO x" " " -at_xfail=no -( - $as_echo "72. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:221: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 72 ) # 72. move.at:229: MOVE numeric-edited TO x + at_setup_line='move.at:229' + at_desc='MOVE numeric-edited TO x' + $at_quiet $ECHO_N " 72: MOVE numeric-edited TO x $ECHO_C" + at_xfail=no + ( + echo "72. move.at:229: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5530,34 +5331,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:251: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:251" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:13: Error: Invalid MOVE statement -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:251" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_72 -#AT_START_73 -at_fn_group_banner 73 'move.at:263' \ - "Operands must be groups" " " -at_xfail=no -( - $as_echo "73. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "move.at:251: \${COMPILE_ONLY} prog.cob" +echo move.at:251 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:13: Error: Invalid MOVE statement +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:251: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 73 ) # 73. move.at:263: Operands must be groups + at_setup_line='move.at:263' + at_desc='Operands must be groups' + $at_quiet $ECHO_N " 73: Operands must be groups $ECHO_C" + at_xfail=no + ( + echo "73. move.at:263: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5579,37 +5393,50 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:282: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:282" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:11: Error: 'X' is not group name +$at_traceoff +echo "move.at:282: \${COMPILE_ONLY} prog.cob" +echo move.at:282 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:11: Error: 'X' is not group name prog.cob:12: Error: 'X' is not group name prog.cob:13: Error: 'G-1 (1:1)' is not group name prog.cob:14: Error: 'G-2 (1:1)' is not group name -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:282" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_73 -#AT_START_74 -at_fn_group_banner 74 'move.at:295' \ - "MOVE: misc" " " -at_xfail=no -( - $as_echo "74. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:282: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 74 ) # 74. move.at:295: MOVE: misc + at_setup_line='move.at:295' + at_desc='MOVE: misc' + $at_quiet $ECHO_N " 74: MOVE: misc $ECHO_C" + at_xfail=no + ( + echo "74. move.at:295: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5627,34 +5454,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/move.at:310: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "move.at:310" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: PICTURE clause required for 'INVALID-ITEM' -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/move.at:310" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_74 -#AT_START_75 -at_fn_group_banner 75 'multiply.at:28' \ - "Category check of Format 1" " " -at_xfail=no -( - $as_echo "75. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "move.at:310: \${COMPILE_ONLY} prog.cob" +echo move.at:310 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: PICTURE clause required for 'INVALID-ITEM' +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "move.at:310: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 75 ) # 75. multiply.at:28: Category check of Format 1 + at_setup_line='multiply.at:28' + at_desc='Category check of Format 1' + $at_quiet $ECHO_N " 75: Category check of Format 1 $ECHO_C" + at_xfail=no + ( + echo "75. multiply.at:28: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5681,40 +5521,53 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/multiply.at:52: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "multiply.at:52" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: '456' is not a numeric name +$at_traceoff +echo "multiply.at:52: \${COMPILE_ONLY} prog.cob" +echo multiply.at:52 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: '456' is not a numeric name prog.cob:12: Error: '\"a\"' is not a numeric value prog.cob:12: Error: '\"b\"' is not a numeric name prog.cob:14: Error: 'X-X' is not a numeric value prog.cob:16: Error: 'X-09' is not a numeric name prog.cob:18: Error: 'X-09' is not a numeric value prog.cob:18: Error: 'X-X' is not a numeric name -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/multiply.at:52" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_75 -#AT_START_76 -at_fn_group_banner 76 'multiply.at:66' \ - "Category check of Format 2" " " -at_xfail=no -( - $as_echo "76. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "multiply.at:52: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 76 ) # 76. multiply.at:66: Category check of Format 2 + at_setup_line='multiply.at:66' + at_desc='Category check of Format 2' + $at_quiet $ECHO_N " 76: Category check of Format 2 $ECHO_C" + at_xfail=no + ( + echo "76. multiply.at:66: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5741,14 +5594,15 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/multiply.at:90: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "multiply.at:90" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: '789' is not numeric or numeric-edited name +$at_traceoff +echo "multiply.at:90: \${COMPILE_ONLY} prog.cob" +echo multiply.at:90 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: '789' is not numeric or numeric-edited name prog.cob:12: Error: '\"a\"' is not a numeric value prog.cob:12: Error: '\"b\"' is not a numeric value prog.cob:12: Error: '\"c\"' is not numeric or numeric-edited name @@ -5757,26 +5611,38 @@ prog.cob:16: Error: 'X-09' is not a numeric value prog.cob:16: Error: 'X-X' is not numeric or numeric-edited name prog.cob:18: Error: 'X-09' is not a numeric value prog.cob:18: Error: 'X-X' is not a numeric value -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/multiply.at:90" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_76 -#AT_START_77 -at_fn_group_banner 77 'multiply.at:106' \ - "Category check of literals" " " -at_xfail=no -( - $as_echo "77. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "multiply.at:90: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 77 ) # 77. multiply.at:106: Category check of literals + at_setup_line='multiply.at:106' + at_desc='Category check of literals' + $at_quiet $ECHO_N " 77: Category check of literals $ECHO_C" + at_xfail=no + ( + echo "77. multiply.at:106: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5799,36 +5665,49 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/multiply.at:126: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "multiply.at:126" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:10: Error: '\"a\"' is not a numeric value +$at_traceoff +echo "multiply.at:126: \${COMPILE_ONLY} prog.cob" +echo multiply.at:126 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:10: Error: '\"a\"' is not a numeric value prog.cob:14: Error: '\"a\"' is not a numeric value prog.cob:14: Error: '\"b\"' is not a numeric value -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/multiply.at:126" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_77 -#AT_START_78 -at_fn_group_banner 78 'set.at:24' \ - "SET: misc" " " -at_xfail=no -( - $as_echo "78. $at_setup_line: testing $at_desc ..." - $at_traceon +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "multiply.at:126: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 78 ) # 78. set.at:24: SET: misc + at_setup_line='set.at:24' + at_desc='SET: misc' + $at_quiet $ECHO_N " 78: SET: misc $ECHO_C" + at_xfail=no + ( + echo "78. set.at:24: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5844,34 +5723,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/set.at:37: \${COMPILE_ONLY} prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "set.at:37" -( $at_check_trace; ${COMPILE_ONLY} prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:8: Error: The address of 'X' cannot be changed -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/set.at:37" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_78 -#AT_START_79 -at_fn_group_banner 79 'free-1col-aster.at:1' \ - "free_1col_aster OPTION" " " -at_xfail=no -( - $as_echo "79. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "set.at:37: \${COMPILE_ONLY} prog.cob" +echo set.at:37 >$at_check_line_file +( $at_traceon; ${COMPILE_ONLY} prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:8: Error: The address of 'X' cannot be changed +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "set.at:37: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 79 ) # 79. free-1col-aster.at:1: free_1col_aster OPTION + at_setup_line='free-1col-aster.at:1' + at_desc='free_1col_aster OPTION' + $at_quiet $ECHO_N " 79: free_1col_aster OPTION $ECHO_C" + at_xfail=no + ( + echo "79. free-1col-aster.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5884,32 +5776,46 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/free-1col-aster.at:11: \${COMPILE} -x -free_1col_aster prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "free-1col-aster.at:11" -( $at_check_trace; ${COMPILE} -x -free_1col_aster prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/free-1col-aster.at:11" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_79 -#AT_START_80 -at_fn_group_banner 80 'free-1col-aster.at:15' \ - "newline_count with free_1col_aster" " " -at_xfail=no -( - $as_echo "80. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "free-1col-aster.at:11: \${COMPILE} -x -free_1col_aster prog.cob" +echo free-1col-aster.at:11 >$at_check_line_file +( $at_traceon; ${COMPILE} -x -free_1col_aster prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "free-1col-aster.at:11: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 80 ) # 80. free-1col-aster.at:15: newline_count with free_1col_aster + at_setup_line='free-1col-aster.at:15' + at_desc='newline_count with free_1col_aster' + $at_quiet $ECHO_N " 80: newline_count with free_1col_aster $ECHO_C" + at_xfail=no + ( + echo "80. free-1col-aster.at:15: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5923,34 +5829,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/free-1col-aster.at:26: \${COMPILE} -x -free_1col_aster prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "free-1col-aster.at:26" -( $at_check_trace; ${COMPILE} -x -free_1col_aster prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:6: Error: 'A' undefined -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/free-1col-aster.at:26" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_80 -#AT_START_81 -at_fn_group_banner 81 'indicator.at:1' \ - "dollarif defined - true" " " -at_xfail=no -( - $as_echo "81. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "free-1col-aster.at:26: \${COMPILE} -x -free_1col_aster prog.cob" +echo free-1col-aster.at:26 >$at_check_line_file +( $at_traceon; ${COMPILE} -x -free_1col_aster prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:6: Error: 'A' undefined +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "free-1col-aster.at:26: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 81 ) # 81. indicator.at:1: dollarif defined - true + at_setup_line='indicator.at:1' + at_desc='dollarif defined - true' + $at_quiet $ECHO_N " 81: dollarif defined - true $ECHO_C" + at_xfail=no + ( + echo "81. indicator.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -5965,47 +5884,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/indicator.at:13: \${COMPILE_MODULE} --constant=SW1 -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:13" -( $at_check_trace; ${COMPILE_MODULE} --constant=SW1 -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:13" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/indicator.at:14: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:14" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "SW1 DEFINED -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:14" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_81 -#AT_START_82 -at_fn_group_banner 82 'indicator.at:19' \ - "dollarif defined - false" " " -at_xfail=no -( - $as_echo "82. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "indicator.at:13: \${COMPILE_MODULE} --constant=SW1 -o prog prog.cob" +echo indicator.at:13 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --constant=SW1 -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:13: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "indicator.at:14: \${COBCRUN} prog" +echo indicator.at:14 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "SW1 DEFINED +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:14: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 82 ) # 82. indicator.at:19: dollarif defined - false + at_setup_line='indicator.at:19' + at_desc='dollarif defined - false' + $at_quiet $ECHO_N " 82: dollarif defined - false $ECHO_C" + at_xfail=no + ( + echo "82. indicator.at:19: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6022,47 +5966,154 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/indicator.at:33: \${COMPILE_MODULE} --constant=SW2 -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:33" -( $at_check_trace; ${COMPILE_MODULE} --constant=SW2 -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:33" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/indicator.at:34: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:34" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "SW2 DEFINED -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:34" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_82 -#AT_START_83 -at_fn_group_banner 83 'indicator.at:39' \ - "dollarif value match - true" " " -at_xfail=no -( - $as_echo "83. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "indicator.at:33: \${COMPILE_MODULE} --constant=SW2 -o prog prog.cob" +echo indicator.at:33 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --constant=SW2 -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:33: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "indicator.at:34: \${COBCRUN} prog" +echo indicator.at:34 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "SW2 DEFINED +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:34: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 83 ) # 83. indicator.at:39: dollarif value match - true + at_setup_line='indicator.at:39' + at_desc='dollarif value match - true' + $at_quiet $ECHO_N " 83: dollarif value match - true $ECHO_C" + at_xfail=no + ( + echo "83. indicator.at:39: testing ..." + $at_traceon + + +cat >prog.cob <<'_ATEOF' + + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + PROCEDURE DIVISION. + $IF SW3 = "1" + DISPLAY 'SW3 = 1'. + $ELSE + DISPLAY 'SW3 != 1'. + $END + STOP RUN. +_ATEOF + + +$at_traceoff +echo "indicator.at:53: \${COMPILE_MODULE} --constant=SW3\\\"1\\\" -o prog prog.cob" +echo indicator.at:53 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --constant=SW3\"1\" -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:53: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "indicator.at:54: \${COBCRUN} prog" +echo indicator.at:54 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "SW3 = 1 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:54: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 84 ) # 84. indicator.at:59: dollarif value match - false + at_setup_line='indicator.at:59' + at_desc='dollarif value match - false' + $at_quiet $ECHO_N " 84: dollarif value match - false $ECHO_C" + at_xfail=no + ( + echo "84. indicator.at:59: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6079,104 +6130,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/indicator.at:53: \${COMPILE_MODULE} --constant=SW3\\\"1\\\" -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:53" -( $at_check_trace; ${COMPILE_MODULE} --constant=SW3\"1\" -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:53" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/indicator.at:54: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:54" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "SW3 = 1 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:54" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_83 -#AT_START_84 -at_fn_group_banner 84 'indicator.at:59' \ - "dollarif value match - false" " " -at_xfail=no -( - $as_echo "84. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "indicator.at:73: \${COMPILE_MODULE} --constant=SW3\\\"2\\\" -o prog prog.cob" +echo indicator.at:73 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --constant=SW3\"2\" -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:73: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + echo 1 > $at_status_file + exit 1 +fi -cat >prog.cob <<'_ATEOF' +$at_traceon + +$at_traceoff +echo "indicator.at:74: \${COBCRUN} prog" +echo indicator.at:74 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "SW3 != 1 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:74: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - PROCEDURE DIVISION. - $IF SW3 = "1" - DISPLAY 'SW3 = 1'. - $ELSE - DISPLAY 'SW3 != 1'. - $END - STOP RUN. -_ATEOF + echo 1 > $at_status_file + exit 1 +fi +$at_traceon -{ set +x -$as_echo "$at_srcdir/indicator.at:73: \${COMPILE_MODULE} --constant=SW3\\\"2\\\" -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:73" -( $at_check_trace; ${COMPILE_MODULE} --constant=SW3\"2\" -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:73" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/indicator.at:74: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:74" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "SW3 != 1 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:74" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_84 -#AT_START_85 -at_fn_group_banner 85 'indicator.at:79' \ - "dollarif value match - not true" " " -at_xfail=no -( - $as_echo "85. $at_setup_line: testing $at_desc ..." - $at_traceon + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 85 ) # 85. indicator.at:79: dollarif value match - not true + at_setup_line='indicator.at:79' + at_desc='dollarif value match - not true' + $at_quiet $ECHO_N " 85: dollarif value match - not true $ECHO_C" + at_xfail=no + ( + echo "85. indicator.at:79: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6193,47 +6212,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/indicator.at:93: \${COMPILE_MODULE} --constant=SW4\\\"2\\\" -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:93" -( $at_check_trace; ${COMPILE_MODULE} --constant=SW4\"2\" -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:93" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/indicator.at:94: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:94" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "SW4 != 1 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:94" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_85 -#AT_START_86 -at_fn_group_banner 86 'indicator.at:99' \ - "dollarif value match - not false" " " -at_xfail=no -( - $as_echo "86. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "indicator.at:93: \${COMPILE_MODULE} --constant=SW4\\\"2\\\" -o prog prog.cob" +echo indicator.at:93 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --constant=SW4\"2\" -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:93: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "indicator.at:94: \${COBCRUN} prog" +echo indicator.at:94 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "SW4 != 1 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:94: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 86 ) # 86. indicator.at:99: dollarif value match - not false + at_setup_line='indicator.at:99' + at_desc='dollarif value match - not false' + $at_quiet $ECHO_N " 86: dollarif value match - not false $ECHO_C" + at_xfail=no + ( + echo "86. indicator.at:99: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6250,47 +6294,72 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/indicator.at:113: \${COMPILE_MODULE} --constant=SW4\\\"1\\\" -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:113" -( $at_check_trace; ${COMPILE_MODULE} --constant=SW4\"1\" -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:113" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/indicator.at:114: \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:114" -( $at_check_trace; ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "SW4 = 1 -" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/indicator.at:114" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_86 -#AT_START_87 -at_fn_group_banner 87 'indicator.at:119' \ - "column 7 is undefined value" " " -at_xfail=no -( - $as_echo "87. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "indicator.at:113: \${COMPILE_MODULE} --constant=SW4\\\"1\\\" -o prog prog.cob" +echo indicator.at:113 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --constant=SW4\"1\" -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:113: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "indicator.at:114: \${COBCRUN} prog" +echo indicator.at:114 >$at_check_line_file +( $at_traceon; ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "SW4 = 1 +" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "indicator.at:114: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 87 ) # 87. indicator.at:119: column 7 is undefined value + at_setup_line='indicator.at:119' + at_desc='column 7 is undefined value' + $at_quiet $ECHO_N " 87: column 7 is undefined value $ECHO_C" + at_xfail=no + ( + echo "87. indicator.at:119: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6305,34 +6374,47 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/indicator.at:131: \${COMPILE} -x prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "indicator.at:131" -( $at_check_trace; ${COMPILE} -x prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -echo >>"$at_stderr"; $as_echo "prog.cob:4: Error: Invalid indicator '1' at column 7 -" | \ - $at_diff - "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 1 $at_status "$at_srcdir/indicator.at:131" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_87 -#AT_START_88 -at_fn_group_banner 88 'assign-external.at:1' \ - "ASSIGN TO DYNAMIC create file (assign_external)" "" -at_xfail=no -( - $as_echo "88. $at_setup_line: testing $at_desc ..." - $at_traceon +$at_traceoff +echo "indicator.at:131: \${COMPILE} -x prog.cob" +echo indicator.at:131 >$at_check_line_file +( $at_traceon; ${COMPILE} -x prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +echo >>$at_stderr; echo "prog.cob:4: Error: Invalid indicator '1' at column 7 +" | $at_diff - $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 1) ;; + *) echo "indicator.at:131: exit code was $at_status, expected 1" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + 88 ) # 88. assign-external.at:1: ASSIGN TO DYNAMIC create file (assign_external) + at_setup_line='assign-external.at:1' + at_desc='ASSIGN TO DYNAMIC create file (assign_external)' + $at_quiet $ECHO_N " 88: ASSIGN TO DYNAMIC create file (assign_external)$ECHO_C" + at_xfail=no + ( + echo "88. assign-external.at:1: testing ..." + $at_traceon cat >prog.cob <<'_ATEOF' @@ -6361,49 +6443,367 @@ cat >prog.cob <<'_ATEOF' _ATEOF -{ set +x -$as_echo "$at_srcdir/assign-external.at:27: \${COMPILE_MODULE} --assign_external -o prog prog.cob" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "assign-external.at:27" -( $at_check_trace; ${COMPILE_MODULE} --assign_external -o prog prog.cob -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/assign-external.at:27" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/assign-external.at:28: export TEST_FILE=TEST-ext && \${COBCRUN} prog" -at_fn_check_prepare_notrace 'a ${...} parameter expansion' "assign-external.at:28" -( $at_check_trace; export TEST_FILE=TEST-ext && ${COBCRUN} prog -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -at_fn_diff_devnull "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/assign-external.at:28" -$at_failed && at_fn_log_failure -$at_traceon; } - -{ set +x -$as_echo "$at_srcdir/assign-external.at:29: if test -f TEST-dyn ; then echo -n OK ; else echo -n NG ; fi" -at_fn_check_prepare_trace "assign-external.at:29" -( $at_check_trace; if test -f TEST-dyn ; then echo -n OK ; else echo -n NG ; fi -) >>"$at_stdout" 2>>"$at_stderr" -at_status=$? at_failed=false -$at_check_filter -at_fn_diff_devnull "$at_stderr" || at_failed=: -echo >>"$at_stdout"; $as_echo "OK" | \ - $at_diff - "$at_stdout" || at_failed=: -at_fn_check_status 0 $at_status "$at_srcdir/assign-external.at:29" -$at_failed && at_fn_log_failure -$at_traceon; } - - - set +x - $at_times_p && times >"$at_times_file" -) 5>&1 2>&1 7>&- | eval $at_tee_pipe -read at_status <"$at_status_file" -#AT_STOP_88 +$at_traceoff +echo "assign-external.at:27: \${COMPILE_MODULE} --assign_external -o prog prog.cob" +echo assign-external.at:27 >$at_check_line_file +( $at_traceon; ${COMPILE_MODULE} --assign_external -o prog prog.cob ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "assign-external.at:27: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "assign-external.at:28: export TEST_FILE=TEST-ext && \${COBCRUN} prog" +echo assign-external.at:28 >$at_check_line_file +( $at_traceon; export TEST_FILE=TEST-ext && ${COBCRUN} prog ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +$at_diff $at_devnull $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "assign-external.at:28: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + +$at_traceoff +echo "assign-external.at:29: if test -f TEST-dyn ; then echo -n OK ; else echo -n NG ; fi" +echo assign-external.at:29 >$at_check_line_file +( $at_traceon; if test -f TEST-dyn ; then echo -n OK ; else echo -n NG ; fi ) >$at_stdout 2>$at_stder1 +at_status=$? +grep '^ *+' $at_stder1 >&2 +grep -v '^ *+' $at_stder1 >$at_stderr +at_failed=false +$at_diff $at_devnull $at_stderr || at_failed=: +echo >>$at_stdout; echo "OK" | $at_diff - $at_stdout || at_failed=: +case $at_status in + 77) echo 77 > $at_status_file + exit 77;; + 0) ;; + *) echo "assign-external.at:29: exit code was $at_status, expected 0" + at_failed=:;; +esac +if $at_failed; then + + echo 1 > $at_status_file + exit 1 +fi + +$at_traceon + + + $at_traceoff + $at_times_p && times >$at_times_file + ) 5>&1 2>&1 | eval $at_tee_pipe + at_status=`cat $at_status_file` + ;; + + + * ) + echo "$as_me: no such test group: $at_group" >&2 + continue + ;; + esac + + # Be sure to come back to the suite directory, in particular + # since below we might `rm' the group directory we are in currently. + cd $at_suite_dir + + case $at_group in + banner-*) ;; + *) + if test ! -f $at_check_line_file; then + sed "s/^ */$as_me: warning: /" <<_ATEOF + A failure happened in a test group before any test could be + run. This means that test suite is improperly designed. Please + report this failure to . +_ATEOF + echo "$at_setup_line" >$at_check_line_file + fi + at_group_count=`expr 1 + $at_group_count` + $at_verbose $ECHO_N "$at_group. $at_setup_line: $ECHO_C" + echo $ECHO_N "$at_group. $at_setup_line: $ECHO_C" >> $at_group_log + case $at_xfail:$at_status in + yes:0) + at_msg="UNEXPECTED PASS" + at_xpass_list="$at_xpass_list $at_group" + at_errexit=$at_errexit_p + ;; + no:0) + at_msg="ok" + at_pass_list="$at_pass_list $at_group" + at_errexit=false + ;; + *:77) + at_msg="skipped (`cat $at_check_line_file`)" + at_skip_list="$at_skip_list $at_group" + at_errexit=false + ;; + yes:*) + at_msg="expected failure (`cat $at_check_line_file`)" + at_xfail_list="$at_xfail_list $at_group" + at_errexit=false + ;; + no:*) + at_msg="FAILED (`cat $at_check_line_file`)" + at_fail_list="$at_fail_list $at_group" + at_errexit=$at_errexit_p + ;; + esac + echo $at_msg + at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" + case $at_status in + 0|77) + # $at_times_file is only available if the group succeeded. + # We're not including the group log, so the success message + # is written in the global log separately. But we also + # write to the group log in case they're using -d. + if test -f $at_times_file; then + at_log_msg="$at_log_msg (`sed 1d $at_times_file`)" + rm -f $at_times_file + fi + echo "$at_log_msg" >> $at_group_log + echo "$at_log_msg" >&5 + + # Cleanup the group directory, unless the user wants the files. + $at_debug_p || rm -rf $at_group_dir + ;; + *) + # Upon failure, include the log into the testsuite's global + # log. The failure message is written in the group log. It + # is later included in the global log. + echo "$at_log_msg" >> $at_group_log + + # Upon failure, keep the group directory for autopsy, and + # create the debugging script. + { + echo "#! /bin/sh" + echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' + echo "cd $at_dir" + echo 'exec ${CONFIG_SHELL-'"$SHELL"'}' "$0" \ + '-v -d' "$at_debug_args" "$at_group" '${1+"$@"}' + echo 'exit 1' + } >$at_group_dir/run + chmod +x $at_group_dir/run + $at_errexit && break + ;; + esac + ;; + esac +done + +# Back to the top directory. +cd $at_dir + +# Compute the duration of the suite. +at_stop_date=`date` +at_stop_time=`(date +%s) 2>/dev/null` +echo "$as_me: ending at: $at_stop_date" >&5 +at_duration_s=`(expr $at_stop_time - $at_start_time) 2>/dev/null` +at_duration_m=`(expr $at_duration_s / 60) 2>/dev/null` +at_duration_h=`(expr $at_duration_m / 60) 2>/dev/null` +at_duration_s=`(expr $at_duration_s % 60) 2>/dev/null` +at_duration_m=`(expr $at_duration_m % 60) 2>/dev/null` +at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" +if test "$at_duration" != "h m s"; then + echo "$as_me: test suite duration: $at_duration" >&5 +fi + +# Wrap up the test suite with summary statistics. +at_skip_count=`set dummy $at_skip_list; shift; echo $#` +at_fail_count=`set dummy $at_fail_list; shift; echo $#` +at_xpass_count=`set dummy $at_xpass_list; shift; echo $#` +at_xfail_count=`set dummy $at_xfail_list; shift; echo $#` + +at_run_count=`expr $at_group_count - $at_skip_count` +at_unexpected_count=`expr $at_xpass_count + $at_fail_count` +at_total_fail_count=`expr $at_xfail_count + $at_fail_count` + +echo +cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX +echo +{ + echo + cat <<\_ASBOX +## ------------- ## +## Test results. ## +## ------------- ## +_ASBOX + echo +} >&5 + +if test $at_run_count = 1; then + at_result="1 test" + at_were=was +else + at_result="$at_run_count tests" + at_were=were +fi +if $at_errexit_p && test $at_unexpected_count != 0; then + if test $at_xpass_count = 1; then + at_result="$at_result $at_were run, one passed" + else + at_result="$at_result $at_were run, one failed" + fi + at_result="$at_result unexpectedly and inhibited subsequent tests." +else + # Don't you just love exponential explosion of the number of cases? + case $at_xpass_count:$at_fail_count:$at_xfail_count in + # So far, so good. + 0:0:0) at_result="$at_result $at_were successful." ;; + 0:0:*) at_result="$at_result behaved as expected." ;; + + # Some unexpected failures + 0:*:0) at_result="$at_result $at_were run, +$at_fail_count failed unexpectedly." ;; + + # Some failures, both expected and unexpected + 0:*:1) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + 0:*:*) at_result="$at_result $at_were run, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + + # No unexpected failures, but some xpasses + *:0:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly." ;; + + # No expected failures, but failures and xpasses + *:1:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; + *:*:0) at_result="$at_result $at_were run, +$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; + + # All of them. + *:*:1) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failure)." ;; + *:*:*) at_result="$at_result $at_were run, +$at_xpass_count passed unexpectedly, +$at_total_fail_count failed ($at_xfail_count expected failures)." ;; + esac + + if test $at_skip_count = 0 && test $at_run_count -gt 1; then + at_result="All $at_result" + fi +fi + +# Now put skips in the mix. +case $at_skip_count in + 0) ;; + 1) at_result="$at_result +1 test was skipped." ;; + *) at_result="$at_result +$at_skip_count tests were skipped." ;; +esac + +if test $at_unexpected_count = 0; then + echo "$at_result" + echo "$at_result" >&5 +else + echo "ERROR: $at_result" >&2 + echo "ERROR: $at_result" >&5 + { + echo + cat <<\_ASBOX +## ------------------------ ## +## Summary of the failures. ## +## ------------------------ ## +_ASBOX + + # Summary of failed and skipped tests. + if test $at_fail_count != 0; then + echo "Failed tests:" + $SHELL $0 $at_fail_list --list + echo + fi + if test $at_skip_count != 0; then + echo "Skipped tests:" + $SHELL $0 $at_skip_list --list + echo + fi + if test $at_xpass_count != 0; then + echo "Unexpected passes:" + $SHELL $0 $at_xpass_list --list + echo + fi + if test $at_fail_count != 0; then + cat <<\_ASBOX +## ---------------------- ## +## Detailed failed tests. ## +## ---------------------- ## +_ASBOX + echo + for at_group in $at_fail_list + do + # Normalize the test group number. + at_group_normalized=`expr "00000$at_group" : ".*\($at_format\)"` + # Create a fresh directory for the next test group, and enter. + at_group_dir=$at_suite_dir/$at_group_normalized + at_group_log=$at_group_dir/$as_me.log + cat $at_group_log + echo + done + echo + fi + if test -n "$at_top_srcdir"; then + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $at_top_builddir/config.log ## +_ASBOX + sed 's/^/| /' $at_top_builddir/config.log + echo + fi + } >&5 + + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## $as_me.log was created. ## +_ASBOX + + echo + echo "Please send \`$as_me.log' and all information you think might help:" + echo + echo " To: " + echo " Subject: [OpenCOBOL 1.1] $as_me:$at_fail_list${at_fail_list:+ failed${at_xpass_list:+,}}$at_xpass_list${at_xpass_list:+ passed unexpectedly}" + echo + if test $at_debug_p = false; then + echo + echo 'You may investigate any problem if you feel able to do so, in which' + echo 'case the test suite provides a good starting point.' + echo + fi + exit 1 +fi + +exit 0 + + diff --git a/texi/stamp-vti b/texi/stamp-vti index e5abc0cf..4bfd4cac 100644 --- a/texi/stamp-vti +++ b/texi/stamp-vti @@ -1,4 +1,4 @@ -@set UPDATED 19 April 2013 -@set UPDATED-MONTH April 2013 +@set UPDATED 16 December 2013 +@set UPDATED-MONTH December 2013 @set EDITION 1.1 @set VERSION 1.1 diff --git a/texi/version.texi b/texi/version.texi index e5abc0cf..4bfd4cac 100644 --- a/texi/version.texi +++ b/texi/version.texi @@ -1,4 +1,4 @@ -@set UPDATED 19 April 2013 -@set UPDATED-MONTH April 2013 +@set UPDATED 16 December 2013 +@set UPDATED-MONTH December 2013 @set EDITION 1.1 @set VERSION 1.1