check_smc_observations n modelName model =
    it (show n ++ " observations for " ++ modelName) $ do
      check_smc_weight <- TestSMCObservations.check_smc_weight n 30 model
      check_smc_weight `shouldBe` True
check_smc_observations n modelName model =
    it (show n ++ " observations for " ++ modelName) $ do
      check_smc_weight <- TestSMCObservations.check_smc_weight n 30 model
      check_smc_weight `shouldBe` True
check_smc_observations n modelName model =
    it (show n ++ " observations for " ++ modelName) $ do
      check_smc_weight <- TestSMCObservations.check_smc_weight n 30 model
      check_smc_weight `shouldBe` True