Bug 5149 fixed: test_run(): Calls to exec functions are no more logged by diary
[scilab.git] / scilab / modules / mexlib / tests / nonreg_tests / bug_614.tst
index 47db9fa..f07c38f 100644 (file)
@@ -1,7 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
 // <-- Non-regression test for bug 614 -->
 //
 // <-- Bugzilla URL -->
-// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=614
+// http://bugzilla.scilab.org/show_bug.cgi?id=614
 //
 // <-- Short Description -->
 //    mxGetDimensions() from mex.h and mexlib.c do not work 
 //
 //    Also occur in other OS's.
 
-// Copyright INRIA
-// Scilab Project - Serge Steer
-// Copyright INRIA 2006
-// Date : 10 janvier 2006
-
-my_current_direcory = pwd();
+ilib_verbose(0);
 
+my_current_directory = pwd();
 cd(TMPDIR);
-mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[],[],''Makelib'','''','''','''')','builder.sce')
+mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[''mexfunction16.c''],[],''Makelib'','''','''','''')','builder.sce');
 
 mputl([
 '#include ""mex.h""'
@@ -32,14 +35,9 @@ mputl([
 '}'
 ],'mexfunction16.c');
 
-exec(TMPDIR+'/builder.sce');
-exec(TMPDIR+'/loader.sce');
+exec('builder.sce');
+exec('loader.sce');
 
-diary('bug614.dia')
 mexf16(rand(2,3,2))
-diary(0)
-
-dia = mgetl('bug614.dia');
-cd(my_current_direcory)
 
-if find(dia == "2 3 2") == [] then pause,end
+cd(my_current_directory);