FsTest

Source code checked in, #69631

Project Collection Service Accounts — Mon, 01 Oct 2012 21:13:48 GMT

Upgrade: New Version of LabDefaultTemplate.xaml. To upgrade your build definitions, please visit the following link: http://go.microsoft.com/fwlink/?LinkId=254563

Source code checked in, #69630

Project Collection Service Accounts — Mon, 01 Oct 2012 21:07:03 GMT

Checked in by server upgrade

Source code checked in, #48968

_TFSSERVICE — Thu, 22 Jul 2010 18:55:41 GMT

Checked in by server upgrade

New Post: Additional Test methods

cipher — Tue, 12 Jan 2010 05:03:19 GMT

I'd like to suggest adding a couple of methods:


let fail_with (msg:string) (error:Lazy<_>) =
    let mutable threw = false
    try
        try 
            error.Force() |> ignore
        with
        | Failure message -> 
            threw <- true
    //            Assert.Contains(msg,message)
            if not <| message.Contains(msg) then
                raise <| Xunit.Sdk.AssertActualExpectedException(msg,message,"Failure should contain:")
        | e -> 
            threw <- true
            raise <| Xunit.Sdk.ThrowsException(typeof<System.Exception>,e)
    finally 
        if not threw then
            raise <| Xunit.Sdk.ThrowsException(typeof<System.Exception>)
        
let fail_withi (msg:string) (error:Lazy<_>) =
    let mutable threw = false
    try
        try 
            error.Force() |> ignore
        with
        | Failure message -> 
            threw <- true
//            Assert.Contains(msg,message)
            if message.IndexOf(msg,System.StringComparison.OrdinalIgnoreCase) >= 0 then
                raise <| Xunit.Sdk.AssertActualExpectedException(msg,message,"Failure should contain:")
        | e -> 
            threw <- true
            raise <| Xunit.Sdk.ThrowsException(typeof<System.Exception>,e)
    finally 
        if not threw then
            raise <| Xunit.Sdk.ThrowsException(typeof<System.Exception>)

let match' regexp result =
    Assert.True(System.Text.RegularExpressions.Regex.IsMatch(result,regexp),sprintf "Result: %s should match %s" result regexp)

let not_match regexp result = 
    Assert.False(System.Text.RegularExpressions.Regex.IsMatch(result,regexp),sprintf "Result: %s should not match %s" result regexp)

Created Issue: Can't run with ReSharper Test Runner

riles01 — Tue, 14 Jul 2009 18:14:31 GMT

