new tsqlt dacpac for SQL Server

JetterMcTedder · Nov 21, 2022 · d1eea7e · d1eea7e
1 parent 9e1986a
commit d1eea7e
Show file tree

Hide file tree

Showing 10 changed files with 433 additions and 0 deletions.
diff --git a/TestsSQLServer/Script.PreDeployment1.sql b/TestsSQLServer/Script.PreDeployment1.sql
@@ -0,0 +1,9 @@
+EXEC sp_configure 'show advanced option', '1';
+RECONFIGURE;
+GO
+EXEC sp_configure 'clr strict security', 0;
+RECONFIGURE;
+GO
+EXEC sp_configure 'clr enabled', 1;
+RECONFIGURE;
+GO
diff --git a/TestsSQLServer/TestsSQLServer.sqlproj b/TestsSQLServer/TestsSQLServer.sqlproj
@@ -29,4 +29,7 @@
       <SuppressMissingDependenciesErrors>False</SuppressMissingDependenciesErrors>
     </ArtifactReference>
   </ItemGroup>
+  <ItemGroup>
+    <PreDeploy Include="Script.PreDeployment1.sql" />
+  </ItemGroup>
 </Project>
diff --git a/TestsSQLServer2/Script.PreDeployment1.sql b/TestsSQLServer2/Script.PreDeployment1.sql
@@ -0,0 +1,9 @@
+EXEC sp_configure 'show advanced option', '1';
+RECONFIGURE;
+GO
+EXEC sp_configure 'clr strict security', 0;
+RECONFIGURE;
+GO
+EXEC sp_configure 'clr enabled', 1;
+RECONFIGURE;
+GO
diff --git a/TestsSQLServer2/TestsSQLServer.sqlproj b/TestsSQLServer2/TestsSQLServer.sqlproj
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project DefaultTargets="Build">
+  <Sdk Name="Microsoft.Build.Sql" Version="0.1.3-preview" />
+  <PropertyGroup>
+    <Name>Tests</Name>
+    <ProjectGuid>{841F91F6-D72F-4016-96C7-8DAB11BE6FAC}</ProjectGuid>
+    <DSP>Microsoft.Data.Tools.Schema.Sql.SqlAzureV12DatabaseSchemaProvider</DSP>
+    <ModelCollation>1033, CI</ModelCollation>
+  </PropertyGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Code\Code.sqlproj">
+      <Name>Code</Name>
+      <Project>{F3BF1446-3713-49D5-ACF6-6D51D7B57869}</Project>
+      <Private>True</Private>
+      <SuppressMissingDependenciesErrors>False</SuppressMissingDependenciesErrors>
+    </ProjectReference>
+  </ItemGroup>
+  <ItemGroup>
+    <Build Remove="myTests\demoExec.sql" />
+    <Build Remove="myTests\demoExecAzureSQL.sql" />
+    <Build Remove="setups\setupDatabase.sql" />
+    <Build Remove="tsqlt\PrepareServer.sql" />
+  </ItemGroup>
+  <ItemGroup>
+    <PostDeploy Include="myTests\demoTest.sql" />
+  </ItemGroup>
+  <ItemGroup>
+    <ArtifactReference Include="tsqlt\tsqlt.dacpac">
+      <SuppressMissingDependenciesErrors>False</SuppressMissingDependenciesErrors>
+    </ArtifactReference>
+  </ItemGroup>
+  <ItemGroup>
+    <PreDeploy Include="Script.PreDeployment1.sql" />
+  </ItemGroup>
+</Project>
diff --git a/TestsSQLServer2/myTests/demoExec.sql b/TestsSQLServer2/myTests/demoExec.sql
@@ -0,0 +1,4 @@
+EXEC sp_configure 'show advanced option', '1'; RECONFIGURE; EXEC sp_configure 'clr strict security', 0; RECONFIGURE; EXEC sp_configure 'clr enabled', 1; RECONFIGURE;
+
+
+EXEC tSQLt.Run 'testFinancialApp';
diff --git a/TestsSQLServer2/myTests/demoExecAzureSQL.sql b/TestsSQLServer2/myTests/demoExecAzureSQL.sql
@@ -0,0 +1 @@
+EXEC tSQLt.Run 'testFinancialApp';
diff --git a/TestsSQLServer2/myTests/demoTest.sql b/TestsSQLServer2/myTests/demoTest.sql
@@ -0,0 +1,181 @@
+--EXEC tSQLt.DropClass 'testFinancialApp';
+--GO
+CREATE SCHEMA testFinancialApp;
+GO
+
+----------------------------------------------------------------------------
+-- Example 1 -- AssertEquals 
+CREATE PROCEDURE testFinancialApp.[test that ConvertCurrency converts using given conversion rate]
+AS
+BEGIN
+    DECLARE @actual MONEY;
+    DECLARE @rate DECIMAL(10,4); SET @rate = 1.2;
+    DECLARE @amount MONEY; SET @amount = 2.00;
+
+    SELECT @actual = FinancialApp.ConvertCurrency(@rate, @amount);
+
+    DECLARE @expected MONEY; SET @expected = 2.4;   --(rate * amount)
+    EXEC tSQLt.AssertEquals @expected, @actual;
+
+END;
+GO
+
+----------------------------------------------------------------------------
+-- Example 2 -- FakeTable
+CREATE PROCEDURE testFinancialApp.[test that ConvertCurrencyUsingLookup converts using conversion rate in CurrencyConversion table]
+AS
+BEGIN
+    DECLARE @expected MONEY; SET @expected = 3.2;
+    DECLARE @actual MONEY;
+    DECLARE @amount MONEY; SET @amount = 2.00;
+    DECLARE @sourceCurrency CHAR(3); SET @sourceCurrency = 'EUR';
+    DECLARE @destCurrency CHAR(3); SET @destCurrency = 'USD';
+
+------Fake Table
+    EXEC tSQLt.FakeTable 'FinancialApp', 'CurrencyConversion';
+
+    INSERT INTO FinancialApp.CurrencyConversion (id, sourceCurrency, destCurrency, conversionRate)
+                                         VALUES (1, @sourceCurrency, @destCurrency, 1.6);
+------Execution
+    SELECT @actual = amount FROM FinancialApp.ConvertCurrencyUsingLookup(@sourceCurrency, @destCurrency, @amount);
+
+------Assertion
+    EXEC tSQLt.AssertEquals @expected, @actual;
+END;
+GO
+
+----------------------------------------------------------------------------
+-- Example 3 -- Create a new Foreign Key constraint
+-- No new test code, show how FakeTable prevents fragile tests
+
+
+----------------------------------------------------------------------------
+-- Example 4 -- AssertEqualsTable (Table Comparison)
+CREATE PROCEDURE testFinancialApp.[test that Report gets sales data with converted currency]
+AS
+BEGIN
+    IF OBJECT_ID('actual') IS NOT NULL DROP TABLE actual;
+    IF OBJECT_ID('expected') IS NOT NULL DROP TABLE expected;
+
+
+------Fake Table
+    EXEC tSQLt.FakeTable 'FinancialApp', 'CurrencyConversion';
+    EXEC tSQLt.FakeTable 'FinancialApp', 'Sales';
+
+    INSERT INTO FinancialApp.CurrencyConversion (id, sourceCurrency, destCurrency, conversionRate)
+                                         VALUES (1, 'EUR', 'USD', 1.6);
+    INSERT INTO FinancialApp.CurrencyConversion (id, sourceCurrency, destCurrency, conversionRate)
+                                         VALUES (2, 'GBP', 'USD', 1.2);
+
+    INSERT INTO FinancialApp.Sales (id, amount, currency, customerId, employeeId, itemId, date)
+                                         VALUES (1, '1050.00', 'GBP', 1000, 7, 34, '1/1/2007');
+    INSERT INTO FinancialApp.Sales (id, amount, currency, customerId, employeeId, itemId, date)
+                                         VALUES (2, '4500.00', 'EUR', 2000, 19, 24, '1/1/2008');
+
+------Execution
+    SELECT amount, currency, customerId, employeeId, itemId, date
+      INTO actual
+      FROM FinancialApp.Report('USD');
+
+------Assertion
+    CREATE TABLE expected (
+	    amount MONEY,
+	    currency CHAR(3),
+	    customerId INT,
+	    employeeId INT,
+	    itemId INT,
+	    date DATETIME
+    );
+
+	INSERT INTO expected (amount, currency, customerId, employeeId, itemId, date) SELECT 1260.00, 'USD', 1000, 7, 34, '2007-01-01';
+	INSERT INTO expected (amount, currency, customerId, employeeId, itemId, date) SELECT 7200.00, 'USD', 2000, 19, 24, '2008-01-01';
+
+	EXEC tSQLt.AssertEqualsTable 'actual', 'expected';
+END;
+GO
+
+----------------------------------------------------------------------------
+-- Example 5 -- SpyProcedure
+CREATE PROCEDURE testFinancialApp.[test that SalesReport calls HistoricalReport instead of CurrentReport when @showHistory = 1]
+AS
+BEGIN
+-------Assemble
+    EXEC tSQLt.SpyProcedure 'FinancialApp.HistoricalReport';
+    EXEC tSQLt.SpyProcedure 'FinancialApp.CurrentReport';
+
+-------Act
+    EXEC FinancialApp.SalesReport 'USD', @showHistory = 1;
+
+    SELECT currency
+      INTO actual
+      FROM FinancialApp.HistoricalReport_SpyProcedureLog;
+
+-------Assert HistoricalReport got called with right parameter
+    SELECT currency
+      INTO expected
+      FROM (SELECT 'USD') ex(currency);
+
+    EXEC tSQLt.AssertEqualsTable 'actual', 'expected';
+
+-------Assert CurrentReport did not get called
+    IF EXISTS (SELECT 1 FROM FinancialApp.CurrentReport_SpyProcedureLog)
+       EXEC tSQLt.Fail 'SalesReport should not have called CurrentReport when @showHistory = 1';
+END;
+GO
+
+CREATE PROCEDURE testFinancialApp.[test that SalesReport calls CurrentReport when @showHistory = 0]
+AS
+BEGIN
+-------Assemble
+    EXEC tSQLt.SpyProcedure 'FinancialApp.HistoricalReport';
+    EXEC tSQLt.SpyProcedure 'FinancialApp.CurrentReport';
+
+-------Act
+    EXEC FinancialApp.SalesReport 'USD', @showHistory = 0;
+
+    SELECT currency
+      INTO actual
+      FROM FinancialApp.CurrentReport_SpyProcedureLog;
+
+-------Assert
+    SELECT currency
+      INTO expected
+      FROM (SELECT 'USD') ex(currency);
+
+    EXEC tSQLt.AssertEqualsTable 'actual', 'expected';
+
+    IF EXISTS (SELECT 1 FROM FinancialApp.HistoricalReport_SpyProcedureLog)
+       EXEC tSQLt.Fail 'SalesReport should not have called HistoricalReport when @showHistory = 0';
+END;
+GO
+
+----------------------------------------------------------------------------
+-- Example 6 -- ApplyConstraint
+CREATE PROCEDURE testFinancialApp.[test that Sales table does not allow invalid currency]
+AS
+BEGIN
+    DECLARE @errorThrown bit; SET @errorThrown = 0;
+
+    EXEC tSQLt.FakeTable 'FinancialApp', 'Sales';
+    EXEC tSQLt.ApplyConstraint 'FinancialApp', 'Sales', 'validCurrency';
+
+    BEGIN TRY
+        INSERT INTO FinancialApp.Sales (id, currency)
+                                VALUES (1, 'XYZ');
+    END TRY
+    BEGIN CATCH
+        SET @errorThrown = 1;
+    END CATCH;    
+
+    IF (@errorThrown = 0 OR (EXISTS (SELECT 1 FROM FinancialApp.Sales)))
+    BEGIN
+        EXEC tSQLt.Fail 'Sales table should not allow invalid currency';
+    END;
+
+    IF EXISTS (SELECT 1 FROM FinancialApp.Sales)
+        EXEC tSQLt.Fail 'Sales table should not allow invalid currency';
+END;
+GO
+
+----------------------------------------------------------------------------
+-- Example 7 - Replace check constraint with FK
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		EXEC sp_configure 'show advanced option', '1'; RECONFIGURE; EXEC sp_configure 'clr strict security', 0; RECONFIGURE; EXEC sp_configure 'clr enabled', 1; RECONFIGURE;


		EXEC tSQLt.Run 'testFinancialApp';