refactor: adapt test cases for dotnet runtime

Author: cpanse

inst/rawrrassembly/rawrr-dotnet.csproj

@@ -1,20 +1,17 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project Sdk="Microsoft.NET.Sdk">
+
   <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net8.0</TargetFramework> <!-- Or net7.0, depending on your setup -->
     <AssemblyName>rawrr</AssemblyName>
-    <OutputPath>bin\</OutputPath>
+    <PublishSingleFile>true</PublishSingleFile> 
+    <SelfContained>true</SelfContained> 
   </PropertyGroup>
-  <ItemGroup>
-    <Compile Include="rawrr.cs" />
-  </ItemGroup>
-
-  <Target Name="Build">
-    <MakeDir Directories="$(OutputPath)" Condition="!Exists('$(OutputPath)')" />
-    <Csc Sources="@(Compile)" OutputAssembly="$(OutputPath)$(AssemblyName).exe" References="@(Reference)" AdditionalLibPaths="$(AdditionalLibPaths)" Optimize="true" Platform="anycpu"/>
-  </Target>
 
   <ItemGroup>
-    <Reference Include="ThermoFisher.CommonCore.Data.dll"/>
-    <Reference Include="ThermoFisher.CommonCore.MassPrecisionEstimator.dll"/>
-    <Reference Include="ThermoFisher.CommonCore.RawFileReader.dll"/>
- </ItemGroup>
+    <PackageReference Include="ThermoFisher.CommonCore.BackgroundSubtraction" Version="8.0.6" />
+    <PackageReference Include="Thermofisher.CommonCore.MassPrecisionEstimator" Version="8.0.6" />
+    <PackageReference Include="ThermoFisher.CommonCore.RawFileReader" Version="8.0.6" />
+  </ItemGroup>
 </Project>
+

inst/rawrrassembly/rawrr.csproj

@@ -22,6 +22,6 @@ test_that("check tic of EH4547", {
     expect_equal(length(x$times), length(x$intensities))
     expect_equal(length(x$intensities), 995)
 
-    expect_true(sum(x$intensities) == 63682815178)
+    expect_equal(sum(x$intensities), 63682815178, tolerance = 10)
   }
 })

tests/testthat/test-EH4547.R

@@ -50,12 +50,15 @@ test_that("check readSpectrum scan 23.", {
                     package = 'rawrr') |>
     read.table(sep="\t", header=TRUE)
 
-  expect_true(sum(S$mZ %in% DF$m.z) >= 720)
-  expect_true(sum(S$intensity %in% DF$Intensity) >= 720)
+  ## mono
+  expect_true(sum(round(S$mZ, 3) %in% round(DF$m.z, 3)) >= 720)
+  expect_true(sum(round(S$intensity, 3) %in% round(DF$Intensity, 3)) >= 720)
 
-  lapply(DF$m.z[DF$Flags == "F"] %in% S$mZ, expect_true)
-  lapply(DF$m.z[DF$Flags == "M"] %in% S$mZ, expect_true)
-  lapply(DF$m.z[DF$Flags == "E"] %in% S$mZ, expect_false)
+
+  mZ <- round(S$mZ, 3)
+  lapply(round(DF$m.z[DF$Flags == "F"], 3) %in% mZ, FUN = expect_true)
+  lapply(round(DF$m.z[DF$Flags == "M"], 3) %in% mZ, FUN = expect_true)
+  lapply(round(DF$m.z[DF$Flags == "E"], 3) %in% mZ, FUN = expect_false)
 })