;; Shared definitions for tests
(in-package "CL-OBJC-TEST")

(defun create-new-string (string)
  (typed-objc-msg-send ((typed-objc-msg-send ((objc-get-class "NSString") "alloc"))
			"initWithUTF8String:") :string string))

(defun create-nsstring (string)
  (invoke (invoke 'ns-string alloc) :init-with-utf8-string string))

(defun create-ns-number (num)
  "Create a ns-number object and returns its fixnum lisp value
with a call to a class method and one to an instance method"
  (funcall (intern "INT-VALUE" "OBJC") 
	   (funcall (intern "NUMBER-WITH-INT?" "OBJC") 
		    (meta (intern "NS-NUMBER" "OBJC")) num)))