update fileio tests 3663 and 4467 to take care of Windows configuration 25/10625/2
Antoine ELIAS [Wed, 27 Feb 2013 15:12:39 +0000 (16:12 +0100)]
Change-Id: I9cccc4e61e82cf85c2c162ee6b10e026e60bc683

scilab/modules/fileio/tests/nonreg_tests/bug_3663.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3663.tst
scilab/modules/fileio/tests/nonreg_tests/bug_3663.win.dia.ref [deleted file]
scilab/modules/fileio/tests/nonreg_tests/bug_4467.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_4467.tst

index 9ba292c..c8f2ade 100644 (file)
@@ -1,10 +1,15 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2008 - DIGITEO - Allan CORNET
+// Copyright (C) 2013 - Scilab Enterprises - Antoine ELIAS
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//
 // <-- CLI SHELL MODE -->
+//
+// <-- WINDOWS ONLY -->
+//
 // <-- Non-regression test for bug 3663 -->
 //
 // <-- Bugzilla URL -->
 //
 // <-- Short Description -->
 // getshortpathname & getlongpathname return '' and not a path with some special pathname
-if getos() == 'Windows' then
-  name_dir = 'L.P blabla';
-  cd(TMPDIR);
-  mkdir(name_dir);
-  [a,b] = getshortpathname(name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-  // short pathname are managed by Windows
-  // on Windows 7, it returns LDEE2~1.PBL
-  if (a <> 'L3746~1.PBL' & a <> 'LDEE2~1.PBL') then bugmes();quit;end
-  [a,b] = getshortpathname(TMPDIR + '\' + name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-  [a,b] = getlongpathname(name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-  if a <> name_dir then bugmes();quit;end
-  [a,b] = getlongpathname(TMPDIR + '\' + name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-end
+function res = is8Dot3Disable()
+    if find(winqueryreg('name', 'HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem') == 'NtfsDisable8dot3NameCreation') then
+        res = bool2s(winqueryreg('HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem', 'NtfsDisable8dot3NameCreation'));
+    else
+        res = 0;
+    end
+endfunction
+name_dir = 'L.P blabla';
+cd(TMPDIR);
+mkdir(name_dir);
+[a,b] = getshortpathname(name_dir);
+if b <> %t then bugmes();quit;end
+if isempty(a) then bugmes();quit;end
+// short pathname are managed by Windows
+// on Windows 7, it returns LDEE2~1.PBL
+//depends of windows configuration
+//http://technet.microsoft.com/en-us/library/cc959352.aspx
+if (is8Dot3Disable() == 0 & a <> 'L3746~1.PBL' & a <> 'LDEE2~1.PBL') then bugmes();quit;end
+[a,b] = getshortpathname(TMPDIR + '\' + name_dir);
+if b <> %t then bugmes();quit;end
+if isempty(a) then bugmes();quit;end
+[a,b] = getlongpathname(name_dir);
+if b <> %t then bugmes();quit;end
+if isempty(a) then bugmes();quit;end
+if a <> name_dir then bugmes();quit;end
+[a,b] = getlongpathname(TMPDIR + '\' + name_dir);
+if b <> %t then bugmes();quit;end
+if isempty(a) then bugmes();quit;end
index 7a1ee4c..bf9fbb6 100644 (file)
@@ -1,12 +1,15 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2008 - DIGITEO - Allan CORNET
+// Copyright (C) 2013 - Scilab Enterprises - Antoine ELIAS
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+//
 // <-- CLI SHELL MODE -->
-
+//
+// <-- WINDOWS ONLY -->
+//
 // <-- Non-regression test for bug 3663 -->
 //
 // <-- Bugzilla URL -->
 // <-- Short Description -->
 // getshortpathname & getlongpathname return '' and not a path with some special pathname
 
-if getos() == 'Windows' then
-
-  name_dir = 'L.P blabla';
-  cd(TMPDIR);
-  
-  mkdir(name_dir);
-  [a,b] = getshortpathname(name_dir);
-  if b <> %t then pause,end
-  if isempty(a) then pause,end
-  // short pathname are managed by Windows
-  // on Windows 7, it returns LDEE2~1.PBL
-  if (a <> 'L3746~1.PBL' & a <> 'LDEE2~1.PBL') then pause,end
-  
-  [a,b] = getshortpathname(TMPDIR + '\' + name_dir);
-  if b <> %t then pause,end
-  if isempty(a) then pause,end
-  
-  [a,b] = getlongpathname(name_dir);
-  if b <> %t then pause,end
-  if isempty(a) then pause,end
-  if a <> name_dir then pause,end
-  
-  [a,b] = getlongpathname(TMPDIR + '\' + name_dir);
-  if b <> %t then pause,end
-  if isempty(a) then pause,end
-  
-end
+function res = is8Dot3Disable()
+    if find(winqueryreg('name', 'HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem') == 'NtfsDisable8dot3NameCreation') then
+        res = bool2s(winqueryreg('HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem', 'NtfsDisable8dot3NameCreation'));
+    else
+        res = 0;
+    end
+endfunction
+
+name_dir = 'L.P blabla';
+cd(TMPDIR);
+
+mkdir(name_dir);
+[a,b] = getshortpathname(name_dir);
+if b <> %t then pause,end
+if isempty(a) then pause,end
+
+// short pathname are managed by Windows
+// on Windows 7, it returns LDEE2~1.PBL
+
+//depends of windows configuration
+//http://technet.microsoft.com/en-us/library/cc959352.aspx
+if (is8Dot3Disable() == 0 & a <> 'L3746~1.PBL' & a <> 'LDEE2~1.PBL') then pause,end
+
+[a,b] = getshortpathname(TMPDIR + '\' + name_dir);
+if b <> %t then pause,end
+if isempty(a) then pause,end
+
+[a,b] = getlongpathname(name_dir);
+if b <> %t then pause,end
+if isempty(a) then pause,end
+if a <> name_dir then pause,end
+
+[a,b] = getlongpathname(TMPDIR + '\' + name_dir);
+if b <> %t then pause,end
+if isempty(a) then pause,end
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3663.win.dia.ref b/scilab/modules/fileio/tests/nonreg_tests/bug_3663.win.dia.ref
deleted file mode 100644 (file)
index 4c655fb..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// <-- Non-regression test for bug 3663 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=3663
-//
-// <-- Short Description -->
-// getshortpathname & getlongpathname return '' and not a path with some special pathname
-if getos() == 'Windows' then
-  name_dir = 'L.P blabla';
-  cd(TMPDIR);
-  mkdir(name_dir);
-  [a,b] = getshortpathname(name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-  // short pathname are managed by Windows
-  // on Windows 7, it returns LDEE2~1.PBL
-  if (a <> 'L3746~1.PBL' & a <> 'LDEE2~1.PBL')then bugmes();quit;end
-  [a,b] = getshortpathname(TMPDIR + '\' + name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-  [a,b] = getlongpathname(name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-  if a <> name_dir then bugmes();quit;end
-  [a,b] = getlongpathname(TMPDIR + '\' + name_dir);
-  if b <> %t then bugmes();quit;end
-  if isempty(a) then bugmes();quit;end
-end
index 19e6164..bd2ff82 100644 (file)
@@ -1,10 +1,15 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) DIGITEO - 2009 - Allan CORNET
+// Copyright (C) Scilab Enterprises - 2013 - Antoine ELIAS
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//
 // <-- CLI SHELL MODE -->
+//
+// <-- WINDOWS ONLY -->
+//
 // <-- Non-regression test for bug 4467 -->
 //
 // <-- Bugzilla URL -->
 //
 // <-- Short Description -->
 // getshortpathname , getlongpathname do not manage matrix of strings
-if getos() == 'Windows' then
+function res = is8Dot3Disable()
+    if find(winqueryreg('name', 'HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem') == 'NtfsDisable8dot3NameCreation') then
+        res = bool2s(winqueryreg('HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem', 'NtfsDisable8dot3NameCreation'));
+    else
+        res = 0;
+    end
+endfunction
 [r1,b1] = getshortpathname([TMPDIR,SCI;SCI,TMPDIR]);
 if size(r1,'*') <> 4 then bugmes();quit;end
 if ~and(b1 == %t) then bugmes();quit;end
 [r2,b2] = getlongpathname(r1);
 if size(r2,'*') <> 4 then bugmes();quit;end
 if ~and(b2 == %t) then bugmes();quit;end
-if ~and(r1<>r2) then bugmes();quit;end
+//depends of windows configuration
+//http://technet.microsoft.com/en-us/library/cc959352.aspx
+if is8Dot3Disable() then
+    if ~and(r1 == r2) then bugmes();quit;end
+else
+    if ~and(r1 <> r2) then bugmes();quit;end
+end
 if ~and(b1 == b2) then bugmes();quit;end
 [r3,b3] = getshortpathname(["/My_tmp/file_1";"/My_tmp/file_2"]);
 if size(r3,'*') <> 2 then bugmes();quit;end
@@ -35,4 +52,3 @@ if ~and(b5 == [%t;%f]) then bugmes();quit;end
 [r6,b6] =getlongpathname([SCI;"/My_tmp/file_2"]);
 if size(r6,'*') <> 2 then bugmes();quit;end
 if ~and(b6 == [%t;%f]) then bugmes();quit;end
-end
index a4a6689..d7646a5 100644 (file)
@@ -1,12 +1,15 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) DIGITEO - 2009 - Allan CORNET
+// Copyright (C) Scilab Enterprises - 2013 - Antoine ELIAS
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+//
 // <-- CLI SHELL MODE -->
-
+//
+// <-- WINDOWS ONLY -->
+//
 // <-- Non-regression test for bug 4467 -->
 //
 // <-- Bugzilla URL -->
 // <-- Short Description -->
 // getshortpathname , getlongpathname do not manage matrix of strings
 
-if getos() == 'Windows' then
+function res = is8Dot3Disable()
+    if find(winqueryreg('name', 'HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem') == 'NtfsDisable8dot3NameCreation') then
+        res = bool2s(winqueryreg('HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\FileSystem', 'NtfsDisable8dot3NameCreation'));
+    else
+        res = 0;
+    end
+endfunction
 
 [r1,b1] = getshortpathname([TMPDIR,SCI;SCI,TMPDIR]);
 if size(r1,'*') <> 4 then pause,end
@@ -25,7 +34,13 @@ if ~and(b1 == %t) then pause,end
 if size(r2,'*') <> 4 then pause,end
 if ~and(b2 == %t) then pause,end
 
-if ~and(r1<>r2) then pause,end
+//depends of windows configuration
+//http://technet.microsoft.com/en-us/library/cc959352.aspx
+if is8Dot3Disable() then
+    if ~and(r1 == r2) then pause,end
+else
+    if ~and(r1 <> r2) then pause,end
+end
 if ~and(b1 == b2) then pause,end
 
 [r3,b3] = getshortpathname(["/My_tmp/file_1";"/My_tmp/file_2"]);
@@ -46,5 +61,3 @@ if ~and(b5 == [%t;%f]) then pause,end
 [r6,b6] =getlongpathname([SCI;"/My_tmp/file_2"]);
 if size(r6,'*') <> 2 then pause,end
 if ~and(b6 == [%t;%f]) then pause,end
-
-end