panesofglass

class Identity
  attr_reader :value

  def initialize( value )
    @value = value
  end

  def bind
    yield @value
  end

panesofglass

class Maybe
  attr_reader :value
  
  def initialize ( value )
    @value = value
  end
  
  def bind
    if (@value == nil)
      Maybe.new( nil )

panesofglass

require "../list"
require "spec"

describe "Create a FuncList" do

  # Called before each example.
  before(:each) do
    @subject = FuncList.new
  end

panesofglass

namespace Cloud.ATS.Domain.Tests
{
    using Entities;

    using NBehave.Narrator.Framework;

    using Xunit;
    using Xunit.AssertExtensions;
    using Xunit.Specifications;

panesofglass

public interface IDetailLoader<T>
{ 
    void Load(string importPath, Action<T> addToBatch); 
    IEnumerable<T> GetDetailItems(IEnumerable<Row> rows); 
    T GetDetailItemFrom(Row row) 
}

panesofglass

public abstract class DetailLoader<T> : IDetailLoader<T> 
{
    public virtual void Load(string importPath, ProgressItem progressItem, Action<T> addToBatch) 
    { 
        var spreadsheet = SpreadsheetDocument.Load(importPath); 
        var rows = spreadsheet.Rows(); 

        progressItem.Start(rows.Count()); 

        var details = GetDetailItems(rows, progressItem); 

panesofglass

public class DetailLoaderWithProgressItem<T> : IDetailLoader<T>
{ 
    private IDetailLoader<T> _loader; 
    private ProgressItem _progressItem; 

    public DetailLoaderWithProgressItem(IDetailLoader<T> loader, ProgressItem progressItem) 
    { 
        _loader = loader; 
        _progressItem = progressItem; 
    }

panesofglass

public abstract class DetailLoader<T> : IDetailLoader<T> 
{ 
    public virtual void Load(string importPath, Action<T> addToBatch) 
    { 
        var spreadsheet = SpreadsheetDocument.Load(importPath); 
        var rows = spreadsheet.Rows(); 

        var details = GetDetailItems(rows); 
        foreach (var detail in details) 
            addToBatch(detail); 

panesofglass

namespace Foundation.Specifications
{
    /// <summary>
    /// Interface for a specification.
    /// </summary>
    /// <typeparam name="T">The type specified.</typeparam>
    /// <seealso href="http://www.lostechies.com/blogs/chrismissal/archive/2009/09/10/using-the-specification-pattern-for-querying.aspx" />
    public interface ISpecification<T>
    {
        /// <summary>

panesofglass

using System;
using System.Linq.Expressions;

namespace Foundation.Specifications
{
    /// <summary>
    /// A composite specification.
    /// </summary>
    /// <seealso href="http://www.lostechies.com/blogs/chrismissal/archive/2009/09/10/using-the-specification-pattern-for-querying.aspx" />
    public static class CompositeSpecification