prop_ruleTest :: Expression -> Text -> LogMode -> AppianState -> ClientEnv -> Login -> Property
prop_ruleTest expr txtGold logMode state env login = monadicIO $ do
  v <- run $ runAppianT logMode (testRule expr) state env login
  txtList <- case v ^? _Right . _Right . getParagraphField "Value" . pgfValue of
    Nothing -> fail "Could not get the expression from the response!"
    Just txt -> return txt

  assert (txtList == txtGold)
prop_ruleTest :: Expression -> Text -> LogMode -> AppianState -> ClientEnv -> Login -> Property
prop_ruleTest expr txtGold logMode state env login = monadicIO $ do
  v <- run $ runAppianT logMode (testRule expr) state env login
  txtList <- case v ^? _Right . _Right . getParagraphField "Value" . pgfValue of
    Nothing -> fail "Could not get the expression from the response!"
    Just txt -> return txt

  assert (txtList == txtGold)
prop_ruleTest expr txtGold logMode state env login = monadicIO $ do
  v <- run $ runAppianT logMode (testRule expr) state env login
  txtList <- case v ^? _Right . _Right . getParagraphField "Value" . pgfValue of
    Nothing -> fail "Could not get the expression from the response!"
    Just txt -> return txt

  assert (txtList == txtGold)