aspclassiccompiler/aspclassiccompiler/VBScriptTest/VBscriptDotNetTest.cs

using System;
using System.Text;
using System.Collections.Generic;
using NUnit.Framework;
using System.IO;

namespace Dlrsoft.VBScriptTest
{
    /// <summary>
    /// Summary description for UnitTest1
    /// </summary>
    [TestFixture]
    public class VBscriptDotNetTest
    {
        public VBscriptDotNetTest()
        {
            //
            // TODO: Add constructor logic here
            //
        }

        private TestContext testContextInstance;

        /// <summary>
        ///Gets or sets the test context which provides
        ///information about and functionality for the current test run.
        ///</summary>
        public TestContext TestContext
        {
            get
            {
                return testContextInstance;
            }
            set
            {
                testContextInstance = value;
            }
        }

        #region Additional test attributes
        //
        // You can use the following additional attributes as you write your tests:
        //
        // Use ClassInitialize to run code before running the first test in the class
        // [ClassInitialize()]
        // public static void MyClassInitialize(TestContext testContext) { }
        //
        // Use ClassCleanup to run code after all tests in a class have run
        // [ClassCleanup()]
        // public static void MyClassCleanup() { }
        //
        // Use TestInitialize to run code before running each test 
        // [TestInitialize()]
        // public void MyTestInitialize() { }
        //
        // Use TestCleanup to run code after each test has run
        // [TestCleanup()]
        // public void MyTestCleanup() { }
        //
        #endregion

        [Test]
        public void RunTest()
        {
            DirectoryWalker.Walk(
                Path.Combine(DirectoryWalker.AssemblyDirectory, "../../VBScripts"),
                f =>
                {
                    if (f.EndsWith(".vbs", StringComparison.InvariantCultureIgnoreCase))
                    {
                        try
                        {
                            VBScriptTestHelper.Run(f);
                        }
                        catch (Exception ex)
                        {
                            Assert.Fail(f + ":" + ex.Message);
                        }
                    }
                }
            );
        }
    }
}