Skip to content

Commit 38d5580

Browse files
2881028810
28810
authored and
28810
committed
add vb.net tests
1 parent c7b63ef commit 38d5580

File tree

12 files changed

+81
-64
lines changed

12 files changed

+81
-64
lines changed

‎Examples/test_vb/Program.vb‎

Lines changed: 0 additions & 26 deletions
This file was deleted.

‎Examples/test_vb/test_vb.vbproj‎

Lines changed: 0 additions & 13 deletions
This file was deleted.

‎Extensions/FreeSql.Extensions.BaseEntity/BaseEntity 纯净版源码(.Net 4.0).zip‎

2.29 KB
Binary file not shown.

‎Extensions/FreeSql.Generator/FreeSql.Generator.csproj‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@
99
<Authors>2881099</Authors>
1010
<Company>2881099</Company>
1111
<Product>FreeSql123</Product>
12-
<Description>使用 FreeSql 快速生成数据库的实体类； dotnet tool install -g FreeSql.Generator</Description>
12+
<Description>使用 FreeSql 快速生成数据库的实体类，安装：dotnet tool install -g FreeSql.Generator</Description>
1313
<PackageProjectUrl>https://github.com/2881099/FreeSql</PackageProjectUrl>
1414
<RepositoryUrl>https://github.com/2881099/FreeSql</RepositoryUrl>
1515
<Version>0.12.20</Version>

‎FreeSql.DbContext/FreeSql.DbContext.csproj‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<Version>0.12.20</Version>
66
<GeneratePackageOnBuild>true</GeneratePackageOnBuild>
77
<Authors>YeXiangQin</Authors>
8-
<Description>FreeSql is the most convenient ORM in .NetCore, .NetFramework, And Xamarin. It supports Mysql, Postgresql, SqlServer, Oracle, Sqlite, And Odbc.</Description>
8+
<Description>FreeSql is the ORM in .NetCore, .NetFramework, And Xamarin. It supports Mysql, Postgresql, SqlServer, Oracle, Sqlite, And Odbc. 达梦</Description>
99
<PackageProjectUrl>https://github.com/2881099/FreeSql.DbContext</PackageProjectUrl>
1010
<PackageTags>FreeSql ORM DbContext</PackageTags>
1111
<RepositoryType>git</RepositoryType>

‎FreeSql.DbContext/FreeSql.DbContext.xml‎

Lines changed: 0 additions & 7 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎FreeSql.Repository/FreeSql.Repository.csproj‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
<TargetFrameworks>netstandard2.0;net45;net40</TargetFrameworks>
55
<Version>0.12.20</Version>
66
<Authors>YeXiangQin</Authors>
7-
<Description>FreeSql Implementation of General Repository, Support MySql/SqlServer/PostgreSQL/Oracle/Sqlite, and read/write separation、and split table.</Description>
7+
<Description>FreeSql Implementation of General Repository, Support MySql/SqlServer/PostgreSQL/Oracle/Sqlite/达梦, and read/write separation、and split table.</Description>
88
<PackageProjectUrl>https://github.com/2881099/FreeSql/wiki/Repository</PackageProjectUrl>
99
<PackageTags>FreeSql ORM Repository</PackageTags>
1010
<GeneratePackageOnBuild>true</GeneratePackageOnBuild>

‎FreeSql.Tests.VB/FreeSql.Tests.VB.vbproj‎

Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
3+
<PropertyGroup>
4+
<RootNamespace>FreeSql.Tests.VB</RootNamespace>
5+
<TargetFramework>netcoreapp3.1</TargetFramework>
6+
7+
<IsPackable>false</IsPackable>
8+
</PropertyGroup>
9+
10+
<ItemGroup>
11+
<PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.2.0" />
12+
<PackageReference Include="xunit" Version="2.4.0" />
13+
<PackageReference Include="xunit.runner.visualstudio" Version="2.4.0" />
14+
<PackageReference Include="coverlet.collector" Version="1.0.1" />
15+
</ItemGroup>
16+
17+
<ItemGroup>
18+
<ProjectReference Include="..\Extensions\FreeSql.Extensions.LazyLoading\FreeSql.Extensions.LazyLoading.csproj" />
19+
<ProjectReference Include="..\FreeSql.DbContext\FreeSql.DbContext.csproj" />
20+
<ProjectReference Include="..\Providers\FreeSql.Provider.SqlServer\FreeSql.Provider.SqlServer.csproj" />
21+
</ItemGroup>
22+
23+
</Project>

‎FreeSql.Tests.VB/UnitTest1.vb‎

Lines changed: 23 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,23 @@
1+
Imports System
2+
Imports Xunit
3+
4+
Namespace FreeSql.Tests.VB
5+
Public Class UnitTest1
6+
<Fact>
7+
Sub TestSub()
8+
9+
REM VB.net ±í´ïʽ½âÎö¼æÈÝÐÔ²âÊÔ
10+
Dim List1 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Id = 100).ToList()
11+
Dim List2 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title = "xxx").ToList()
12+
Dim List3 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title <> "xxx").ToList()
13+
14+
Dim List4 = g.sqlserver.Select(Of Testvb).ToList(Function(a) New With {a, a.Id, a.Title})
15+
16+
End Sub
17+
End Class
18+
End Namespace
19+
20+
Class Testvb
21+
Property Id As Integer
22+
Property Title As String
23+
End Class

‎FreeSql.Tests.VB/g.vb‎

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
Imports System.Threading
2+
3+
Public Class g
4+
5+
Shared sqlserverLazy As Lazy(Of IFreeSql) = New Lazy(Of IFreeSql)(New Func(Of IFreeSql)(Function() New FreeSqlBuilder() _
6+
.UseConnectionString(DataType.SqlServer, "Data Source=.;Integrated Security=True;Initial Catalog=freesqlTest;Pooling=true;Max Pool Size=3") _
7+
.UseAutoSyncStructure(True) _
8+
.UseMonitorCommand(Sub(cmd) Trace.WriteLine("\r\n线程" & Thread.CurrentThread.ManagedThreadId & ": " & cmd.CommandText)) _
9+
.UseLazyLoading(True) _
10+
.Build()))
11+
12+
Public Shared ReadOnly Property sqlserver As IFreeSql
13+
Get
14+
Return sqlserverLazy.Value
15+
End Get
16+
End Property
17+
18+
End Class

0 commit comments

Comments
 (0)