[ANE-698] Add an integration test for NuGet fallback to project.asset…

…s.json

integration-test/Analysis/NugetSpec.hs

@@ -5,13 +5,18 @@ module Analysis.NugetSpec (spec) where
 
 import Analysis.FixtureExpectationUtils
 import Analysis.FixtureUtils
+import Data.Set qualified as Set
+import Data.Set (member)
+import Discovery.Walk (fileName)
 import Path
 
 import Strategy.NuGet qualified as NuGet
 import Strategy.NuGet.PackagesConfig qualified as PackagesConfig
 import Test.Hspec
 import Types
 
+import Debug.Trace (trace)
+
 serviceStack :: (Path Abs Dir -> TestC IO [DiscoveredProject a]) -> AnalysisTestFixture a
 serviceStack discoveryFunc =
   AnalysisTestFixture
@@ -24,6 +29,19 @@ serviceStack discoveryFunc =
       [reldir|nuget/ServiceStack/|]
       [reldir|servicestack-5.13.2//|]
 
+dotnetCoreTwoExample :: (Path Abs Dir -> TestC IO [DiscoveredProject a]) -> AnalysisTestFixture a
+dotnetCoreTwoExample discoveryFunc =
+  AnalysisTestFixture
+    "ServiceStack"
+    discoveryFunc
+    LocalEnvironment
+    Nothing
+    $ FixtureArtifact
+      "https://github.com/james-fossa/dotnet-core-2.0-example/archive/refs/tags/0.0.1.tar.gz"
+      [reldir|nuget/dotnet-core-2.0-example-0.0.1/|]
+      [reldir|dotnet-core-2.0-example-0.0.1//|]
+
+
 testServiceStackForPkgReferences :: Spec
 testServiceStackForPkgReferences =
   aroundAll (withAnalysisOf $ serviceStack NuGet.discover) $ do
@@ -38,7 +56,20 @@ testServiceStackForPkgConfig =
       it "should find targets" $ \(result, _) -> do
         length result `shouldBe` 4
 
+testDotnetCoreTwoExampleForPackageAssetsJson :: Spec
+testDotnetCoreTwoExampleForPackageAssetsJson =
+  aroundAll (withAnalysisOf $ dotnetCoreTwoExample NuGet.discover) $ do
+    describe "dotnet-core-2.0-example" $ do
+      it "should find targets" $ \(result, _) -> do
+        length result `shouldBe` 2
+        let projectDataPaths = Set.fromList $ map (fileName . NuGet.nugetProjectFile . Types.projectData . fst) result 
+        let doesProjectAssetsJsonTargetExist = member "project.assets.json" projectDataPaths
+        let doesCsprojTargetExist = member "example.csproj" projectDataPaths
+        doesProjectAssetsJsonTargetExist `shouldBe` True
+        doesCsprojTargetExist `shouldBe` True
+
 spec :: Spec
 spec = do
   testServiceStackForPkgReferences
   testServiceStackForPkgConfig
+  testDotnetCoreTwoExampleForPackageAssetsJson