diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-06-25 22:05:42 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-06-25 22:05:42 +0300 |
| commit | 2d0d82f7453b1c5ad5e1baa8c02c2f6d5e5ccb67 (patch) | |
| tree | bd3464a03480eed31aacc43b9cf80c468a8f2fa6 /extension | |
| parent | 7642bd16ac81fbf85247ab2b5768cb6b316c8419 (diff) | |
| download | egawk-2d0d82f7453b1c5ad5e1baa8c02c2f6d5e5ccb67.tar.gz egawk-2d0d82f7453b1c5ad5e1baa8c02c2f6d5e5ccb67.tar.bz2 egawk-2d0d82f7453b1c5ad5e1baa8c02c2f6d5e5ccb67.zip | |
Add rwarray to extension tests.
Diffstat (limited to 'extension')
| -rw-r--r-- | extension/ChangeLog | 5 | ||||
| -rw-r--r-- | extension/Makefile.am | 3 | ||||
| -rw-r--r-- | extension/Makefile.in | 3 | ||||
| -rw-r--r-- | extension/rwarray.awk | 33 |
4 files changed, 7 insertions, 37 deletions
diff --git a/extension/ChangeLog b/extension/ChangeLog index 9d4305c1..a1ba2e90 100644 --- a/extension/ChangeLog +++ b/extension/ChangeLog @@ -1,3 +1,8 @@ +2012-06-25 Arnold D. Robbins <arnold@skeeve.com> + + * Makefile.am (EXTRA_DIST): Remove *.awk. + * rwarray.awk: Moved to test directory. + 2012-06-24 Arnold D. Robbins <arnold@skeeve.com> * Makefile.am: Enable rwarray extension. diff --git a/extension/Makefile.am b/extension/Makefile.am index 767c2abd..5c6532b4 100644 --- a/extension/Makefile.am +++ b/extension/Makefile.am @@ -59,5 +59,4 @@ testext_la_LDFLAGS = $(MY_MODULE_FLAGS) EXTRA_DIST = \ ChangeLog \ - ChangeLog.0 \ - *.awk + ChangeLog.0 diff --git a/extension/Makefile.in b/extension/Makefile.in index 5666c9d4..1747bcdb 100644 --- a/extension/Makefile.in +++ b/extension/Makefile.in @@ -364,8 +364,7 @@ testext_la_SOURCES = testext.c testext_la_LDFLAGS = $(MY_MODULE_FLAGS) EXTRA_DIST = \ ChangeLog \ - ChangeLog.0 \ - *.awk + ChangeLog.0 all: config.h $(MAKE) $(AM_MAKEFLAGS) all-am diff --git a/extension/rwarray.awk b/extension/rwarray.awk deleted file mode 100644 index 5d1b7e9d..00000000 --- a/extension/rwarray.awk +++ /dev/null @@ -1,33 +0,0 @@ -@load "rwarray" - -BEGIN { - while ((getline word) > 0) - dict[word] = word word - - n = asorti(dict, dictindices) - for (i = 1; i <= n; i++) - printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "orig.out" - close("orig.out"); - - ret = writea("orig.bin", dict) - printf "writea() returned %d, expecting 1\n", ret - - - ret = reada("orig.bin", dict) - printf "reada() returned %d, expecting 1\n", ret - - n = asorti(dict, dictindices) - for (i = 1; i <= n; i++) - printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "new.out" - close("new.out"); - - ret = system("cmp orig.out new.out") - - if (ret == 0) - print "old and new are equal - GOOD" - else - print "old and new are not equal - BAD" - - if (ret == 0 && !("KEEPIT" in ENVIRON)) - system("rm -f orig.bin orig.out new.out") -} |