Added a testing file for completion-task

src/enclojure.plugin.netbeans/test/unit/src/org/enclojure/ide/nb/editor/completion/completion_task_test.clj

@@ -0,0 +1,108 @@
+(comment
+;*******************************************************************************
+;*    Copyright (c) ThorTech, L.L.C.. All rights reserved.
+;*    The use and distribution terms for this software are covered by the
+;*    GNU General Public License, version 2
+;*    (http://www.gnu.org/licenses/old-licenses/gpl-2.0.html) with classpath
+;*    exception (http://www.gnu.org/software/classpath/license.html)
+;*    which can be found in the file GPL-2.0+ClasspathException.txt at the root
+;*    of this distribution.
+;*    By using this software in any fashion, you are agreeing to be bound by
+;*    the terms of this license.
+;*    You must not remove this notice, or any other, from this software.
+;*******************************************************************************
+;*    Author: Eric Thorsen
+;*******************************************************************************
+)
+
+(ns org.enclojure.ide.nb.editor.completion.completion-task-test  
+  (:require
+    [org.enclojure.commons.c-slf4j :as logger]
+    )
+  (:use
+    org.enclojure.ide.nb.editor.completion.completion-task
+    )
+  (:import (org.netbeans.spi.editor.completion CompletionResultSet
+             CompletionItem CompletionProvider CompletionDocumentation
+             CompletionTask)
+    (org.netbeans.api.editor.completion Completion)
+    (org.netbeans.spi.editor.completion.support CompletionUtilities)
+    (java.util Collection)
+    (java.util.logging Level)
+    (javax.swing JToolTip)
+    (javax.swing.text Document PlainDocument StringContent)
+    (javax.swing.text JTextComponent)
+    (java.awt.event ActionEvent KeyEvent KeyListener)
+    (java.awt EventQueue Component)
+    (org.openide.util Exceptions)
+    (org.netbeans.modules.editor NbEditorUtilities)
+    (org.netbeans.spi.editor.completion.support AsyncCompletionQuery AsyncCompletionTask)
+    )
+  (:require 
+    [org.enclojure.ide.nb.editor.completion.completion-task :as completion-task]
+    [org.enclojure.ide.common.classpath-utils :as classpath-utils]
+    [org.enclojure.ide.navigator.token-nav :as token-nav]
+    [org.enclojure.ide.nb.editor.completion.completion-item :as completion-item]
+    [org.enclojure.ide.navigator.parser :as parser]
+    [org.enclojure.ide.nb.editor.utils :as editor-utils]
+    [org.enclojure.ide.nb.editor.completion.file-mapping :as file-mapping]
+    [org.enclojure.ide.analyze.symbol-meta :as symbol-meta]
+    ))
+
+; setup logging
+(logger/ensure-logger)
+
+(defmulti as-doc class)
+
+(defmethod as-doc String
+  [s]
+  (PlainDocument.
+    (doto (StringContent. (count s)) (.insertString 0 s))))
+
+(defmethod as-doc Document
+  [s] s)
+
+(defn test-completion-input
+  "Given an input string and a offset, what would the completion info look like"
+  ([s offset]
+  (get-completion-input (as-doc s) offset))
+  ([s] (test-completion-input s (dec (count s)))))
+
+(defn test-query-type-data-set-fn [s offset]
+  (let [input (get-completion-input (as-doc s) offset)]
+    (query-type-dataset-fn input nil)))
+
+(def ns-test-input {:text
+                    "(comment
+Sample clojure source file
+)
+(ns com.yourcompany.defpackage
+  (:use )
+  (:refer )
+  (:import
+    (java.util.concurrent )))
+\n
+(ma
+\n"
+                    :offsets
+                    [[42  :namespaces-only]
+                     [78   :namespaces-only]
+                     [89   :namespaces-only]
+                     [108  :java-packages-only]
+                     [128  :java-classes-for-package]
+                     [137  :funcall]
+                     ]})
+
+
+
+
+
+
+
+; In this case I would expect just the '(' ma.  The namespace construct should
+; be ignored.
+(def scenario-2 "
+(ns com.yourcompany.new-ns
+  )
+
+(ma")