aboutsummaryrefslogtreecommitdiff
path: root/ltests.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2019-08-16 09:51:54 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2019-08-16 09:51:54 -0300
commitca13be9af784b7288d3a07d9b5bccb329086e885 (patch)
treec027419f98064d681518a4130439920a13a11b06 /ltests.c
parenta1d8eb27431c02c4529be1efd92143ad65434f3a (diff)
downloadlua-ca13be9af784b7288d3a07d9b5bccb329086e885.tar.gz
lua-ca13be9af784b7288d3a07d9b5bccb329086e885.tar.bz2
lua-ca13be9af784b7288d3a07d9b5bccb329086e885.zip
Supressed errors in '__close' generate warnings
Diffstat (limited to 'ltests.c')
-rw-r--r--ltests.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/ltests.c b/ltests.c
index fd55fc31..b460d018 100644
--- a/ltests.c
+++ b/ltests.c
@@ -95,15 +95,15 @@ static void warnf (void *ud, const char *msg, int tocont) {
95 if (!lasttocont && !tocont && *msg == '@') { /* control message? */ 95 if (!lasttocont && !tocont && *msg == '@') { /* control message? */
96 if (buff[0] != '\0') 96 if (buff[0] != '\0')
97 badexit("Control warning during warning: %s\naborting...\n", msg); 97 badexit("Control warning during warning: %s\naborting...\n", msg);
98 if (strcmp(msg + 1, "off") == 0) 98 if (strcmp(msg, "@off") == 0)
99 onoff = 0; 99 onoff = 0;
100 else if (strcmp(msg + 1, "on") == 0) 100 else if (strcmp(msg, "@on") == 0)
101 onoff = 1; 101 onoff = 1;
102 else if (strcmp(msg + 1, "normal") == 0) 102 else if (strcmp(msg, "@normal") == 0)
103 mode = 0; 103 mode = 0;
104 else if (strcmp(msg + 1, "allow") == 0) 104 else if (strcmp(msg, "@allow") == 0)
105 mode = 1; 105 mode = 1;
106 else if (strcmp(msg + 1, "store") == 0) 106 else if (strcmp(msg, "@store") == 0)
107 mode = 2; 107 mode = 2;
108 else 108 else
109 badexit("Invalid control warning in test mode: %s\naborting...\n", msg); 109 badexit("Invalid control warning in test mode: %s\naborting...\n", msg);