From a830a63718f1e9a0a812e772bef6e891668afd17 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Tue, 14 Apr 2015 15:02:27 +0300 Subject: Make indirect call of gensub with 3 args work. --- test/ChangeLog | 5 +++++ test/indirectbuiltin.awk | 6 ++++++ test/indirectbuiltin.ok | 1 + 3 files changed, 12 insertions(+) (limited to 'test') diff --git a/test/ChangeLog b/test/ChangeLog index 0092932f..201f8a32 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2015-04-14 Arnold D. Robbins + + * indirectbuiltin.awk: Add another test (gensub 3 args). + * indirectbuiltin.ok: Update good results. + 2015-04-13 Arnold D. Robbins * Makefile.am (negtime): New test. diff --git a/test/indirectbuiltin.awk b/test/indirectbuiltin.awk index 4d5291d2..c9e75217 100644 --- a/test/indirectbuiltin.awk +++ b/test/indirectbuiltin.awk @@ -98,6 +98,12 @@ BEGIN { i1 = @fun("f", "q", "g", "ff11bb") print_result("string", fun, b1, i1) + fun = "gensub" + $0 = "ff11bb" + b1 = gensub("f", "q", "g") + i1 = @fun("f", "q", "g") + print_result("string", fun " (3 args)", b1, i1) + fun = "gsub" $0 = "ff11bb" b1 = gsub("f", "q") diff --git a/test/indirectbuiltin.ok b/test/indirectbuiltin.ok index 312bbd76..08c87610 100644 --- a/test/indirectbuiltin.ok +++ b/test/indirectbuiltin.ok @@ -14,6 +14,7 @@ math: sqrt: pass math: srand: pass math: xor: pass string: gensub: pass +string: gensub (3 args): pass string: gsub: pass string: index: pass string: dcgettext: pass -- cgit v1.2.3