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 1079871..f07c38f 100644 (file)
@@ -8,7 +8,7 @@
 // <-- 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.
 
-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""'
@@ -34,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);