Merge pull request #463 from DataObjects-NET/master-non-csharp-test-projects

Non-CSharp test projects update

Author: alex-kulakov

Directory.Build.props

@@ -66,13 +66,13 @@
     <LangVersion>12.0</LangVersion> <!-- default language for net8.0 -->
   </PropertyGroup>
 
-  <PropertyGroup Condition = "$(Configuration.Contains('Debug')) == 'true'">
+  <PropertyGroup Condition = "$(Configuration.Contains('Debug')) == 'true' AND $(MSBuildProjectName.Contains('Tests.VB')) == 'false'">
    <DefineConstants>$(DefineConstants);TRACE;DEBUG</DefineConstants>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>portable</DebugType>
   </PropertyGroup>
 
-  <PropertyGroup Condition = "$(Configuration.Contains('Release')) == 'true'">
+  <PropertyGroup Condition = "$(Configuration.Contains('Release')) == 'true' AND $(MSBuildProjectName.Contains('Tests.VB')) == 'false'">
    <DefineConstants>$(DefineConstants);TRACE</DefineConstants>
   </PropertyGroup>
 

Orm.sln

@@ -0,0 +1,190 @@
+module ArithmeticOperationsCompilersTest
+
+open FsUnit
+open NUnit.Framework
+open Xtensive.Orm
+open Xtensive.Orm.Tests
+open Model
+open Microsoft.FSharp.Linq
+
+[<TestFixture>]
+type Fixture() =
+  inherit AutoBuildTest()
+
+  override this.BuildConfiguration() =
+    let config = base.BuildConfiguration ()
+    config.Types.Register typeof<X>
+    config
+
+  [<Test>]
+  member this.AdditionStringTest() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (StringField = "John") |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if (x.StringField + x.StringField) = "JohnJohn" then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.StringField, Is.EqualTo("John"))
+
+  [<Test>]
+  member this.AdditionDateTimeTest() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DateTimeField = new System.DateTime(System.DateTime.Now.Year, 2, 15)) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if (x.DateTimeField + System.TimeSpan.FromDays(2)) > new System.DateTime(System.DateTime.Now.Year, 2, 15) then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DateTimeField, Is.EqualTo(new System.DateTime(System.DateTime.Now.Year, 2, 15)))
+
+  [<Test>]
+  member this.AdditionTimeSpanTest() =
+    Require.ProviderIsNot (StorageProvider.PostgreSql)
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (TimeSpanField = System.TimeSpan.FromTicks(111222333)) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if (x.TimeSpanField + System.TimeSpan.FromDays(2)) > System.TimeSpan.FromTicks(111222333) + System.TimeSpan.FromDays(1) then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.TimeSpanField, Is.EqualTo(System.TimeSpan.FromTicks(111222333)))
+
+  [<Test>]
+  member this.AdditionDecimalTest() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DecimalField = decimal 16.0) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if x.DecimalField + x.DecimalField <= decimal 35 then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DecimalField, Is.EqualTo(decimal 16))
+
+  [<Test>]
+  member this.SubtractionDateTimeTest1() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DateTimeField = new System.DateTime(System.DateTime.Now.Year, 2, 15)) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if (x.DateTimeField - System.TimeSpan.FromDays(2)) > new System.DateTime(System.DateTime.Now.Year, 2, 10) then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DateTimeField, Is.EqualTo(new System.DateTime(System.DateTime.Now.Year, 2, 15)))
+
+  [<Test>]
+  member this.SubtractionDateTimeTest2() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DateTimeField = new System.DateTime(System.DateTime.Now.Year, 2, 15)) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if (x.DateTimeField - new System.DateTime(System.DateTime.Now.Year, 2, 10)) > System.TimeSpan.FromDays(2) then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DateTimeField, Is.EqualTo(new System.DateTime(System.DateTime.Now.Year, 2, 15)))
+
+  [<Test>]
+  member this.SubtractionTimeSpanTest() =
+    Require.ProviderIsNot (StorageProvider.PostgreSql)
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (TimeSpanField = System.TimeSpan.FromTicks(111222333)) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if (x.TimeSpanField - System.TimeSpan.FromTicks(111222)) > System.TimeSpan.FromTicks(111222) then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.TimeSpanField, Is.EqualTo(System.TimeSpan.FromTicks(111222333)))
+
+  [<Test>]
+  member this.SubtractionDecimalTest() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DecimalField = decimal 16.0) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if x.DecimalField - x.DecimalField + decimal 3 <= decimal 5 then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DecimalField, Is.EqualTo(decimal 16))
+
+  [<Test>]
+  member this.MultiplyDecimalTest() =
+    Require.ProviderIsNot StorageProvider.Firebird
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DecimalField = decimal 16.0) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if x.DecimalField * x.DecimalField <= decimal 350 then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DecimalField, Is.EqualTo(decimal 16))
+
+  [<Test>]
+  member this.DivideDecimalTest() =
+    use session = base.Domain.OpenSession ()
+    use ts = session.OpenTransaction ()
+    X (DecimalField = decimal 16.0) |> ignore
+    let alll = session.Query.All<X> ()
+    let query = 
+      query {
+        for x in alll do
+          if x.DecimalField / decimal 2 <= decimal 16 then 
+            yield x
+      }
+    let list = query |> Seq.toArray
+    Assert.That(list.Length, Is.EqualTo(1))
+    let fetched = list.[0]
+    Assert.That(fetched.DecimalField, Is.EqualTo(decimal 16))