1 // SpecialDirectoriesTest.cs - NUnit Test Cases for Microsoft.VisualBasic.FileUI.SpecialDirectories 2 // 3 // Rolf Bjarne Kvinge (RKvinge@novell.com) 4 // 5 // 6 // Copyright (C) 2007 Novell, Inc (http://www.novell.com) 7 // 8 // Permission is hereby granted, free of charge, to any person obtaining 9 // a copy of this software and associated documentation files (the 10 // "Software"), to deal in the Software without restriction, including 11 // without limitation the rights to use, copy, modify, merge, publish, 12 // distribute, sublicense, and/or sell copies of the Software, and to 13 // permit persons to whom the Software is furnished to do so, subject to 14 // the following conditions: 15 // 16 // The above copyright notice and this permission notice shall be 17 // included in all copies or substantial portions of the Software. 18 // 19 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 20 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 21 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 22 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE 23 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION 24 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION 25 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 26 // 27 using System; 28 using System.Collections.Generic; 29 using System.Text; 30 using System.IO; 31 using NUnit.Framework; 32 using Microsoft.VisualBasic.FileIO; 33 34 namespace MonoTests.Microsoft_VisualBasic.FileIO 35 { 36 [TestFixture] 37 public class SpecialDirectoriesTest 38 { 39 #if !TARGET_JVM 40 [Category ("TargetJvmNotSupported")]//System.Windows.Forms.Application, ServerComputer.FileSystem property 41 [Test] PathTest()42 public void PathTest() 43 { 44 Assert.AreEqual (FixPath (System.Windows.Forms.Application.CommonAppDataPath), SpecialDirectories.AllUsersApplicationData, "AllUserApplicationData"); 45 Assert.AreEqual (FixPath (System.Windows.Forms.Application.UserAppDataPath), SpecialDirectories.CurrentUserApplicationData, "CurrentUserApplicationData"); 46 Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.Desktop)), SpecialDirectories.Desktop, "Desktop"); 47 Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.MyDocuments)), SpecialDirectories.MyDocuments, "MyDocuments"); 48 Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.MyMusic)), SpecialDirectories.MyMusic, "MyMusic"); 49 Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.MyPictures)), SpecialDirectories.MyPictures, "MyPictures"); 50 Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.ProgramFiles)), SpecialDirectories.ProgramFiles, "ProgramFiles"); 51 Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.Programs)), SpecialDirectories.Programs, "Programs"); 52 Assert.AreEqual (FixPath (System.IO.Path.GetTempPath ()), SpecialDirectories.Temp, "Temp"); 53 } 54 #endif 55 FixPath(string path)56 string FixPath (string path) 57 { // For some reason VB may return paths with \\ in them instead of just \. 58 // So fix them so that the tests run correctly on MS runtime. 59 return path.Replace (@"\\", @"\").TrimEnd (Path.DirectorySeparatorChar, Path.AltDirectorySeparatorChar); 60 } 61 } 62 } 63