Harry Pierson noted this as well (http://devhawk.net/2007/12/12/Practical+F+Parsing+Unit+Testing.aspx). What about wrapping this in a workflow, e.g. test { ... } or spec { ... } or even tests { ... } or specs { ... }? By the way, are you still working on this?

Released: FsTest 0.2 (Sep 04, 2008)

Fri, 05 Sep 2008 00:19:02 GMT

A brief update which includes better documentation and specifying an interface file. This also includes extensions to boolean, IEnumerable<'a> and string

Updated Release: FsTest 0.2 (Sep 04, 2008)

Fri, 05 Sep 2008 00:19:02 GMT

A brief update which includes better documentation and specifying an interface file. This also includes extensions to boolean, IEnumerable<'a> and string

Source code checked in, #15509

MatthewPodwysocki — Thu, 04 Sep 2008 23:47:35 GMT

Checking in changes with xUnit 1.02 and new F# project files

Source code checked in, #14463

MatthewPodwysocki — Mon, 14 Jul 2008 22:03:31 GMT

Adding extensions and interface code

RELEASED: FsTest 0.1 (Jun 20, 2008)

Fri, 20 Jun 2008 18:23:21 GMT

This is the initial version of FsTest. This targets the xUnit.net 1.0.2 RC1 release.

This release includes:

Equality/Inequality Assertions
True/False Assertions
In Range Assertions
Collection Assertions

CREATED RELEASE: FsTest 0.1 (Jun 20, 2008)

Fri, 20 Jun 2008 18:23:21 GMT

This is the initial version of FsTest. This targets the xUnit.net 1.0.2 RC1 release.

This release includes:

Equality/Inequality Assertions
True/False Assertions
In Range Assertions
Collection Assertions

Updated Wiki: Home

MatthewPodwysocki — Thu, 19 Jun 2008 21:05:37 GMT

Project Description
This project is designed to Language Oriented Programming constructs around unit testing and behavior testing in F#.

The goal of this project is to create a Domain Specific Language for testing F# code in a way that makes sense for functional programming. F# has unique language constructs which can make very flexible testing languages. This project intends to explore those options to create a more intention driven experience.

Based off ideas from FsUnit this testing DSL is currently targeting the xUnit.net framework with the intention of targeting other frameworks.

Some of the syntax possibilities are the following:

Testing equality:
"foo" |> should equal "foo"
"foo" |> should not_equal "bar"
null |> should be Null
"foo" |> should be NonNull
"foobar" |> should contain "foo"
"foobar" |> should not_contain "hello"

Testing True/False:
true |> should be True
false |> should be False

Testing collections:
[1..10] |> should be NonEmpty
[] |> should be Empty
[1..10] |> should have 3
[1..10] |> should not_have 25

Exception Management:
throwsExceptionFunc |> should (throw_exception<ArgumentException>)
doesntThrowException |> should not_throw_exception

Future directions include the creation of a Behavior Driven Development experience in the vain of Specter, Specs, MSpec among others using F# language constructs.

Updated Wiki: Home

MatthewPodwysocki — Thu, 19 Jun 2008 20:52:55 GMT

Project Description
This project is designed to Language Oriented Programming constructs around unit testing and behavior testing in F#.

The goal of this project is to create a Domain Specific Language for testing F# code in a way that makes sense for functional programming. F# has unique language constructs which can make very flexible testing languages. This project intends to explore those options to create a more intention driven experience.

Based off ideas from FsUnit this testing DSL is currently targeting the xUnit.net framework with the intention of targeting other frameworks.

Some of the syntax possibilities are the following:

Testing equality:
"foo" |> should equal "foo"
"foo" |> should not_equal "bar"
null |> should be Null
"foo" |> should be NonNull
"foobar" |> should contain "foo"
"foobar" |> should contain "hello"

Testing True/False:
true |> should be True
false |> should be False

Testing collections:
[1..10] |> should be NonEmpty
[] |> should be Empty
[1..10] |> should have 3
[1..10] |> should not_have 25

Exception Management:
throwsExceptionFunc |> should (throw_exception<ArgumentException>)
doesntThrowException |> should not_throw_exception

Future directions include the creation of a Behavior Driven Development experience in the vain of Specter, Specs, MSpec among others using F# language constructs.

Updated Wiki: Home

MatthewPodwysocki — Thu, 19 Jun 2008 20:45:42 GMT

Commented Issue: Initial Checkin

MatthewPodwysocki — Thu, 19 Jun 2008 19:29:43 GMT

This is the initial checkin for the FsTest project
Comments: Associated with changeset 13511.

Source code checked in, #13511

MatthewPodwysocki — Thu, 19 Jun 2008 19:29:42 GMT

Adding new xUnit.net 1.0.2 RC1 dlls

Commented Issue: Initial Checkin

MatthewPodwysocki — Wed, 18 Jun 2008 16:33:00 GMT

This is the initial checkin for the FsTest project
Comments: Associated with changeset 13381.

Source code checked in, #13381

MatthewPodwysocki — Wed, 18 Jun 2008 16:33:00 GMT

Initial checkin of code

Created Issue: Initial Checkin

MatthewPodwysocki — Wed, 18 Jun 2008 16:32:22 GMT

This is the initial checkin for the FsTest project