<commit_before>(ns fntest.core
  (:require [fntest.jboss :as jboss]))

(defn with-jboss [f]
  "A test fixture for starting/stopping JBoss"
  (try
    (println "Starting JBoss")
    (jboss/start)
    (if (jboss/wait-for-ready? 20)
      (f)
      (println "JBoss failed to start"))
    (finally
     (println "Stopping JBoss")
     (jboss/stop))))

(defn with-deployment [name descriptor f]
  "A test fixture for deploying/undeploying an app to a running JBoss"
  (try
    (jboss/deploy name descriptor)
    (f)
    (finally
     (jboss/undeploy name))))
<commit_msg>This needs to return an actual fixture, duh.<commit_after>(ns fntest.core
  (:require [fntest.jboss :as jboss]))

(defn with-jboss [f]
  "A test fixture for starting/stopping JBoss"
  (try
    (println "Starting JBoss")
    (jboss/start)
    (if (jboss/wait-for-ready? 20)
      (f)
      (println "JBoss failed to start"))
    (finally
     (println "Stopping JBoss")
     (jboss/stop))))

(defn with-deployment [name descriptor]
  "Returns a test fixture for deploying/undeploying an app to a running JBoss"
  (fn [f]
    (try
      (jboss/deploy name descriptor)
      (f)
      (finally
       (jboss/undeploy name)))))

{'fraction_non_alphanumeric': 0.12773109243697478, 'fraction_numerical': 0.0033613445378151263, 'mean_word_length': 2.983277591973244, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4222108', 'n_tokens_mistral': 458, 'n_tokens_neox': 425, 'n_words': 125}