adding expect_equal for new test

tests/testthat/test-platform.R

@@ -82,9 +82,16 @@ test_that("dsem adds variances ", {
   data = ts( log(isle_royale[,2:3]), start=1959)
 
   sem = "
+    wolves <-> wolves, 0, sd1
+    moose <-> moose, 0, sd2
   "
   # initial first without delta0 (to improve starting values)
-  fit = dsem( sem = sem,
+  fit1 = dsem( sem = "",
                tsdata = data )
+  # initial first without delta0 (to improve starting values)
+  fit2 = dsem( sem = sem,
+               tsdata = data )
+  # Check objective function
+  expect_equal( as.numeric(fit1$opt$obj), as.numeric(fit2$opt$obj), tolerance=1e-2 )
 })