Ignore:
Timestamp:
10/28/05 12:19:47 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/java-tests.lisp

    r10250 r10253  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: java-tests.lisp,v 1.9 2005-10-28 00:11:58 piso Exp $
     4;;; $Id: java-tests.lisp,v 1.10 2005-10-28 12:19:47 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8080  t)
    8181
     82(deftest jclass.5
     83  (jcall (jmethod "java.lang.Object" "toString") (jclass "int"))
     84  "int")
     85
     86(deftest jclass.6
     87  (equal (jclass '|int|) (jclass "int"))
     88  t)
     89
    8290;; No such class.
    83 (deftest jclass.5
     91(deftest jclass.error.1
    8492  (signals-error (jclass "foo") 'error)
    8593  t)
    8694
    8795;; Silly argument.
    88 (deftest jclass.6
     96(deftest jclass.error.2
    8997  (signals-error (jclass 42) 'error)
    9098  t)
     
    145153  nil
    146154  "java.lang.String")
     155
     156(deftest jclass-name.8
     157  (jclass-name (jclass "int"))
     158  "int")
    147159
    148160(deftest jconstructor.1
Note: See TracChangeset for help on using the changeset viewer.