bartelink

public static TRes Match<T,TRes>(this FSharpOption<T> opt, Func<T,TRes> some, Func<TRes> none)
{
  if (FSharpOption<T>.get_IsSome(opt))
    return some.Invoke(opt.Value);
  else
    return none.Invoke();
}

bartelink

type TypeThatIsARequestSpecification<'T>() =
    interface IRequestSpecification with
        member this.IsSatisfiedBy request = 
            match request with
            | :? System.Type as requestType -> typeof<'T>.IsAssignableFrom( requestType)
            | _ -> false
type PrepareSpecimenCommand<'T>( action) =
    interface ISpecimenCommand with
        member this.Execute( specimen, context) = 
            let instance = specimen :?> 'T

bartelink

module WebApi2Helpers

// Port of answer by @nikosbaxevanis :- http://stackoverflow.com/a/19954215/11635

open System
open Ploeh.AutoFixture
open Ploeh.AutoFixture.Kernel
open Ploeh.AutoFixture.Xunit
open Ploeh.AutoFixture.AutoFoq
open System.Web.Http.Hosting

bartelink

1. uses a ContextFixture (which requires Disposal)
2. keeps all Context/ContextFixture+Do+Assert/Observation in a single Test Method at all costs -- lambdas get very yucky the minute you factor calls to any of these into test methods
3. The TheoryDataProvider junk at the end is also applicable to xUnit [Theory] stuff (and you use the same [ClassData] and friends as one uses for other xunit.net stuff and just removes some cruft from writing up test cases)
4. uses sut/result/exception standard names
5. This is a sample and has stuff that doesnt scale up that I wouldnt do. e.g. dont use Conditional Logic in tests with care - something as simple as a should succeed / should fail set of cases should generally be two separate Thesis methods

Go look in bitbucket - there's a good set of tests that serve as a better set of samples.

This snippet will self destruct when someone tells me that the acceptance tests and samples in Johannes' fork are clearer and more complete

bartelink

static class SutContext
{
	public static SutContext<T> Create<T>()
	{
		T sut;
		return Create<T>( out sut );
	}

	public static SutContext<T> Create<T>( out T sut )
	{

bartelink

public class Frozen<T>
{
	readonly T _value;

	private Frozen( T t )
	{
		_value = t;
	}

	public Frozen( Fixture fixture )

bartelink

namespace Ploeh.AutoFixture.Forked
{
	class HackedDisposableTrackingCustomization : ICustomization, IDisposable
	{
		private readonly DisposableTrackingBehavior behavior;

		public HackedDisposableTrackingCustomization()
		{
			this.behavior = new DisposableTrackingBehavior();
		}

bartelink

function Get-ClipboardText {
        $command = {
                add-type -an system.windows.forms
                [System.Windows.Forms.Clipboard]::GetText()
        }
        powershell -sta -noprofile -command $command
}

function Get-GrepWinClipboardFiles() {
    get-ClipboardText | ConvertFrom-Csv -del "`t" | %{ $_.Path+"\"+$_.Name }

bartelink

[Theory]
		[ClassAutoData( typeof( XProvider ) )]
		public static void Scenario( X x, string y )
		{
			Console.WriteLine( x + "," + y );
		}

		public class ClassAutoDataAttribute : CompositeDataAttribute
		{
			public ClassAutoDataAttribute( Type @class )

bartelink

        static class Program
	{
		static void Main()
		{
			var x = new { a=0, b=1 };
			f( x );
		}
		static void f(dynamic x)
		{
			Console.WriteLine(x.b);