Ignore:
Timestamp:
10/01/16 13:09:07 (5 years ago)
Author:
Mark Evenson
Message:

Revert r15858 to restore working CFFI-TESTS invocation

<http://abcl.org/trac/timeline/14882> vc:reverts <http://abcl.org/trac/changeset/14858>.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/runtime-class.lisp

    r14858 r14882  
    11(in-package :abcl.test.lisp)
     2
    23
    34;; method with no arguments
    45(deftest runtime-class.1
    5     (java:jclass-name
    6      (java:jnew-runtime-class
    7       "Actor"
    8       :fields '(("name" "java.lang.String" :getter NIL))
    9       :methods '(("getName" "java.lang.String" NIL
    10                   (lambda (this)
    11                     (java:jfield "name" this))))))
    12   "Actor")
     6    (java:jnew-runtime-class
     7     "Actor"
     8     :fields `(("name" "java.lang.String"))
     9     :methods `(("getName" "java.lang.String" nil
     10                           (lambda (this)
     11                             (java:jfield this "name")))))
     12  t)
    1313
    1414;; method with primitive type
    1515(deftest runtime-class.2
    16     (java:jclass-name
    17      (java:jnew-runtime-class
    18       "Actor"
    19       :fields '(("name" "java.lang.String" :getter NIL))
    20       :methods '(("getName" "java.lang.String" (:int)
    21                   (lambda (this x)
    22                     (declare (ignore x))
    23                     (java:jfield "name" this))))))
    24   "Actor")
     16    (java:jnew-runtime-class
     17     "Actor"
     18     :fields `(("name" "java.lang.String"))
     19     :methods `(("getName" "java.lang.String" (:int)
     20                           (lambda (this)
     21                             (java:jfield this "name")))))
     22  t)
    2523
    26 ;; inheritance of type
     24;; inheritance of type
     25
    2726(deftest runtime-class.3
    28     (let ((class-loader (java::make-memory-class-loader)))
    29       (java:jnew-runtime-class
     27    (progn
     28      (java:jnew-runtime-class 
    3029       "foo.Actor"
    31        :fields '(("name" "java.lang.String"))
    32        :class-loader class-loader)
    33       (java:jclass-name
    34        (java:jnew-runtime-class
    35         "foo.StageActor"
    36         :superclass "foo.Actor"
    37         :fields '(("givenName" "java.lang.String"))
    38         :class-loader class-loader)))
    39   "foo.StageActor")
     30       :fields `(("name" "java.lang.String")))
     31      (java:jnew-runtime-class
     32       "foo.StageActor"
     33       :superclass "foo.Actor"
     34       :fields (list '("givenName" "java.lang.String"))))
     35  t)
     36
     37
     38#|
     39// Simple constructor test
     40public class Actor {
     41  String name;
     42 
     43  public Actor(String name) {
     44    this.name = name;
     45  }
     46
     47  public String getName() {
     48    return name;
     49  }
     50 
     51}
     52|#
    4053
    4154;; constructor
    4255(deftest runtime-class.4
    43     (java:jcall "getName"
    44                 (java:jnew
    45                  (java:jnew-runtime-class
    46                   "Actor"
    47                   :constructors '((("java.lang.String")
    48                                    (lambda (this name)
    49                                      (setf (java:jfield "name" this) name))))
    50                   :methods '(("getName" "java.lang.String" NIL
    51                               (lambda (this)
    52                                 (java:jfield "name" this))))
    53                   :fields '(("name" "java.lang.String" :getter NIL)))
    54                  "Someone"))
    55   "Someone")
     56    (java:jnew-runtime-class
     57     "Actor"
     58     :constructors `(("java.lang.String")
     59                     (lambda (name)
     60                       (setf (jfield this "name")
     61                             name)))
     62     :methods `(("getName" "java.lang.String" ("java.lang.String")  ;; no-arg methods not working
     63                           (lambda (this dummy)
     64                             (declare (ignore dummy))
     65                             (java:jfield this "name"))))
     66     :fields `(("name" "java.lang.String")))
     67  t)
     68
     69
     70   
Note: See TracChangeset for help on using the changeset viewer.