- Added exhaustiveness testing for class definition.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/lux/host.clj b/src/lux/host.clj
index 81323b1d8..8d6135d64 100644
--- a/src/lux/host.clj
+++ b/src/lux/host.clj
@@ -134,5 +134,10 @@
     (return &type/Unit)
     (fail (str "[Host Error] Constructor does not exist: " target))))
 
+(defn abstract-methods [class-loader class]
+  (return (&/->list (for [^Method =method (.getDeclaredMethods (Class/forName (&type/as-obj class) true class-loader))
+                          :when (.equals true (Modifier/isAbstract (.getModifiers =method)))]
+                      (&/T (.getName =method) (&/|map #(.getName ^Class %) (&/->list (seq (.getParameterTypes =method)))))))))
+
 (defn location [scope]
   (->> scope (&/|map &/normalize-name) (&/|interpose "$") (&/fold str "")))