shaml 0.5.0.alpha

data/bin/shaml

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'shaml/shaml'
+Shaml::Command.run

data/lib/shaml/command.rb

@@ -0,0 +1,175 @@
+require 'zip/zip'
+
+module Shaml
+class CommandLoader
+  def initialize
+  end
+
+  def getappname
+    appname = Dir.glob("*.sln").first
+    if appname.nil? 
+      puts 'S#aml ERROR: solution file not found. Change directory to a s#aml-architecture project'
+      exit
+    end
+    appname.gsub(".sln","")
+  end
+
+  def camelcase(phrase)
+    phrase.gsub(/^[a-z]|[ _]+[a-z]/) { |a| a.upcase }.gsub(/[ _]/, '')
+  end
+
+  def unzip_file(file, destination)
+    Zip::ZipFile.open(file) { |zip_file|
+     zip_file.each { |f|
+       f_path=File.join(destination, f.name)
+       FileUtils.mkdir_p(File.dirname(f_path))
+       zip_file.extract(f, f_path) unless File.exist?(f_path)
+     }
+    }
+  end
+  
+  def convert_file(file, appname, modelname, propertydescriptor)
+    out = ""
+    pstring = ""
+    insideprop = false
+    file.each_line do |line|
+      out << line.gsub("WebBase",appname).gsub("WebSample", camelcase(modelname)).gsub("websample", modelname);
+    end
+    out
+  end
+
+  def copy_file(from,to,appname,modelname,propertydescriptor)
+    outfname = to.gsub("WebSample",camelcase(modelname))
+    FileUtils.mkdir_p(File.dirname(outfname))
+    File.open(from,"rb") do |infile|
+      File.open(outfname,"wb+") do |outfile|
+        puts "Writing #{outfname}"        
+        outfile.write convert_file(infile.read,appname,modelname,propertydescriptor)
+      end
+    end
+  end
+
+  def run
+    if ARGV.length == 0 then
+      puts "S#aml architecture: ASP.NET MVC 2 and NHibernate 2.1 on mono 2.4.4+"
+      puts " version: #{SHAML_VERSION}"
+      puts
+      puts "Usage:"
+      puts "  shaml command [parameters]"
+      puts 
+      puts "Where command might be:"
+      puts " generate"
+      puts "  app AppName             : Create new shaml application"
+      puts "  resource ResName        : Create new CRUD resource with"
+      puts "                            a model, a view and a controller"
+      puts "  controller Controller   : Create a standalone controller"
+      puts "  model Model             : Create a standalone model"
+      puts
+      puts " compile                  : Compiles the solution using xbuild"
+      puts " server                   : Runs xsp2"
+      puts
+      puts " console                  : Starts a csharp console"
+      puts " gconsole                 : Starts a gsharp console"
+      puts " runner script_name.cs    : Runs the script"
+      puts
+      puts "Examples: "
+      puts "  shaml generate app Blog"
+      puts "  shaml generate resource Post"
+      puts "  shaml compile"
+      puts
+      puts "The console, gconsole and runner parameters will preload the solutions"
+      puts "assemblies and configuration files, and loads everything you need to get"
+      puts "working with the domain objects"
+    else
+      command = ARGV.shift
+      case command
+      when "generate" then
+        type = ARGV.shift
+        name = ARGV.shift
+        if name then
+          case type
+          when "app" then
+            unzip_file(File.join(TEMPLATEDIR,"shaml_base_template.dat"), ".shaml_extract_temp")
+            Dir.glob(".shaml_extract_temp/**/*").each do |filename|
+              infname = filename
+              outfname = filename.gsub("WebBase",name).gsub(".shaml_extract_temp",name);
+              FileUtils.mkdir_p(File.dirname(outfname))
+              unless File.directory?(infname)
+                File.open(infname,"rb") do |infile|         
+                  File.open(outfname,"wb+") do |outfile|
+                    puts "Writing #{outfname}"
+                    if infname=~/\.dll/ then
+                      outfile.write infile.read                 
+                    else
+                      outfile.write infile.read.gsub("WebBase",name);
+                    end
+                  end
+                end
+              end
+            end
+            FileUtils.rm_rf ".shaml_extract_temp"
+          when "resource"
+            desc = ARGV.shift || nil
+            appname = getappname
+            copy_file(File.join(TEMPLATEDIR,"WebSample.cs"),File.join(appname,"App","Models","WebSample.cs"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"WebSamplesController.cs"),File.join(appname,"App","Controllers","WebSamplesController.cs"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"_WebSampleForm.haml"),File.join(appname,"App","Views","WebSamples","_WebSampleForm.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Create.haml"),File.join(appname,"App","Views","WebSamples","Create.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Delete.haml"),File.join(appname,"App","Views","WebSamples","Delete.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Edit.haml"),File.join(appname,"App","Views","WebSamples","Edit.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Index.haml"),File.join(appname,"App","Views","WebSamples","Index.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Show.haml"),File.join(appname,"App","Views","WebSamples","Show.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"WebSampleTests.cs"),File.join(appname+".Tests","Tests","Core","WebSampleTests.cs"),appname,name,desc)        
+            copy_file(File.join(TEMPLATEDIR,"WebSamplesControllerTests.cs"),File.join(appname+".Tests","Tests","Web","Controllers","WebSamplesControllerTests.cs"),appname,name,desc)        
+          when "model"
+            desc = ARGV.shift || nil
+            appname = getappname      
+            copy_file(File.join(TEMPLATEDIR,"WebSample.cs"),File.join(appname,"App","Models","WebSample.cs"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"WebSampleTests.cs"),File.join(appname+".Tests","Tests","Core","WebSampleTests.cs"),appname,name,desc)        
+          when "controller"
+            desc = ARGV.shift || nil
+            appname = getappname   
+            copy_file(File.join(TEMPLATEDIR,"WebSamplesController.cs"),File.join(appname,"App","Controllers","WebSamplesController.cs"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"_WebSampleForm.haml"),File.join(appname,"App","Views","WebSamples","_WebSampleForm.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Create.haml"),File.join(appname,"App","Views","WebSamples","Create.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Delete.haml"),File.join(appname,"App","Views","WebSamples","Delete.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Edit.haml"),File.join(appname,"App","Views","WebSamples","Edit.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Index.haml"),File.join(appname,"App","Views","WebSamples","Index.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"Show.haml"),File.join(appname,"App","Views","WebSamples","Show.haml"),appname,name,desc)
+            copy_file(File.join(TEMPLATEDIR,"WebSamplesControllerTests.cs"),File.join(appname+".Tests","Tests","Web","Controllers","WebSamplesControllerTests.cs"),appname,name,desc)                
+          else
+            puts 'S#aml ERROR: unknown generate argument'
+          end        
+        else
+          puts 'S#aml ERROR: no name specified'
+        end
+      when "compile"
+        appname = getappname
+        puts "Copying libraries"
+        begin
+          FileUtils.rm_r(File.join(appname,"bin"))
+        rescue Exception => e
+        end
+        FileUtils.cp_r("libraries",File.join(appname,"bin"))
+        puts "Compiling using xbuild"
+        system("xbuild #{appname}.sln")
+        puts "Compiling stylesheets"        
+        Dir.chdir(appname) do    
+          system("compass --update -c Config/compass_config.rb")
+        end
+      when "server"
+        puts "Starting xsp2"    
+        appname = getappname
+        Dir.chdir(appname) do
+          puts "Changed directory to #{Dir.pwd}"
+          puts "Starting xsp2 #{ARGV.join(" ")}"
+          system("xsp2 #{ARGV.join(" ")}")
+          puts "Done..."      
+        end
+      else
+        puts 'S#aml ERROR: unknown command'
+      end
+    end
+  end
+end
+end

data/lib/shaml/mono_load.rb

@@ -0,0 +1,92 @@
+require 'rbconfig'
+require 'fileutils'
+
+module Shaml
+class MonoLoader
+  def initialize
+    @mono_command = '/bin/mono'
+    @mono_directory = '/usr'
+    @mono_lib_directory = '/lib'
+    @csharp_command = '/mono/2.0/csharp.exe'
+    @gsharp_command = '/gsharp/gsharp.exe'
+    @config_dir = '~/.config'
+    @init_script_name = 'shaml.cs'
+
+    # get mono path for Windows
+    if RbConfig::CONFIG['host_os'] =~ /mswin|windows|cygwin|mingw/i
+      begin
+        require 'win32/registry'
+        # Check in default location
+        base = "Software\\Novell\\Mono\\"
+        begin
+          Win32::Registry::HKEY_LOCAL_MACHINE.open(base) do |reg|
+          end
+        # if running ruby 64-bit and mono 32-bit, change the registry search location
+        rescue Win32::Registry::Error
+          base = "Software\\Wow6432Node\\Novell\\Mono\\"
+        end
+        Win32::Registry::HKEY_LOCAL_MACHINE.open(base) do |reg|
+          monoversion = reg.read_s("DefaultCLR")
+          reg.open(monoversion) do |r|
+            @mono_directory = r.read_s("SdkInstallRoot")
+            @mono_lib_directory = r.read_s("FrameworkAssemblyDirectory")
+            @mono_command = "\\bin\\mono"
+          end
+        end
+        Win32::Registry::HKEY_CURRENT_USER.open("Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\User Shell Folders") do |reg|
+          @config_dir = reg.read_s_expand("AppData")
+        end
+      rescue Exception => e
+        STDERR.puts "Couldn't determine mono location under Windows!"
+        STDERR.puts e.inspect
+      end
+    else
+      if ENV['MONO_PREFIX'] != nil then
+        @mono_directory = ENV['MONO_PREFIX']
+        @mono_lib_directory = File.join(@mono_directory,"lib")
+      end
+    end
+  end
+
+  # create a file that will be executed before the interpreter starts
+  def create_init_script(init_script, name)
+    if init_script then
+      csconfig = File.join(@config_dir,name)
+      FileUtils::mkdir_p(csconfig)
+      csfile = File.join(csconfig,@init_script_name);
+      File.open(csfile,"w+") do |f|
+        f.write init_script
+      end
+    end    
+  end
+
+  # remove the file
+  def delete_init_script(init_script, name)
+    if init_script then
+      csconfig = File.join(@config_dir,name)
+      csfile = File.join(csconfig,@init_script_name);      
+      FileUtils::rm_rf(csfile)
+    end    
+  end
+
+  # run csharp with an optional initialization script
+  def load_csharp(init_script = nil)
+    create_init_script(init_script,"csharp")
+    puts "Mono executable: \"#{File.join(@mono_directory,@mono_command)}\""
+    cs = File.join(@mono_lib_directory,@csharp_command)
+    puts "CSharp executable: \"#{cs}\""
+    system("\"#{File.join(@mono_directory,@mono_command)}\" \"#{cs}\"")
+    delete_init_script("csharp")
+  end
+
+  # run gsharp with an optional initialization script
+  def load_gsharp(init_script = nil)
+    create_init_script(init_script,"gsharp")
+    puts "Mono executable: \"#{File.join(@mono_directory,@mono_command)}\""
+    gs = File.join(@mono_lib_directory,@gsharp_command)
+    puts "GSharp executable: \"#{gs}\""
+    system("\"#{File.join(@mono_directory,@mono_command)}\" \"#{gs}\"")
+    delete_init_script("gsharp") 
+  end
+end
+end

data/lib/shaml/shaml.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'shaml/mono_load'
+require 'shaml/command'
+
+module Shaml
+  SHAML_VERSION="0.5.0"
+  TEMPLATEDIR = File.join(File.dirname(__FILE__),"templates")
+  Mono = MonoLoader.new
+  Command = CommandLoader.new
+end

data/lib/shaml/templates/Create.haml

@@ -0,0 +1,3 @@
+%div
+  %h2 Create WebSample
+  _ WebSampleForm

data/lib/shaml/templates/Delete.haml

@@ -0,0 +1,7 @@
+%div
+  %h2 Delete WebSample
+  %p Are you sure?
+  - using (Html.BeginForm<WebSamplesController>(c => c.DeleteConfirmed(ViewData.Model.Id)))
+    = Html.AntiForgeryToken()
+    %input{ type="submit" value="Yes" }
+    %input{ type="button" name="No" value="No" onclick="javascript:history.go(-1);"}

data/lib/shaml/templates/Edit.haml

@@ -0,0 +1,3 @@
+%div
+  %h2 Edit WebSample
+  _ WebSampleForm

data/lib/shaml/templates/Index.haml

@@ -0,0 +1,24 @@
+%div
+  %h2 WebSamples
+  - if (ViewContext.TempData["message"] != null)
+    %p= ViewContext.TempData["message"]
+  %table
+    %thead
+      %tr
+// TODO: List of properties begin
+        %th Property
+// TODO: List of properties end
+        %th{ colspan=3 } Action
+    %tbody
+      - foreach (WebSample websample in ViewData.Model)
+        %tr
+// TODO: List of properties begin
+          %td= websample.Property
+// TODO: List of properties end
+          %td
+            = Html.ActionLink<WebSamplesController>( c => c.Show( websample.Id ), "Details ")
+          %td
+            = Html.ActionLink<WebSamplesController>( c => c.Edit( websample.Id ), "Edit")
+          %td
+            = Html.ActionLink<WebSamplesController>( c => c.Delete( websample.Id), "Delete")
+  %p= Html.ActionLink<WebSamplesController>(c => c.Create(), "Create New WebSample")

data/lib/shaml/templates/Show.haml

@@ -0,0 +1,10 @@
+@type=WebSample
+%div
+  %h2 WebSample Details
+  %ul
+// TODO: List of properties begin
+  %li
+    %label{ for="WebSample.Name" } Property:
+      %span{ id="WebSample.Name" }
+        = ViewData.Model.Property
+// TODO: List of properties end

data/lib/shaml/templates/WebSample.cs

@@ -0,0 +1,14 @@
+using NHibernate.Validator.Constraints;
+using Shaml.Core.DomainModel;
+using Shaml.Core.PersistenceSupport;
+using System;
+
+namespace WebBase.Core
+{
+    public class WebSample : Entity
+    {
+        public WebSample() { }
+
+        // TODO: Add Properties to the Domain Object
+    }
+}

data/lib/shaml/templates/WebSampleTests.cs

@@ -0,0 +1,21 @@
+using NUnit.Framework;
+using WebBase.Core;
+using Shaml.Testing;
+
+namespace Tests.Blog.Core
+{
+	[TestFixture]
+    public class WebSampleTests
+    {
+        [Test]
+        public void CanCompareWebSamples() {
+            WebSample instance = new WebSample();
+            EntityIdSetter.SetIdOf<int>(instance, 1);
+
+            WebSample instanceToCompareTo = new WebSample();
+            EntityIdSetter.SetIdOf<int>(instanceToCompareTo, 1);
+
+            instance.ShouldEqual(instanceToCompareTo);
+        }
+    }
+}

data/lib/shaml/templates/WebSamplesController.cs

@@ -0,0 +1,140 @@
+using System.Web.Mvc;
+using WebBase.Core;
+using SharpArch.Core.PersistenceSupport;
+using SharpArch.Core.DomainModel;
+using System.Collections.Generic;
+using System;
+using SharpArch.Web.NHibernate;
+using NHibernate.Validator.Engine;
+using System.Text;
+using SharpArch.Web.CommonValidator;
+using SharpArch.Core;
+
+namespace WebBase.Controllers
+{
+    [HandleError]
+    public class WebSamplesController : Controller
+    {
+        public WebSamplesController(IRepository<WebSample> websampleRepository) {
+            Check.Require(websampleRepository != null, "websampleRepository may not be null");
+
+            this.websampleRepository = websampleRepository;
+        }
+
+        [Transaction]
+        public ActionResult Index() {
+            IList<WebSample> websamples = websampleRepository.GetAll();
+            return View(websamples);
+        }
+
+        [Transaction]
+        public ActionResult Show(int id) {
+            WebSample websample = websampleRepository.Get(id);
+            return View(websample);
+        }
+
+        public ActionResult Create() {
+            WebSampleFormViewModel viewModel = WebSampleFormViewModel.CreateWebSampleFormViewModel();
+            return View(viewModel);
+        }
+
+        [ValidateAntiForgeryToken]
+        [Transaction]
+        [AcceptVerbs(HttpVerbs.Post)]
+        public ActionResult Create(WebSample websample) {
+            if (ViewData.ModelState.IsValid && websample.IsValid()) {
+                websampleRepository.SaveOrUpdate(websample);
+
+                TempData[ControllerEnums.GlobalViewDataProperty.PageMessage.ToString()] = 
+					"The websample was successfully created.";
+                return RedirectToAction("Index");
+            }
+
+            WebSampleFormViewModel viewModel = WebSampleFormViewModel.CreateWebSampleFormViewModel();
+            viewModel.WebSample = websample;
+            return View(viewModel);
+        }
+
+        [Transaction]
+        public ActionResult Edit(int id) {
+            WebSampleFormViewModel viewModel = WebSampleFormViewModel.CreateWebSampleFormViewModel();
+            viewModel.WebSample = websampleRepository.Get(id);
+            return View(viewModel);
+        }
+
+        [ValidateAntiForgeryToken]
+        [Transaction]
+        [AcceptVerbs(HttpVerbs.Post)]
+        public ActionResult Edit(WebSample websample) {
+            WebSample websampleToUpdate = websampleRepository.Get(websample.Id);
+            TransferFormValuesTo(websampleToUpdate, websample);
+
+            if (ViewData.ModelState.IsValid && websample.IsValid()) {
+                TempData[ControllerEnums.GlobalViewDataProperty.PageMessage.ToString()] = 
+					"The websample was successfully updated.";
+                return RedirectToAction("Index");
+            }
+            else {
+                websampleRepository.DbContext.RollbackTransaction();
+
+				WebSampleFormViewModel viewModel = WebSampleFormViewModel.CreateWebSampleFormViewModel();
+				viewModel.WebSample = websample;
+				return View(viewModel);
+            }
+        }
+
+        private void TransferFormValuesTo(WebSample websampleToUpdate, WebSample websampleFromForm) {
+          // TODO: Add copy methods
+        }
+
+        [ValidateAntiForgeryToken]
+        [Transaction]
+        [AcceptVerbs(HttpVerbs.Post)]
+        public ActionResult Delete(int id) {
+            string resultMessage = "The websample was successfully deleted.";
+            WebSample websampleToDelete = websampleRepository.Get(id);
+
+            if (websampleToDelete != null) {
+                websampleRepository.Delete(websampleToDelete);
+
+                try {
+                    websampleRepository.DbContext.CommitChanges();
+                }
+                catch {
+                    resultMessage = "A problem was encountered preventing the websample from being deleted. " +
+						"Another item likely depends on this websample.";
+                    websampleRepository.DbContext.RollbackTransaction();
+                }
+            }
+            else {
+                resultMessage = "The websample could not be found for deletion. It may already have been deleted.";
+            }
+
+            TempData[ControllerEnums.GlobalViewDataProperty.PageMessage.ToString()] = resultMessage;
+            return RedirectToAction("Index");
+        }
+
+		/// <summary>
+		/// Holds data to be passed to the WebSample form for creates and edits
+		/// </summary>
+        public class WebSampleFormViewModel
+        {
+            private WebSampleFormViewModel() { }
+
+			/// <summary>
+			/// Creation method for creating the view model. Services may be passed to the creation 
+			/// method to instantiate items such as lists for drop down boxes.
+			/// </summary>
+            public static WebSampleFormViewModel CreateWebSampleFormViewModel() {
+                WebSampleFormViewModel viewModel = new WebSampleFormViewModel();
+                
+                return viewModel;
+            }
+
+            public WebSample WebSample { get; internal set; }
+        }
+
+        private readonly IRepository<WebSample> websampleRepository;
+    }
+}
+

data/lib/shaml/templates/WebSamplesControllerTests.cs

@@ -0,0 +1,147 @@
+using System;
+using MvcContrib.TestHelper;
+using NUnit.Framework;
+using Rhino.Mocks;
+using Shaml.Core.PersistenceSupport;
+using Shaml.Testing;
+using System.Collections.Generic;
+using System.Web.Mvc;
+using WebBase;
+using WebBase.Config;
+using WebBase.Core;
+using WebBase.Controllers;
+
+namespace Tests.Blog.Web.Controllers
+{
+    [TestFixture]
+    public class WebSamplesControllerTests
+    {
+        [SetUp]
+        public void SetUp() {
+            ServiceLocatorInitializer.Init();
+            controller = new WebSamplesController(CreateMockWebSampleRepository());
+        }
+
+        /// <summary>
+        /// Add a couple of objects to the list within CreateWebSamples and change the 
+        /// "ShouldEqual(0)" within this test to the respective number.
+        /// </summary>
+        [Test]
+        public void CanListWebSamples() {
+            ViewResult result = controller.Index().AssertViewRendered();
+
+            result.ViewData.Model.ShouldNotBeNull();
+            (result.ViewData.Model as List<WebSample>).Count.ShouldEqual(0);
+        }
+
+        [Test]
+        public void CanShowWebSample() {
+            ViewResult result = controller.Show(1).AssertViewRendered();
+
+			result.ViewData.ShouldNotBeNull();
+			
+            (result.ViewData.Model as WebSample).Id.ShouldEqual(1);
+        }
+
+        [Test]
+        public void CanInitWebSampleCreation() {
+            ViewResult result = controller.Create().AssertViewRendered();
+            
+            result.ViewData.Model.ShouldNotBeNull();
+            result.ViewData.Model.ShouldBeOfType(typeof(WebSamplesController.WebSampleFormViewModel));
+            (result.ViewData.Model as WebSamplesController.WebSampleFormViewModel).WebSample.ShouldBeNull();
+        }
+
+        [Test]
+        public void CanEnsureWebSampleCreationIsValid() {
+            WebSample websampleFromForm = new WebSample();
+            ViewResult result = controller.Create(websampleFromForm).AssertViewRendered();
+
+            result.ViewData.Model.ShouldNotBeNull();
+            result.ViewData.Model.ShouldBeOfType(typeof(WebSamplesController.WebSampleFormViewModel));
+        }
+
+        [Test]
+        public void CanCreateWebSample() {
+            WebSample websampleFromForm = CreateTransientWebSample();
+            RedirectToRouteResult redirectResult = controller.Create(websampleFromForm)
+                .AssertActionRedirect().ToAction("Index");
+            controller.TempData[ControllerEnums.GlobalViewDataProperty.PageMessage.ToString()].ToString()
+				.ShouldContain("was successfully created");
+        }
+
+        [Test]
+        public void CanUpdateWebSample() {
+            WebSample websampleFromForm = CreateTransientWebSample();
+            EntityIdSetter.SetIdOf<int>(websampleFromForm, 1);
+            RedirectToRouteResult redirectResult = controller.Edit(websampleFromForm)
+                .AssertActionRedirect().ToAction("Index");
+            controller.TempData[ControllerEnums.GlobalViewDataProperty.PageMessage.ToString()].ToString()
+				.ShouldContain("was successfully updated");
+        }
+
+        [Test]
+        public void CanInitWebSampleEdit() {
+            ViewResult result = controller.Edit(1).AssertViewRendered();
+
+			result.ViewData.Model.ShouldNotBeNull();
+            result.ViewData.Model.ShouldBeOfType(typeof(WebSamplesController.WebSampleFormViewModel));
+            (result.ViewData.Model as WebSamplesController.WebSampleFormViewModel).WebSample.Id.ShouldEqual(1);
+        }
+
+        [Test]
+        public void CanDeleteWebSample() {
+            RedirectToRouteResult redirectResult = controller.Delete(1)
+                .AssertActionRedirect().ToAction("Index");
+            
+            controller.TempData[ControllerEnums.GlobalViewDataProperty.PageMessage.ToString()].ToString()
+				.ShouldContain("was successfully deleted");
+        }
+
+		#region Create Mock WebSample Repository
+
+        private IRepository<WebSample> CreateMockWebSampleRepository() {
+
+            IRepository<WebSample> mockedRepository = MockRepository.GenerateMock<IRepository<WebSample>>();
+            mockedRepository.Expect(mr => mr.GetAll()).Return(CreateWebSamples());
+            mockedRepository.Expect(mr => mr.Get(1)).IgnoreArguments().Return(CreateWebSample());
+            mockedRepository.Expect(mr => mr.SaveOrUpdate(null)).IgnoreArguments().Return(CreateWebSample());
+            mockedRepository.Expect(mr => mr.Delete(null)).IgnoreArguments();
+
+			IDbContext mockedDbContext = MockRepository.GenerateStub<IDbContext>();
+			mockedDbContext.Stub(c => c.CommitChanges());
+			mockedRepository.Stub(mr => mr.DbContext).Return(mockedDbContext);
+            
+            return mockedRepository;
+        }
+
+        private WebSample CreateWebSample() {
+            WebSample websample = CreateTransientWebSample();
+            EntityIdSetter.SetIdOf<int>(websample, 1);
+            return websample;
+        }
+
+          private List<WebSample> CreateWebSamples() {
+              List<WebSample> websamples = new List<WebSample>();
+
+            // Create a number of domain object instances here and add them to the list
+
+            return websamples;
+        }
+        
+        #endregion
+
+        /// <summary>
+        /// Creates a valid, transient WebSample; typical of something retrieved back from a form submission
+        /// </summary>
+        private WebSample CreateTransientWebSample() {
+            WebSample websample = new WebSample() {
+              //TODO: Create the properties of the object
+            };
+            
+            return websample;
+        }
+
+        private WebSamplesController controller;
+    }
+}

data/lib/shaml/templates/_WebSampleForm.haml

@@ -0,0 +1,16 @@
+@type=WebSample
+= Html.ValidationSummary()
+- using (Html.BeginForm()) 
+  = Html.AntiForgeryToken()
+  = Html.Hidden("id", (ViewData.Model == null) ? 0 : (ViewData.Model).Id)
+  %ul
+// TODO: List of properties begin
+    %li
+      %label{ for="WebSample_Property" }Property:
+        %div
+          = Html.TextBox("WebSample.Property", ViewData.Model != null ? ViewData.Model.Property.ToString() : "")
+          = Html.ValidationMessage("WebSample.Property")
+// TODO: List of properties end
+    %li
+      %input{ type="submit" name="btnSave" value="Save WebSample"}/
+        %button{ name="btnCancel" onClick="window.location.href = '/WebSamples';"} Cancel

metadata

@@ -0,0 +1,104 @@
+--- !ruby/object:Gem::Specification 
+name: shaml
+version: !ruby/object:Gem::Version 
+  prerelease: true
+  segments: 
+  - 0
+  - 5
+  - 0
+  - alpha
+  version: 0.5.0.alpha
+platform: ruby
+authors: 
+- Zsolt Sz. Sztupak
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-04-01 00:00:00 +02:00
+default_executable: shaml
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rubyzip
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 9
+        - 1
+        version: 0.9.1
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: compass
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 6
+        - 15
+        version: 0.6.15
+  type: :runtime
+  version_requirements: *id002
+description: Shaml is an ASP.NET MVC 2 framework with NHibernate 2.1 for mono 2.4.4+
+email: mail@sztupy.hu
+executables: 
+- shaml
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- bin/shaml
+- lib/shaml/templates/shaml_base_template.dat
+- lib/shaml/command.rb
+- lib/shaml/mono_load.rb
+- lib/shaml/shaml.rb
+- lib/shaml/templates/Create.haml
+- lib/shaml/templates/Delete.haml
+- lib/shaml/templates/Edit.haml
+- lib/shaml/templates/Index.haml
+- lib/shaml/templates/Show.haml
+- lib/shaml/templates/_WebSampleForm.haml
+- lib/shaml/templates/WebSample.cs
+- lib/shaml/templates/WebSamplesController.cs
+- lib/shaml/templates/WebSamplesControllerTests.cs
+- lib/shaml/templates/WebSampleTests.cs
+has_rdoc: true
+homepage: http://code.google.com/p/shaml-architecture/
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: shaml
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: ASP.NET MVC on mono
+test_files: []
+