Permalink
Browse files

updating FsTest to the newest version and updating Cashel to pass tests

  • Loading branch information...
1 parent 1e6b2e7 commit 7fd0fa4468fd0a00bde0f13dfce9d92613c0bef6 @jredville jredville committed Mar 11, 2009
@@ -38,10 +38,11 @@
<StartArguments>..\Cashel\Cashel.Tests\bin\Debug\Cashel.Tests.dll /wait</StartArguments>
</PropertyGroup>
<ItemGroup>
- <Reference Include="FsTest, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null">
- <Name>FsTest</Name>
- <AssemblyName>FsTest.dll</AssemblyName>
- <HintPath>..\..\External\FsTest.dll</HintPath>
+ <Reference Include="FsxUnit, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null">
+ <Name>FsxUnit</Name>
+ <AssemblyName>FsxUnit.dll</AssemblyName>
+ <SpecificVersion>False</SpecificVersion>
+ <HintPath>..\..\External\FsxUnit.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System" />
View
Binary file not shown.
View
Binary file not shown.
View
@@ -1,72 +0,0 @@
-#light
-
-namespace FsxUnit
-
-module Syntax =
- open Xunit
-
- let be (f : 'a -> unit) actual =
- f actual
-
- let False condition =
- Assert.False(condition)
-
- let True condition =
- Assert.True(condition)
-
- let Empty collection =
- Assert.Empty(collection)
-
- let NonEmpty collection =
- Assert.NotEmpty(collection)
-
- let Null item =
- Assert.Null(item)
-
- let NonNull item =
- Assert.NotNull(item)
-
- let equal expected actual =
- Assert.Equal(expected, actual)
-
- let not_equal expected actual =
- Assert.NotEqual(expected, actual)
-
- let contain expected actual =
- Assert.Contains((expected:string), (actual:string))
-
- let not_contain expected actual =
- Assert.DoesNotContain((expected:string), (actual:string))
-
- let have expected actual =
- Assert.Contains(expected, (actual :> seq<_>))
-
- let not_have expected actual =
- Assert.DoesNotContain(expected, (actual :> seq<_>))
-
- let be_same_as expected actual =
- Assert.Same(expected, actual)
-
- let not_be_same_as expected actual =
- Assert.NotSame(expected, actual)
-
- let be_in_range low high actual =
- Assert.InRange(actual, low, high)
-
- let not_be_in_range low high actual =
- Assert.NotInRange(actual, low, high)
-
- let be_type (t:System.Type) (actual:'a) =
- Assert.IsType(t, actual)
-
- let be_assignable_from (t:System.Type) (actual:'a) =
- Assert.IsAssignableFrom(t, actual)
-
- let throw_exception<'a when 'a :> exn> actual =
- Assert.Throws<'a>(Assert.ThrowsDelegate(actual))
-
- let not_throw_exception actual =
- Assert.DoesNotThrow(Assert.ThrowsDelegate(actual))
-
- let should f actual =
- f actual
@@ -1 +0,0 @@
-& 'C:\Program Files\FSharp-1.9.6.0\bin\fsc.exe' -r ..\xunit.dll --target library -o FsTest.dll Syntax.fs
View
Binary file not shown.

0 comments on commit 7fd0fa4

Please sign in to comment.