Add test cases for new AseName Parameter

Author: x10shun

src/ResourceManager/Websites/Commands.Websites.Test/Commands.Websites.Test.csproj

@@ -207,6 +207,9 @@
     <None Include="SessionRecords\Microsoft.Azure.Commands.Websites.Test.ScenarioTests.WebAppSlotTests\TestCreateNewWebAppSlot.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
+    <None Include="SessionRecords\Microsoft.Azure.Commands.Websites.Test.ScenarioTests.WebAppSlotTests\TestCreateNewWebAppSlotOnAse.json">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </None>
     <None Include="SessionRecords\Microsoft.Azure.Commands.Websites.Test.ScenarioTests.WebAppSlotTests\TestGetWebAppSlot.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
@@ -228,6 +231,9 @@
     <None Include="SessionRecords\Microsoft.Azure.Commands.Websites.Test.ScenarioTests.WebAppTests\TestCloneNewWebAppWithNewTrafficManager.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
+    <None Include="SessionRecords\Microsoft.Azure.Commands.Websites.Test.ScenarioTests.WebAppTests\TestCreateNewAppOnAse.json">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </None>
     <None Include="SessionRecords\Microsoft.Azure.Commands.Websites.Test.ScenarioTests.WebAppTests\TestCreateNewWebApp.json">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>

src/ResourceManager/Websites/Commands.Websites.Test/ScenarioTests/Common.ps1

@@ -48,6 +48,15 @@ function Get-ResourceGroupName
     return getAssetName
 }
 
+<#
+.SYNOPSIS
+Gets an aseName for testing.
+#>
+function Get-AseName
+{
+    return getAssetName
+}
+
 <#
 .SYNOPSIS
 Gets the location for the Website. Default to West US if none found.

src/ResourceManager/Websites/Commands.Websites.Test/ScenarioTests/WebAppSlotTests.cs

@@ -28,6 +28,13 @@ public void TestCreateNewWebAppSlot()
             WebsitesController.NewInstance.RunPsTest("Test-CreateNewWebAppSlot");
         }
 
+        [Fact]
+        [Trait(Category.AcceptanceType, Category.CheckIn)]
+        public void TestCreateNewWebAppSlotOnAse()
+        {
+            WebsitesController.NewInstance.RunPsTest("Test-CreateNewWebAppSlotOnAse");
+        }
+
         [Fact]
         [Trait(Category.AcceptanceType, Category.CheckIn)]
         public void TestGetWebAppSlot()

src/ResourceManager/Websites/Commands.Websites.Test/ScenarioTests/WebAppSlotTests.ps1

@@ -430,6 +430,65 @@ function Test-CreateNewWebAppSlot
     }
 }
 
+<#
+.SYNOPSIS
+Tests creating a new web app slot on ASE.
+#>
+function Test-CreateNewWebAppSlotOnAse
+{
+	# Setup
+	$rgname = "appdemorg"
+	$appname = Get-WebsiteName
+	$slotname = "staging"
+	$location = "West US"
+	$planName = "travel_production_plan"
+	$aseName = "asedemo"
+
+	$apiversion = "2015-08-01"
+	$resourceType = "Microsoft.Web/sites"
+	try
+	{
+		#Setup
+		$serverFarm = Get-AzureRmAppServicePlan -ResourceGroupName $rgname -Name  $planName
+		
+		# Create new web app
+		$actual = New-AzureRmWebApp -ResourceGroupName $rgname -Name $appname -Location $location -AppServicePlan $planName -AseName $aseName
+		
+		# Assert
+		Assert-AreEqual $appname $actual.Name
+		Assert-AreEqual $serverFarm.Id $actual.ServerFarmId
+
+		# Get new web app
+		$result = Get-AzureRmWebApp -ResourceGroupName $rgname -Name $appname
+		
+		# Assert
+		Assert-AreEqual $appname $result.Name
+		Assert-AreEqual $serverFarm.Id $result.ServerFarmId
+
+		# Create deployment slot
+		$slot1 = New-AzureRmWebAppSlot -ResourceGroupName $rgname -Name $appname -Slot $slotname -AppServicePlan $planName -AseName $aseName
+		$appWithSlotName = "$appname/$slotname"
+
+		# Assert
+		Assert-AreEqual $appWithSlotName $slot1.Name
+		Assert-AreEqual $serverFarm.Id $slot1.ServerFarmId
+
+		# Get new web app slot
+		$slot1 = Get-AzureRmWebAppSlot -ResourceGroupName $rgname -Name $appname -Slot $slotname
+
+		# Assert
+		Assert-AreEqual $appWithSlotName $slot1.Name
+		Assert-AreEqual $serverFarm.Id $slot1.ServerFarmId
+
+	}
+    finally
+	{
+		# Cleanup
+		Remove-AzureRmWebAppSlot -ResourceGroupName $rgname -Name $appname -Slot $slotname -Force
+		Remove-AzureRmWebApp -ResourceGroupName $rgname -Name $appname -Force
+    }
+}
+
 <#
 .SYNOPSIS
 Tests retrieving web app slots

src/ResourceManager/Websites/Commands.Websites.Test/ScenarioTests/WebAppTests.cs

@@ -28,6 +28,13 @@ public void TestCreateNewWebApp()
             WebsitesController.NewInstance.RunPsTest("Test-CreateNewWebApp");
         }
 
+        [Fact]
+        [Trait(Category.AcceptanceType, Category.CheckIn)]
+        public void TestCreateNewAppOnAse()
+        {
+            WebsitesController.NewInstance.RunPsTest("Test-CreateNewWebAppOnAse");
+        }
+
         [Fact(Skip = "Needs investigation. Fails running playback")]
         [Trait(Category.AcceptanceType, Category.CheckIn)]
         public void TestGetWebApp()

src/ResourceManager/Websites/Commands.Websites.Test/ScenarioTests/WebAppTests.ps1

@@ -408,6 +408,46 @@ function Test-CreateNewWebApp
     }
 }
 
+<#
+.SYNOPSIS
+Tests creating a new website on an ase
+#>
+function Test-CreateNewWebAppOnAse
+{
+	# Setup
+	$rgname = "appdemorg"
+	$wname = Get-WebsiteName
+	$location = "West US"
+	$whpName = "travel_production_plan"
+	$aseName = "asedemo"
+	$apiversion = "2015-08-01"
+	$resourceType = "Microsoft.Web/sites"
+	try
+	{
+		#Setup
+		$serverFarm = Get-AzureRmAppServicePlan -ResourceGroupName $rgname -Name  $whpName
+
+		# Create new web app
+		$actual = New-AzureRmWebApp -ResourceGroupName $rgname -Name $wname -Location $location -AppServicePlan $whpName -AseName $aseName
+		
+		# Assert
+		Assert-AreEqual $wname $actual.Name
+		Assert-AreEqual $serverFarm.Id $actual.ServerFarmId
+
+		# Get new web app
+		$result = Get-AzureRmWebApp -ResourceGroupName $rgname -Name $wname
+		
+		# Assert
+		Assert-AreEqual $wname $result.Name
+		Assert-AreEqual $serverFarm.Id $result.ServerFarmId
+	}
+    finally
+	{
+		# Cleanup
+		Remove-AzureRmWebApp -ResourceGroupName $rgname -Name $wname -Force
+    }
+}
+
 <#
 .SYNOPSIS
 Tests retrieving websites