From c9286d40fe9cacfa022e6ee98905dda9eec6d8b1 Mon Sep 17 00:00:00 2001 From: tomas Date: Fri, 5 Nov 2004 10:54:28 +0000 Subject: Correcoes em valores de retorno de funcoes. --- src/lfs.c | 6 ++++-- tests/test.lua | 4 ++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/lfs.c b/src/lfs.c index a5c152a..6366aab 100644 --- a/src/lfs.c +++ b/src/lfs.c @@ -9,7 +9,7 @@ ** lfs.lock (fh, mode) ** lfs.unlock (fh) ** -** $Id: lfs.c,v 1.11 2004/11/05 10:37:29 tomas Exp $ +** $Id: lfs.c,v 1.12 2004/11/05 10:54:28 tomas Exp $ */ #include @@ -239,8 +239,10 @@ static int make_dir (lua_State *L) { S_IWGRP | S_IXGRP | S_IROTH | S_IXOTH ); #endif lua_pushboolean (L, !fail); - if (fail) + if (fail) { lua_pushfstring (L, "%s", strerror(errno)); + return 2; + } umask (oldmask); return 1; } diff --git a/tests/test.lua b/tests/test.lua index 5703bfb..25a3fd3 100644 --- a/tests/test.lua +++ b/tests/test.lua @@ -30,11 +30,11 @@ local reldir = string.gsub (current, "^.*%"..sep.."([^"..sep.."])$", "%1") assert (lfs.chdir (upper), "could not change to upper directory") assert (lfs.chdir (reldir), "could not change back to current directory") assert (lfs.currentdir() == current, "error trying to change directories") -assert (lfs.chdir ("this couldn't be an actual directory") == false, "could change to a non-existent directory") +assert (lfs.chdir ("this couldn't be an actual directory") == nil, "could change to a non-existent directory") -- Changing creating and removing directories assert (lfs.mkdir (tmp.."/lfs_tmp_dir"), "could not make a new directory") assert (os.remove (tmp.."/lfs_tmp_dir"), "could not remove new directory") assert (lfs.mkdir (tmp.."/lfs_tmp_dir/lfs_tmp_dir") == false, "could create a directory inside a non-existent one") -- -assert (lfs.attributes ("this couldn't be an actual file") == false, "could get attributes of a non-existent file") +assert (lfs.attributes ("this couldn't be an actual file") == nil, "could get attributes of a non-existent file") assert (type(lfs.attributes (upper)) == "table", "couldn't get attributes of upper directory") -- cgit v1.2.3-55-g6feb